#1463 -> Revisar fechas del informe de listado de iva de facturas de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@665 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
f65636dc45
commit
6e496b0717
@ -530,7 +530,7 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorBase.CreateParams(var params: TCreateParams);
|
procedure TfEditorBase.CreateParams(var params: TCreateParams);
|
||||||
begin
|
begin
|
||||||
inherited CreateParams(params);
|
inherited CreateParams(params);
|
||||||
|
|
||||||
{ Descomentar para crear varios formularios hijos abiertos a la vez
|
{ Descomentar para crear varios formularios hijos abiertos a la vez
|
||||||
fuera de la aplicación principal pero cuidado por que las ventanas
|
fuera de la aplicación principal pero cuidado por que las ventanas
|
||||||
@ -549,6 +549,11 @@ begin
|
|||||||
ABorderIcons := Self.BorderIcons;
|
ABorderIcons := Self.BorderIcons;
|
||||||
Self.BorderIcons := Self.BorderIcons - [biMinimize];
|
Self.BorderIcons := Self.BorderIcons - [biMinimize];
|
||||||
try
|
try
|
||||||
|
// Para tratar de evistar que la ventana modal se quede detrás
|
||||||
|
// de la pantalla principal.
|
||||||
|
PopupMode := pmExplicit;
|
||||||
|
PopupParent := Application.MainForm;
|
||||||
|
|
||||||
Result := inherited ShowModal;
|
Result := inherited ShowModal;
|
||||||
finally
|
finally
|
||||||
Self.BorderIcons := ABorderIcons;
|
Self.BorderIcons := ABorderIcons;
|
||||||
|
|||||||
@ -1,9 +1,9 @@
|
|||||||
inherited fEditorInformeBase: TfEditorInformeBase
|
inherited fEditorInformeBase: TfEditorInformeBase
|
||||||
Caption = ''
|
Caption = ''
|
||||||
ClientHeight = 483
|
ClientHeight = 641
|
||||||
ClientWidth = 787
|
ClientWidth = 787
|
||||||
ExplicitWidth = 795
|
ExplicitWidth = 795
|
||||||
ExplicitHeight = 517
|
ExplicitHeight = 675
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -23,23 +23,23 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 464
|
Top = 622
|
||||||
Width = 787
|
Width = 787
|
||||||
ExplicitTop = 464
|
ExplicitTop = 622
|
||||||
ExplicitWidth = 787
|
ExplicitWidth = 787
|
||||||
end
|
end
|
||||||
object TBXMultiDockIzquierdo: TTBXMultiDock [3]
|
object TBXMultiDockIzquierdo: TTBXMultiDock [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 116
|
Top = 116
|
||||||
Width = 7
|
Width = 7
|
||||||
Height = 348
|
Height = 506
|
||||||
Position = dpLeft
|
Position = dpLeft
|
||||||
end
|
end
|
||||||
object TBXMultiDockDerecho: TTBXMultiDock [4]
|
object TBXMultiDockDerecho: TTBXMultiDock [4]
|
||||||
Left = 537
|
Left = 447
|
||||||
Top = 116
|
Top = 116
|
||||||
Width = 250
|
Width = 340
|
||||||
Height = 348
|
Height = 506
|
||||||
Position = dpRight
|
Position = dpRight
|
||||||
object pnlParametros: TTBXDockablePanel
|
object pnlParametros: TTBXDockablePanel
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -49,29 +49,27 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
|||||||
CloseButtonWhenDocked = False
|
CloseButtonWhenDocked = False
|
||||||
DefaultDock = TBXMultiDockDerecho
|
DefaultDock = TBXMultiDockDerecho
|
||||||
DockableTo = [dpLeft, dpRight]
|
DockableTo = [dpLeft, dpRight]
|
||||||
DockedWidth = 246
|
DockedWidth = 336
|
||||||
DockMode = dmCannotFloat
|
DockMode = dmCannotFloat
|
||||||
DockPos = 6
|
DockPos = 6
|
||||||
FloatingWidth = 128
|
FloatingWidth = 128
|
||||||
FloatingHeight = 128
|
FloatingHeight = 128
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXDockablePanel1: TTBXDockablePanel
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 259
|
Top = 0
|
||||||
MaxClientHeight = 50
|
Width = 336
|
||||||
Align = alBottom
|
Height = 467
|
||||||
Caption = 'TBXDockablePanel1'
|
Align = alClient
|
||||||
FloatingWidth = 128
|
|
||||||
FloatingHeight = 128
|
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitTop = 181
|
TabStop = False
|
||||||
ExplicitWidth = 150
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
ExplicitHeight = 128
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
ExplicitHeight = 105
|
||||||
object TBXButton1: TTBXButton
|
object TBXButton1: TTBXButton
|
||||||
Left = 16
|
Left = 11
|
||||||
Top = 12
|
Top = 432
|
||||||
Width = 121
|
Width = 121
|
||||||
Height = 24
|
Height = 24
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
@ -79,6 +77,29 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
|||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avBottom
|
||||||
|
Caption = 'Refrescar'
|
||||||
|
ShowCaption = False
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlItemRefrescar: TdxLayoutItem
|
||||||
|
Caption = 'Actualizar'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = TBXButton1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
Caption = 'Filtros'
|
||||||
|
ShowCaption = False
|
||||||
|
ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -125,4 +146,17 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
|||||||
Left = 280
|
Left = 280
|
||||||
Top = 152
|
Top = 152
|
||||||
end
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 120
|
||||||
|
Top = 24
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -10,15 +10,22 @@ uses
|
|||||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvNavigationPane, uIEditorInformeBase, TBXDkPanels, frxExportCSV;
|
JvExControls, JvNavigationPane, uIEditorInformeBase, TBXDkPanels, frxExportCSV,
|
||||||
|
dxLayoutLookAndFeels, dxLayoutControl, cxControls;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase)
|
TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase)
|
||||||
TBXMultiDockIzquierdo: TTBXMultiDock;
|
TBXMultiDockIzquierdo: TTBXMultiDock;
|
||||||
TBXMultiDockDerecho: TTBXMultiDock;
|
TBXMultiDockDerecho: TTBXMultiDock;
|
||||||
pnlParametros: TTBXDockablePanel;
|
pnlParametros: TTBXDockablePanel;
|
||||||
TBXDockablePanel1: TTBXDockablePanel;
|
|
||||||
TBXButton1: TTBXButton;
|
TBXButton1: TTBXButton;
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
dxLayoutControlGroupFiltros: TdxLayoutGroup;
|
||||||
|
dxLayoutControlItemRefrescar: TdxLayoutItem;
|
||||||
|
dxLayoutControlGroupRefrescar: TdxLayoutGroup;
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
|
|||||||
@ -1,9 +1,9 @@
|
|||||||
inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
|
inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
|
||||||
Caption = 'fEditorInformeFacturasClientePendientesReport'
|
Caption = 'fEditorInformeFacturasClientePendientesReport'
|
||||||
ClientHeight = 655
|
ClientHeight = 844
|
||||||
ClientWidth = 895
|
ClientWidth = 895
|
||||||
ExplicitWidth = 903
|
ExplicitWidth = 903
|
||||||
ExplicitHeight = 689
|
ExplicitHeight = 878
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -21,7 +21,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -30,198 +30,211 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 636
|
Top = 825
|
||||||
Width = 895
|
Width = 895
|
||||||
ExplicitTop = 636
|
ExplicitTop = 825
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 709
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 709
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 535
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 709
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 535
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 709
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 693
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 670
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 136
|
ExplicitHeight = 670
|
||||||
Align = alTop
|
inline frViewFiltroClientes1: TfrViewFiltroClientes [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 282
|
||||||
Font.Height = -11
|
Width = 335
|
||||||
Font.Name = 'Tahoma'
|
Height = 180
|
||||||
Font.Style = []
|
HelpContext = 160
|
||||||
ParentFont = False
|
Align = alClient
|
||||||
TabOrder = 0
|
Color = clBtnFace
|
||||||
ReadOnly = False
|
Font.Charset = DEFAULT_CHARSET
|
||||||
ExplicitWidth = 188
|
Font.Color = clWindowText
|
||||||
ExplicitHeight = 136
|
Font.Height = -11
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
Font.Name = 'Tahoma'
|
||||||
Width = 182
|
Font.Style = []
|
||||||
ExplicitWidth = 182
|
ParentBackground = False
|
||||||
inherited Label3: TLabel
|
ParentColor = False
|
||||||
Width = 172
|
ParentFont = False
|
||||||
end
|
TabOrder = 2
|
||||||
inherited edtFechaFin: TcxDateEdit
|
ReadOnly = False
|
||||||
Left = 72
|
ExplicitLeft = 11
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitTop = 282
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitHeight = 180
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitLeft = 72
|
Width = 335
|
||||||
ExplicitWidth = 100
|
Height = 180
|
||||||
Width = 100
|
ExplicitWidth = 335
|
||||||
end
|
ExplicitHeight = 180
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited rbTodosClientes: TRadioButton
|
||||||
Style.LookAndFeel.SkinName = ''
|
Width = 355
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 100
|
inherited cbxDesglosado: TCheckBox
|
||||||
Width = 100
|
Width = 338
|
||||||
end
|
ParentColor = False
|
||||||
inherited cbPeriodo: TcxComboBox
|
ExplicitWidth = 338
|
||||||
Style.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
inherited rbUnCliente: TRadioButton
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 355
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
ExplicitWidth = 170
|
ExplicitWidth = 355
|
||||||
Width = 170
|
end
|
||||||
|
inherited edtCliente: TcxTextEdit
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXButton1: TTBXButton [1]
|
||||||
Width = 188
|
Left = 22
|
||||||
ExplicitWidth = 188
|
Top = 630
|
||||||
|
ExplicitLeft = 22
|
||||||
|
ExplicitTop = 630
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 182
|
Left = 11
|
||||||
Visible = False
|
Top = 11
|
||||||
ExplicitWidth = 182
|
Width = 335
|
||||||
inherited Label4: TLabel
|
Height = 250
|
||||||
Width = 172
|
Align = alClient
|
||||||
end
|
Color = clBtnFace
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Style.LookAndFeel.SkinName = ''
|
Font.Color = clWindowText
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Font.Height = -11
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Font.Name = 'Tahoma'
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Font.Style = []
|
||||||
ExplicitWidth = 99
|
ParentBackground = False
|
||||||
Width = 99
|
ParentColor = False
|
||||||
end
|
ParentFont = False
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
TabOrder = 1
|
||||||
Style.LookAndFeel.SkinName = ''
|
ReadOnly = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitLeft = 11
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitTop = 11
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
ExplicitWidth = 97
|
ExplicitHeight = 250
|
||||||
Width = 97
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
Width = 335
|
||||||
inherited cbPeriodo2: TcxComboBox
|
Height = 250
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitHeight = 250
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
inherited edtFechaIni: TcxDateEdit
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
Left = 11
|
||||||
Top = 368
|
Top = 478
|
||||||
TabOrder = 2
|
Width = 335
|
||||||
ExplicitTop = 368
|
Height = 120
|
||||||
ExplicitWidth = 188
|
Align = alClient
|
||||||
inherited TBXButton1: TTBXButton
|
Color = clBtnFace
|
||||||
AlignWithMargins = True
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Left = 3
|
Font.Color = clWindowText
|
||||||
Top = 3
|
Font.Height = -11
|
||||||
Width = 182
|
Font.Name = 'Tahoma'
|
||||||
Height = 37
|
Font.Style = []
|
||||||
Margins.Left = 8
|
ParentBackground = False
|
||||||
Margins.Top = 8
|
ParentColor = False
|
||||||
Margins.Right = 8
|
ParentFont = False
|
||||||
Margins.Bottom = 8
|
TabOrder = 3
|
||||||
Align = alTop
|
ReadOnly = False
|
||||||
ExplicitLeft = 3
|
ExplicitLeft = 11
|
||||||
ExplicitTop = 3
|
ExplicitTop = 478
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 335
|
||||||
ExplicitHeight = 37
|
ExplicitHeight = 120
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
Width = 335
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Height = 120
|
||||||
Left = 0
|
ExplicitWidth = 335
|
||||||
Top = 136
|
ExplicitHeight = 120
|
||||||
Width = 188
|
inherited cbxDesglosado: TCheckBox
|
||||||
Height = 77
|
Width = 298
|
||||||
Align = alTop
|
ParentColor = False
|
||||||
AutoSize = True
|
ExplicitWidth = 298
|
||||||
Font.Charset = DEFAULT_CHARSET
|
end
|
||||||
Font.Color = clWindowText
|
inherited eImporte: TcxSpinEdit
|
||||||
Font.Height = -11
|
ExplicitWidth = 142
|
||||||
Font.Name = 'Tahoma'
|
Width = 142
|
||||||
Font.Style = []
|
end
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 1
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 136
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 77
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
Left = 0
|
ShowCaption = True
|
||||||
Top = 213
|
ShowBorder = True
|
||||||
Width = 188
|
end
|
||||||
Height = 146
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
Align = alTop
|
AutoAligns = [aaHorizontal]
|
||||||
AutoSize = True
|
AlignVert = avClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
Font.Color = clWindowText
|
AutoAligns = [aaHorizontal]
|
||||||
Font.Height = -11
|
AlignVert = avClient
|
||||||
Font.Name = 'Tahoma'
|
Caption = 'Periodo:'
|
||||||
Font.Style = []
|
ShowCaption = False
|
||||||
ParentFont = False
|
Control = frViewPeriodoFechas1
|
||||||
TabOrder = 3
|
ControlOptions.ShowBorder = False
|
||||||
ReadOnly = False
|
end
|
||||||
ExplicitTop = 213
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
ExplicitWidth = 188
|
AutoAligns = [aaHorizontal]
|
||||||
ExplicitHeight = 146
|
AlignVert = avClient
|
||||||
inherited TBXLabel2: TTBXLabel
|
Caption = 'Clientes:'
|
||||||
Width = 188
|
ShowCaption = False
|
||||||
ExplicitWidth = 188
|
Control = frViewFiltroClientes1
|
||||||
end
|
ControlOptions.ShowBorder = False
|
||||||
inherited bElegirCliente: TBitBtn
|
end
|
||||||
Width = 108
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
ExplicitWidth = 108
|
AutoAligns = [aaHorizontal]
|
||||||
end
|
AlignVert = avClient
|
||||||
inherited edtCliente: TcxTextEdit
|
Caption = 'Importes:'
|
||||||
Style.LookAndFeel.SkinName = ''
|
ShowCaption = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Control = frViewFiltroImportes1
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ControlOptions.ShowBorder = False
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 141
|
end
|
||||||
Width = 141
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,7 +15,8 @@ uses
|
|||||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme,
|
uIEditorInformeBase, uViewParametrosInforme,
|
||||||
uIEditorInformeFacturasClientePendientesReport;
|
uIEditorInformeFacturasClientePendientesReport, frxExportCSV,
|
||||||
|
dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
|
TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
|
||||||
@ -23,6 +24,9 @@ type
|
|||||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
|
|||||||
@ -1,9 +1,9 @@
|
|||||||
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
|
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
|
||||||
Caption = 'fEditorInformeFacturasClienteReport'
|
Caption = 'fEditorInformeFacturasClienteReport'
|
||||||
ClientHeight = 655
|
ClientHeight = 826
|
||||||
ClientWidth = 895
|
ClientWidth = 895
|
||||||
ExplicitWidth = 903
|
ExplicitWidth = 903
|
||||||
ExplicitHeight = 689
|
ExplicitHeight = 860
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -21,7 +21,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -30,206 +30,202 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 636
|
Top = 807
|
||||||
Width = 895
|
Width = 895
|
||||||
ExplicitTop = 636
|
ExplicitTop = 807
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 691
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 691
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 535
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 691
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 535
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 691
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 675
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 652
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 136
|
ExplicitHeight = 652
|
||||||
Align = alTop
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 136
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
Height = 98
|
|
||||||
ExplicitWidth = 182
|
|
||||||
ExplicitHeight = 98
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 74
|
|
||||||
Top = 77
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 74
|
|
||||||
ExplicitTop = 77
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Top = 136
|
|
||||||
Width = 182
|
|
||||||
Visible = False
|
|
||||||
ExplicitTop = 136
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
inherited TBXButton1: TTBXButton
|
||||||
AlignWithMargins = True
|
Top = 617
|
||||||
Left = 3
|
ExplicitTop = 617
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
|
||||||
ExplicitLeft = 3
|
|
||||||
ExplicitTop = 3
|
|
||||||
ExplicitWidth = 182
|
|
||||||
ExplicitHeight = 37
|
|
||||||
end
|
end
|
||||||
end
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [1]
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Left = 11
|
||||||
Left = 0
|
Top = 11
|
||||||
Top = 136
|
Width = 313
|
||||||
Width = 188
|
Height = 250
|
||||||
Height = 77
|
Color = clBtnFace
|
||||||
Align = alTop
|
Font.Charset = DEFAULT_CHARSET
|
||||||
AutoSize = True
|
Font.Color = clWindowText
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Height = -11
|
||||||
Font.Color = clWindowText
|
Font.Name = 'Tahoma'
|
||||||
Font.Height = -11
|
Font.Style = []
|
||||||
Font.Name = 'Tahoma'
|
ParentBackground = False
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitLeft = 11
|
||||||
ExplicitWidth = 188
|
ExplicitTop = 11
|
||||||
ExplicitHeight = 77
|
ExplicitWidth = 313
|
||||||
inherited TBXLabel2: TTBXLabel
|
ExplicitHeight = 250
|
||||||
Width = 188
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitWidth = 188
|
Width = 313
|
||||||
end
|
Height = 250
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
ExplicitWidth = 313
|
||||||
Width = 182
|
ExplicitHeight = 250
|
||||||
ExplicitWidth = 182
|
DesignSize = (
|
||||||
inherited eImporte: TcxSpinEdit
|
313
|
||||||
Style.LookAndFeel.SkinName = ''
|
250)
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
inherited edtFechaIni: TcxDateEdit
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitWidth = 360
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
Left = 11
|
||||||
Left = 0
|
Top = 453
|
||||||
Top = 213
|
Width = 334
|
||||||
Width = 188
|
Height = 120
|
||||||
Height = 146
|
Color = clBtnFace
|
||||||
Align = alTop
|
Font.Charset = DEFAULT_CHARSET
|
||||||
AutoSize = True
|
Font.Color = clWindowText
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Height = -11
|
||||||
Font.Color = clWindowText
|
Font.Name = 'Tahoma'
|
||||||
Font.Height = -11
|
Font.Style = []
|
||||||
Font.Name = 'Tahoma'
|
ParentBackground = False
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitLeft = 11
|
||||||
ExplicitWidth = 188
|
ExplicitTop = 453
|
||||||
ExplicitHeight = 146
|
ExplicitWidth = 334
|
||||||
inherited TBXLabel2: TTBXLabel
|
ExplicitHeight = 120
|
||||||
Width = 188
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitWidth = 188
|
Width = 334
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 334
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited bElegirCliente: TBitBtn
|
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 267
|
||||||
|
Width = 313
|
||||||
|
Height = 180
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 267
|
||||||
|
ExplicitWidth = 313
|
||||||
|
ExplicitHeight = 180
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 313
|
||||||
|
Height = 180
|
||||||
|
ExplicitWidth = 313
|
||||||
|
ExplicitHeight = 180
|
||||||
|
inherited rbTodosClientes: TRadioButton
|
||||||
|
Width = 355
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 355
|
||||||
|
end
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 338
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 338
|
||||||
|
end
|
||||||
|
inherited rbUnCliente: TRadioButton
|
||||||
|
Width = 355
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 355
|
||||||
|
end
|
||||||
|
inherited edtCliente: TcxTextEdit
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtCliente: TcxTextEdit
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
Style.LookAndFeel.SkinName = ''
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
AutoAligns = [aaHorizontal]
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Caption = 'Periodo:'
|
||||||
ExplicitWidth = 141
|
ShowCaption = False
|
||||||
Width = 141
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
Caption = 'Clientes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroClientes1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport,
|
||||||
|
frxExportCSV, dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
|
TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
|
||||||
@ -22,6 +23,9 @@ type
|
|||||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
|
|||||||
@ -1,27 +1,27 @@
|
|||||||
inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFacturasProveedorPendientesReport
|
inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFacturasProveedorPendientesReport
|
||||||
Caption = 'fEditorInformeFacturasProveedorPendientesReport'
|
Caption = 'fEditorInformeFacturasProveedorPendientesReport'
|
||||||
ClientHeight = 655
|
ClientHeight = 843
|
||||||
ClientWidth = 895
|
ClientWidth = 1035
|
||||||
ExplicitWidth = 903
|
ExplicitWidth = 1043
|
||||||
ExplicitHeight = 689
|
ExplicitHeight = 877
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 895
|
Width = 1035
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 1035
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 868
|
Left = 1008
|
||||||
ExplicitLeft = 868
|
ExplicitLeft = 868
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 895
|
Width = 1035
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 1035
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 1035
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -30,205 +30,195 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 636
|
Top = 824
|
||||||
Width = 895
|
Width = 1035
|
||||||
ExplicitTop = 636
|
ExplicitTop = 824
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 1035
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 675
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 675
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 692
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 669
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 669
|
||||||
Align = alTop
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 284
|
||||||
Font.Height = -11
|
Width = 451
|
||||||
Font.Name = 'Tahoma'
|
Height = 173
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 240
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitLeft = 3
|
TabOrder = 2
|
||||||
ExplicitTop = 3
|
ReadOnly = False
|
||||||
ExplicitWidth = 182
|
ExplicitLeft = 11
|
||||||
ExplicitHeight = 37
|
ExplicitTop = 284
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
inherited rbTodosProveedores: TRadioButton
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Width = 195
|
||||||
Left = 0
|
ParentColor = False
|
||||||
Top = 240
|
ExplicitWidth = 195
|
||||||
Width = 188
|
end
|
||||||
Height = 77
|
inherited cbxDesglosado: TCheckBox
|
||||||
Align = alTop
|
Width = 158
|
||||||
AutoSize = True
|
ParentColor = False
|
||||||
Font.Charset = DEFAULT_CHARSET
|
ExplicitWidth = 158
|
||||||
Font.Color = clWindowText
|
end
|
||||||
Font.Height = -11
|
inherited rbUnProveedor: TRadioButton
|
||||||
Font.Name = 'Tahoma'
|
Width = 175
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ExplicitWidth = 175
|
||||||
TabOrder = 1
|
end
|
||||||
ReadOnly = False
|
inherited edtProveedor: TcxTextEdit
|
||||||
ExplicitTop = 240
|
ExplicitWidth = 607
|
||||||
ExplicitWidth = 188
|
Width = 607
|
||||||
ExplicitHeight = 77
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited bElegirProveedor: TBitBtn
|
||||||
Width = 188
|
Width = 574
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 574
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited TBXButton1: TTBXButton [1]
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
Left = 22
|
||||||
Left = 0
|
Top = 629
|
||||||
Top = 317
|
ExplicitLeft = 22
|
||||||
Width = 188
|
ExplicitTop = 629
|
||||||
Height = 146
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 317
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 146
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
inherited bElegirProveedor: TBitBtn
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 11
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
Align = alClient
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtProveedor: TcxTextEdit
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Style.LookAndFeel.SkinName = ''
|
Left = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Top = 475
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 335
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Height = 120
|
||||||
ExplicitWidth = 141
|
Align = alClient
|
||||||
Width = 141
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 475
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
ShowCaption = True
|
||||||
|
ShowBorder = True
|
||||||
|
end
|
||||||
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroProveedores1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,7 +15,8 @@ uses
|
|||||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme,
|
uIEditorInformeBase, uViewParametrosInforme,
|
||||||
uIEditorInformeFacturasProveedorPendientesReport;
|
uIEditorInformeFacturasProveedorPendientesReport, dxLayoutLookAndFeels,
|
||||||
|
frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)
|
TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)
|
||||||
|
|||||||
@ -21,7 +21,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -36,199 +36,189 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 520
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 675
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 675
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 692
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 669
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 669
|
||||||
Align = alTop
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 284
|
||||||
Font.Height = -11
|
Width = 451
|
||||||
Font.Name = 'Tahoma'
|
Height = 173
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 240
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 77
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 77
|
|
||||||
ExplicitWidth = 96
|
|
||||||
Width = 96
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Left = 77
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 77
|
|
||||||
ExplicitWidth = 96
|
|
||||||
Width = 96
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitLeft = 3
|
TabOrder = 2
|
||||||
ExplicitTop = 3
|
ReadOnly = False
|
||||||
ExplicitWidth = 182
|
ExplicitLeft = 11
|
||||||
ExplicitHeight = 37
|
ExplicitTop = 284
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
inherited rbTodosProveedores: TRadioButton
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Width = 195
|
||||||
Left = 0
|
ParentColor = False
|
||||||
Top = 240
|
ExplicitWidth = 195
|
||||||
Width = 188
|
end
|
||||||
Height = 77
|
inherited cbxDesglosado: TCheckBox
|
||||||
Align = alTop
|
Width = 158
|
||||||
AutoSize = True
|
ParentColor = False
|
||||||
Font.Charset = DEFAULT_CHARSET
|
ExplicitWidth = 158
|
||||||
Font.Color = clWindowText
|
end
|
||||||
Font.Height = -11
|
inherited rbUnProveedor: TRadioButton
|
||||||
Font.Name = 'Tahoma'
|
Width = 175
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ExplicitWidth = 175
|
||||||
TabOrder = 1
|
end
|
||||||
ReadOnly = False
|
inherited edtProveedor: TcxTextEdit
|
||||||
ExplicitTop = 240
|
ExplicitWidth = 607
|
||||||
ExplicitWidth = 188
|
Width = 607
|
||||||
ExplicitHeight = 77
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited bElegirProveedor: TBitBtn
|
||||||
Width = 188
|
Width = 574
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 574
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited TBXButton1: TTBXButton [1]
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
Left = 22
|
||||||
Left = 0
|
Top = 629
|
||||||
Top = 317
|
ExplicitLeft = 22
|
||||||
Width = 188
|
ExplicitTop = 629
|
||||||
Height = 146
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 317
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 146
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
inherited bElegirProveedor: TBitBtn
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 11
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
Align = alClient
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtProveedor: TcxTextEdit
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Style.LookAndFeel.SkinName = ''
|
Left = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Top = 475
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 335
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Height = 120
|
||||||
ExplicitWidth = 141
|
Align = alClient
|
||||||
Width = 141
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 475
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
ShowCaption = True
|
||||||
|
ShowBorder = True
|
||||||
|
end
|
||||||
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroProveedores1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)
|
TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)
|
||||||
|
|||||||
@ -1,24 +1,24 @@
|
|||||||
inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||||
Caption = 'fEditorInformeIVAClientesReport'
|
Caption = 'fEditorInformeIVAClientesReport'
|
||||||
ClientHeight = 655
|
ClientHeight = 796
|
||||||
ClientWidth = 895
|
ClientWidth = 950
|
||||||
ExplicitWidth = 903
|
ExplicitWidth = 958
|
||||||
ExplicitHeight = 689
|
ExplicitHeight = 830
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 895
|
Width = 950
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 950
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 868
|
Left = 923
|
||||||
ExplicitLeft = 868
|
ExplicitLeft = 868
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 895
|
Width = 950
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 950
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 950
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 678
|
ExplicitWidth = 678
|
||||||
@ -30,201 +30,206 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 636
|
Top = 777
|
||||||
Width = 895
|
Width = 950
|
||||||
ExplicitTop = 636
|
ExplicitTop = 777
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 950
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 520
|
Height = 661
|
||||||
ExplicitHeight = 520
|
ExplicitHeight = 661
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 660
|
Left = 590
|
||||||
Width = 235
|
Width = 360
|
||||||
Height = 520
|
Height = 661
|
||||||
ExplicitLeft = 660
|
ExplicitLeft = 590
|
||||||
ExplicitWidth = 235
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 520
|
ExplicitHeight = 661
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 231
|
DockedWidth = 356
|
||||||
ExplicitWidth = 235
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 504
|
ExplicitHeight = 645
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 622
|
||||||
Width = 231
|
ExplicitWidth = 356
|
||||||
Height = 136
|
ExplicitHeight = 622
|
||||||
Align = alTop
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 136
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 225
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 215
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 77
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 77
|
|
||||||
ExplicitWidth = 96
|
|
||||||
Width = 139
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 140
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 213
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 231
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 225
|
|
||||||
Visible = False
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 215
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 142
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 140
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
Width = 472
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 431
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 353
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
inherited TBXButton1: TTBXButton
|
||||||
AlignWithMargins = True
|
Top = 589
|
||||||
Left = 3
|
Width = 121
|
||||||
Top = 3
|
ExplicitTop = 589
|
||||||
Width = 225
|
ExplicitWidth = 121
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
|
||||||
ExplicitLeft = 3
|
|
||||||
ExplicitTop = 3
|
|
||||||
ExplicitWidth = 182
|
|
||||||
ExplicitHeight = 37
|
|
||||||
end
|
end
|
||||||
end
|
inline frViewFiltroClientes1: TfrViewFiltroClientes [1]
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Left = 11
|
||||||
Left = 0
|
Top = 282
|
||||||
Top = 136
|
Width = 334
|
||||||
Width = 231
|
Height = 175
|
||||||
Height = 77
|
Color = clBtnFace
|
||||||
Align = alTop
|
Font.Charset = DEFAULT_CHARSET
|
||||||
AutoSize = True
|
Font.Color = clWindowText
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Height = -11
|
||||||
Font.Color = clWindowText
|
Font.Name = 'Tahoma'
|
||||||
Font.Height = -11
|
Font.Style = []
|
||||||
Font.Name = 'Tahoma'
|
ParentBackground = False
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitLeft = 11
|
||||||
ExplicitWidth = 188
|
ExplicitTop = 282
|
||||||
ExplicitHeight = 77
|
ExplicitWidth = 334
|
||||||
inherited TBXLabel2: TTBXLabel
|
ExplicitHeight = 175
|
||||||
Width = 231
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitWidth = 188
|
Width = 334
|
||||||
end
|
Height = 175
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
ExplicitWidth = 334
|
||||||
Width = 225
|
ExplicitHeight = 175
|
||||||
ExplicitWidth = 182
|
inherited rbTodosClientes: TRadioButton
|
||||||
inherited eImporte: TcxSpinEdit
|
Width = 355
|
||||||
Style.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 338
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 338
|
||||||
|
end
|
||||||
|
inherited rbUnCliente: TRadioButton
|
||||||
|
Width = 355
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 355
|
||||||
|
end
|
||||||
|
inherited edtCliente: TcxTextEdit
|
||||||
|
ExplicitWidth = 184
|
||||||
|
Width = 184
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 151
|
||||||
|
ExplicitWidth = 151
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
Left = 11
|
||||||
Left = 0
|
Top = 11
|
||||||
Top = 213
|
Width = 334
|
||||||
Width = 231
|
Height = 265
|
||||||
Height = 146
|
HelpContext = 265
|
||||||
Align = alTop
|
Align = alClient
|
||||||
AutoSize = True
|
Color = clBtnFace
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentBackground = False
|
||||||
TabOrder = 3
|
ParentColor = False
|
||||||
ReadOnly = False
|
ParentFont = False
|
||||||
ExplicitTop = 213
|
TabOrder = 1
|
||||||
ExplicitWidth = 188
|
ReadOnly = False
|
||||||
ExplicitHeight = 146
|
ExplicitLeft = 11
|
||||||
inherited TBXLabel2: TTBXLabel
|
ExplicitTop = 11
|
||||||
Width = 231
|
ExplicitWidth = 334
|
||||||
ExplicitWidth = 188
|
ExplicitHeight = 265
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 334
|
||||||
|
Height = 265
|
||||||
|
ExplicitWidth = 291
|
||||||
|
ExplicitHeight = 260
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited bElegirCliente: TBitBtn
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Width = 151
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 463
|
||||||
|
Width = 313
|
||||||
|
Height = 120
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 463
|
||||||
|
ExplicitWidth = 313
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 313
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 313
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtCliente: TcxTextEdit
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
Style.LookAndFeel.SkinName = ''
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
AutoAligns = [aaHorizontal]
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
AlignVert = avClient
|
||||||
ExplicitWidth = 141
|
Caption = 'Periodo:'
|
||||||
Width = 184
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Clientes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroClientes1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport,
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport,
|
||||||
frxExportCSV;
|
frxExportCSV, dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
|
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
|
||||||
@ -23,6 +23,9 @@ type
|
|||||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
|
|||||||
@ -21,7 +21,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -36,194 +36,189 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 520
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 675
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 675
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 692
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 669
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 136
|
ExplicitHeight = 669
|
||||||
Align = alTop
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 284
|
||||||
Font.Height = -11
|
Width = 451
|
||||||
Font.Name = 'Tahoma'
|
Height = 173
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 136
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
Visible = False
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitLeft = 3
|
TabOrder = 2
|
||||||
ExplicitTop = 3
|
ReadOnly = False
|
||||||
ExplicitWidth = 182
|
ExplicitLeft = 11
|
||||||
ExplicitHeight = 37
|
ExplicitTop = 284
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
inherited rbTodosProveedores: TRadioButton
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Width = 195
|
||||||
Left = 0
|
ParentColor = False
|
||||||
Top = 136
|
ExplicitWidth = 195
|
||||||
Width = 188
|
end
|
||||||
Height = 77
|
inherited cbxDesglosado: TCheckBox
|
||||||
Align = alTop
|
Width = 158
|
||||||
AutoSize = True
|
ParentColor = False
|
||||||
Font.Charset = DEFAULT_CHARSET
|
ExplicitWidth = 158
|
||||||
Font.Color = clWindowText
|
end
|
||||||
Font.Height = -11
|
inherited rbUnProveedor: TRadioButton
|
||||||
Font.Name = 'Tahoma'
|
Width = 175
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ExplicitWidth = 175
|
||||||
TabOrder = 1
|
end
|
||||||
ReadOnly = False
|
inherited edtProveedor: TcxTextEdit
|
||||||
ExplicitTop = 136
|
ExplicitWidth = 607
|
||||||
ExplicitWidth = 188
|
Width = 607
|
||||||
ExplicitHeight = 77
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited bElegirProveedor: TBitBtn
|
||||||
Width = 188
|
Width = 574
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 574
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited TBXButton1: TTBXButton [1]
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
Left = 22
|
||||||
Left = 0
|
Top = 629
|
||||||
Top = 213
|
ExplicitLeft = 22
|
||||||
Width = 188
|
ExplicitTop = 629
|
||||||
Height = 146
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 213
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 146
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
inherited bElegirProveedor: TBitBtn
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 11
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
Align = alClient
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtProveedor: TcxTextEdit
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Style.LookAndFeel.SkinName = ''
|
Left = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Top = 475
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 335
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Height = 120
|
||||||
ExplicitWidth = 141
|
Align = alClient
|
||||||
Width = 141
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 475
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
ShowCaption = True
|
||||||
|
ShowBorder = True
|
||||||
|
end
|
||||||
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroProveedores1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAProveedoresReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAProveedoresReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeIVAProveedoresReport = class(TfEditorInformeBase, IEditorInformeIVAProveedoresReport)
|
TfEditorInformeIVAProveedoresReport = class(TfEditorInformeBase, IEditorInformeIVAProveedoresReport)
|
||||||
|
|||||||
@ -21,7 +21,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -36,199 +36,205 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 520
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 535
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 709
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 535
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 709
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 693
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 670
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 670
|
||||||
Align = alTop
|
inline frViewFiltroClientes1: TfrViewFiltroClientes [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 282
|
||||||
Font.Height = -11
|
Width = 335
|
||||||
Font.Name = 'Tahoma'
|
Height = 180
|
||||||
Font.Style = []
|
HelpContext = 160
|
||||||
ParentFont = False
|
Align = alClient
|
||||||
TabOrder = 0
|
Color = clBtnFace
|
||||||
ReadOnly = False
|
Font.Charset = DEFAULT_CHARSET
|
||||||
ExplicitWidth = 188
|
Font.Color = clWindowText
|
||||||
ExplicitHeight = 240
|
Font.Height = -11
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
Font.Name = 'Tahoma'
|
||||||
Width = 182
|
Font.Style = []
|
||||||
ExplicitWidth = 182
|
ParentBackground = False
|
||||||
inherited Label3: TLabel
|
ParentColor = False
|
||||||
Width = 172
|
ParentFont = False
|
||||||
end
|
TabOrder = 2
|
||||||
inherited edtFechaFin: TcxDateEdit
|
ReadOnly = False
|
||||||
Left = 76
|
ExplicitLeft = 11
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitTop = 282
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitHeight = 180
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitLeft = 76
|
Width = 335
|
||||||
ExplicitWidth = 97
|
Height = 180
|
||||||
Width = 97
|
ExplicitWidth = 335
|
||||||
end
|
ExplicitHeight = 180
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited rbTodosClientes: TRadioButton
|
||||||
Left = 76
|
Width = 355
|
||||||
Style.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited cbxDesglosado: TCheckBox
|
||||||
ExplicitLeft = 76
|
Width = 338
|
||||||
ExplicitWidth = 97
|
ParentColor = False
|
||||||
Width = 97
|
ExplicitWidth = 338
|
||||||
end
|
end
|
||||||
inherited cbPeriodo: TcxComboBox
|
inherited rbUnCliente: TRadioButton
|
||||||
Style.LookAndFeel.SkinName = ''
|
Width = 355
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 170
|
inherited edtCliente: TcxTextEdit
|
||||||
Width = 170
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXButton1: TTBXButton [1]
|
||||||
Width = 188
|
Left = 22
|
||||||
ExplicitWidth = 188
|
Top = 630
|
||||||
|
ExplicitLeft = 22
|
||||||
|
ExplicitTop = 630
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 182
|
Left = 11
|
||||||
ExplicitWidth = 182
|
Top = 11
|
||||||
inherited Label4: TLabel
|
Width = 335
|
||||||
Width = 172
|
Height = 250
|
||||||
end
|
Align = alClient
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
Color = clBtnFace
|
||||||
Left = 76
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Style.LookAndFeel.SkinName = ''
|
Font.Color = clWindowText
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Font.Height = -11
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Font.Name = 'Tahoma'
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Font.Style = []
|
||||||
ExplicitLeft = 76
|
ParentBackground = False
|
||||||
ExplicitWidth = 97
|
ParentColor = False
|
||||||
Width = 97
|
ParentFont = False
|
||||||
end
|
TabOrder = 1
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
ReadOnly = False
|
||||||
Left = 76
|
ExplicitLeft = 11
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitTop = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitHeight = 250
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitLeft = 76
|
Width = 335
|
||||||
ExplicitWidth = 97
|
Height = 250
|
||||||
Width = 97
|
ExplicitWidth = 335
|
||||||
end
|
ExplicitHeight = 250
|
||||||
inherited cbPeriodo2: TcxComboBox
|
inherited edtFechaIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitWidth = 360
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Width = 360
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited edtFechaFin: TcxDateEdit
|
||||||
ExplicitWidth = 170
|
ExplicitWidth = 362
|
||||||
Width = 170
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
Left = 11
|
||||||
Top = 368
|
Top = 478
|
||||||
TabOrder = 2
|
Width = 335
|
||||||
ExplicitTop = 368
|
Height = 120
|
||||||
ExplicitWidth = 188
|
Align = alClient
|
||||||
inherited TBXButton1: TTBXButton
|
Color = clBtnFace
|
||||||
AlignWithMargins = True
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Left = 3
|
Font.Color = clWindowText
|
||||||
Top = 3
|
Font.Height = -11
|
||||||
Width = 182
|
Font.Name = 'Tahoma'
|
||||||
Height = 37
|
Font.Style = []
|
||||||
Margins.Left = 8
|
ParentBackground = False
|
||||||
Margins.Top = 8
|
ParentColor = False
|
||||||
Margins.Right = 8
|
ParentFont = False
|
||||||
Margins.Bottom = 8
|
TabOrder = 3
|
||||||
Align = alTop
|
ReadOnly = False
|
||||||
ExplicitLeft = 3
|
ExplicitLeft = 11
|
||||||
ExplicitTop = 3
|
ExplicitTop = 478
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 335
|
||||||
ExplicitHeight = 37
|
ExplicitHeight = 120
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
Width = 335
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Height = 120
|
||||||
Left = 0
|
ExplicitWidth = 335
|
||||||
Top = 240
|
ExplicitHeight = 120
|
||||||
Width = 188
|
inherited cbxDesglosado: TCheckBox
|
||||||
Height = 77
|
Width = 298
|
||||||
Align = alTop
|
ParentColor = False
|
||||||
AutoSize = True
|
ExplicitWidth = 298
|
||||||
Font.Charset = DEFAULT_CHARSET
|
end
|
||||||
Font.Color = clWindowText
|
inherited eImporte: TcxSpinEdit
|
||||||
Font.Height = -11
|
ExplicitWidth = 142
|
||||||
Font.Name = 'Tahoma'
|
Width = 142
|
||||||
Font.Style = []
|
end
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 1
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 240
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 77
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
Left = 0
|
ShowCaption = True
|
||||||
Top = 317
|
ShowBorder = True
|
||||||
Width = 188
|
end
|
||||||
Height = 146
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
Align = alTop
|
AutoAligns = [aaHorizontal]
|
||||||
AutoSize = True
|
AlignVert = avClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
Font.Color = clWindowText
|
AutoAligns = [aaHorizontal]
|
||||||
Font.Height = -11
|
AlignVert = avClient
|
||||||
Font.Name = 'Tahoma'
|
Caption = 'Periodo:'
|
||||||
Font.Style = []
|
ShowCaption = False
|
||||||
ParentFont = False
|
Control = frViewPeriodoFechas1
|
||||||
TabOrder = 3
|
ControlOptions.ShowBorder = False
|
||||||
ReadOnly = False
|
end
|
||||||
ExplicitTop = 317
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
ExplicitWidth = 188
|
AutoAligns = [aaHorizontal]
|
||||||
ExplicitHeight = 146
|
AlignVert = avClient
|
||||||
inherited TBXLabel2: TTBXLabel
|
Caption = 'Clientes:'
|
||||||
Width = 188
|
ShowCaption = False
|
||||||
ExplicitWidth = 188
|
Control = frViewFiltroClientes1
|
||||||
end
|
ControlOptions.ShowBorder = False
|
||||||
inherited bElegirCliente: TBitBtn
|
end
|
||||||
Width = 108
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
ExplicitWidth = 108
|
AutoAligns = [aaHorizontal]
|
||||||
end
|
AlignVert = avClient
|
||||||
inherited edtCliente: TcxTextEdit
|
Caption = 'Importes:'
|
||||||
Style.LookAndFeel.SkinName = ''
|
ShowCaption = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Control = frViewFiltroImportes1
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ControlOptions.ShowBorder = False
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 141
|
end
|
||||||
Width = 141
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeRecibosCliPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosCliPendientesReport)
|
TfEditorInformeRecibosCliPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosCliPendientesReport)
|
||||||
|
|||||||
@ -1,27 +1,27 @@
|
|||||||
inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteReport
|
inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteReport
|
||||||
Caption = 'fEditorInformeRecibosClienteReport'
|
Caption = 'fEditorInformeRecibosClienteReport'
|
||||||
ClientHeight = 655
|
ClientHeight = 818
|
||||||
ClientWidth = 895
|
ClientWidth = 597
|
||||||
ExplicitWidth = 903
|
ExplicitWidth = 605
|
||||||
ExplicitHeight = 689
|
ExplicitHeight = 852
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 895
|
Width = 597
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 597
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 868
|
Left = 570
|
||||||
ExplicitLeft = 868
|
ExplicitLeft = 868
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 895
|
Width = 597
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 597
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 597
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 597
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -30,205 +30,213 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 636
|
Top = 799
|
||||||
Width = 895
|
Width = 597
|
||||||
ExplicitTop = 636
|
ExplicitTop = 636
|
||||||
ExplicitWidth = 895
|
ExplicitWidth = 597
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 683
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 237
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 683
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 237
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 667
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 644
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 481
|
||||||
Align = alTop
|
inline frViewFiltroClientes1: TfrViewFiltroClientes [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 270
|
||||||
Font.Height = -11
|
Width = 335
|
||||||
Font.Name = 'Tahoma'
|
Height = 180
|
||||||
Font.Style = []
|
HelpContext = 160
|
||||||
ParentFont = False
|
Align = alClient
|
||||||
TabOrder = 0
|
Color = clBtnFace
|
||||||
ReadOnly = False
|
Font.Charset = DEFAULT_CHARSET
|
||||||
ExplicitWidth = 188
|
Font.Color = clWindowText
|
||||||
ExplicitHeight = 240
|
Font.Height = -11
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
Font.Name = 'Tahoma'
|
||||||
Width = 182
|
Font.Style = []
|
||||||
ExplicitWidth = 182
|
ParentBackground = False
|
||||||
inherited Label3: TLabel
|
ParentColor = False
|
||||||
Width = 172
|
ParentFont = False
|
||||||
end
|
TabOrder = 2
|
||||||
inherited edtFechaFin: TcxDateEdit
|
ReadOnly = False
|
||||||
Left = 77
|
ExplicitLeft = 11
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitTop = 270
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitHeight = 180
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitLeft = 77
|
Width = 335
|
||||||
ExplicitWidth = 96
|
Height = 180
|
||||||
Width = 96
|
ExplicitWidth = 335
|
||||||
end
|
ExplicitHeight = 180
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited rbTodosClientes: TRadioButton
|
||||||
Left = 76
|
Width = 355
|
||||||
Style.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited cbxDesglosado: TCheckBox
|
||||||
ExplicitLeft = 76
|
Width = 338
|
||||||
ExplicitWidth = 97
|
ParentColor = False
|
||||||
Width = 97
|
ExplicitWidth = 338
|
||||||
end
|
end
|
||||||
inherited cbPeriodo: TcxComboBox
|
inherited rbUnCliente: TRadioButton
|
||||||
Style.LookAndFeel.SkinName = ''
|
Width = 355
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ParentColor = False
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitWidth = 355
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 170
|
inherited edtCliente: TcxTextEdit
|
||||||
Width = 170
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXButton1: TTBXButton [1]
|
||||||
Width = 188
|
Left = 22
|
||||||
ExplicitWidth = 188
|
Top = 604
|
||||||
|
Width = 121
|
||||||
|
ExplicitLeft = 22
|
||||||
|
ExplicitTop = 604
|
||||||
|
ExplicitWidth = 121
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 182
|
Left = 11
|
||||||
ExplicitWidth = 182
|
Top = 11
|
||||||
inherited Label4: TLabel
|
Width = 335
|
||||||
Width = 172
|
Height = 250
|
||||||
end
|
Align = alClient
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
Color = clBtnFace
|
||||||
Left = 76
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Style.LookAndFeel.SkinName = ''
|
Font.Color = clWindowText
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Font.Height = -11
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Font.Name = 'Tahoma'
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Font.Style = []
|
||||||
ExplicitLeft = 76
|
ParentBackground = False
|
||||||
ExplicitWidth = 97
|
ParentColor = False
|
||||||
Width = 97
|
ParentFont = False
|
||||||
end
|
TabOrder = 1
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
ReadOnly = False
|
||||||
Left = 76
|
ExplicitLeft = 11
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitTop = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
ExplicitWidth = 335
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ExplicitHeight = 250
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
ExplicitLeft = 76
|
Width = 335
|
||||||
ExplicitWidth = 97
|
Height = 250
|
||||||
Width = 97
|
ExplicitWidth = 335
|
||||||
end
|
ExplicitHeight = 250
|
||||||
inherited cbPeriodo2: TcxComboBox
|
inherited edtFechaIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitWidth = 360
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Width = 360
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
end
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
inherited edtFechaFin: TcxDateEdit
|
||||||
ExplicitWidth = 170
|
ExplicitWidth = 362
|
||||||
Width = 170
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
Left = 11
|
||||||
Top = 368
|
Top = 458
|
||||||
TabOrder = 2
|
Width = 335
|
||||||
ExplicitTop = 368
|
Height = 120
|
||||||
ExplicitWidth = 188
|
Align = alClient
|
||||||
inherited TBXButton1: TTBXButton
|
Color = clBtnFace
|
||||||
AlignWithMargins = True
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Left = 3
|
Font.Color = clWindowText
|
||||||
Top = 3
|
Font.Height = -11
|
||||||
Width = 182
|
Font.Name = 'Tahoma'
|
||||||
Height = 37
|
Font.Style = []
|
||||||
Margins.Left = 8
|
ParentBackground = False
|
||||||
Margins.Top = 8
|
ParentColor = False
|
||||||
Margins.Right = 8
|
ParentFont = False
|
||||||
Margins.Bottom = 8
|
TabOrder = 3
|
||||||
Align = alTop
|
ReadOnly = False
|
||||||
ExplicitLeft = 3
|
ExplicitLeft = 11
|
||||||
ExplicitTop = 3
|
ExplicitTop = 458
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 335
|
||||||
ExplicitHeight = 37
|
ExplicitHeight = 120
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
Width = 335
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Height = 120
|
||||||
Left = 0
|
ExplicitWidth = 335
|
||||||
Top = 240
|
ExplicitHeight = 120
|
||||||
Width = 188
|
inherited cbxDesglosado: TCheckBox
|
||||||
Height = 77
|
Width = 298
|
||||||
Align = alTop
|
ParentColor = False
|
||||||
AutoSize = True
|
ExplicitWidth = 298
|
||||||
Font.Charset = DEFAULT_CHARSET
|
end
|
||||||
Font.Color = clWindowText
|
inherited eImporte: TcxSpinEdit
|
||||||
Font.Height = -11
|
ExplicitWidth = 142
|
||||||
Font.Name = 'Tahoma'
|
Width = 142
|
||||||
Font.Style = []
|
end
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 1
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 240
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 77
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
Left = 0
|
ShowCaption = True
|
||||||
Top = 317
|
ShowBorder = True
|
||||||
Width = 188
|
end
|
||||||
Height = 146
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
Align = alTop
|
AutoAligns = [aaHorizontal]
|
||||||
AutoSize = True
|
AlignVert = avClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
Font.Color = clWindowText
|
AutoAligns = [aaHorizontal]
|
||||||
Font.Height = -11
|
AlignVert = avClient
|
||||||
Font.Name = 'Tahoma'
|
Caption = 'Periodo:'
|
||||||
Font.Style = []
|
ShowCaption = False
|
||||||
ParentFont = False
|
Control = frViewPeriodoFechas1
|
||||||
TabOrder = 3
|
ControlOptions.ShowBorder = False
|
||||||
ReadOnly = False
|
end
|
||||||
ExplicitTop = 317
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
ExplicitWidth = 188
|
AutoAligns = [aaHorizontal]
|
||||||
ExplicitHeight = 146
|
AlignVert = avClient
|
||||||
inherited TBXLabel2: TTBXLabel
|
Caption = 'Clientes:'
|
||||||
Width = 188
|
ShowCaption = False
|
||||||
ExplicitWidth = 188
|
Control = frViewFiltroClientes1
|
||||||
end
|
ControlOptions.ShowBorder = False
|
||||||
inherited bElegirCliente: TBitBtn
|
end
|
||||||
Width = 108
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
ExplicitWidth = 108
|
AutoAligns = [aaHorizontal]
|
||||||
end
|
AlignVert = avClient
|
||||||
inherited edtCliente: TcxTextEdit
|
Caption = 'Importes:'
|
||||||
Style.LookAndFeel.SkinName = ''
|
ShowCaption = False
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Control = frViewFiltroImportes1
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
ControlOptions.ShowBorder = False
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
end
|
||||||
ExplicitWidth = 141
|
end
|
||||||
Width = 141
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeRecibosClienteReport)
|
TfEditorInformeRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeRecibosClienteReport)
|
||||||
|
|||||||
@ -21,7 +21,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -36,199 +36,189 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 520
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 675
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 675
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 692
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 669
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 669
|
||||||
Align = alTop
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 284
|
||||||
Font.Height = -11
|
Width = 451
|
||||||
Font.Name = 'Tahoma'
|
Height = 173
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 240
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitLeft = 3
|
TabOrder = 2
|
||||||
ExplicitTop = 3
|
ReadOnly = False
|
||||||
ExplicitWidth = 182
|
ExplicitLeft = 11
|
||||||
ExplicitHeight = 37
|
ExplicitTop = 284
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
inherited rbTodosProveedores: TRadioButton
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Width = 195
|
||||||
Left = 0
|
ParentColor = False
|
||||||
Top = 240
|
ExplicitWidth = 195
|
||||||
Width = 188
|
end
|
||||||
Height = 77
|
inherited cbxDesglosado: TCheckBox
|
||||||
Align = alTop
|
Width = 158
|
||||||
AutoSize = True
|
ParentColor = False
|
||||||
Font.Charset = DEFAULT_CHARSET
|
ExplicitWidth = 158
|
||||||
Font.Color = clWindowText
|
end
|
||||||
Font.Height = -11
|
inherited rbUnProveedor: TRadioButton
|
||||||
Font.Name = 'Tahoma'
|
Width = 175
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ExplicitWidth = 175
|
||||||
TabOrder = 1
|
end
|
||||||
ReadOnly = False
|
inherited edtProveedor: TcxTextEdit
|
||||||
ExplicitTop = 240
|
ExplicitWidth = 607
|
||||||
ExplicitWidth = 188
|
Width = 607
|
||||||
ExplicitHeight = 77
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited bElegirProveedor: TBitBtn
|
||||||
Width = 188
|
Width = 574
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 574
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited TBXButton1: TTBXButton [1]
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
Left = 22
|
||||||
Left = 0
|
Top = 629
|
||||||
Top = 317
|
ExplicitLeft = 22
|
||||||
Width = 188
|
ExplicitTop = 629
|
||||||
Height = 146
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 317
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 146
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
inherited bElegirProveedor: TBitBtn
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 11
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
Align = alClient
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtProveedor: TcxTextEdit
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Style.LookAndFeel.SkinName = ''
|
Left = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Top = 475
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 335
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Height = 120
|
||||||
ExplicitWidth = 141
|
Align = alClient
|
||||||
Width = 141
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 475
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
ShowCaption = True
|
||||||
|
ShowBorder = True
|
||||||
|
end
|
||||||
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroProveedores1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProvPendientesReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProvPendientesReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeRecibosProvPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosProvPendientesReport)
|
TfEditorInformeRecibosProvPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosProvPendientesReport)
|
||||||
|
|||||||
@ -21,7 +21,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
ExplicitWidth = 591
|
ExplicitWidth = 678
|
||||||
object TBXItem58: TTBXItem [0]
|
object TBXItem58: TTBXItem [0]
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
@ -36,203 +36,189 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
ExplicitWidth = 895
|
ExplicitWidth = 895
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
Height = 534
|
Height = 520
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 520
|
||||||
end
|
end
|
||||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
Left = 703
|
Left = 675
|
||||||
Width = 192
|
Width = 360
|
||||||
Height = 534
|
Height = 708
|
||||||
ExplicitLeft = 703
|
ExplicitLeft = 675
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 534
|
ExplicitHeight = 708
|
||||||
inherited pnlParametros: TTBXDockablePanel
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
DockedWidth = 188
|
DockedWidth = 356
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 360
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 692
|
||||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Width = 356
|
||||||
Top = 0
|
Height = 669
|
||||||
Width = 188
|
ExplicitWidth = 356
|
||||||
Height = 240
|
ExplicitHeight = 669
|
||||||
Align = alTop
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores [0]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Left = 11
|
||||||
Font.Color = clWindowText
|
Top = 284
|
||||||
Font.Height = -11
|
Width = 451
|
||||||
Font.Name = 'Tahoma'
|
Height = 173
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 240
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
Height = 99
|
|
||||||
ExplicitWidth = 182
|
|
||||||
ExplicitHeight = 99
|
|
||||||
inherited Label4: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Top = 78
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitTop = 78
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited edtFechaVenIni: TcxDateEdit
|
|
||||||
Left = 76
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 76
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
|
||||||
inherited cbPeriodo2: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
Top = 368
|
|
||||||
TabOrder = 2
|
|
||||||
ExplicitTop = 368
|
|
||||||
ExplicitWidth = 188
|
|
||||||
inherited TBXButton1: TTBXButton
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 3
|
|
||||||
Width = 182
|
|
||||||
Height = 37
|
|
||||||
Margins.Left = 8
|
|
||||||
Margins.Top = 8
|
|
||||||
Margins.Right = 8
|
|
||||||
Margins.Bottom = 8
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitLeft = 3
|
TabOrder = 2
|
||||||
ExplicitTop = 3
|
ReadOnly = False
|
||||||
ExplicitWidth = 182
|
ExplicitLeft = 11
|
||||||
ExplicitHeight = 37
|
ExplicitTop = 284
|
||||||
end
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
end
|
inherited rbTodosProveedores: TRadioButton
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
Width = 195
|
||||||
Left = 0
|
ParentColor = False
|
||||||
Top = 240
|
ExplicitWidth = 195
|
||||||
Width = 188
|
end
|
||||||
Height = 77
|
inherited cbxDesglosado: TCheckBox
|
||||||
Align = alTop
|
Width = 158
|
||||||
AutoSize = True
|
ParentColor = False
|
||||||
Font.Charset = DEFAULT_CHARSET
|
ExplicitWidth = 158
|
||||||
Font.Color = clWindowText
|
end
|
||||||
Font.Height = -11
|
inherited rbUnProveedor: TRadioButton
|
||||||
Font.Name = 'Tahoma'
|
Width = 175
|
||||||
Font.Style = []
|
ParentColor = False
|
||||||
ParentFont = False
|
ExplicitWidth = 175
|
||||||
TabOrder = 1
|
end
|
||||||
ReadOnly = False
|
inherited edtProveedor: TcxTextEdit
|
||||||
ExplicitTop = 240
|
ExplicitWidth = 607
|
||||||
ExplicitWidth = 188
|
Width = 607
|
||||||
ExplicitHeight = 77
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited bElegirProveedor: TBitBtn
|
||||||
Width = 188
|
Width = 574
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 574
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited eImporte: TcxSpinEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
inherited TBXButton1: TTBXButton [1]
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
Left = 22
|
||||||
Left = 0
|
Top = 629
|
||||||
Top = 317
|
ExplicitLeft = 22
|
||||||
Width = 188
|
ExplicitTop = 629
|
||||||
Height = 146
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 317
|
|
||||||
ExplicitWidth = 188
|
|
||||||
ExplicitHeight = 146
|
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
inherited bElegirProveedor: TBitBtn
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
Width = 108
|
Left = 11
|
||||||
ExplicitWidth = 108
|
Top = 11
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
Align = alClient
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 250
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 250
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 360
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 362
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
ExplicitWidth = 429
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
ExplicitWidth = 529
|
||||||
|
Width = 529
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
ExplicitWidth = 531
|
||||||
|
Width = 531
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
ExplicitWidth = 598
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited edtProveedor: TcxTextEdit
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Style.LookAndFeel.SkinName = ''
|
Left = 11
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
Top = 475
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
Width = 335
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
Height = 120
|
||||||
ExplicitWidth = 141
|
Align = alClient
|
||||||
Width = 141
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 11
|
||||||
|
ExplicitTop = 475
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 335
|
||||||
|
Height = 120
|
||||||
|
ExplicitWidth = 335
|
||||||
|
ExplicitHeight = 120
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Width = 298
|
||||||
|
ParentColor = False
|
||||||
|
ExplicitWidth = 298
|
||||||
|
end
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControlGroupRefrescar: TdxLayoutGroup
|
||||||
|
ShowCaption = True
|
||||||
|
ShowBorder = True
|
||||||
|
end
|
||||||
|
inherited dxLayoutControlGroupFiltros: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewPeriodoFechas1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroProveedores1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avClient
|
||||||
|
Caption = 'Importes:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewFiltroImportes1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
uViewBase, uViewPeriodoFechas,
|
uViewBase, uViewPeriodoFechas,
|
||||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProveedorReport;
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProveedorReport,
|
||||||
|
dxLayoutLookAndFeels, frxExportCSV;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorInformeRecibosProveedorReport = class(TfEditorInformeBase, IEditorInformeRecibosProveedorReport)
|
TfEditorInformeRecibosProveedorReport = class(TfEditorInformeBase, IEditorInformeRecibosProveedorReport)
|
||||||
|
|||||||
@ -1,131 +1,178 @@
|
|||||||
inherited frViewFiltroClientes: TfrViewFiltroClientes
|
inherited frViewFiltroClientes: TfrViewFiltroClientes
|
||||||
Width = 451
|
Width = 308
|
||||||
Align = alTop
|
Height = 189
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 308
|
||||||
DesignSize = (
|
ExplicitHeight = 189
|
||||||
451
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
195)
|
|
||||||
object TBXLabel2: TTBXLabel
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 308
|
||||||
Height = 29
|
Height = 189
|
||||||
Margins.Top = 5
|
Align = alClient
|
||||||
Margins.Bottom = 10
|
TabOrder = 0
|
||||||
Align = alTop
|
TabStop = False
|
||||||
Caption = 'Clientes'
|
AutoContentSizes = [acsWidth]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
Font.Color = clWindowText
|
DesignSize = (
|
||||||
Font.Height = -11
|
308
|
||||||
Font.Name = 'MS Sans Serif'
|
189)
|
||||||
Font.Style = [fsBold]
|
object rbTodosClientes: TRadioButton
|
||||||
ParentColor = True
|
Left = 22
|
||||||
ParentFont = False
|
Top = 30
|
||||||
Underline = True
|
Width = 355
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Incluir a todos los clientes'
|
||||||
|
Checked = True
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
OnClick = rbTodosClientesClick
|
||||||
|
end
|
||||||
|
object cbxDesglosado: TCheckBox
|
||||||
|
Left = 40
|
||||||
|
Top = 53
|
||||||
|
Width = 338
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Desglosar por cliente'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object rbUnCliente: TRadioButton
|
||||||
|
Left = 22
|
||||||
|
Top = 76
|
||||||
|
Width = 355
|
||||||
|
Height = 17
|
||||||
|
Caption = 'S'#243'lo listar el cliente siguiente:'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = rbUnClienteClick
|
||||||
|
end
|
||||||
|
object edtCliente: TcxTextEdit
|
||||||
|
Left = 40
|
||||||
|
Top = 99
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Enabled = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 3
|
||||||
|
Height = 21
|
||||||
|
Width = 598
|
||||||
|
end
|
||||||
|
object bElegirCliente: TBitBtn
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 40
|
||||||
|
Top = 126
|
||||||
|
Width = 522
|
||||||
|
Height = 30
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 2
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Elegir un cliente'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = bElegirClienteClick
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||||
|
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||||
|
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||||
|
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||||
|
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||||
|
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||||
|
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||||
|
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||||
|
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||||
|
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||||
|
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||||
|
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||||
|
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||||
|
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||||
|
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||||
|
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||||
|
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
Caption = 'Clientes:'
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Caption = 'Incluir a todos los clientes'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = rbTodosClientes
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'Desglosar por cliente'
|
||||||
|
Offsets.Left = 18
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbxDesglosado
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
Caption = 'S'#243'lo listar el cliente siguiente:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = rbUnCliente
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Caption = 'Cliente:'
|
||||||
|
Offsets.Left = 18
|
||||||
|
ShowCaption = False
|
||||||
|
Control = edtCliente
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
Caption = 'Elegir un cliente'
|
||||||
|
Offsets.Left = 18
|
||||||
|
ShowCaption = False
|
||||||
|
Control = bElegirCliente
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object bElegirCliente: TBitBtn
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
AlignWithMargins = True
|
Left = 120
|
||||||
Left = 61
|
Top = 24
|
||||||
Top = 123
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
Width = 382
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
Height = 23
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
Margins.Left = 0
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
Margins.Top = 0
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
Margins.Right = 2
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
Margins.Bottom = 0
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
Anchors = [akLeft, akTop, akRight]
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
Caption = 'Elegir un cliente'
|
end
|
||||||
Enabled = False
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = bElegirClienteClick
|
|
||||||
Glyph.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
|
||||||
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
|
||||||
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
|
||||||
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
|
||||||
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
|
||||||
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
|
||||||
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
|
||||||
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
|
||||||
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
|
||||||
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
|
||||||
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
|
||||||
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
|
||||||
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
|
||||||
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
|
||||||
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
|
||||||
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
|
||||||
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
|
||||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
|
||||||
end
|
|
||||||
object cbxDesglosado: TCheckBox
|
|
||||||
Left = 23
|
|
||||||
Top = 49
|
|
||||||
Width = 146
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Desglosar por cliente'
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object edtCliente: TcxTextEdit
|
|
||||||
Left = 28
|
|
||||||
Top = 99
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
AutoSize = False
|
|
||||||
Enabled = False
|
|
||||||
Properties.ReadOnly = True
|
|
||||||
Properties.UseLeftAlignmentOnEditing = False
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.TextColor = clWindowText
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 3
|
|
||||||
Height = 21
|
|
||||||
Width = 415
|
|
||||||
end
|
|
||||||
object rbTodosClientes: TRadioButton
|
|
||||||
Left = 6
|
|
||||||
Top = 29
|
|
||||||
Width = 147
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Incluir a todos los clientes'
|
|
||||||
Checked = True
|
|
||||||
TabOrder = 4
|
|
||||||
TabStop = True
|
|
||||||
OnClick = rbTodosClientesClick
|
|
||||||
end
|
|
||||||
object rbUnCliente: TRadioButton
|
|
||||||
Left = 6
|
|
||||||
Top = 76
|
|
||||||
Width = 175
|
|
||||||
Height = 17
|
|
||||||
Caption = 'S'#243'lo listar el cliente siguiente:'
|
|
||||||
TabOrder = 5
|
|
||||||
OnClick = rbUnClienteClick
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||||
uClientesController;
|
uClientesController, dxLayoutControl, dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroClientes = interface(IViewParametrosInforme)
|
IViewFiltroClientes = interface(IViewParametrosInforme)
|
||||||
@ -14,12 +14,21 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
|
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
|
||||||
TBXLabel2: TTBXLabel;
|
|
||||||
rbTodosClientes: TRadioButton;
|
rbTodosClientes: TRadioButton;
|
||||||
rbUnCliente: TRadioButton;
|
rbUnCliente: TRadioButton;
|
||||||
cbxDesglosado: TCheckBox;
|
cbxDesglosado: TCheckBox;
|
||||||
bElegirCliente: TBitBtn;
|
bElegirCliente: TBitBtn;
|
||||||
edtCliente: TcxTextEdit;
|
edtCliente: TcxTextEdit;
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
procedure rbTodosClientesClick(Sender: TObject);
|
procedure rbTodosClientesClick(Sender: TObject);
|
||||||
procedure rbUnClienteClick(Sender: TObject);
|
procedure rbUnClienteClick(Sender: TObject);
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
|||||||
@ -1,52 +1,30 @@
|
|||||||
inherited frViewFiltroImportes: TfrViewFiltroImportes
|
inherited frViewFiltroImportes: TfrViewFiltroImportes
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 93
|
Height = 101
|
||||||
Align = alTop
|
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
ExplicitHeight = 93
|
ExplicitHeight = 101
|
||||||
object TBXLabel2: TTBXLabel
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 29
|
Height = 101
|
||||||
Margins.Top = 5
|
Align = alClient
|
||||||
Margins.Bottom = 10
|
TabOrder = 0
|
||||||
Align = alTop
|
TabStop = False
|
||||||
Caption = 'Importes'
|
AutoContentSizes = [acsWidth]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentColor = True
|
|
||||||
ParentFont = False
|
|
||||||
Underline = True
|
|
||||||
end
|
|
||||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 32
|
|
||||||
Width = 445
|
|
||||||
Height = 42
|
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Right = 5
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 1
|
|
||||||
object cbxDesglosado: TCheckBox
|
object cbxDesglosado: TCheckBox
|
||||||
Left = 7
|
Left = 22
|
||||||
Top = 0
|
Top = 30
|
||||||
Width = 159
|
Width = 298
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Solo facturas que superen:'
|
Caption = 'Solo facturas que superen:'
|
||||||
Color = clBtnFace
|
|
||||||
ParentColor = False
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnClick = cbxDesglosadoClick
|
OnClick = cbxDesglosadoClick
|
||||||
end
|
end
|
||||||
object eImporte: TcxSpinEdit
|
object eImporte: TcxSpinEdit
|
||||||
Left = 24
|
Left = 69
|
||||||
Top = 21
|
Top = 53
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
|
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
|
||||||
@ -56,14 +34,43 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
|
|||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Value = 3000.000000000000000000
|
Value = 3000.000000000000000000
|
||||||
Width = 142
|
Width = 142
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
Caption = 'Importes:'
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Caption = 'Solo facturas que superen:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbxDesglosado
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'Importe:'
|
||||||
|
Control = eImporte
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 192
|
||||||
|
Top = 24
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
|
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
|
||||||
dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme;
|
dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme,
|
||||||
|
dxLayoutLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroImportes = interface(IViewParametrosInforme)
|
IViewFiltroImportes = interface(IViewParametrosInforme)
|
||||||
@ -15,8 +16,13 @@ type
|
|||||||
TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes)
|
TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes)
|
||||||
cbxDesglosado: TCheckBox;
|
cbxDesglosado: TCheckBox;
|
||||||
eImporte: TcxSpinEdit;
|
eImporte: TcxSpinEdit;
|
||||||
TBXLabel2: TTBXLabel;
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
procedure cbxDesglosadoClick(Sender: TObject);
|
procedure cbxDesglosadoClick(Sender: TObject);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -1,131 +1,178 @@
|
|||||||
inherited frViewFiltroProveedores: TfrViewFiltroProveedores
|
inherited frViewFiltroProveedores: TfrViewFiltroProveedores
|
||||||
Width = 451
|
Width = 451
|
||||||
|
Height = 173
|
||||||
Align = alTop
|
Align = alTop
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
DesignSize = (
|
ExplicitHeight = 173
|
||||||
451
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
195)
|
|
||||||
object TBXLabel2: TTBXLabel
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 29
|
Height = 173
|
||||||
Margins.Top = 5
|
Align = alClient
|
||||||
Margins.Bottom = 10
|
TabOrder = 0
|
||||||
Align = alTop
|
TabStop = False
|
||||||
Caption = 'Proveedores'
|
AutoContentSizes = [acsWidth]
|
||||||
Font.Charset = DEFAULT_CHARSET
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
Font.Color = clWindowText
|
DesignSize = (
|
||||||
Font.Height = -11
|
451
|
||||||
Font.Name = 'MS Sans Serif'
|
173)
|
||||||
Font.Style = [fsBold]
|
object rbTodosProveedores: TRadioButton
|
||||||
ParentColor = True
|
Left = 22
|
||||||
ParentFont = False
|
Top = 30
|
||||||
Underline = True
|
Width = 195
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Incluir a todos los proveedores'
|
||||||
|
Checked = True
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
OnClick = rbTodosProveedoresClick
|
||||||
|
end
|
||||||
|
object cbxDesglosado: TCheckBox
|
||||||
|
Left = 40
|
||||||
|
Top = 53
|
||||||
|
Width = 158
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Desglosar por proveedor'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object rbUnProveedor: TRadioButton
|
||||||
|
Left = 22
|
||||||
|
Top = 76
|
||||||
|
Width = 175
|
||||||
|
Height = 17
|
||||||
|
Caption = 'S'#243'lo listar el proveedor siguiente:'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = rbUnProveedorClick
|
||||||
|
end
|
||||||
|
object edtProveedor: TcxTextEdit
|
||||||
|
Left = 99
|
||||||
|
Top = 99
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Enabled = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 3
|
||||||
|
Height = 21
|
||||||
|
Width = 607
|
||||||
|
end
|
||||||
|
object bElegirProveedor: TBitBtn
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 40
|
||||||
|
Top = 126
|
||||||
|
Width = 574
|
||||||
|
Height = 23
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 2
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Elegir un proveedor'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = bElegirProveedorClick
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||||
|
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||||
|
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||||
|
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||||
|
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||||
|
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||||
|
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||||
|
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||||
|
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||||
|
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||||
|
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||||
|
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||||
|
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||||
|
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||||
|
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||||
|
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||||
|
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object dxLayoutGroup1: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutGroup2: TdxLayoutGroup
|
||||||
|
Caption = 'Proveedores:'
|
||||||
|
object dxLayoutItem1: TdxLayoutItem
|
||||||
|
Caption = 'Incluir a todos los proveedores'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = rbTodosProveedores
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'Desglosar por proveedor'
|
||||||
|
Offsets.Left = 18
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbxDesglosado
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
Caption = 'S'#243'lo listar el proveedor siguiente:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = rbUnProveedor
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Caption = 'Proveedor:'
|
||||||
|
Offsets.Left = 18
|
||||||
|
Control = edtProveedor
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
Caption = 'Elegir un proveedor'
|
||||||
|
Offsets.Left = 18
|
||||||
|
ShowCaption = False
|
||||||
|
Control = bElegirProveedor
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object bElegirProveedor: TBitBtn
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
AlignWithMargins = True
|
Left = 192
|
||||||
Left = 61
|
Top = 24
|
||||||
Top = 123
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
Width = 382
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
Height = 23
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
Margins.Left = 0
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
Margins.Top = 0
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
Margins.Right = 2
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
Margins.Bottom = 0
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
Anchors = [akLeft, akTop, akRight]
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
Caption = 'Elegir un proveedor'
|
end
|
||||||
Enabled = False
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = bElegirProveedorClick
|
|
||||||
Glyph.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
|
||||||
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
|
||||||
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
|
||||||
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
|
||||||
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
|
||||||
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
|
||||||
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
|
||||||
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
|
||||||
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
|
||||||
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
|
||||||
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
|
||||||
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
|
||||||
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
|
||||||
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
|
||||||
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
|
||||||
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
|
||||||
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
|
||||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
|
||||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
|
||||||
end
|
|
||||||
object cbxDesglosado: TCheckBox
|
|
||||||
Left = 23
|
|
||||||
Top = 49
|
|
||||||
Width = 158
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Desglosar por proveedor'
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object edtProveedor: TcxTextEdit
|
|
||||||
Left = 28
|
|
||||||
Top = 99
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
AutoSize = False
|
|
||||||
Enabled = False
|
|
||||||
Properties.ReadOnly = True
|
|
||||||
Properties.UseLeftAlignmentOnEditing = False
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.TextColor = clWindowText
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 3
|
|
||||||
Height = 21
|
|
||||||
Width = 415
|
|
||||||
end
|
|
||||||
object rbTodosProveedores: TRadioButton
|
|
||||||
Left = 6
|
|
||||||
Top = 29
|
|
||||||
Width = 195
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Incluir a todos los Proveedores'
|
|
||||||
Checked = True
|
|
||||||
TabOrder = 4
|
|
||||||
TabStop = True
|
|
||||||
OnClick = rbTodosProveedoresClick
|
|
||||||
end
|
|
||||||
object rbUnProveedor: TRadioButton
|
|
||||||
Left = 6
|
|
||||||
Top = 76
|
|
||||||
Width = 175
|
|
||||||
Height = 17
|
|
||||||
Caption = 'S'#243'lo listar el proveedor siguiente:'
|
|
||||||
TabOrder = 5
|
|
||||||
OnClick = rbUnProveedorClick
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||||
uProveedoresController;
|
uProveedoresController, dxLayoutLookAndFeels, dxLayoutControl;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroProveedores = interface(IViewParametrosInforme)
|
IViewFiltroProveedores = interface(IViewParametrosInforme)
|
||||||
@ -14,12 +14,21 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewFiltroProveedores = class(TfrViewParametrosInforme, IViewFiltroProveedores)
|
TfrViewFiltroProveedores = class(TfrViewParametrosInforme, IViewFiltroProveedores)
|
||||||
TBXLabel2: TTBXLabel;
|
|
||||||
rbTodosProveedores: TRadioButton;
|
rbTodosProveedores: TRadioButton;
|
||||||
rbUnProveedor: TRadioButton;
|
rbUnProveedor: TRadioButton;
|
||||||
cbxDesglosado: TCheckBox;
|
cbxDesglosado: TCheckBox;
|
||||||
bElegirProveedor: TBitBtn;
|
bElegirProveedor: TBitBtn;
|
||||||
edtProveedor: TcxTextEdit;
|
edtProveedor: TcxTextEdit;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutGroup1: TdxLayoutGroup;
|
||||||
|
dxLayoutGroup2: TdxLayoutGroup;
|
||||||
|
dxLayoutItem1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
procedure rbTodosProveedoresClick(Sender: TObject);
|
procedure rbTodosProveedoresClick(Sender: TObject);
|
||||||
procedure rbUnProveedorClick(Sender: TObject);
|
procedure rbUnProveedorClick(Sender: TObject);
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
|||||||
@ -1,82 +1,24 @@
|
|||||||
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||||
Width = 451
|
Width = 781
|
||||||
Height = 248
|
Height = 280
|
||||||
Align = alTop
|
ExplicitWidth = 781
|
||||||
ExplicitWidth = 451
|
ExplicitHeight = 280
|
||||||
ExplicitHeight = 248
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
Left = 0
|
||||||
AlignWithMargins = True
|
Top = 0
|
||||||
Left = 3
|
Width = 781
|
||||||
Top = 32
|
Height = 280
|
||||||
Width = 445
|
Align = alClient
|
||||||
Height = 97
|
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Top = 5
|
|
||||||
Margins.Right = 5
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
|
AutoContentSizes = [acsWidth]
|
||||||
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
445
|
781
|
||||||
97)
|
280)
|
||||||
object Label3: TLabel
|
|
||||||
Left = 5
|
|
||||||
Top = 5
|
|
||||||
Width = 435
|
|
||||||
Height = 13
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'Rango de fechas:'
|
|
||||||
Transparent = True
|
|
||||||
ExplicitWidth = 85
|
|
||||||
end
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 29
|
|
||||||
Top = 52
|
|
||||||
Width = 34
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Desde:'
|
|
||||||
Transparent = True
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
Left = 32
|
|
||||||
Top = 79
|
|
||||||
Width = 31
|
|
||||||
Height = 13
|
|
||||||
Caption = 'hasta:'
|
|
||||||
Transparent = True
|
|
||||||
end
|
|
||||||
object edtFechaFin: TcxDateEdit
|
|
||||||
Left = 69
|
|
||||||
Top = 76
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
Properties.DateButtons = [btnToday]
|
|
||||||
Properties.PostPopupValueOnTab = True
|
|
||||||
Properties.SaveTime = False
|
|
||||||
Properties.ShowTime = False
|
|
||||||
Properties.OnValidate = edtFechaFinPropertiesValidate
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 0
|
|
||||||
Width = 362
|
|
||||||
end
|
|
||||||
object edtFechaIni: TcxDateEdit
|
object edtFechaIni: TcxDateEdit
|
||||||
Left = 72
|
Left = 72
|
||||||
Top = 49
|
Top = 76
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.DateButtons = [btnToday]
|
Properties.DateButtons = [btnToday]
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
@ -88,24 +30,45 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 360
|
Width = 360
|
||||||
end
|
end
|
||||||
|
object edtFechaFin: TcxDateEdit
|
||||||
|
Left = 72
|
||||||
|
Top = 103
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Properties.OnValidate = edtFechaFinPropertiesValidate
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
object cbPeriodo: TcxComboBox
|
object cbPeriodo: TcxComboBox
|
||||||
Left = 3
|
Left = 33
|
||||||
Top = 21
|
Top = 49
|
||||||
RepositoryItem = cxRepositoryPeriodos
|
RepositoryItem = cxRepositoryPeriodos
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.OnChange = cbPeriodoPropertiesChange
|
Properties.OnChange = cbPeriodoPropertiesChange
|
||||||
@ -114,114 +77,21 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
TabOrder = 0
|
||||||
TabOrder = 2
|
|
||||||
Text = 'Este mes'
|
Text = 'Este mes'
|
||||||
Width = 429
|
Width = 429
|
||||||
end
|
end
|
||||||
end
|
|
||||||
object TBXLabel2: TTBXLabel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 451
|
|
||||||
Height = 29
|
|
||||||
Margins.Top = 5
|
|
||||||
Margins.Bottom = 10
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'Periodo'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentColor = True
|
|
||||||
ParentFont = False
|
|
||||||
Underline = True
|
|
||||||
end
|
|
||||||
object TBXAlignmentPanel3: TTBXAlignmentPanel
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 135
|
|
||||||
Width = 445
|
|
||||||
Height = 98
|
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Top = 5
|
|
||||||
Margins.Right = 5
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 2
|
|
||||||
DesignSize = (
|
|
||||||
445
|
|
||||||
98)
|
|
||||||
object Label4: TLabel
|
|
||||||
Left = 5
|
|
||||||
Top = 5
|
|
||||||
Width = 435
|
|
||||||
Height = 13
|
|
||||||
Align = alTop
|
|
||||||
Caption = 'Rango de fechas de vencimiento:'
|
|
||||||
Transparent = True
|
|
||||||
ExplicitWidth = 160
|
|
||||||
end
|
|
||||||
object Label5: TLabel
|
|
||||||
Left = 29
|
|
||||||
Top = 53
|
|
||||||
Width = 34
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Desde:'
|
|
||||||
Transparent = True
|
|
||||||
end
|
|
||||||
object Label6: TLabel
|
|
||||||
Left = 32
|
|
||||||
Top = 80
|
|
||||||
Width = 31
|
|
||||||
Height = 13
|
|
||||||
Caption = 'hasta:'
|
|
||||||
Transparent = True
|
|
||||||
end
|
|
||||||
object edtFechaVenFin: TcxDateEdit
|
|
||||||
Left = 70
|
|
||||||
Top = 77
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
Properties.DateButtons = [btnToday]
|
|
||||||
Properties.PostPopupValueOnTab = True
|
|
||||||
Properties.SaveTime = False
|
|
||||||
Properties.ShowTime = False
|
|
||||||
Properties.OnValidate = edtFechaVenFinPropertiesValidate
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 0
|
|
||||||
Width = 362
|
|
||||||
end
|
|
||||||
object edtFechaVenIni: TcxDateEdit
|
object edtFechaVenIni: TcxDateEdit
|
||||||
Left = 72
|
Left = 72
|
||||||
Top = 50
|
Top = 181
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.DateButtons = [btnToday]
|
Properties.DateButtons = [btnToday]
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
@ -233,24 +103,45 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
TabOrder = 4
|
||||||
TabOrder = 1
|
Width = 529
|
||||||
Width = 360
|
end
|
||||||
|
object edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 72
|
||||||
|
Top = 208
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Properties.OnValidate = edtFechaVenFinPropertiesValidate
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 531
|
||||||
end
|
end
|
||||||
object cbPeriodo2: TcxComboBox
|
object cbPeriodo2: TcxComboBox
|
||||||
Left = 3
|
Left = 33
|
||||||
Top = 21
|
Top = 154
|
||||||
RepositoryItem = cxRepositoryPeriodos
|
RepositoryItem = cxRepositoryPeriodos
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.OnChange = cbPeriodo2PropertiesChange
|
Properties.OnChange = cbPeriodo2PropertiesChange
|
||||||
@ -259,21 +150,74 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
Style.ButtonStyle = bts3D
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
TabOrder = 3
|
||||||
TabOrder = 2
|
|
||||||
Text = 'Este mes'
|
Text = 'Este mes'
|
||||||
Width = 429
|
Width = 598
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Periodo:'
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
Caption = 'Rango de fechas:'
|
||||||
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
Caption = 'Rango de fechas:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbPeriodo
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Caption = 'Desde:'
|
||||||
|
Control = edtFechaIni
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'hasta:'
|
||||||
|
Control = edtFechaFin
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
Caption = 'Rango de fechas de vencimiento:'
|
||||||
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Rango de fechas de vencimiento:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbPeriodo2
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Desde:'
|
||||||
|
Control = edtFechaVenIni
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'hasta:'
|
||||||
|
Control = edtFechaVenFin
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxRepository: TcxEditRepository
|
object cxRepository: TcxEditRepository
|
||||||
@ -286,19 +230,32 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Properties.ImmediateUpdateText = True
|
Properties.ImmediateUpdateText = True
|
||||||
Properties.Items.Strings = (
|
Properties.Items.Strings = (
|
||||||
'Hoy'
|
'Personalizado'
|
||||||
'Ayer'
|
'Este trimestre'
|
||||||
'Esta semana'
|
'El trimestre anterior'
|
||||||
|
'Primer trimestre (Ene-Mar)'
|
||||||
|
'Segundo trimestre (Abr-Jun)'
|
||||||
|
'Tercer trimestre (Jul-Sep)'
|
||||||
|
'Cuarto trimestre (Sep-Dic)'
|
||||||
'Este mes'
|
'Este mes'
|
||||||
'Este a'#241'o'
|
|
||||||
#218'ltimos 7 d'#237'as'
|
|
||||||
#218'ltimos 30 d'#237'as'
|
|
||||||
#218'ltimos 3 meses'
|
|
||||||
'Mes anterior'
|
'Mes anterior'
|
||||||
'A'#241'o anterior'
|
'Este a'#241'o'
|
||||||
'Personalizado')
|
'A'#241'o anterior')
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 120
|
||||||
|
Top = 24
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -21,19 +21,23 @@ type
|
|||||||
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
||||||
edtFechaIni: TcxDateEdit;
|
edtFechaIni: TcxDateEdit;
|
||||||
edtFechaFin: TcxDateEdit;
|
edtFechaFin: TcxDateEdit;
|
||||||
TBXLabel2: TTBXLabel;
|
|
||||||
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
|
||||||
Label1: TLabel;
|
|
||||||
Label2: TLabel;
|
|
||||||
Label3: TLabel;
|
|
||||||
TBXAlignmentPanel3: TTBXAlignmentPanel;
|
|
||||||
Label4: TLabel;
|
|
||||||
Label5: TLabel;
|
|
||||||
Label6: TLabel;
|
|
||||||
edtFechaVenFin: TcxDateEdit;
|
edtFechaVenFin: TcxDateEdit;
|
||||||
edtFechaVenIni: TcxDateEdit;
|
edtFechaVenIni: TcxDateEdit;
|
||||||
cbPeriodo: TcxComboBox;
|
cbPeriodo: TcxComboBox;
|
||||||
cbPeriodo2: TcxComboBox;
|
cbPeriodo2: TcxComboBox;
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item6: TdxLayoutItem;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||||
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
||||||
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
@ -58,6 +62,12 @@ type
|
|||||||
procedure SetFechaVenInicial(const Value: Variant);
|
procedure SetFechaVenInicial(const Value: Variant);
|
||||||
|
|
||||||
public
|
public
|
||||||
|
procedure EsteTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
procedure TrimestreAnterior(const ATipoFecha: TTipoFecha);
|
||||||
|
procedure PrimerTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
procedure SegundoTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
procedure TercerTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
procedure CuartoTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
procedure Hoy(const ATipoFecha: TTipoFecha);
|
procedure Hoy(const ATipoFecha: TTipoFecha);
|
||||||
procedure Ayer(const ATipoFecha: TTipoFecha);
|
procedure Ayer(const ATipoFecha: TTipoFecha);
|
||||||
procedure EstaSemana(const ATipoFecha: TTipoFecha);
|
procedure EstaSemana(const ATipoFecha: TTipoFecha);
|
||||||
@ -78,7 +88,7 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses DateUtils;
|
uses DateUtils, Math;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -152,6 +162,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.EsteTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
var
|
||||||
|
ATrimestre : Integer;
|
||||||
|
begin
|
||||||
|
ATrimestre := Ceil(MonthOf(Today)/3);
|
||||||
|
|
||||||
|
case ATrimestre of
|
||||||
|
1: PrimerTrimestre(ATipoFecha);
|
||||||
|
2: SegundoTrimestre(ATipoFecha);
|
||||||
|
3: TercerTrimestre(ATipoFecha);
|
||||||
|
4: CuartoTrimestre(ATipoFecha);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewPeriodoFechas.GetFechaFinal: Variant;
|
function TfrViewPeriodoFechas.GetFechaFinal: Variant;
|
||||||
begin
|
begin
|
||||||
Result := edtFechaFin.EditValue;
|
Result := edtFechaFin.EditValue;
|
||||||
@ -212,6 +236,34 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.PrimerTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
|
edtFechaIni.Date := EncodeDate(YearOf(Today), 1, 1);
|
||||||
|
edtFechaFin.Date := EncodeDate(YearOf(Today), 3, 31);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := EncodeDate(YearOf(Today), 1, 1);
|
||||||
|
edtFechaVenFin.Date := EncodeDate(YearOf(Today), 3, 31);;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.SegundoTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
|
edtFechaIni.Date := EncodeDate(YearOf(Today), 4, 1);
|
||||||
|
edtFechaFin.Date := EncodeDate(YearOf(Today), 6, 30);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := EncodeDate(YearOf(Today), 4, 1);
|
||||||
|
edtFechaVenFin.Date := EncodeDate(YearOf(Today), 6, 30);;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
|
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
|
||||||
begin
|
begin
|
||||||
edtFechaFin.EditValue := Value;
|
edtFechaFin.EditValue := Value;
|
||||||
@ -232,6 +284,34 @@ begin
|
|||||||
edtFechaVenIni.EditValue := Value;
|
edtFechaVenIni.EditValue := Value;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.TercerTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
|
edtFechaIni.Date := EncodeDate(YearOf(Today), 7, 1);
|
||||||
|
edtFechaFin.Date := EncodeDate(YearOf(Today), 9, 30);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := EncodeDate(YearOf(Today), 7, 1);
|
||||||
|
edtFechaVenFin.Date := EncodeDate(YearOf(Today), 9, 30);;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.TrimestreAnterior(const ATipoFecha: TTipoFecha);
|
||||||
|
var
|
||||||
|
ATrimestre : Integer;
|
||||||
|
begin
|
||||||
|
ATrimestre := Ceil(MonthOf(Today)/3)-1;
|
||||||
|
|
||||||
|
case ATrimestre of
|
||||||
|
0: CuartoTrimestre(ATipoFecha);
|
||||||
|
1: PrimerTrimestre(ATipoFecha);
|
||||||
|
2: SegundoTrimestre(ATipoFecha);
|
||||||
|
3: TercerTrimestre(ATipoFecha);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Ultimos30dias(const ATipoFecha: TTipoFecha);
|
procedure TfrViewPeriodoFechas.Ultimos30dias(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
case ATipoFecha of
|
case ATipoFecha of
|
||||||
@ -277,16 +357,17 @@ end;
|
|||||||
procedure TfrViewPeriodoFechas.cbPeriodo2PropertiesChange(Sender: TObject);
|
procedure TfrViewPeriodoFechas.cbPeriodo2PropertiesChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
case (Sender as TcxComboBox).ItemIndex of
|
case (Sender as TcxComboBox).ItemIndex of
|
||||||
0 : Hoy(TFechaVencimiento);
|
0 : Personalizado(TFechaVencimiento);
|
||||||
1 : Ayer(TFechaVencimiento);
|
1 : EsteTrimestre(TFechaVencimiento);
|
||||||
2 : EstaSemana(TFechaVencimiento);
|
2 : TrimestreAnterior(TFechaVencimiento);
|
||||||
3 : EsteMes(TFechaVencimiento);
|
3 : PrimerTrimestre(TFechaVencimiento);
|
||||||
4 : EsteAno(TFechaVencimiento);
|
4 : SegundoTrimestre(TFechaVencimiento);
|
||||||
5 : Ultimos7dias(TFechaVencimiento);
|
5 : TercerTrimestre(TFechaVencimiento);
|
||||||
6 : Ultimos30dias(TFechaVencimiento);
|
6 : CuartoTrimestre(TFechaVencimiento);
|
||||||
7 : Ultimos3meses(TFechaVencimiento);
|
7 : EsteMes(TFechaVencimiento);
|
||||||
8 : MesAnterior(TFechaVencimiento);
|
8 : MesAnterior(TFecha);
|
||||||
9 : AnoAnterior(TFechaVencimiento);
|
9 : EsteAno(TFechaVencimiento);
|
||||||
|
10 : AnoAnterior(TFechaVencimiento);
|
||||||
else
|
else
|
||||||
Personalizado(TFechaVencimiento);
|
Personalizado(TFechaVencimiento);
|
||||||
end;
|
end;
|
||||||
@ -295,16 +376,17 @@ end;
|
|||||||
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
case (Sender as TcxComboBox).ItemIndex of
|
case (Sender as TcxComboBox).ItemIndex of
|
||||||
0 : Hoy(TFecha);
|
0 : Personalizado(TFecha);
|
||||||
1 : Ayer(TFecha);
|
1 : EsteTrimestre(TFecha);
|
||||||
2 : EstaSemana(TFecha);
|
2 : TrimestreAnterior(TFecha);
|
||||||
3 : EsteMes(TFecha);
|
3 : PrimerTrimestre(TFecha);
|
||||||
4 : EsteAno(TFecha);
|
4 : SegundoTrimestre(TFecha);
|
||||||
5 : Ultimos7dias(TFecha);
|
5 : TercerTrimestre(TFecha);
|
||||||
6 : Ultimos30dias(TFecha);
|
6 : CuartoTrimestre(TFecha);
|
||||||
7 : Ultimos3meses(TFecha);
|
7 : EsteMes(TFecha);
|
||||||
8 : MesAnterior(TFecha);
|
8 : MesAnterior(TFecha);
|
||||||
9 : AnoAnterior(TFecha);
|
9 : EsteAno(TFecha);
|
||||||
|
10 : AnoAnterior(TFecha);
|
||||||
else
|
else
|
||||||
Personalizado(TFecha);
|
Personalizado(TFecha);
|
||||||
end;
|
end;
|
||||||
@ -313,9 +395,23 @@ end;
|
|||||||
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
|
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
cbPeriodo.ItemIndex := -1;
|
cbPeriodo.ItemIndex := 1;
|
||||||
cbPeriodo2.ItemIndex := -1;
|
cbPeriodo2.ItemIndex := -1;
|
||||||
EsteAno(TFecha);
|
EsteTrimestre(TFecha);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.CuartoTrimestre(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
|
edtFechaIni.Date := EncodeDate(YearOf(Today), 10, 1);
|
||||||
|
edtFechaFin.Date := EncodeDate(YearOf(Today), 12, 31);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := EncodeDate(YearOf(Today), 10, 1);
|
||||||
|
edtFechaVenFin.Date := EncodeDate(YearOf(Today), 12, 31);;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user