Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso a remesas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@64 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-25 17:34:44 +00:00
parent 7e29fa7456
commit 9519bc1dce
18 changed files with 227 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.res
View File

Binary file not shown.

18
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj
View File

@ -55,15 +55,15 @@
<DelphiCompile Include="RemesasCliente_view.dpk"> <DelphiCompile Include="RemesasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\BancaElectronica_controller.dcp" /> <DCCReference Include="..\BancaElectronica_controller.dcp" />
<DCCReference Include="..\..\Lib\frxTee11.dcp" /> <DCCReference Include="..\frxTee11.dcp" />
<DCCReference Include="..\..\Lib\fsTee11.dcp" /> <DCCReference Include="..\fsTee11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" /> <DCCReference Include="..\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" /> <DCCReference Include="..\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\tee.dcp" /> <DCCReference Include="..\tee.dcp" />
<DCCReference Include="..\..\Lib\teeUI.dcp" /> <DCCReference Include="..\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas"> <DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form> <Form>fEditorRemesaCliente</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass> <DesignClass>TfEditorRemesaCliente</DesignClass>

22
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res
View File

Binary file not shown.

93
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -4,12 +4,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de remesa de cobro' Caption = 'Ficha de remesa de cobro'
ClientHeight = 583 ClientHeight = 483
ClientWidth = 676 ClientWidth = 676
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 684 ExplicitWidth = 684
ExplicitHeight = 617 ExplicitHeight = 517
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -51,21 +51,21 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TSpTBXDock
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar inherited tbxMain: TSpTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 569 ExplicitWidth = 569
inherited TBXItem2: TTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem5: TTBXItem inherited TBXItem5: TSpTBXItem
Visible = False Visible = False
end end
object TBXSeparatorItem6: TTBXSeparatorItem [11] object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
end end
object TBXSubmenuItem3: TTBXSubmenuItem [12] object TBXSubmenuItem3: TSpTBXSubmenuItem [12]
Caption = 'Volcar a disco' Caption = 'Volcar a disco'
object TBItem1: TTBItem object TBItem1: TTBItem
Action = actNorma19 Action = actNorma19
@ -75,43 +75,43 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TSpTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 676 ExplicitWidth = 676
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXSeparatorItem5: TTBXSeparatorItem inherited TBXSeparatorItem5: TSpTBXSeparatorItem
Visible = False Visible = False
end end
inherited TBXItem10: TTBXItem inherited TBXItem10: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem21: TTBXItem inherited TBXItem21: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem22: TTBXItem inherited TBXItem22: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem9: TTBXItem inherited TBXItem9: TSpTBXItem
Visible = False Visible = False
end end
end end
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TSpTBXSubmenuItem
inherited TBXItem32: TTBXItem inherited TBXItem32: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem31: TTBXItem inherited TBXItem31: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXSeparatorItem13: TTBXSeparatorItem inherited TBXSeparatorItem13: TSpTBXSeparatorItem
Visible = False Visible = False
end end
end end
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem7: TTBXItem object TBXItem7: TSpTBXItem
Action = actNorma19 Action = actNorma19
end end
end end
@ -119,15 +119,15 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 670 Width = 670
Height = 436 Height = 336
MultiLine = True MultiLine = True
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 436 ExplicitHeight = 336
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 662 ExplicitWidth = 662
ExplicitHeight = 408 ExplicitHeight = 308
inline frViewRemesaCliente1: TfrViewRemesaCliente inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -146,13 +146,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitHeight = 145 ExplicitHeight = 145
inherited dxLayoutControlRemesaCliente: TdxLayoutControl inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 662 Width = 662
Height = 160
Align = alTop Align = alTop
ExplicitWidth = 662 ExplicitWidth = 662
ExplicitHeight = 160 ExplicitHeight = 304
DesignSize = ( DesignSize = (
662 662
160) 304)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -208,7 +207,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 0 Left = 0
Top = 145 Top = 145
Width = 662 Width = 662
Height = 263 Height = 163
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -223,11 +222,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ReadOnly = False ReadOnly = False
ExplicitTop = 145 ExplicitTop = 145
ExplicitWidth = 662 ExplicitWidth = 662
ExplicitHeight = 263 ExplicitHeight = 163
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 15 Left = 15
Width = 632 Width = 632
Height = 223 Height = 123
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 632 ExplicitWidth = 632
ExplicitHeight = 223 ExplicitHeight = 223
@ -254,12 +253,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 632 Width = 632
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 632 ExplicitWidth = 632
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 564 Top = 464
Width = 676 Width = 676
Panels = < Panels = <
item item
@ -270,7 +281,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 518 Top = 418
Width = 676 Width = 676
Height = 46 Height = 46
Align = alBottom Align = alBottom
@ -291,10 +302,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 46 ExplicitHeight = 46
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 328 Left = 327
Top = 10 Top = 10
Height = 30 Height = 30
ExplicitLeft = 328 ExplicitLeft = 327
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 30 ExplicitHeight = 30
end end
@ -302,9 +313,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 440 Left = 440
Top = 52 Top = 52
Width = 192 Width = 192
Height = 9
ExplicitLeft = 440 ExplicitLeft = 440
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 9
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 163 Left = 163
@ -335,14 +348,14 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 147 Width = 147
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 441 Left = 440
Top = 141 Top = 141
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 440
ExplicitTop = 141 ExplicitTop = 141
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
@ -453,9 +466,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 90 Width = 90
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 180 Left = 179
Top = 91 Top = 91
ExplicitLeft = 180 ExplicitLeft = 179
ExplicitTop = 91 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -473,7 +486,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
Visible = False Visible = False

15
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -6,16 +6,17 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
uViewRemesaCliente, uBizRemesasCliente, JvNavigationPane, ActnList, uViewRemesaCliente, uBizRemesasCliente, JvNavigationPane, ActnList,
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList, uEditorBase, StdActns, TB2Dock, TB2Toolbar, ImgList, PngImageList,
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
cxCustomData, cxCustomData,
uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls, uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid, JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces, uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxLabel; cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters, SpTBXItem;
type type
TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente) TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente)
@ -25,11 +26,11 @@ type
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente; frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente;
actNorma19: TAction; actNorma19: TAction;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem7: TTBXItem; TBXItem7: TSpTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem; TBXSeparatorItem6: TSpTBXSeparatorItem;
actNorma32: TAction; actNorma32: TAction;
TBXSubmenuItem3: TTBXSubmenuItem; TBXSubmenuItem3: TSpTBXSubmenuItem;
TBItem1: TTBItem; TBItem1: TTBItem;
TBItem2: TTBItem; TBItem2: TTBItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

2
Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview
Caption = 'Previsualizar la remesa' Caption = 'Previsualizar la remesa'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
end end

5
Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.pas
View File

@ -6,11 +6,12 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase, Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview,
JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail, JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient, frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode; frxChBox, frxCross, frxRich, frxOLE, frxBarcode, StdCtrls, TntStdCtrls,
SpTBXEditors, SpTBXItem;
type type
TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview) TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview)

42
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm
View File

@ -41,44 +41,42 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ExplicitLeft = 516 ExplicitLeft = 516
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TSpTBXDock
Width = 785 Width = 785
ExplicitWidth = 785 ExplicitWidth = 785
inherited tbxMain: TTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 561 ExplicitWidth = 561
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TSpTBXSeparatorItem [12]
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 359 ExplicitWidth = 326
inherited lblAno: TTBXLabelItem inherited lblAno: TSpTBXLabelItem
Visible = True Visible = True
end end
inherited cbxListaAnos: TTBXComboBoxItem inherited sepAno: TSpTBXSeparatorItem
Visible = True Visible = True
end end
inherited sepAno: TTBXSeparatorItem inherited TBXItem37: TSpTBXItem
Visible = True
end
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
inherited TBXItem37: TTBXItem
Visible = False Visible = False
end end
inherited cbxListaAnos: TSpTBXComboBox
Left = 33
ExplicitLeft = 33
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 785 ExplicitWidth = 785
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem38: TTBXItem object TBXItem38: TSpTBXItem
Action = actVolcarDisco Action = actVolcarDisco
end end
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 359 Left = 326
ExplicitLeft = 359 ExplicitLeft = 326
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -1529,6 +1527,10 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end> end>
Bitmap = {} Bitmap = {}
end end
inherited StatusBarImages: TPngImageList
Left = 48
Top = 352
end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu
object N4: TMenuItem [8] object N4: TMenuItem [8]
Caption = '-' Caption = '-'

20
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
View File

@ -6,29 +6,30 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent, Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewRemesasCliente, uBizRemesasCliente, ActnList, DBActns, uViewGrid, JvNavigationPane, uViewRemesasCliente, uBizRemesasCliente, ActnList, DBActns, uViewGrid,
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX, Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar,
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable, TB2Item, StdActns, TB2ExtItems, TB2MRU, DB, uDADataTable,
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage, JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase, uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase,
JvComponentBase, uViewGridBase, uRemesasClienteController, JvExComCtrls, JvComponentBase, uViewGridBase, uRemesasClienteController, JvExComCtrls,
JvStatusBar, JSDialog, uDAInterfaces; JvStatusBar, JSDialog, uDAInterfaces, SpTBXItem, StdCtrls, TntStdCtrls,
SpTBXEditors;
type type
TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente) TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente)
actVolcarDisco: TAction; actVolcarDisco: TAction;
TBXSeparatorItem17: TTBXSeparatorItem; TBXSeparatorItem17: TSpTBXSeparatorItem;
N4: TMenuItem; N4: TMenuItem;
Volcaradisco1: TMenuItem; Volcaradisco1: TMenuItem;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem38: TTBXItem; TBXItem38: TSpTBXItem;
JsListaRemesasNoEliminadas: TJSDialog; JsListaRemesasNoEliminadas: TJSDialog;
JsPrevisualizarDialog: TJSDialog; JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actVolcarDiscoExecute(Sender: TObject); procedure actVolcarDiscoExecute(Sender: TObject);
procedure actVolcarDiscoUpdate(Sender: TObject); procedure actVolcarDiscoUpdate(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string); procedure OnListaAnosChange(Sender: TObject);
private private
FRemesasCliente: IBizRemesaCliente; FRemesasCliente: IBizRemesaCliente;
@ -154,9 +155,9 @@ begin
FController.Ver(RemesasCliente); FController.Ver(RemesasCliente);
end; end;
procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject; const Text: string); procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject);
begin begin
Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, Text); Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, cbxListaAnos.Text);
if RemesasCliente.DataTable.Active then if RemesasCliente.DataTable.Active then
RefrescarInterno; RefrescarInterno;
end; end;
@ -336,4 +337,3 @@ end;
end. end.

14
Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm
View File

@ -1,12 +1,12 @@
inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente
Width = 549 Width = 570
Height = 376 Height = 193
OnShow = CustomViewShow OnShow = CustomViewShow
ExplicitWidth = 549 ExplicitWidth = 570
ExplicitHeight = 376 ExplicitHeight = 193
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 549 Width = 570
Height = 351 Height = 168
ExplicitWidth = 549 ExplicitWidth = 549
ExplicitHeight = 351 ExplicitHeight = 351
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -137,7 +137,7 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 549 Width = 570
ExplicitWidth = 549 ExplicitWidth = 549
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62

3
Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas
View File

@ -9,7 +9,8 @@ uses
uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, cxGrid, cxImageComboBox, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, uDAInterfaces; uBizRemesasCliente, uRemesasClienteController, uDAInterfaces, cxLookAndFeels,
cxLookAndFeelPainters;
type type
IViewRecibosRemesaCliente = interface IViewRecibosRemesaCliente = interface

52
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -1,32 +1,30 @@
inherited frViewRemesaCliente: TfrViewRemesaCliente inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 725 Width = 525
Height = 167 Height = 160
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
object dxLayoutControlRemesaCliente: TdxLayoutControl object dxLayoutControlRemesaCliente: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 725 Width = 525
Height = 167 Height = 160
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
725 525
167) 160)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = 14745599
@ -72,7 +70,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
Left = 448 Left = 348
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_REMESA' DataBinding.DataField = 'FECHA_REMESA'
@ -161,63 +159,65 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 121 Width = 121
end end
object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlRemesaClienteGroup1: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup1: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos de la remesa' CaptionOptions.Text = 'Datos de la remesa'
ButtonOptions.Buttons = <>
object dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlRemesaClienteItem3: TdxLayoutItem object dxLayoutControlRemesaClienteItem3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Referencia:' CaptionOptions.Text = 'Referencia:'
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlRemesaClienteItem4: TdxLayoutItem object dxLayoutControlRemesaClienteItem4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha de cargo:' CaptionOptions.Text = 'Fecha de cargo:'
Control = edtFechaRemesa Control = edtFechaRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlRemesaClienteItem9: TdxLayoutItem object dxLayoutControlRemesaClienteItem9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Cuenta bancaria:' CaptionOptions.Text = 'Cuenta bancaria:'
Control = cbCuentaBancaria Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlRemesaClienteItem1: TdxLayoutItem object dxLayoutControlRemesaClienteItem1: TdxLayoutItem
Caption = 'Forma de cobro:' CaptionOptions.Text = 'Forma de cobro:'
Enabled = False Enabled = False
Visible = False Visible = False
Control = cbTipo Control = cbTipo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlRemesaClienteItem8: TdxLayoutItem object dxLayoutControlRemesaClienteItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Descripci'#243'n:' CaptionOptions.Text = 'Descripci'#243'n:'
Control = eDescripcion Control = eDescripcion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup
Caption = 'New Group' CaptionOptions.Text = 'New Group'
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
end end

3
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -13,7 +13,8 @@ uses
cxSpinEdit, cxCurrencyEdit, cxSpinEdit, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, cxCalendar, uBizRemesasCliente, uRemesasClienteController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox, uDAInterfaces; cxImageComboBox, uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
IViewRemesaCliente = interface(IViewBase) IViewRemesaCliente = interface(IViewBase)

38
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm
View File

@ -1,8 +1,11 @@
inherited frViewRemesasCliente: TfrViewRemesasCliente inherited frViewRemesasCliente: TfrViewRemesasCliente
Height = 420 Width = 622
ExplicitHeight = 420 Height = 259
ExplicitWidth = 622
ExplicitHeight = 259
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 292 Width = 622
Height = 131
ExplicitHeight = 292 ExplicitHeight = 292
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
@ -85,8 +88,11 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel Width = 622
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 622
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 622
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -102,27 +108,44 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
Width = 272 Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 276
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 276
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 467
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 467
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 612
inherited tbxBotones: TSpTBXToolbar
Width = 612
end
end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 394 Top = 233
Width = 622
ExplicitTop = 394 ExplicitTop = 394
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 622
inherited TBXToolbar1: TSpTBXToolbar
Width = 622
end
end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
@ -130,4 +153,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
end end

9
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas
View File

@ -11,10 +11,13 @@ uses
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent, cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox, cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels, cxCheckComboBox, cxImageComboBox, TB2Item, TB2Toolbar, SpTBXDkPanels,
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase; TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase,
cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport,
cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers,
dxPScxExtEditorProducers, dxPScxPageControlProducer, SpTBXItem;
type type
IViewRemesasCliente = interface(IViewGrid) IViewRemesasCliente = interface(IViewGrid)

2
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -156,7 +156,7 @@ end;
procedure TfEditorRemesasProveedor.OnListaAnosChange(Sender: TObject); procedure TfEditorRemesasProveedor.OnListaAnosChange(Sender: TObject);
begin begin
Controller.FiltrarAno(RemesasProveedor, DynWhereDataTable, Text); Controller.FiltrarAno(RemesasProveedor, DynWhereDataTable, cbxListaAnos.Text);
if RemesasProveedor.DataTable.Active then if RemesasProveedor.DataTable.Active then
RefrescarInterno; RefrescarInterno;
end; end;