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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\BancaElectronica_controller.dcp" />
<DCCReference Include="..\..\Lib\frxTee11.dcp" />
<DCCReference Include="..\..\Lib\fsTee11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\tee.dcp" />
<DCCReference Include="..\..\Lib\teeUI.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\BancaElectronica_controller.dcp" />
<DCCReference Include="..\frxTee11.dcp" />
<DCCReference Include="..\fsTee11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\RemesasCliente_controller.dcp" />
<DCCReference Include="..\RemesasCliente_model.dcp" />
<DCCReference Include="..\tee.dcp" />
<DCCReference Include="..\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form>
<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
VertScrollBar.Visible = False
Caption = 'Ficha de remesa de cobro'
ClientHeight = 583
ClientHeight = 483
ClientWidth = 676
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 684
ExplicitHeight = 617
ExplicitHeight = 517
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -51,21 +51,21 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 676
ExplicitWidth = 676
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 569
inherited TBXItem2: TTBXItem
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
object TBXSeparatorItem6: TTBXSeparatorItem [11]
object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
end
object TBXSubmenuItem3: TTBXSubmenuItem [12]
object TBXSubmenuItem3: TSpTBXSubmenuItem [12]
Caption = 'Volcar a disco'
object TBItem1: TTBItem
Action = actNorma19
@ -75,43 +75,43 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 676
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem8: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem5: TTBXSeparatorItem
inherited TBXSeparatorItem5: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem10: TTBXItem
inherited TBXItem10: TSpTBXItem
Visible = False
end
inherited TBXItem21: TTBXItem
inherited TBXItem21: TSpTBXItem
Visible = False
end
inherited TBXItem22: TTBXItem
inherited TBXItem22: TSpTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
inherited TBXItem9: TSpTBXItem
Visible = False
end
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
inherited TBXItem32: TSpTBXItem
Visible = False
end
inherited TBXItem31: TTBXItem
inherited TBXItem31: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem13: TTBXSeparatorItem
inherited TBXSeparatorItem13: TSpTBXSeparatorItem
Visible = False
end
end
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = actNorma19
end
end
@ -119,15 +119,15 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inherited pgPaginas: TPageControl
Width = 670
Height = 436
Height = 336
MultiLine = True
ExplicitWidth = 670
ExplicitHeight = 436
ExplicitHeight = 336
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 662
ExplicitHeight = 408
ExplicitHeight = 308
inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0
Top = 0
@ -146,13 +146,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitHeight = 145
inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 662
Height = 160
Align = alTop
ExplicitWidth = 662
ExplicitHeight = 160
ExplicitHeight = 304
DesignSize = (
662
160)
304)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -208,7 +207,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 0
Top = 145
Width = 662
Height = 263
Height = 163
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -223,11 +222,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ReadOnly = False
ExplicitTop = 145
ExplicitWidth = 662
ExplicitHeight = 263
ExplicitHeight = 163
inherited cxGrid: TcxGrid
Left = 15
Width = 632
Height = 223
Height = 123
ExplicitLeft = 15
ExplicitWidth = 632
ExplicitHeight = 223
@ -254,12 +253,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 632
ExplicitLeft = 15
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
inherited StatusBar: TJvStatusBar
Top = 564
Top = 464
Width = 676
Panels = <
item
@ -270,7 +281,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 518
Top = 418
Width = 676
Height = 46
Align = alBottom
@ -291,10 +302,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 676
ExplicitHeight = 46
inherited Bevel3: TBevel
Left = 328
Left = 327
Top = 10
Height = 30
ExplicitLeft = 328
ExplicitLeft = 327
ExplicitTop = 10
ExplicitHeight = 30
end
@ -302,9 +313,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 440
Top = 52
Width = 192
Height = 9
ExplicitLeft = 440
ExplicitTop = 52
ExplicitWidth = 192
ExplicitHeight = 9
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 163
@ -335,14 +348,14 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 147
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 441
Left = 440
Top = 141
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 440
ExplicitTop = 141
ExplicitWidth = 217
Width = 217
@ -453,9 +466,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 90
end
inherited bTiposIVA: TButton
Left = 180
Left = 179
Top = 91
ExplicitLeft = 180
ExplicitLeft = 179
ExplicitTop = 91
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -473,7 +486,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
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,
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
uViewRemesaCliente, uBizRemesasCliente, JvNavigationPane, ActnList,
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
uEditorBase, StdActns, TB2Dock, TB2Toolbar, ImgList, PngImageList,
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
cxCustomData,
uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxLabel;
cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters, SpTBXItem;
type
TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente)
@ -25,11 +26,11 @@ type
frViewTotales1: TfrViewTotales;
frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente;
actNorma19: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem7: TSpTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
actNorma32: TAction;
TBXSubmenuItem3: TTBXSubmenuItem;
TBXSubmenuItem3: TSpTBXSubmenuItem;
TBItem1: TTBItem;
TBItem2: TTBItem;
procedure FormShow(Sender: TObject);

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

@ -1,5 +1,7 @@
inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview
Caption = 'Previsualizar la remesa'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
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,
Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview,
JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode;
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, StdCtrls, TntStdCtrls,
SpTBXEditors, SpTBXItem;
type
TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview)

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

@ -41,44 +41,42 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ExplicitLeft = 516
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 785
ExplicitWidth = 785
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 561
object TBXSeparatorItem17: TTBXSeparatorItem [12]
object TBXSeparatorItem17: TSpTBXSeparatorItem [12]
end
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 359
inherited lblAno: TTBXLabelItem
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 326
inherited lblAno: TSpTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
inherited sepAno: TSpTBXSeparatorItem
Visible = True
end
inherited sepAno: TTBXSeparatorItem
Visible = True
end
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
inherited TBXItem37: TTBXItem
inherited TBXItem37: TSpTBXItem
Visible = False
end
inherited cbxListaAnos: TSpTBXComboBox
Left = 33
ExplicitLeft = 33
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 785
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem38: TTBXItem
object TBXItem38: TSpTBXItem
Action = actVolcarDisco
end
end
end
inherited TBXTMain2: TTBXToolbar
Left = 359
ExplicitLeft = 359
inherited TBXTMain2: TSpTBXToolbar
Left = 326
ExplicitLeft = 326
end
end
inherited StatusBar: TJvStatusBar
@ -1529,6 +1527,10 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end>
Bitmap = {}
end
inherited StatusBarImages: TPngImageList
Left = 48
Top = 352
end
inherited GridPopupMenu: TPopupMenu
object N4: TMenuItem [8]
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,
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewRemesasCliente, uBizRemesasCliente, ActnList, DBActns, uViewGrid,
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar,
TB2Item, StdActns, TB2ExtItems, TB2MRU, DB, uDADataTable,
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase,
JvComponentBase, uViewGridBase, uRemesasClienteController, JvExComCtrls,
JvStatusBar, JSDialog, uDAInterfaces;
JvStatusBar, JSDialog, uDAInterfaces, SpTBXItem, StdCtrls, TntStdCtrls,
SpTBXEditors;
type
TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente)
actVolcarDisco: TAction;
TBXSeparatorItem17: TTBXSeparatorItem;
TBXSeparatorItem17: TSpTBXSeparatorItem;
N4: TMenuItem;
Volcaradisco1: TMenuItem;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem38: TTBXItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem38: TSpTBXItem;
JsListaRemesasNoEliminadas: TJSDialog;
JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog;
procedure FormShow(Sender: TObject);
procedure actVolcarDiscoExecute(Sender: TObject);
procedure actVolcarDiscoUpdate(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure OnListaAnosChange(Sender: TObject);
private
FRemesasCliente: IBizRemesaCliente;
@ -154,9 +155,9 @@ begin
FController.Ver(RemesasCliente);
end;
procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject; const Text: string);
procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject);
begin
Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, Text);
Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, cbxListaAnos.Text);
if RemesasCliente.DataTable.Active then
RefrescarInterno;
end;
@ -336,4 +337,3 @@ end;
end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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