Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de facturas y recibos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@70 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2013-06-03 16:01:08 +00:00
parent 320ee8860f
commit 6f39c4ebaa
97 changed files with 5310 additions and 2575 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

6
Database/scripts/factuges.sql
View File

@ -3922,7 +3922,8 @@ FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_TIENDA,
TIENDA)
TIENDA,
CUENTA_CONTABLE)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@ -3965,7 +3966,8 @@ SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
RECIBOS_CLIENTE.ID_TIENDA,
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
'' as CUENTA_CONTABLE
FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION

2
Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.dfm
View File

@ -136,7 +136,9 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
Width = 329
Height = 83
Caption = 'Sufijos para normas CSB'
Enabled = False
TabOrder = 3
Visible = False
object Label7: TLabel
Left = 12
Top = 28

150
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -8,7 +8,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
ClientWidth = 674
Scaled = False
ExplicitWidth = 682
ExplicitHeight = 588
ExplicitHeight = 592
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -24,7 +24,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 674
ExplicitWidth = 674
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
ExplicitWidth = 370
inherited TBXItem2: TTBXItem
Visible = False
end
@ -86,20 +86,20 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
inherited pgPaginas: TPageControl
Width = 668
Height = 423
Height = 420
ActivePage = pagDatosBancarios
ExplicitWidth = 668
ExplicitHeight = 423
ExplicitHeight = 420
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 660
ExplicitHeight = 395
ExplicitHeight = 392
inline frViewEmpresa1: TfrViewEmpresa
Left = 0
Top = 0
Width = 660
Height = 395
Height = 392
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -110,145 +110,145 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 395
ExplicitHeight = 392
inherited dxLayoutControl1: TdxLayoutControl
Width = 660
Height = 395
Height = 392
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 660
ExplicitHeight = 395
ExplicitHeight = 392
inherited PngSpeedButton1: TPngSpeedButton
Left = 615
Left = 596
Top = 295
ExplicitLeft = 615
ExplicitLeft = 596
ExplicitTop = 295
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 615
Left = 596
Top = 267
ExplicitLeft = 615
ExplicitLeft = 596
ExplicitTop = 267
end
inherited eCalle: TcxDBTextEdit
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 84
Width = 84
end
inherited cbProvincia: TcxDBComboBox
Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitWidth = 106
Width = 106
ExplicitWidth = 84
Width = 84
end
inherited cbPoblacion: TcxDBComboBox
inherited cbProvincia: TcxDBComboBox
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 100
Width = 100
ExplicitWidth = 106
Width = 106
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 354
Top = 270
inherited cbPoblacion: TcxDBComboBox
Top = 324
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 354
ExplicitTop = 270
ExplicitTop = 324
ExplicitWidth = 100
Width = 100
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 341
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 341
ExplicitTop = 297
end
inherited ePaginaWeb: TcxDBTextEdit
Left = 542
Left = 529
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 216
ExplicitWidth = 165
Width = 165
end
inherited eMailParticular: TcxDBTextEdit
Left = 542
Left = 529
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 189
ExplicitWidth = 165
Width = 165
end
inherited eMailTrabajo: TcxDBTextEdit
Left = 542
Left = 529
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eTlfParticular: TcxDBTextEdit
Left = 542
Left = 529
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 542
Left = 529
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 542
Left = 529
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 84
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 542
Left = 529
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 529
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@ -284,13 +284,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 76
end
inherited cxDBImage1: TcxDBImage
Left = 447
Left = 434
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447
ExplicitLeft = 434
ExplicitTop = 267
ExplicitWidth = 140
ExplicitHeight = 100
@ -318,16 +318,16 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 202
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 348
Top = 375
Width = 521
Height = 150
ExplicitTop = 348
ExplicitTop = 375
ExplicitWidth = 521
ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewEmpresa1.DADataSource
ExplicitWidth = 397
ExplicitHeight = 31
ExplicitWidth = 384
ExplicitHeight = 20
Height = 150
Width = 521
end
@ -342,6 +342,12 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 121
Width = 121
end
inherited ePrecioPunto: TcxDBCurrencyEdit
Top = 219
ExplicitTop = 219
ExplicitWidth = 121
Width = 121
end
end
end
end
@ -352,7 +358,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 0
Top = 0
Width = 660
Height = 395
Height = 392
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -363,28 +369,16 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 395
ExplicitHeight = 392
inherited cxGrid: TcxGrid
Width = 660
Height = 370
Height = 367
ExplicitWidth = 660
ExplicitHeight = 370
ExplicitHeight = 367
end
inherited ToolBar1: TToolBar
Width = 660
ExplicitWidth = 660
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end
@ -397,7 +391,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 0
Top = 0
Width = 660
Height = 395
Height = 392
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -408,10 +402,10 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 395
ExplicitHeight = 392
inherited cxGrid: TcxGrid
Width = 660
Height = 370
Height = 367
ExplicitWidth = 660
ExplicitHeight = 370
inherited cxGridView: TcxGridDBTableView
@ -423,6 +417,18 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar
Width = 660
ExplicitWidth = 660
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

8
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -165,11 +165,11 @@ begin
inherited;
FViewEmpresa := frViewEmpresa1;
{$IFDEF CONTABILIDAD}
pagDatosBancarios.TabVisible := false;
{$ELSE}
// {$IFDEF CONTABILIDAD}
// pagDatosBancarios.TabVisible := false;
// {$ELSE}
pagDatosBancarios.TabVisible := true;
{$ENDIF}
// {$ENDIF}
end;
destructor TfEditorEmpresa.Destroy;

18
Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
View File

@ -37,10 +37,14 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
end
object cxGridViewSUFIJO_N19: TcxGridDBColumn
DataBinding.FieldName = 'SUFIJO_N19'
Visible = False
VisibleForCustomization = False
Width = 55
end
object cxGridViewSUFIJO_N58: TcxGridDBColumn
DataBinding.FieldName = 'SUFIJO_N58'
Visible = False
VisibleForCustomization = False
Width = 57
end
end
@ -49,22 +53,16 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
Top = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
Top = 0
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitWidth = 117
end
end
end

110
Source/Base/Base.dproj
View File

@ -44,6 +44,20 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +72,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

14
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

14
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

52
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

31
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -42,8 +42,13 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -136,8 +141,12 @@ type
DoPost: Boolean = True) : Boolean;
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1003,7 +1012,10 @@ begin
end;
end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@ -1031,7 +1043,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes, VerLogotipo);
AReportController.Preview(ID_Albaranes, VerLogotipo, VerImprimirPrecios);
finally
AReportController := NIL;
@ -1039,7 +1051,10 @@ begin
end;
end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@ -1065,7 +1080,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes, VerLogotipo);
AReportController.Print(ID_Albaranes, VerLogotipo, VerImprimirPrecios);
finally
AReportController := NIL;

28
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -10,8 +10,12 @@ uses
type
IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -26,8 +30,12 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -135,14 +143,16 @@ begin
end;
end;
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@ -163,7 +173,9 @@ begin
end;
end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
@ -172,7 +184,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then

20
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -37,9 +37,13 @@ type
function NewItem : IBizAlbaranCliente;
// Report
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end;
implementation
@ -63,26 +67,30 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios);
finally
FreeAndNil(AParam);
end;
end;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean): Binary;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios);
finally
FreeAndNil(AParam);
end;

8
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -8,9 +8,13 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end;
implementation

55
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -209,26 +209,39 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 10
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
Name = 'CONCEPTO_RTF'
DataType = datString
Size = 2000
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 32765
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'VISIBLE'
DataType = datSmallInt
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
@ -244,7 +257,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
Value = '1'
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
@ -637,13 +650,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETAL' +
'LES.CONCEPTO as CONCEPTO_RTF,'#10' F_RTFTOTEXT(ALBARANES_CLIEN' +
'TE_DETALLES.CONCEPTO) as CONCEPTO,'#10' ALBARANES_CLIENTE_DETA' +
'LLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.DESCUENTO,'#10' ' +
' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_' +
'DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTICULOS.F' +
'AMILIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ' +
'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON (ALBARANES_CLI' +
'ENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_ALBARAN = :ID' +
'_ALBARAN'#10'ORDER BY POSICION'#10
'LLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.DESCUENTO, ALBA' +
'RANES_CLIENTE_DETALLES.VISIBLE,'#10' ALBARANES_CLIENTE_DETALLE' +
'S.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ' +
' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENCIA' +
'_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'L' +
'EFT JOIN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ' +
'ARTICULOS.ID)'#10'WHERE ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICION'#10
StatementType = stSQL
ColumnMappings = <
item
@ -698,6 +711,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'CONCEPTO_RTF'
TableField = '<unknown>'
SQLOrigin = 'CONCEPTO_RTF'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end>
end>
Name = 'Informe_Detalles'
@ -737,6 +754,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'VISIBLE'
DataType = datSmallInt
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency

12
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -37,11 +37,12 @@ type
private
FConnection: IDAConnection;
FVerLogotipo: Boolean;
FVerPrecios: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: Integer);
public
function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end;
@ -72,13 +73,14 @@ begin
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean= True): Binary;
var
i: Integer;
begin
Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -87,7 +89,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
end;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
var
i: Integer;
begin
@ -95,6 +97,7 @@ begin
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -126,6 +129,7 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);
finally

6
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo);
Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo, VerPrecios);
finally
FreeAndNIL(AReportGenerator);
end;

7
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -32,7 +32,9 @@ requires
AlbaranesCliente_controller,
Articulos_view,
Almacenes_controller,
AlbCli_FacCli_relation;
AlbCli_FacCli_relation,
rtl,
vcl;
contains
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
@ -50,6 +52,7 @@ contains
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView};
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: TForm};
end.

26
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -47,10 +47,6 @@
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -62,15 +58,20 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form>
<DesignClass>TfEditorAlbaranCliente</DesignClass>
@ -131,6 +132,7 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

119
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.dfm Normal file
View File

@ -0,0 +1,119 @@
inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente
Caption = 'Opciones para el albar'#225'n de cliente'
ClientHeight = 237
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 273
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 393
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 193
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 195
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 393
inherited lblTitle: TLabel
Width = 343
Caption = 'Indique las siguiente opciones para el albar'#225'n de cliente:'
ExplicitWidth = 319
end
inherited lblComments: TLabel
Width = 318
Height = 27
Visible = False
end
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 127
ExplicitWidth = 393
ExplicitHeight = 127
object cbVerPrecios: TCheckBox
AlignWithMargins = True
Left = 50
Top = 29
Width = 415
Height = 17
Caption = 'Mostrar los precios en los conceptos'
Checked = True
State = cbChecked
TabOrder = 0
end
object cbVerRefProveedor: TCheckBox
AlignWithMargins = True
Left = 50
Top = 99
Width = 441
Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos'
Checked = True
State = cbChecked
TabOrder = 1
Visible = False
end
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 2
Visible = False
end
object cbVerObservaciones: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las observaciones del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 3
Visible = False
end
object cbVerLogotipo: TCheckBox
AlignWithMargins = True
Left = 50
Top = 6
Width = 415
Height = 17
Caption = 'Mostrar logotipo'
Checked = True
State = cbChecked
TabOrder = 4
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

65
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas Normal file
View File

@ -0,0 +1,65 @@
unit uDialogOpcionesImpresionAlbaranesCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
type
TfDialogOpcionesImpresionAlbaranesCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var
AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
begin
AEditor := TfDialogOpcionesImpresionAlbaranesCliente.Create(NIL);
try
AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

38
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -79,7 +79,7 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
uEditorDBBase, uDataTableUtils, uFactuGES_App;
uEditorDBBase, uDataTableUtils, uFactuGES_App, uDialogOpcionesImpresionAlbaranesCliente;
{$R *.dfm}
@ -224,12 +224,22 @@ end;
procedure TfEditorAlbaranCliente.ImprimirInterno;
var
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
AVerLogotipo := True;
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FAlbaran, False, AVerLogotipo);
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -311,12 +321,22 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
var
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
AVerLogotipo := True;
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FAlbaran, False, AVerLogotipo);
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

14
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente'
ClientWidth = 583
ExplicitWidth = 591
ExplicitHeight = 482
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -122,14 +123,16 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
inherited TBXDock: TTBXDock
Width = 583
Height = 105
ExplicitWidth = 583
ExplicitHeight = 105
inherited tbxMain: TTBXToolbar
ExplicitWidth = 583
object TBXSeparatorItem17: TTBXSeparatorItem [10]
end
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431
ExplicitWidth = 454
inherited lblAno: TTBXLabelItem
Visible = True
end
@ -144,10 +147,13 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ExplicitWidth = 583
end
inherited TBXTMain2: TTBXToolbar
Left = 431
Left = 0
Top = 79
Visible = True
ExplicitLeft = 431
ExplicitWidth = 152
ExplicitLeft = 0
ExplicitTop = 79
ExplicitWidth = 583
ExplicitHeight = 26
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText

34
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -85,6 +85,7 @@ implementation
uses
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
uDialogOpcionesImpresionAlbaranesCliente,
//En tecsitel no estaran habilitados los pedidos
// uPedidosClienteController, uBizPedidosCliente,
uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils,
@ -387,11 +388,20 @@ var
Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
AAlbaranes := Nil;
AllItems := False;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -419,8 +429,8 @@ begin
if Assigned(AAlbaranes) then
begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(AAlbaranes, AllItems, AVerLogotipo);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;
@ -489,12 +499,20 @@ var
Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
AAlbaranes := Nil;
AllItems := False;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -522,8 +540,8 @@ begin
if Assigned(AAlbaranes) then
begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(AAlbaranes, AllItems, AVerLogotipo);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;

24
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,10 +1,32 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
inherited cxGridViewVISIBLE: TcxGridDBColumn [4]
Visible = True
end
inherited cxGridViewVALORADO: TcxGridDBColumn [5]
Visible = True
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [6]
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [7]
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [8]
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [9]
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [10]
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [11]
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [12]
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [13]
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [14]
end
end
end
end

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

Binary file not shown.

64
Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{d465978e-860e-4eb2-9a25-2afb559e8e07}</ProjectGuid>
<MainSource>BancaElectronica_controller.dpk</MainSource>
@ -39,69 +40,32 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">BancaElectronica_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BancaElectronica_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="BancaElectronica_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="..\Utiles\CVBNorma1958CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma19CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma32CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma34CSB.pas" />
<DCCReference Include="..\Utiles\CVBUtils.pas" />
<DCCReference Include="uBancaElectronicaController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\RemesasCliente_controller.dcp" />
<DCCReference Include="View\RemesasCliente_model.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorExportacionNorma19.pas" />
<DCCReference Include="View\uIEditorExportacionNorma32.pas" />
<DCCReference Include="View\vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

12
Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma19.pas
View File

@ -6,13 +6,13 @@ type
IEditorExportacionNorma19 = interface
['{FED1E69E-99F3-408E-9CA8-FADEF2E01726}']
procedure SetCodigoEntidad(const AValue: Integer);
function GetCodigoEntidad : Integer;
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad;
procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : String;
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
procedure SetCodigoAgencia(const AValue: Integer);
function GetCodigoAgencia : Integer;
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia;
procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : String;
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime;

40
Source/Modulos/Banca electronica/Controller/View/uIEditorExportacionNorma32.pas Normal file
View File

@ -0,0 +1,40 @@
unit uIEditorExportacionNorma32;
interface
type
IEditorExportacionNorma32 = interface
['{84B46A6B-5791-4E30-9ED0-2DDBCC84F353}']
procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : String;
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : String;
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime;
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
procedure SetFichero(const AValue: String);
function GetFichero : String;
property Fichero : String read GetFichero write SetFichero;
function GetCodigoINE: String;
procedure SetCodigoINE(const Value: String);
property CodigoINE : String read GetCodigoINE write SetCodigoINE;
procedure SetCodigoIdentif(const Value: String);
function GetCodigoIdentif: String;
property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

246
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

@ -26,34 +26,41 @@ unit uBancaElectronicaController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase;
Classes, SysUtils, uDADataTable;
type
IBancaElectronicaController = interface(IControllerBase)
IBancaElectronicaController = interface
['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
end;
TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController)
TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
private
function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer;
function VerEditorNorma19(var Entidad : String; var Oficina : String;
var AFechaCargo : TDateTime; var AFileName : String): Boolean;
function VerEditorNorma32(var Identificador : String;
var ACodigoINE : String; var Entidad : String; var Oficina : String;
var AFileName : String): Boolean;
public
procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
end;
implementation
uses
cxControls, Controls, Windows,
CVBNorma1958CSB,
Forms, cxControls, Controls, Windows,
CVBNorma1958CSB, CVBNorma32CSB,
uEditorRegistryUtils,
uBizEmpresas, uEmpresasController,
uBizContactos, uClientesController,
uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf,
schRecibosClienteClient_Intf, Dialogs,
uIEditorExportacionNorma19;
uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente,
schContactosClient_Intf, schEmpresasClient_Intf;
{ TBancaElectronicaController }
@ -71,14 +78,15 @@ var
ANorma19 : TCVBNorma1958CSB;
I: integer;
AEntidad : Integer;
AOficina : Integer;
AEntidad : String;
AOficina : String;
begin
ARemesasController := TRemesasClienteController.Create;
AEmpresasController := TEmpresasController.Create;
AClientesController := TClientesController.Create;
ANorma19 := TCVBNorma1958CSB.Create(NIL);
ShowHourglassCursor;
try
ARemesa := ARemesasController.Buscar(IDRemesa);
ARemesa.DataTable.Active := True;
@ -96,16 +104,27 @@ begin
ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19';
ANorma19.FecAbono := ARemesa.FECHA_REMESA;
if not DarParametrosParaExportar(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
// Buscar los datos bancarios
with AEmpresa.DatosBancarios do
begin
First;
if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then
begin
AEntidad := ENTIDAD;
AOficina := SUCURSAL;
end;
end;
if not VerEditorNorma19(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
Exit;
ANorma19.EntRecepPres := IntToStr(AEntidad);
ANorma19.OfiRecepPres := IntToStr(AOficina);
ANorma19.EntRecepPres := AEntidad;
ANorma19.OfiRecepPres := AOficina;
with ANorma19 do
begin
_NORMA_ := 19;
Procedimiento := prPrimero; // <= ????????????????????????????????????
//ANorma19.Procedimiento := prPrimero; // <= ????????????????????????????????????
Euros := True;
Depura := True;
@ -164,6 +183,7 @@ begin
Cerrar;
end;
finally
HideHourglassCursor;
ARemesasController := NIL;
AEmpresasController := NIL;
AClientesController := NIL;
@ -174,23 +194,166 @@ begin
end;
end;
function TBancaElectronicaController.DarParametrosParaExportar (
var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime;
procedure TBancaElectronicaController.GenerarFicheroNorma32(
const IDRemesa: Integer);
var
ARemesasController : IRemesasClienteController;
AEmpresasController : IEmpresasController;
AClientesController : IClientesController;
ARemesa : IBizRemesaCliente;
AEmpresa : IBizEmpresa;
ACliente : IBizCliente;
ANorma32 : TCVBNorma32CSB;
I: integer;
AEntidad : String;
AOficina : String;
ACodINE : String;
begin
ARemesasController := TRemesasClienteController.Create;
AEmpresasController := TEmpresasController.Create;
AClientesController := TClientesController.Create;
ANorma32 := TCVBNorma32CSB.Create(NIL);
ShowHourglassCursor;
Application.ProcessMessages;
try
ARemesa := ARemesasController.Buscar(IDRemesa);
ARemesa.DataTable.Active := True;
ARemesasController.RecuperarRecibos(ARemesa);
if ARemesa.ID <> IDRemesa then
raise Exception.CreateFmt('No existe la remesa con ID %d', [IDRemesa]);
AEmpresa := AEmpresasController.Buscar(ARemesa.ID_EMPRESA);
AEmpresa.DataTable.Active := True;
if AEmpresa.ID <> ARemesa.ID_EMPRESA then
raise Exception.CreateFmt('No existe la empresa con ID %d', [ARemesa.ID_EMPRESA]);
ANorma32.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C32';
ANorma32.FechaFichero := Date;
// Buscar los datos bancarios
with AEmpresa.DatosBancarios do
begin
First;
if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then
begin
AEntidad := ENTIDAD;
AOficina := SUCURSAL;
end;
end;
if not VerEditorNorma32(ANorma32.IdCedente, ACodINE, AEntidad,
AOficina, ANorma32.FNomFic) then
Exit;
with ANorma32 do
begin
_NORMA_ := 32;
Euros := True;
Depura := True;
Abrir;
// Cabecera del fichero
FechaFichero := NOW;
EntReceptora := AEntidad;
SucReceptora := AOficina;
CompCabeceraFichero;
// Cabecera de la remesa
NumRemesa := '0001'; //<-------------------------------------------------
AboEnt := ARemesa.ENTIDAD;
AboOfi := ARemesa.SUCURSAL;
AboDC := ARemesa.DC;
AboCC := ARemesa.CUENTA;
AdeEnt := ARemesa.ENTIDAD;
AdeOfi := ARemesa.SUCURSAL;
AdeDC := ARemesa.DC;
AdeCC := ARemesa.CUENTA;
ImpEnt := ARemesa.ENTIDAD;
ImpSuc := ARemesa.SUCURSAL;
ImpDC := ARemesa.DC;
ImpCC := ARemesa.CUENTA;
CompCabeceraRemesa;
ARemesa.Recibos.First;
for i := 0 to ARemesa.Recibos.RecordCount - 1 do
begin
RegNumRecibo := ARemesa.Recibos.REFERENCIA;
RegCodigoINE := ACodINE;
RegPlazaLibr := AEmpresa.POBLACION;
RegImpEfecto := ARemesa.Recibos.IMPORTE_TOTAL;
RegVtoEfecto := ARemesa.Recibos.FECHA_VENCIMIENTO;
// (II)
RegCodEnt := ARemesa.Recibos.ENTIDAD_CLIENTE;
RegCodOfi := ARemesa.Recibos.SUCURSAL_CLIENTE;
RegDC := ARemesa.Recibos.DC_CLIENTE;
RegCC := ARemesa.Recibos.CUENTA_CLIENTE;
RegLibrador := AEmpresa.NOMBRE;
RegLibrado := ARemesa.Recibos.NOMBRE_CLIENTE;
RegInfoAdic := '';
// (III)
ACliente := (AClientesController.Buscar(ARemesa.Recibos.ID_CLIENTE) as IBizCliente);
try
ACliente.DataTable.Active := True;
RegDomicilio := ACliente.CALLE;
RegCodPostal := ACliente.CODIGO_POSTAL;
RegPoblacion := ACliente.POBLACION;
// RegNIF := ARemesa.Recibos.NIF_CIF_CLIENTE;
finally
ACliente := NIL;
end;
CompRegistro;
ARemesa.Recibos.Next;
end;
CompFinRemesa;
Cerrar;
end;
finally
HideHourglassCursor;
ARemesasController := NIL;
AEmpresasController := NIL;
AClientesController := NIL;
AEmpresa := NIL;
FreeAndNil(ANorma32);
end;
end;
function TBancaElectronicaController.VerEditorNorma19 (
var Entidad : String; var Oficina : String; var AFechaCargo : TDateTime;
var AFileName : String): Boolean;
var
AEditor : IEditorExportacionNorma19;
begin
Result := False;
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor);
with AEditor do
begin
CodigoEntidad := Entidad;
CodigoAgencia := Oficina;
FechaCargo := AFechaCargo;
Fichero := AFileName;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.CodigoEntidad := Entidad;
AEditor.CodigoAgencia := Oficina;
AEditor.FechaCargo := AFechaCargo;
AEditor.Fichero := AFileName;
if (AEditor.ShowModal = mrOk) then
begin
Entidad := AEditor.CodigoEntidad;
@ -199,11 +362,50 @@ begin
AFileName := AEditor.Fichero;
Result := True;
end;
finally
AEditor.Release;
finally
AEditor := NIL;
end;
end;
function TBancaElectronicaController.VerEditorNorma32(var Identificador,
ACodigoINE: String; var Entidad, Oficina: String;
var AFileName: String): Boolean;
var
AEditor : IEditorExportacionNorma32;
begin
Result := False;
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorExportacionNorma32', IEditorExportacionNorma32, AEditor);
with AEditor do
begin
CodigoIdentif := Identificador;
CodigoINE := ACodigoINE;
CodigoEntidad := Entidad;
CodigoAgencia := Oficina;
Fichero := AFileName;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
if (AEditor.ShowModal = mrOk) then
begin
Identificador := AEditor.CodigoIdentif;
ACodigoINE := AEditor.CodigoINE;
Entidad := AEditor.CodigoEntidad;
Oficina := AEditor.CodigoAgencia;
AFileName := AEditor.Fichero;
Result := True;
end;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
end.

4
Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.dfm
View File

@ -53,10 +53,6 @@ object PluginBancaElectronica: TPluginBancaElectronica
Top = 16
object N1: TMenuItem
Caption = 'Log'#237'stica'
object BancaElectronica1: TMenuItem
Tag = 100
Action = actBancaElectronica
end
end
end
object SmallImages: TPngImageList

1
Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.pas
View File

@ -19,7 +19,6 @@ type
ModuleActionList: TActionList;
SmallImages: TPngImageList;
N1: TMenuItem;
BancaElectronica1: TMenuItem;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

716
Source/Modulos/Banca electronica/Utiles/CVBNorma32CSB.pas Normal file
View File

@ -0,0 +1,716 @@
unit CVBNorma32CSB;
interface
uses
Messages, SysUtils, Classes, Dialogs, CVBUtils;
type
TProcedimiento = (prPrimero, prSegundo);
TCVBParte = (CABECERA_GENERAL, CABECERA_REMESA,
REGISTRO1, REGISTRO2, REGISTRO3, FIN_REMESA, FIN_GENERAL);
TCVBNorma32CSB = class(TComponent)
private
pReg: array[0..152] of char; // Un digito más por el /0
_LL_: integer; // Longitud Línea. Aquí almacenamos el valor 164 para usarlo
// en el resto del componente.
_INDICA_: string;
_CERO_, _SPCE_: char;
_MSK_PT_, _MSK_EU_: string;
prProced: TProcedimiento;
HayError: boolean;
FEuro: boolean;
FDepura: boolean;
NFic: file;
fSumaImpRecibos: double; // Suma de los recibos dentro de una remesa
fSumaImpRemesas: double; // Suma de las remesas dentro del fichero
iNumRecibos: integer; // Nº de recibos dentro de una remesa
iNumRemesas: integer; // Nº de remesas dentro del fichero
iTotalLineas: integer; // Nº de líneas en el fichero
iTotalRecibos : integer; // Nº de recibos dentro de un fichero
FEnCasoError: TNotifyEvent;
sReg: string;
_19_, _58_, _32_: integer;
protected
procedure ChequearDatos(Parte: TCVBParte); overload;
procedure Error(iErr: integer); dynamic;
procedure CompRegistro1;
procedure CompRegistro2;
procedure CompRegistro3;
public
_NORMA_: integer;
NrError: integer;
CRLF: string;
FNomFic: string; // Nombre del archivo en disco
// CABECERA FICHERO
FechaFichero: TDateTime;
EntReceptora: string; //4
SucReceptora: string; //4
// CABECERA REMESA
NumRemesa: string; //4
IdCedente: string; //15
AboEnt: string; //4
AboOfi: string; //4
AboDC: string; //2
AboCC: string; //10
AdeEnt: string; //4
AdeOfi: string; //4
AdeDC: string; //2
AdeCC: string; //10
ImpEnt: string; //4
ImpSuc: string; //4
ImpDC: string; //2
ImpCC: string; //10
// REGISTRO REMESA
// (I)
RegNumRecibo: string; // 7
RegCodigoINE: string; // 9
RegPlazaLibr: string; // 20
RegImpEfecto: double; // 9
RegVtoEfecto: TDateTime; // 6
// (II)
RegCodEnt: string; // 4
RegCodOfi: string; // 4
RegDC: string; // 2
RegCC: string; // 10
RegLibrador: string; // 34
RegLibrado: string; // 34
RegInfoAdic: string; // 30
// (III)
RegDomicilio: string; // 34
RegCodPostal: string; // 5
RegPoblacion: string; // 20
RegNIF: string; // 9
constructor Create(AOwner: TComponent); override;
procedure Abrir;
procedure Cerrar;
procedure IniCabeceraFichero;
procedure IniCabeceraRemesa;
procedure IniRegistro;
procedure CompCabeceraFichero;
procedure CompCabeceraRemesa;
procedure CompRegistro;
procedure CompFinRemesa;
published
property NomFichero: string read FNomFic write FNomFic;
property Procedimiento: TProcedimiento read prProced write prProced default prPrimero;
property Euros: boolean read FEuro write FEuro default False;
property Depura: boolean read FDepura write FDepura default False;
property EnCasoError: TNotifyEvent read FEnCasoError write FEnCasoError;
end;
implementation
constructor TCVBNorma32CSB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{Asignar la propiedades por defecto}
_32_ := 32;
_19_ := 19;
_58_ := 58;
_LL_ := high(pReg);
_INDICA_ := '<--';
_CERO_ := '0';
_SPCE_ := ' ';
_MSK_PT_ := '0000000000';
_MSK_EU_ := '00000000.00';
end;
//*******************************************************************************
procedure TCVBNorma32CSB.Abrir;
begin
HayError := False;
AssignFile(NFic, FNomFic);
{$I+}
rewrite(Nfic, _LL_);
{$I-}
if IOResult <> 0 then
error(0);
fSumaImpRecibos := 0.0;
fSumaImpRemesas := 0.0;
iNumRecibos := 0;
iNumRemesas := 0;
iTotalLineas := 0;
iTotalRecibos := 0;
IniCabeceraFichero;
IniCabeceraRemesa;
IniRegistro;
if CRLF = '' then
CRLF := #13 + #10;
end;
procedure TCVBNorma32CSB.IniCabeceraFichero;
begin
FechaFichero := 0;
EntReceptora := '';
SucReceptora := '';
end;
procedure TCVBNorma32CSB.IniCabeceraRemesa;
begin
NumRemesa := '0001'; // <--------------------------------------------
AboEnt := '';
AboOfi := '';
AboDC := '';
AboCC := '';
AdeEnt := '';
AdeOfi := '';
AdeDC := '';
AdeCC := '';
ImpEnt := '';
ImpSuc := '';
ImpDC := '';
ImpCC := '';
end;
procedure TCVBNorma32CSB.IniRegistro;
begin
// (I)
RegNumRecibo := '';
RegCodigoINE := '';
RegPlazaLibr := '';
RegImpEfecto := 0.0;
RegVtoEfecto := 0;
// (II)
RegCodEnt := '';
RegCodOfi := '';
RegDC := '';
RegCC := '';
RegLibrador := '';
RegLibrado := '';
RegInfoAdic := '';
// (III)
RegDomicilio := '';
RegCodPostal := '';
RegPoblacion := '';
RegNIF := '';
end;
procedure TCVBNorma32CSB.CompCabeceraFichero;
begin
HayError := False;
sReg := '';
ChequearDatos(CABECERA_GENERAL);
// A
sReg := '02' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
// B
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('1', 'I', 4, _CERO_); //4
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// C
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); //15
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
sReg := sReg + Ajusta(EntReceptora, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(SucReceptora, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// D
sReg := sReg + Ajusta('', 'I', 61, _SPCE_); //61
// E
sReg := sReg + Ajusta('', 'I', 24, _SPCE_); //24
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
end;
procedure TCVBNorma32CSB.CompCabeceraRemesa;
begin
HayError := False;
sReg := '';
ChequearDatos(CABECERA_REMESA);
Inc(iNumRemesas);
// A
sReg := '11' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
// B
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta(IntToStr(iNumRemesas), 'I', 4, _CERO_); //4
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// C
sReg := sReg + Ajusta(IdCedente, 'D', 15, _SPCE_); //15
sReg := sReg + '1';
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 5, _SPCE_); //5
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// D
sReg := sReg + Ajusta(AboEnt, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(AboOfi, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(AboDC, 'I', 2, _CERO_); //2
sReg := sReg + Ajusta(AboCC, 'I', 10, _CERO_); //10
sReg := sReg + Ajusta(AdeEnt, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(AdeOfi, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(AdeDC, 'I', 2, _CERO_); //2
sReg := sReg + Ajusta(AdeCC, 'I', 10, _CERO_); //10
sReg := sReg + Ajusta(ImpEnt, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(ImpSuc, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(ImpDC, 'I', 2, _CERO_); //2
sReg := sReg + Ajusta(ImpCC, 'I', 10, _CERO_); //10
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); //1
// E
sReg := sReg + Ajusta('', 'I', 24, _SPCE_); //24
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
end;
procedure TCVBNorma32CSB.CompFinRemesa;
var
sTotImp, cIT : string;
iP : integer;
begin
HayError := False;
sReg := '';
ChequearDatos(FIN_REMESA);
// A
sReg := '71' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
// B
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta(NumRemesa, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// C
sReg := sReg + Ajusta('', 'I', 37, _SPCE_); //37
// D
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); //10
sTotImp := FormatFloat(_MSK_EU_, fSumaImpRecibos);
iP := pos(',', sTotImp);
if iP < 1 then
iP := pos('.', sTotImp);
cIT := copy(sTotImp, 1, iP - 1);
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
sReg := sReg + Ajusta(sTotImp, 'I', 10, _CERO_); // 10
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); //10
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); //7
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
// E
sReg := sReg + Ajusta('', 'I', 5, _SPCE_); //5
{ Nº de registros de la remesa incluidos la cabecera y éste mismo:
Num.registros = 1 (cabecera) + (3 registros * Num.recibos) + 1 (este pie)
}
sReg := sReg + Ajusta(IntToStr(1 + (3*iNumRecibos) + 1), 'I', 7, _CERO_); //7
sReg := sReg + Ajusta(IntToStr(iNumRecibos), 'I', 6, _CERO_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
// Acumular la suma de los importes de las remesas en el fichero
fSumaImpRemesas := fSumaImpRemesas + fSumaImpRecibos;
// Poner a cero la suma de los recibos y el número de recibos
fSumaImpRecibos := 0.0;
iNumRecibos := 0;
end;
procedure TCVBNorma32CSB.CompRegistro;
begin
CompRegistro1;
CompRegistro2;
CompRegistro3;
// Acumular la suma de los recibos en la remesa
fSumaImpRecibos := fSumaImpRecibos + RegImpEfecto;
// Acumular el nº de recibos en la remesa
Inc(iNumRecibos);
Inc(iTotalRecibos);
end;
procedure TCVBNorma32CSB.CompRegistro1;
var
sTotImp, cIT : string;
iP: integer;
begin
HayError := False;
sReg := '';
ChequearDatos(REGISTRO1);
// A
sReg := '25' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
// B
// Convertir referencia EL/0001 - 1 => EL00001-1
RegNumRecibo := StringReplace(RegNumRecibo, '/', '0', []);
RegNumRecibo := StringReplace(RegNumRecibo, ' - ', '-', []);
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta(NumRemesa, 'I', 4, _CERO_); // 4
// C
sReg := sReg + Ajusta(RegCodigoINE, 'D', 9, _SPCE_); // 9
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
// D
sReg := sReg + Ajusta(RegPlazaLibr, 'D', 20, _SPCE_); // 20
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); // 1
// E
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); // 15
sReg := sReg + Ajusta('', 'I', 9, _SPCE_); // 9
sTotImp := FormatFloat(_MSK_EU_, RegImpEfecto);
iP := pos(',', sTotImp);
if iP < 1 then
iP := pos('.', sTotImp);
cIT := copy(sTotImp, 1, iP - 1);
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
sReg := sReg + Ajusta(sTotImp, 'I', 9, _CERO_); // 9
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); // 15
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', RegVtoEfecto), 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); // 1
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); // 4
// F
sReg := sReg + Ajusta('', 'I', 16, _SPCE_); // 16
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
end;
procedure TCVBNorma32CSB.CompRegistro2;
begin
HayError := False;
sReg := '';
ChequearDatos(REGISTRO2);
// A
sReg := '26' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
// B
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
sReg := sReg + Ajusta('2', 'I', 1, _SPCE_); // 1
sReg := sReg + Ajusta('000000', 'I', 6, _CERO_); // 6
sReg := sReg + Ajusta('2', 'I', 1, _SPCE_); // 1
sReg := sReg + Ajusta('0', 'I', 1, _SPCE_); // 1
// C
sReg := sReg + Ajusta(RegCodEnt, 'I', 4, _CERO_); //4
sReg := sReg + Ajusta(RegCodOfi, 'I', 4, _CERO_); //4
if Length(RegDC) = 0 then
RegDC := '**';
sReg := sReg + Ajusta(RegDC, 'I', 2, _CERO_); //2
sReg := sReg + Ajusta(RegCC, 'I', 10, _CERO_); //10
// D
sReg := sReg + Ajusta(RegLibrador, 'D', 34, _SPCE_); // 34
sReg := sReg + Ajusta(RegLibrado, 'D', 34, _SPCE_); // 34
sReg := sReg + Ajusta(RegInfoAdic, 'D', 30, _SPCE_); // 30
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
end;
procedure TCVBNorma32CSB.CompRegistro3;
begin
HayError := False;
sReg := '';
ChequearDatos(REGISTRO3);
// A
sReg := '27' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
// B
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
sReg := sReg + Ajusta(RegDomicilio, 'D', 34, _SPCE_); // 34
sReg := sReg + Ajusta(RegCodPostal, 'I', 5, _SPCE_); // 5
sReg := sReg + Ajusta(RegPoblacion, 'D', 20, _SPCE_); // 20
sReg := sReg + Ajusta(RegCodigoINE, 'I', 2, _SPCE_); // 2
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); // 7
sReg := sReg + Ajusta(RegNIF, 'I', 9, _SPCE_); // 9
sReg := sReg + Ajusta('', 'I', 50, _SPCE_); // 50
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
Inc(iTotalLineas);
end;
procedure TCVBNorma32CSB.Cerrar;
var
sTotImp, cIT : string;
iP: integer;
begin
HayError := False;
sReg := '';
Inc(iTotalLineas);
// A
sReg := '98' + '65';
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
// B
sReg := sReg + Ajusta('', 'I', 22, _SPCE_); // 22
// C
sReg := sReg + Ajusta('', 'I', 37, _SPCE_); // 37
// D
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); // 10
sTotImp := FormatFloat(_MSK_EU_, fSumaImpRemesas);
iP := pos(',', sTotImp);
if iP < 1 then
iP := pos('.', sTotImp);
cIT := copy(sTotImp, 1, iP - 1);
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
sReg := sReg + Ajusta(sTotImp, 'I', 10, _CERO_); // 10
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); // 10
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); // 7
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
// E
sReg := sReg + Ajusta(IntToStr(iNumRemesas), 'I', 5, _CERO_); //5
sReg := sReg + Ajusta(IntToStr(iTotalLineas), 'I', 7, _CERO_); //7
sReg := sReg + Ajusta(IntToStr(iTotalRecibos), 'I', 6, _CERO_); //6
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
sReg := sReg + CRLF; //2
if not (length(sReg) = _LL_) then
Error(_LL_);
StrPCopy(@pReg, sReg);
Blockwrite(NFic, pReg, 1);
CloseFile(NFic);
end;
procedure TCVBNorma32CSB.ChequearDatos(Parte: TCVBParte);
var
bError: boolean;
begin
{ bError := False;
if Parte = CABECERA_GENERAL then
begin
if ((Presentador = '') or (NomCliPres = '') or
(EntRecepPres = '') or (OfiRecepPres = '')) then
begin
if Presentador = '' then
Presentador := _INDICA_;
if NomCliPres = '' then
NomCliPres := _INDICA_;
if EntRecepPres = '' then
EntRecepPres := _INDICA_;
if OfiRecepPres = '' then
OfiRecepPres := _INDICA_;
bError := True;
end;
end
else
if iParte = 2 then
begin
if ((Ordenante = '') or (NomCliOrd = '') or
(EntOrde = '') or (OfiOrde = '') or
(CcOrde = '')) then
begin
if Ordenante = '' then
Ordenante := _INDICA_;
if NomCliOrd = '' then
NomCliOrd := _INDICA_;
if EntOrde = '' then
EntOrde := _INDICA_;
if OfiOrde = '' then
OfiOrde := _INDICA_;
if CcOrde = '' then
CcOrde := _INDICA_;
bError := True;
end;
end
else
if (iParte = 3) or (iParte = 4) then
begin
if ((Referencia = '') or (NomTitDom = '') or
(EntTitDom = '') or (OfiTitDom = '') or
(ccTitDom = '')) then
begin
if Referencia = '' then
Referencia := _INDICA_;
if NomTitDom = '' then
NomTitDom := _INDICA_;
if EntTitDom = '' then
EntTitDom := _INDICA_;
if OfiTitDom = '' then
OfiTitDom := _INDICA_;
if ccTitDom = '' then
ccTitDom := _INDICA_;
bError := True;
end;
end;
if bError then
ShowMessage('' + CRLF +
'Faltan datos al procesar el siguiente registro: ' + CRLF + CRLF +
'Código Cli/Pro: ' + Referencia + CRLF +
'Nombre Titular: ' + NomTitDom + CRLF +
'Entidad Domiciliar: ' + EntTitDom + CRLF +
'Oficina Domiciliar: ' + OfiTitDom + CRLF +
'Cuenta Domiciliar: ' + ccTitDom + CRLF +
'Presentador: ' + Presentador + CRLF +
'Nombre Cliente Pres:' + NomCliPres + CRLF +
'Entidad Receptora P:' + EntRecepPres + CRLF +
'Oficina Receptora P:' + OfiRecepPres + CRLF +
'Ordenante: ' + Ordenante + CRLF +
'Nombre Cliente Ord.:' + NomCliOrd + CRLF +
'Entidad Ordenante: ' + EntOrde + CRLF +
'Oficina Ordenante: ' + OfiOrde + CRLF +
'Cuenta Ordenante: ' + CcOrde
);
if iParte = 3 then
begin
if bError then
begin
if ((fImportePts = 0) and (FEuro = False)) or
((fImporteEu = 0) and (FEuro = True)) then
begin
ShowMessage('¡¡¡ El importe no puede ser cero !!!');
Error(27);
end;
end;
end;}
end;
procedure TCVBNorma32CSB.Error(iErr: integer);
begin
NrError := iErr;
HayError := True;
if Assigned(FEnCasoError) then
FEnCasoError(Self)
else
if FDepura = False then
begin
CloseFile(NFic);
if NrError = _LL_ then
raise Exception.Create('Error en la longitud de la línea')
else
raise Exception.Create('Error en la generación del fichero');
end;
end;
end.

317
Source/Modulos/Banca electronica/Views/BancaElectronica_view.bdsproj
View File

@ -172,4 +172,321 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
Freeze Message=The application seems to be frozen.
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
Show TerminateBtn=1
TerminateBtn Operation=1
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesSection=1
loSaveCPUSection=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soExcDate=1
soExcAddress=1
soExcModule=1
soExcType=1
soExcMessage=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpUser=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndCompressAllFiles=0
edoShowExceptionDialog=1
edoSendEmailChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoShowProcedureOffset=0
boActivateCrashDetection=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_CustomDataCaption=1
mtDialog_CustomDataCaption0="Other"
Count mtDialog_CustomDataHeader=1
mtDialog_CustomDataHeader0="Other Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModule=1
mtLog_ExcModule0="Module"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpUser=1
mtLog_CmpUser0="User"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
EurekaLog Last Line -->
</BorlandProject>

BIN
Source/Modulos/Banca electronica/Views/BancaElectronica_view.dpk
View File

Binary file not shown.

521
Source/Modulos/Banca electronica/Views/BancaElectronica_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{318cdb6c-0c6b-444c-81a7-75d2547d33e7}</ProjectGuid>
<MainSource>BancaElectronica_view.dpk</MainSource>
@ -42,4 +43,522 @@
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BancaElectronica_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="BancaElectronica_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Controller\View\BancaElectronica_controller.dcp" />
<DCCReference Include="..\Controller\View\bdertl.dcp" />
<DCCReference Include="..\Controller\View\cxDataD11.dcp" />
<DCCReference Include="..\Controller\View\cxEditorsD11.dcp" />
<DCCReference Include="..\Controller\View\cxLibraryD11.dcp" />
<DCCReference Include="..\Controller\View\dbrtl.dcp" />
<DCCReference Include="..\Controller\View\dxCoreD11.dcp" />
<DCCReference Include="..\Controller\View\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Controller\View\dxThemeD11.dcp" />
<DCCReference Include="..\Controller\View\Jcl.dcp" />
<DCCReference Include="..\Controller\View\JclVcl.dcp" />
<DCCReference Include="..\Controller\View\JvCoreD11R.dcp" />
<DCCReference Include="..\Controller\View\JvCustomD11R.dcp" />
<DCCReference Include="..\Controller\View\JvDlgsD11R.dcp" />
<DCCReference Include="..\Controller\View\JvGlobusD11R.dcp" />
<DCCReference Include="..\Controller\View\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\View\JvSystemD11R.dcp" />
<DCCReference Include="..\Controller\View\PNG_D10.dcp" />
<DCCReference Include="..\Controller\View\rtl.dcp" />
<DCCReference Include="..\Controller\View\vcl.dcp" />
<DCCReference Include="..\Controller\View\vcldb.dcp" />
<DCCReference Include="..\Controller\View\vcljpg.dcp" />
<DCCReference Include="..\Controller\View\vclx.dcp" />
<DCCReference Include="uBancaElectronicaViewRegister.pas" />
<DCCReference Include="uEditorExportacionNorma19.pas">
<Form>fEditorExportacionNorma19</Form>
</DCCReference>
<DCCReference Include="uEditorExportacionNorma32.pas">
<Form>fEditorExportacionNorma32</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

4
Source/Modulos/Banca electronica/Views/uBancaElectronicaViewRegister.pas
View File

@ -31,16 +31,18 @@ procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorExportacionNorma19;
uEditorRegistryUtils, uEditorExportacionNorma19, uEditorExportacionNorma32;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorExportacionNorma19, 'EditorExportacionNorma19');
EditorRegistry.RegisterClass(TfEditorExportacionNorma32, 'EditorExportacionNorma32');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorExportacionNorma19);
EditorRegistry.UnRegisterClass(TfEditorExportacionNorma32);
end;
end.

262
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
View File

@ -1,57 +1,48 @@
inherited fEditorExportacionNorma19: TfEditorExportacionNorma19
object fEditorExportacionNorma19: TfEditorExportacionNorma19
Left = 0
Top = 0
ActiveControl = edtCodEntidad
BorderStyle = bsDialog
Caption = 'Volcado de remesas a disco (Norma 19)'
ClientHeight = 373
ClientWidth = 466
ClientHeight = 313
ClientWidth = 389
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
ExplicitWidth = 472
ExplicitHeight = 405
DesignSize = (
389
313)
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 466
ExplicitWidth = 466
object Label2: TLabel
Left = 24
Top = 96
Width = 90
Height = 13
Caption = 'Entidad receptora:'
end
inherited Bevel3: TBevel
Top = 329
Width = 466
ExplicitTop = 329
ExplicitWidth = 466
object Label3: TLabel
Left = 24
Top = 123
Width = 42
Height = 13
Caption = 'Agencia:'
end
inherited pnlBotones: TPanel
Top = 331
Width = 466
ExplicitTop = 331
ExplicitWidth = 466
inherited btnAceptar: TButton
Left = 280
Top = 6
Width = 98
ExplicitLeft = 280
ExplicitTop = 6
ExplicitWidth = 98
end
inherited btnCancelar: TButton
Left = 382
Top = 6
ExplicitLeft = 382
ExplicitTop = 6
end
end
inherited pnlHeader: TPanel
Width = 466
ExplicitWidth = 466
inherited lblTitle: TLabel
Width = 416
Caption = 'Volcado de remesas a disco - Norma 19'
ExplicitWidth = 220
end
inherited lblComments: TLabel
Width = 391
Height = 27
Visible = False
object Label4: TLabel
Left = 24
Top = 153
Width = 78
Height = 13
Caption = 'Fecha de cargo:'
end
object Image1: TImage
Left = 429
Left = 345
Top = 15
Width = 28
Height = 28
@ -84,98 +75,47 @@ inherited fEditorExportacionNorma19: TfEditorExportacionNorma19
CF6DE9FE447358362896C362D1C8C7A26CB0D61C960DD69AC3B2C15A73F83F42
0A9D9B19DC72610000000049454E44AE426082}
end
end
inherited pnlCuerpo: TPanel
Width = 466
Height = 263
ExplicitWidth = 466
ExplicitHeight = 263
object Bevel12: TBevel
Left = 50
Top = 132
Width = 349
Height = 5
object Bevel1: TBevel
Left = 8
Top = 268
Width = 373
Height = 3
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
ExplicitTop = 328
end
object Label1: TLabel
Left = 50
Top = 152
Left = 24
Top = 208
Width = 71
Height = 13
Caption = 'Guardar como:'
end
object Label2: TLabel
Left = 50
Top = 40
Width = 90
Height = 13
Caption = 'Entidad receptora:'
end
object Label3: TLabel
Left = 50
Top = 67
Width = 42
Height = 13
Caption = 'Agencia:'
end
object Label4: TLabel
Left = 50
Top = 97
Width = 78
Height = 13
Caption = 'Fecha de cargo:'
object Bevel2: TBevel
Left = 24
Top = 188
Width = 349
Height = 3
Anchors = [akLeft, akTop, akRight]
Shape = bsBottomLine
end
object Label5: TLabel
Left = 228
Top = 40
Left = 202
Top = 96
Width = 48
Height = 13
Caption = '(4 d'#237'gitos)'
end
object Label6: TLabel
Left = 228
Top = 67
Left = 202
Top = 123
Width = 48
Height = 13
Caption = '(4 d'#237'gitos)'
end
object edtCodAgencia: TcxMaskEdit
Left = 146
Top = 64
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 0
Text = ' '
Width = 73
end
object edtCodEntidad: TcxMaskEdit
Left = 146
Top = 37
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 1
Text = ' '
Width = 73
end
object edtFechaCargo: TcxDateEdit
Left = 146
Top = 94
Left = 120
Top = 150
Properties.DateButtons = [btnToday]
Properties.ImmediatePost = True
Properties.SaveTime = False
@ -191,9 +131,64 @@ inherited fEditorExportacionNorma19: TfEditorExportacionNorma19
TabOrder = 2
Width = 167
end
object edtCodEntidad: TcxTextEdit
Left = 120
Top = 93
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 0
Text = ' '
Width = 73
end
object edtCodAgencia: TcxTextEdit
Left = 120
Top = 120
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 1
Text = ' '
Width = 73
end
object CancelBtn: TButton
Left = 301
Top = 277
Width = 75
Height = 25
Anchors = [akLeft, akRight, akBottom]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 4
OnClick = CancelBtnClick
end
object OKBtn: TButton
Left = 202
Top = 277
Width = 85
Height = 25
Action = actVolcar
Anchors = [akLeft, akRight, akBottom]
TabOrder = 3
end
object JvFilenameEdit1: TJvFilenameEdit
Left = 50
Top = 170
Left = 24
Top = 227
Width = 349
Height = 21
Flat = False
@ -201,24 +196,12 @@ inherited fEditorExportacionNorma19: TfEditorExportacionNorma19
Filter = 'Ficheros de norma 19 (*.C19)|*.C19'
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
DialogTitle = 'Volcar a disco la remesa'
TabOrder = 3
end
end
inherited ActionListDialog: TActionList
Top = 64
inherited actAceptar: TAction
Caption = '&Volcar a disco'
OnExecute = actAceptarExecute
OnUpdate = actAceptarUpdate
end
TabOrder = 5
end
object JvFormStorage: TJvFormStorage
AppStorage = JvAppRegistryStorage
AppStoragePath = 'fEditorBase\'
VersionCheck = fpvcNocheck
StoredProps.Strings = (
'edtCodAgencia.Text'
'edtCodEntidad.Text')
StoredValues = <>
Left = 80
Top = 64
@ -226,9 +209,18 @@ inherited fEditorExportacionNorma19: TfEditorExportacionNorma19
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 112
Top = 64
end
object ActionList1: TActionList
Left = 272
Top = 72
object actVolcar: TAction
Caption = 'Volcar a disco'
OnExecute = actVolcarExecute
OnUpdate = actVolcarUpdate
end
end
end

56
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
View File

@ -5,40 +5,45 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, uDialogBase,
uIEditorExportacionNorma19, JvExControls, JvComponent,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
uIEditorExportacionNorma19, JvExControls, JvComponent, JvgWizardHeader,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
type
TfEditorExportacionNorma19 = class(TfDialogBase, IEditorExportacionNorma19)
TfEditorExportacionNorma19 = class(TForm, IEditorExportacionNorma19)
OKBtn: TButton;
CancelBtn: TButton;
Image1: TImage;
edtFechaCargo: TcxDateEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtCodEntidad: TcxMaskEdit;
edtCodAgencia: TcxMaskEdit;
edtCodEntidad: TcxTextEdit;
edtCodAgencia: TcxTextEdit;
Bevel1: TBevel;
JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage;
Label1: TLabel;
Bevel12: TBevel;
Bevel2: TBevel;
JvFilenameEdit1: TJvFilenameEdit;
ActionList1: TActionList;
actVolcar: TAction;
Label5: TLabel;
Label6: TLabel;
procedure OKBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CancelBtnClick(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actAceptarUpdate(Sender: TObject);
procedure actVolcarUpdate(Sender: TObject);
procedure actVolcarExecute(Sender: TObject);
private
FFichero : String;
protected
procedure SetCodigoEntidad(const AValue: Integer);
function GetCodigoEntidad : Integer;
procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : String;
procedure SetCodigoAgencia(const AValue: Integer);
function GetCodigoAgencia : Integer;
procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : String;
procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime;
@ -46,8 +51,8 @@ type
procedure SetFichero(const AValue: String);
function GetFichero : String;
public
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad;
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia;
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
property Fichero : String read GetFichero write SetFichero;
end;
@ -62,16 +67,14 @@ uses
{ TfEditorExportacionNorma19 }
procedure TfEditorExportacionNorma19.actAceptarExecute(Sender: TObject);
procedure TfEditorExportacionNorma19.actVolcarExecute(Sender: TObject);
begin
inherited;
FFichero := JvFilenameEdit1.FileName;
ModalResult := mrOk;
end;
procedure TfEditorExportacionNorma19.actAceptarUpdate(Sender: TObject);
procedure TfEditorExportacionNorma19.actVolcarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled :=
(Length(edtCodEntidad.Text) = 4) and
(Length(edtCodAgencia.Text) = 4) and
@ -99,14 +102,14 @@ begin
edtFechaCargo.Date := Now;
end;
function TfEditorExportacionNorma19.GetCodigoAgencia: Integer;
function TfEditorExportacionNorma19.GetCodigoAgencia: String;
begin
Result := StrToInt(edtCodAgencia.Text);
Result := edtCodAgencia.Text;
end;
function TfEditorExportacionNorma19.GetCodigoEntidad: Integer;
function TfEditorExportacionNorma19.GetCodigoEntidad: String;
begin
Result := StrToInt(edtCodEntidad.Text);
Result := edtCodEntidad.Text;
end;
function TfEditorExportacionNorma19.GetFechaCargo: TDateTime;
@ -121,6 +124,7 @@ end;
procedure TfEditorExportacionNorma19.OKBtnClick(Sender: TObject);
var
ASaveDialog : TSaveDialog; // Save dialog variable
AArchivo : string;
ARuta : String;
begin
@ -165,14 +169,14 @@ begin
end;
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: Integer);
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: String);
begin
edtCodAgencia.Text := IntToStr(AValue);
edtCodAgencia.Text := AValue;
end;
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: Integer);
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: String);
begin
edtCodEntidad.Text := IntToStr(AValue);
edtCodEntidad.Text := AValue;
end;
procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime);

301
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm Normal file
View File

@ -0,0 +1,301 @@
object fEditorExportacionNorma32: TfEditorExportacionNorma32
Left = 0
Top = 0
ActiveControl = edtCodEntidad
BorderStyle = bsDialog
Caption = 'Volcado de remesas a disco (Norma 32)'
ClientHeight = 366
ClientWidth = 389
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
DesignSize = (
389
366)
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
Left = 24
Top = 144
Width = 90
Height = 13
Margins.Bottom = 0
Caption = 'Entidad receptora:'
end
object Label3: TLabel
Left = 24
Top = 171
Width = 42
Height = 13
Margins.Bottom = 0
Caption = 'Agencia:'
end
object Image1: TImage
Left = 345
Top = 15
Width = 28
Height = 28
AutoSize = True
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000002CA4944415478DAADD55F4853
511C07F0DF25C49012DA8B1085A14581E46EAD19A3D05885CA8CA251D04325BD
D89342BEF5B087E8CD0C7AA90916E5F0A558C8989935872C866C63EE4F5BB9A8
508CB27AB01552F3EE4F3BBFED1E76B7BBED8E7B7F2078CFBDDCCF39BF73EE77
8CF575280312CA785ACD4879AE5A31043C7FAABDE243CF1D61B87DC70C81D907
B2D1AA603A9D86296704548D0D70C3745780AAAFD833A189BE9A265111241897
4CC3B4EB1DE8D816887D5EA32862E12F00C1EBCA80630C03FD090E382E05AF16
62D8523A91260318BB59308DD89501138718A81FBE07639787E0E2AF8DEC2A53
F0F4851BEF8D3B5288C5FFFC8551F35CAEB5EDBB406A6B4B401E4B8C0EE1F5E3
2040DFDA3AB6F6DCCD058A91499031D201DFDB1590DA5E01588CF14550FDF20F
B860F2E27557C75E8AE5E014FEFFCCB65815A520D9B3014B295688721333D852
52DA83CD303EE9A6F7CFF6AA21B199849773D18A2882674EB4E10C2D0DF5D0CF
8A631DD15570FB23F068D286878694A08DAC39A3EFDC8FE8269704DFC35EA62C
D873EC00DD13AB6A9B00E53172DF1B7A8F60D9CF228B6A35CDE0F3AF945D2582
278FEECBED497E3F6676AA102DC4C85F20FA8182783A8B3EFC9EE137996F3FE3
150F10829D9A56FAD2647EA5F32D4D028C8C45621F05A0580EDFB2AC22681DD1
D1B1C21C4650A7DE23C004A72F3F464A0C2CFE86D9ABD308660203785D9CC308
1E69DB0D368707A4542DA0580E2358185B52AA1A187C62289BC3B27E6E447338
BE08E9ED2CDD9AE21C5616CC62B034082EA71B0E0FFEA36780CF61B21DCA829E
E3008DB997C7B2B9BEE3D26F7AE8EC4EAFC2607E753CE89A0268BDB64EBFEF59
975F3990BCB0CEDF4531BEC82AC1F01DF772DE13520624395CB71112AC8E2FB2
4A95F12B4E88CF61D920C9E186B0BE042B44B71A96690ECB6FA93609AEFB9A8A
CF6DE9FE447358362896C362D1C8C7A26CB0D61C960DD69AC3B2C15A73F83F42
0A9D9B19DC72610000000049454E44AE426082}
end
object Bevel1: TBevel
Left = 8
Top = 321
Width = 373
Height = 3
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
ExplicitTop = 328
end
object Label1: TLabel
Left = 24
Top = 264
Width = 71
Height = 13
Margins.Bottom = 0
Caption = 'Guardar como:'
end
object Bevel2: TBevel
Left = 24
Top = 245
Width = 349
Height = 3
Anchors = [akLeft, akTop, akRight]
Shape = bsBottomLine
end
object Label5: TLabel
Left = 202
Top = 144
Width = 48
Height = 13
Margins.Bottom = 0
Caption = '(4 d'#237'gitos)'
end
object Label6: TLabel
Left = 202
Top = 171
Width = 48
Height = 13
Margins.Bottom = 0
Caption = '(4 d'#237'gitos)'
end
object Label7: TLabel
Left = 24
Top = 90
Width = 65
Height = 13
Margins.Bottom = 0
Caption = 'Identificador:'
end
object Label8: TLabel
Left = 301
Top = 90
Width = 54
Height = 13
Margins.Bottom = 0
Caption = '(15 d'#237'gitos)'
end
object Label9: TLabel
Left = 24
Top = 117
Width = 69
Height = 13
Margins.Bottom = 0
Caption = 'C'#243'digo I.N.E.:'
end
object Label10: TLabel
Left = 301
Top = 117
Width = 48
Height = 13
Margins.Bottom = 0
Caption = '(9 d'#237'gitos)'
end
object Label4: TLabel
Left = 24
Top = 201
Width = 78
Height = 13
Margins.Bottom = 0
Caption = 'Fecha de cargo:'
end
object edtCodEntidad: TcxMaskEdit
Left = 120
Top = 141
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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
Text = ' '
Width = 73
end
object edtCodAgencia: TcxMaskEdit
Left = 120
Top = 168
Properties.BeepOnError = True
Properties.MaxLength = 4
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 3
Text = ' '
Width = 73
end
object CancelBtn: TButton
Left = 301
Top = 330
Width = 75
Height = 25
Anchors = [akLeft, akRight, akBottom]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 7
OnClick = CancelBtnClick
end
object OKBtn: TButton
Left = 202
Top = 330
Width = 85
Height = 25
Action = actVolcar
Anchors = [akLeft, akRight, akBottom]
TabOrder = 6
end
object JvFilenameEdit1: TJvFilenameEdit
Left = 24
Top = 283
Width = 349
Height = 21
Flat = False
ParentFlat = False
Filter = 'Ficheros de norma 32 (*.C32)|*.C32'
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
DialogTitle = 'Volcar a disco la remesa'
TabOrder = 5
end
object edtCodigoIdentif: TcxMaskEdit
Left = 120
Top = 87
Properties.BeepOnError = True
Properties.MaxLength = 15
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 0
Text = ' '
Width = 167
end
object edtINE: TcxMaskEdit
Left = 120
Top = 114
Properties.BeepOnError = True
Properties.MaxLength = 9
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 1
Text = ' '
Width = 167
end
object edtFechaCargo: TcxDateEdit
Left = 120
Top = 198
Properties.DateButtons = [btnToday]
Properties.ImmediatePost = True
Properties.SaveTime = False
Properties.ShowTime = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 4
Width = 167
end
object JvFormStorage: TJvFormStorage
AppStorage = JvAppRegistryStorage
AppStoragePath = 'fEditorBase\'
VersionCheck = fpvcNocheck
StoredProps.Strings = (
'edtCodigoIdentif.Text'
'edtINE.Text')
StoredValues = <>
Left = 80
Top = 32
end
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 112
Top = 32
end
object ActionList1: TActionList
Left = 144
Top = 32
object actVolcar: TAction
Caption = 'Volcar a disco'
OnExecute = actVolcarExecute
OnUpdate = actVolcarUpdate
end
end
end

228
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.pas Normal file
View File

@ -0,0 +1,228 @@
unit uEditorExportacionNorma32;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
uIEditorExportacionNorma32, JvExControls, JvComponent, JvgWizardHeader,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
type
TfEditorExportacionNorma32 = class(TForm, IEditorExportacionNorma32)
OKBtn: TButton;
CancelBtn: TButton;
Image1: TImage;
Label2: TLabel;
Label3: TLabel;
edtCodEntidad: TcxMaskEdit;
edtCodAgencia: TcxMaskEdit;
Bevel1: TBevel;
JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage;
Label1: TLabel;
Bevel2: TBevel;
JvFilenameEdit1: TJvFilenameEdit;
ActionList1: TActionList;
actVolcar: TAction;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
edtCodigoIdentif: TcxMaskEdit;
Label8: TLabel;
Label9: TLabel;
edtINE: TcxMaskEdit;
Label10: TLabel;
Label4: TLabel;
edtFechaCargo: TcxDateEdit;
procedure OKBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CancelBtnClick(Sender: TObject);
procedure actVolcarUpdate(Sender: TObject);
procedure actVolcarExecute(Sender: TObject);
private
FFichero : String;
protected
procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : String;
procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : String;
function GetCodigoINE: String;
procedure SetCodigoINE(const Value: String);
procedure SetCodigoIdentif(const Value: String);
function GetCodigoIdentif: String;
procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime;
procedure SetFichero(const AValue: String);
function GetFichero : String;
public
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
property CodigoINE : String read GetCodigoINE write SetCodigoINE;
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
property Fichero : String read GetFichero write SetFichero;
end;
implementation
{$R *.dfm}
uses
uDialogUtils;
{ TfEditorExportacionNorma32 }
procedure TfEditorExportacionNorma32.actVolcarExecute(Sender: TObject);
begin
FFichero := JvFilenameEdit1.FileName;
ModalResult := mrOk;
end;
procedure TfEditorExportacionNorma32.actVolcarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled :=
(Length(edtCodEntidad.Text) = 4) and
(Length(edtCodAgencia.Text) = 4) and
(Length(JvFilenameEdit1.Text) > 0)
end;
procedure TfEditorExportacionNorma32.CancelBtnClick(Sender: TObject);
begin
Close;
end;
procedure TfEditorExportacionNorma32.FormCreate(Sender: TObject);
var
APath : String;
begin
inherited;
with JvFormStorage do
begin
if Pos('_', Self.Name) = 0 then
APath := Self.Name
else
APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1));
AppStoragePath := APath;
end;
edtFechaCargo.Date := Now;
end;
function TfEditorExportacionNorma32.GetCodigoAgencia: String;
begin
Result := edtCodAgencia.Text;
end;
function TfEditorExportacionNorma32.GetCodigoEntidad: String;
begin
Result := edtCodEntidad.Text;
end;
function TfEditorExportacionNorma32.GetCodigoINE: String;
begin
Result := edtINE.Text;
end;
function TfEditorExportacionNorma32.GetFechaCargo: TDateTime;
begin
Result := edtFechaCargo.Date;
end;
function TfEditorExportacionNorma32.GetFichero: String;
begin
Result := FFichero;
end;
function TfEditorExportacionNorma32.GetCodigoIdentif: String;
begin
Result := edtCodigoIdentif.Text;
end;
procedure TfEditorExportacionNorma32.OKBtnClick(Sender: TObject);
var
ASaveDialog : TSaveDialog; // Save dialog variable
AArchivo : string;
ARuta : String;
begin
AArchivo := FFichero;
ARuta := ExtractFilePath(Application.ExeName);
// ASaveDialog := TSaveDialog.Create(nil);
// try
// ASaveDialog.Title := 'Volcar a disco la remesa';
// ASaveDialog.FileName := FFichero;
//
// ASaveDialog.InitialDir := GetCurrentDir;
//
// ASaveDialog.Filter := 'Ficheros de norma 19 (*.C19)|*.C19';
// ASaveDialog.DefaultExt := 'C19';
// ASaveDialog.FilterIndex := 1;
//
// try
// if ASaveDialog.Execute then
// begin
// FFichero := ASaveDialog.FileName;
// ModalResult := mrOk
// end
// else begin
// ModalResult := mrCancel;
// end;
// except
// on e: exception do
// ShowErrorMessage('error', 'error', e);
// end;
// finally
// FreeAndNIL(ASaveDialog);
// end;
{ if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
'c:\', 'Volcar a disco la remesa', FFichero) then}
if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
ARuta, 'Volcar a disco la remesa', AArchivo) then
ModalResult := mrOk
else
ModalResult := mrCancel;
end;
procedure TfEditorExportacionNorma32.SetCodigoAgencia(const AValue: String);
begin
edtCodAgencia.Text := AValue;
end;
procedure TfEditorExportacionNorma32.SetCodigoEntidad(const AValue: String);
begin
edtCodEntidad.Text := AValue;
end;
procedure TfEditorExportacionNorma32.SetCodigoINE(const Value: String);
begin
edtINE.Text := Value;
end;
procedure TfEditorExportacionNorma32.SetFechaCargo(const AValue: TDateTime);
begin
edtFechaCargo.Date := AValue;
end;
procedure TfEditorExportacionNorma32.SetFichero(const AValue: String);
begin
FFichero := AValue;
JvFilenameEdit1.InitialDir := ExtractFilePath(Application.ExeName);
JvFilenameEdit1.FileName := JvFilenameEdit1.InitialDir + PathDelim + FFichero;
end;
procedure TfEditorExportacionNorma32.SetCodigoIdentif(const Value: String);
begin
edtCodigoIdentif.Text := Value;
end;
end.

2
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.dproj
View File

@ -49,7 +49,7 @@
<DelphiCompile Include="FacturasCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="uDataModuleFacturasCliente.pas">
<Form>DataModuleFacturasCliente</Form>
<DesignClass>TDAClientDataModule</DesignClass>

1
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -68,6 +68,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
ServerAutoRefresh = True
end
item
Name = 'SITUACION'

20
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{D124C6A9-9125-41D5-8910-57FF495BF307}';
RID_FacturasCliente = '{1302F337-0DD8-4688-AE4A-BBEE072A6C3A}';
RID_FacturasCliente_Detalles = '{94E66444-E0C2-400F-B529-B4CD1AA4B51F}';
RID_ListaAnosFacturas = '{91A70F51-8A2E-4CB1-8479-E2046491B559}';
RID_FacturasCliente = '{55BFE5E8-07E7-482A-AA41-C238E7001A5F}';
RID_FacturasCliente_Detalles = '{E1D3C102-25EF-4055-A994-D132F6D878A4}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -161,7 +161,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{228D328D-5F59-4A81-BBE8-1CFF290D1369}']
['{4AB5D62E-B82F-4BDB-9A93-666C9A99B100}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -175,7 +175,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@ -196,7 +196,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{5FE41CBB-BFCD-4D64-B2EB-95B093C9F387}']
['{7E9BD79C-6590-4919-8E6C-CDC0A7F19DB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -491,7 +491,7 @@ type
end;
{ TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -795,7 +795,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{1189A431-E8CB-4DF3-A668-E89F49C7A393}']
['{14C55748-5968-4AEC-B4E9-33F1E1B63B13}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -893,7 +893,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }

12
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{A36E4AFD-23AD-421D-9A83-CF95673BC233}';
RID_FacturasClienteDelta = '{7450A969-1ECA-4843-9A77-57181F6C539B}';
RID_FacturasCliente_DetallesDelta = '{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}';
RID_ListaAnosFacturasDelta = '{003C9415-1DB8-4D83-8F20-A3262A54C43C}';
RID_FacturasClienteDelta = '{5EFA5DD8-59BA-41B4-BBCE-2DC0B4EC5877}';
RID_FacturasCliente_DetallesDelta = '{B41B5FE7-AA18-4D3F-8153-8E1B50331FF6}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{A36E4AFD-23AD-421D-9A83-CF95673BC233}']
['{003C9415-1DB8-4D83-8F20-A3262A54C43C}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{7450A969-1ECA-4843-9A77-57181F6C539B}']
['{5EFA5DD8-59BA-41B4-BBCE-2DC0B4EC5877}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -649,7 +649,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}']
['{B41B5FE7-AA18-4D3F-8153-8E1B50331FF6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;

1
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -281,6 +281,7 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
ServerAutoRefresh = True
end
item
Name = 'SITUACION'

81
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,5 +1,5 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451
Width = 792
Height = 304
Align = alClient
OnCreate = CustomViewCreate
@ -9,7 +9,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Width = 792
Height = 304
Align = alClient
ParentBackground = True
@ -17,8 +17,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
DesignSize = (
451
792
304)
object eReferencia: TcxDBTextEdit
Left = 135
@ -95,7 +96,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78
end
object bFormasPago: TButton
Left = 241
Left = 251
Top = 135
Width = 132
Height = 23
@ -105,7 +106,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
inline frViewTienda1: TfrViewTienda
Left = 22
Top = 215
Top = 273
Width = 351
Height = 48
Enabled = False
@ -115,10 +116,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 215
ExplicitTop = 273
ExplicitWidth = 351
ExplicitHeight = 48
inherited dxLayoutControl1: TdxLayoutControl
@ -133,7 +134,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
inline frViewClienteFactura1: TfrViewClienteFactura
Left = 401
Left = 411
Top = 30
Width = 398
Height = 265
@ -143,9 +144,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
TabOrder = 10
ReadOnly = False
ExplicitLeft = 401
ExplicitLeft = 411
ExplicitTop = 30
ExplicitWidth = 398
ExplicitHeight = 265
@ -175,16 +176,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
ExplicitLeft = 192
Left = 248
ExplicitLeft = 248
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
Left = 138
ExplicitLeft = 138
end
end
end
@ -194,6 +191,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
Properties.DateButtons = [btnClear, btnToday]
Properties.DateOnError = deNull
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -212,30 +211,30 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 344
Top = 402
Width = 521
Height = 228
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 11
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 344
ExplicitHeight = 228
ExplicitTop = 402
ExplicitHeight = 20
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitHeight = 228
Height = 228
ExplicitHeight = 20
Height = 20
end
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 22
Top = 293
Top = 351
Caption = ' No acogida a comisiones'
DataBinding.DataField = 'SIN_COMISION'
DataBinding.DataSource = DADataSource
@ -261,7 +260,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 9
Width = 158
end
object edtSituacion: TcxDBComboBox
@ -278,6 +277,23 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 2
Width = 121
end
object cxDBDateEdit1: TcxDBDateEdit
Left = 135
Top = 222
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
TabOrder = 7
Width = 121
end
object Button1: TButton
Left = 22
Top = 191
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 6
OnClick = Button1Click
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -338,6 +354,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Button1'
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'cxDBDateEdit1'
Control = cxDBDateEdit1
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical]

22
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -60,11 +60,16 @@ type
dxLayoutControl1Group9: TdxLayoutGroup;
edtSituacion: TcxDBComboBox;
ledtSituacion: TdxLayoutItem;
cxDBDateEdit1: TcxDBDateEdit;
dxLayoutControl1Item8: TdxLayoutItem;
Button1: TButton;
dxLayoutControl1Item9: TdxLayoutItem;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject);
procedure Button1Click(Sender: TObject);
protected
FFactura : IBizFacturaCliente;
FController : IFacturasClienteController;
@ -101,16 +106,16 @@ begin
inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
// cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
// edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
end;
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
cbFormaPago.Properties.OnEditValueChanged := Nil;
edtFechaVencimiento.Properties.OnEditValueChanged := Nil;
cbFormaPago.Properties.OnEditValueChanged := Nil;
inherited;
end;
@ -120,8 +125,7 @@ begin
inherited;
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then
begin
if (edtFechaVencimiento.EditingValue <> null) then
if (edtFechaVencimiento.EditValue <> null) then
begin
Application.MessageBox('Ha elegido una fecha de vencimiento, la situación de la factura vendrá dada por la situación del recibo generado con el vencimiento dado', 'Atención', MB_OK);
edtSituacion.EditValue := CTE_PENDIENTE;
@ -135,6 +139,14 @@ begin
end;
end;
procedure TfrViewFacturaCliente.Button1Click(Sender: TObject);
begin
inherited;
Factura.Edit;
Factura.DataTable.FieldByName(fld_FacturasClienteFECHA_VENCIMIENTO).AsVariant := Null;
Factura.Post;
end;
procedure TfrViewFacturaCliente.cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
begin
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then

14
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -255,7 +255,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores)
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -326,7 +326,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -367,7 +367,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@ -644,7 +644,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -995,7 +995,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@ -1192,7 +1192,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }

8
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -72,8 +72,9 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
@ -147,7 +148,7 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@ -217,7 +218,7 @@ begin
FDataModule := TDataModuleRecibosCliente.Create(Nil);
end;
procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; Referencia: String; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
begin
if Assigned(ARecibos) then
begin
@ -232,6 +233,7 @@ begin
//Añadimos el cobro automatico por la remesa y volvemos a asignar ID
//para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(Date), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
// AnadirPago(ARecibos, DateToStr(Date), Referencia, AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA;
end;
Next;

4
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj
View File

@ -49,8 +49,8 @@
<DelphiCompile Include="RecibosCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\RecibosCliente_model.dcp" />
<DCCReference Include="uDataModuleRecibosCliente.pas">
<Form>DataModuleRecibosCliente</Form>
<DesignClass>TDAClientDataModule</DesignClass>

2
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -390,8 +390,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
DisplayLabel = 'Cuenta contable'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

16
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{2F89702D-0A57-458E-9B7E-3CCF679D26D7}';
RID_RecibosCliente = '{D66B846C-B6E9-45CD-9C37-BC4AFEF5A494}';
RID_PagosCliente = '{5DDCCC46-8CE2-498F-B191-8815FE52830E}';
RID_RecibosCompensadosCli = '{A0EAE246-56FA-4187-A242-8A8407A3238E}';
RID_ListaAnosRecibos = '{4E5198B9-A3EA-41ED-876A-F20E75C77CFA}';
RID_RecibosCliente = '{47FD8329-5BE1-4334-971C-9F5BEB6F6D6E}';
RID_PagosCliente = '{8F0C7790-8AF6-4F0F-BB5A-54C49E8FEB37}';
RID_RecibosCompensadosCli = '{3645D510-70D1-4184-9DDC-96D4CF5A1288}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -231,7 +231,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{066BA7F0-73F9-4373-8B4A-FD49A4676508}']
['{FEEAB5C2-E5E2-4D30-8C71-0DCC065B480F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -266,7 +266,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{44658047-4A5E-42A9-88B1-1600D3D72B37}']
['{AFADC16A-65C2-4FF7-881E-7326C4760D9C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -757,7 +757,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
['{1F8F1BBC-3F97-4997-B3B7-E7133943DF2F}']
['{A92479D7-E796-4338-99B5-B712D903564D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -996,7 +996,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{359D0527-3629-4643-B02F-54206CC5B6AE}']
['{9A3F6FE8-550A-4465-80AD-33C323C9C9BB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

16
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{FE51F4BC-A342-47C5-B61E-61E82775F77E}';
RID_RecibosClienteDelta = '{11ED8357-34B8-4C8C-BDB0-946B20E3FB8F}';
RID_PagosClienteDelta = '{32F77F26-DB05-46BD-B22C-0E5C1A5A0F5D}';
RID_RecibosCompensadosCliDelta = '{23B5E3C8-D2CF-4798-81B4-AA7CED8E091A}';
RID_ListaAnosRecibosDelta = '{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}';
RID_RecibosClienteDelta = '{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}';
RID_PagosClienteDelta = '{968C3D29-8DDA-43CA-A2DE-75706146ECC9}';
RID_RecibosCompensadosCliDelta = '{0EC94848-6B9E-4404-AF44-E604C7182106}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{FE51F4BC-A342-47C5-B61E-61E82775F77E}']
['{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{11ED8357-34B8-4C8C-BDB0-946B20E3FB8F}']
['{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -541,7 +541,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{32F77F26-DB05-46BD-B22C-0E5C1A5A0F5D}']
['{968C3D29-8DDA-43CA-A2DE-75706146ECC9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -779,7 +779,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{23B5E3C8-D2CF-4798-81B4-AA7CED8E091A}']
['{0EC94848-6B9E-4404-AF44-E604C7182106}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;

21
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -47,15 +47,7 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'select v_recibos_cliente.*, cont_subcuentas.descripcion as CUENT' +
'A_CONTABLE'#10'from v_recibos_cliente'#10' left outer join pagos_clie' +
'nte pag on'#10' (pag.id_recibo = v_recibos_cliente.id)'#10' le' +
'ft outer join pagos_cliente pag2 on'#10' ((pag2.id_recibo = p' +
'ag.id_recibo) and (pag2.id > pag.id))'#10' left outer join cont_s' +
'ubcuentas on'#10' (cont_subcuentas.id = pag.cuenta)'#10'where (pa' +
'g2.id is null) and {Where}'#10
StatementType = stSQL
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@ -201,11 +193,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CUENTA_CONTABLE'
TableField = '<unknown>'
SQLOrigin = 'CUENTA_CONTABLE'
end
item
DatasetField = 'IMPORTE_COMPENSADO'
TableField = 'IMPORTE_COMPENSADO'
@ -213,6 +200,10 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'IMPORTE_SIN_COMPENSAR'
TableField = 'IMPORTE_SIN_COMPENSAR'
end
item
DatasetField = 'CUENTA_CONTABLE'
TableField = 'CUENTA_CONTABLE'
end>
end>
Name = 'RecibosCliente'
@ -433,8 +424,6 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
DisplayLabel = 'Cuenta contable'
end>
end
item

84
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm
View File

@ -8,7 +8,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Top = 64
Width = 949
Visible = False
ExplicitTop = -15
ExplicitTop = 64
ExplicitWidth = 949
inherited Image1: TImage
Left = 922
@ -18,12 +18,13 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
inherited TBXDock: TTBXDock
Top = 175
Width = 949
Height = 49
ExplicitTop = 111
Height = 53
ExplicitTop = 175
ExplicitWidth = 949
ExplicitHeight = 49
ExplicitHeight = 53
inherited tbxMain: TTBXToolbar
ExplicitWidth = 269
ExplicitWidth = 142
ExplicitHeight = 27
inherited TBXItem2: TTBXItem
Visible = False
end
@ -41,13 +42,13 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end
end
inherited tbxFiltro: TTBXToolbar
Left = 269
Top = 23
Left = 142
Top = 26
DockPos = 104
DockRow = 1
Visible = False
ExplicitLeft = 269
ExplicitTop = 23
ExplicitLeft = 142
ExplicitTop = 26
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
end
@ -57,19 +58,19 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end
inherited TBXTMain2: TTBXToolbar
Left = 706
Top = 23
Top = 26
DockPos = 706
DockRow = 1
Visible = False
ExplicitLeft = 706
ExplicitTop = 23
ExplicitTop = 26
end
end
inherited StatusBar: TJvStatusBar
Top = 506
Width = 949
ExplicitTop = 506
ExplicitWidth = 670
ExplicitWidth = 949
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0
@ -86,12 +87,12 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
TabOrder = 3
ReadOnly = False
ExplicitTop = 525
ExplicitWidth = 670
ExplicitWidth = 949
ExplicitHeight = 36
inherited JvFooter1: TJvFooter
Width = 949
Height = 36
ExplicitWidth = 670
ExplicitWidth = 949
ExplicitHeight = 36
inherited bSeleccionar: TJvFooterBtn
Left = 737
@ -117,18 +118,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end
end
inherited frViewRecibosCliente1: TfrViewRecibosCliente [4]
Top = 224
Top = 228
Width = 949
Height = 282
ExplicitTop = 183
ExplicitWidth = 670
ExplicitHeight = 323
Height = 278
ExplicitTop = 228
ExplicitWidth = 949
ExplicitHeight = 278
inherited cxGrid: TcxGrid
Width = 949
Height = 154
Height = 150
RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 670
ExplicitHeight = 195
ExplicitWidth = 949
ExplicitHeight = 150
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -151,37 +152,53 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 949
ExplicitWidth = 670
ExplicitWidth = 949
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 670
ExplicitWidth = 949
inherited dxLayoutControl1: TdxLayoutControl
Width = 949
ExplicitWidth = 670
ExplicitWidth = 949
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 494
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 949
ExplicitWidth = 670
ExplicitWidth = 949
inherited tbxBotones: TTBXToolbar
Width = 939
ExplicitWidth = 660
ExplicitWidth = 939
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 256
ExplicitTop = 297
ExplicitWidth = 670
Top = 252
ExplicitTop = 252
ExplicitWidth = 949
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 949
ExplicitWidth = 670
ExplicitWidth = 949
inherited TBXToolbar1: TTBXToolbar
Width = 939
ExplicitWidth = 660
ExplicitWidth = 939
end
end
end
@ -214,8 +231,6 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 5
ExplicitTop = 0
ExplicitWidth = 670
object Label1: TLabel
Left = 330
Top = 50
@ -353,7 +368,6 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Padding.Bottom = 8
ParentBackground = False
TabOrder = 6
ExplicitTop = -13
object lblTitle: TLabel
AlignWithMargins = True
Left = 25

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -213,6 +213,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Caption = 'Cuenta contable'
DataBinding.FieldName = 'CUENTA_CONTABLE'
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
VisibleForCustomization = False
end
end
inherited cxGridLevel: TcxGridLevel

90
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -24,7 +24,7 @@ type
function Existe(const ID: Integer) : Boolean;
procedure Preview(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false);
procedure Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false);
function Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean;
function EsModificable(ARemesaProveedor : IBizRemesaCliente): Boolean;
function EsEliminable(ARemesaProveedor : IBizRemesaCliente): Boolean;
@ -35,6 +35,9 @@ type
procedure RecuperarRecibos(ARemesaCliente: IBizRemesaCliente);
function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente;
function DarListaAnosRemesas: TStringList;
procedure FiltrarAno(ARemesa: IBizRemesaCliente; ADynWhereDataTable: WideString; const Ano: String);
end;
TRemesasClienteController = class(TControllerBase, IRemesasClienteController)
@ -74,24 +77,26 @@ type
procedure VerTodos(ARemesasCliente: IBizRemesaCliente); virtual;
procedure Preview(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false); virtual;
procedure Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false); virtual;
function Print(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; virtual;
function EsModificable(ARemesaProveedor : IBizRemesaCliente): Boolean;
function EsEliminable(ARemesaProveedor : IBizRemesaCliente): Boolean;
function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente; virtual;
function ElegirRecibosCliente(ARemesaCliente : IBizRemesaCliente; AListaRecibosIniciales: TStringList): Boolean;
procedure EliminarReciboCliente(ARemesaCliente : IBizRemesaCliente);
function DarListaAnosRemesas: TStringList;
procedure FiltrarAno(ARemesa: IBizRemesaCliente; ADynWhereDataTable: WideString; const Ano: String);
end;
implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, uFactuGES_App,
schRecibosClienteClient_Intf, uIEditorRemesasCliente, uIEditorRemesaCliente,
Dialogs, uDataModuleRemesasCliente, uDataModuleUsuarios, uDAInterfaces,
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uBizRecibosCliente, Variants, uRemesasClienteReportController;
uBizRecibosCliente, Variants, uRemesasClienteReportController, uIntegerListUtils;
{ TRemesasClienteController }
@ -164,6 +169,11 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TRemesasClienteController.DarListaAnosRemesas: TStringList;
begin
Result := FDataModule.GetAnosItems;
end;
procedure TRemesasClienteController.DescartarCambios(ARemesaCliente: IBizRemesaCliente);
begin
if not Assigned(ARemesaCliente) then
@ -200,11 +210,8 @@ begin
if ARemesaCliente.DataTable.FieldByName(fld_RemesasClienteFECHA_REMESA).IsNull then
raise Exception.Create('Debe indicar la fecha de esta remesa.');
{$IFDEF CONTABILIDAD}
{$ELSE}
if ARemesaCliente.ID_DATOS_BANCO < 1 then
raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
{$ENDIF}
// Asegurarse de valores en campos "automáticos"
ARemesaCliente.Edit;
@ -222,7 +229,6 @@ var
AEditor : IEditorRemesaCliente;
begin
AEditor := NIL;
RecuperarObjetos(ARemesaCliente);
CreateEditor('EditorRemesaCliente', IEditorRemesaCliente, AEditor);
@ -291,7 +297,6 @@ var
ListaRecibosVisibles: TStringList;
ListaRecibosNoVisibles: TStringList;
i: Integer;
begin
Result := False;
@ -318,6 +323,7 @@ begin
ARemesaCliente.Recibos.DataTable.First;
ARecibosSeleccionados := (FRecibosClienteController.ElegirRecibos(FRecibosClienteController.BuscarRecibosARemesar(ListaRecibosVisibles, ListaRecibosNoVisibles), 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosCliente);
if Assigned(ARecibosSeleccionados) then
begin
ShowHourglassCursor;
@ -325,7 +331,7 @@ begin
ARecibosRemesa := ARemesaCliente.Recibos;
//Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de
//las inserciones
DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True);
DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, True, False, True);
FRecibosClienteController.SetSituacionCobrados(ARecibosRemesa);
Result := True;
finally
@ -343,8 +349,8 @@ function TRemesasClienteController.Eliminar(ARemesaCliente: IBizRemesaCliente; A
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
var
bEliminado: Boolean;
begin
Result := False;
bEliminado := False;
if not Assigned(ARemesaCliente) then
@ -477,6 +483,35 @@ begin
Result := ASeleccionados;
end;
procedure TRemesasClienteController.FiltrarAno(ARemesa: IBizRemesaCliente; ADynWhereDataTable: WideString; const Ano: String);
var
Condicion: TDAWhereExpression;
FechaIni: String;
FechaFin: String;
begin
ARemesa.DataTable.DynamicWhere.Clear;
ARemesa.DataTable.DynamicWhere.Xml := ADynWhereDataTable;
if (Ano <> 'Todos') then
begin
// Filtrar las facturas actuales por empresa
FechaIni := '01/01/' + Ano;
FechaFin := '31/12/' + Ano;
with ARemesa.DataTable.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RemesasClienteFECHA_REMESA), NewConstant(FechaIni, datString), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RemesasClienteFECHA_REMESA), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
end;
end;
procedure TRemesasClienteController.FiltrarEmpresa(ARemesaCliente: IBizRemesaCliente);
var
Condicion: TDAWhereExpression;
@ -520,7 +555,7 @@ begin
//Si todo ha ido bien, asignamos la remesa a los recibos asociados
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, AIgnorarContabilidad, ASubCuenta);
RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, ARemesaCliente.REFERENCIA, AIgnorarContabilidad, ASubCuenta);
ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
//Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
@ -551,13 +586,13 @@ end;
procedure TRemesasClienteController.Preview(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
var
AReportController : IRemesasClienteReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
AReportController := TRemesasClienteReportController.Create;
try
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
if AllItems then
begin
@ -566,33 +601,34 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
AReportController.Preview(ID_Remesas.CommaText);
AReportController.Preview(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeANDNil(ID_Remesas);
end;
end;
procedure TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
function TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false): Boolean;
var
AReportController : IRemesasClienteReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
Result := False;
AReportController := TRemesasClienteReportController.Create;
try
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
if AllItems then
begin
@ -601,20 +637,20 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
AReportController.Print(ID_Remesas.CommaText);
Result := AReportController.Print(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeAndNil(ID_Remesas);
end;
end;

78
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

@ -4,25 +4,25 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasClienteReport,
uBizRemesasCliente;
uBizRemesasCliente, uIntegerListUtils;
type
IRemesasClienteReportController = interface(IControllerBase)
IRemesasClienteReportController = interface
['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}']
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
function Print(const ListaID : TIntegerList): Boolean;
end;
TRemesasClienteReportController = class(TControllerBase, IRemesasClienteReportController)
TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController)
private
FDataModule : IDataModuleRemesasClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create; override;
constructor Create;
destructor Destroy; override;
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
function Print(const ListaID : TIntegerList): Boolean;
end;
@ -30,13 +30,12 @@ implementation
uses
uROTypes, uEditorRegistryUtils, uIEditorRemesasClientePreview,
uEditorPreview, uDataModuleRemesasCliente, uEditorBase, cxControls;
uEditorPreview, uDataModuleRemesasCliente, uEditorBase, cxControls, schRemesasClienteClient_Intf;
{ TRemesasClienteReportController }
constructor TRemesasClienteReportController.Create;
begin
inherited;
FDataModule := TDataModuleRemesasCliente.Create(Nil);
end;
@ -53,30 +52,7 @@ begin
inherited;
end;
procedure TRemesasClienteReportController.Preview(const ID : String);
var
AStream: Binary;
AEditor : IEditorRemesasClientePreview;
begin
AEditor := NIL;
AStream := FDataModule.GetReport(ID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then
try
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
AEditor := NIL;
end;
finally
FreeAndNil(AStream);
end;
end;
procedure TRemesasClienteReportController.Print(const ID : String);
procedure TRemesasClienteReportController.Preview(const ListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorRemesasClientePreview;
@ -85,19 +61,49 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then
try
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
function TRemesasClienteReportController.Print(const ListaID : TIntegerList): Boolean;
var
AStream: Binary;
AEditor : IEditorRemesasClientePreview;
begin
Result := False;
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then
try
AEditor.LoadFromStream(AStream);
AEditor.Print;
Result := True;
finally
AEditor.Release;
AEditor := NIL;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;

26
Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente
Top = 84
end
object rda_RemesasCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -147,8 +147,6 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RemesasCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RemesasCliente'
IndexDefs = <>
Left = 208
@ -160,4 +158,26 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente
Left = 208
Top = 32
end
object tbl_ListaAnosRemesas: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RemesasCliente
LogicalName = 'ListaAnosRemesas'
IndexDefs = <>
Left = 328
Top = 88
end
object ds_ListaAnosRemesas: TDADataSource
DataSet = tbl_ListaAnosRemesas.Dataset
DataTable = tbl_ListaAnosRemesas
Left = 328
Top = 32
end
end

45
Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas
View File

@ -3,13 +3,13 @@ unit uDataModuleRemesasCliente;
interface
uses
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uDataModuleBase,
uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente,
uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
uDAMemDataTable;
uDAMemDataTable, uIntegerListUtils;
type
TDataModuleRemesasCliente = class(TDataModuleBase, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport)
@ -18,6 +18,8 @@ type
rda_RemesasCliente: TDARemoteDataAdapter;
tbl_RemesasCliente: TDAMemDataTable;
ds_RemesasCliente: TDADataSource;
tbl_ListaAnosRemesas: TDAMemDataTable;
ds_ListaAnosRemesas: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
@ -29,7 +31,9 @@ type
function NewItem : IBizRemesaCliente;
// Report
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
function GetAnosItems : TStringList;
end;
implementation
@ -53,9 +57,16 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleRemesasCliente.GetReport(const ID: String): Binary;
function TDataModuleRemesasCliente.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
begin
// Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(ID);
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(AParam)
finally
FreeANDNIL(AParam);
end;
end;
function TDataModuleRemesasCliente.NewItem: IBizRemesaCliente;
@ -63,6 +74,30 @@ begin
Result := GetItem(ID_NULO)
end;
function TDataModuleRemesasCliente.GetAnosItems: TStringList;
var
AListaAnos: TStringList;
begin
AListaAnos := TStringList.Create;
ShowHourglassCursor;
try
with tbl_ListaAnosRemesas do
begin
Open;
First;
while not eof do
begin
AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
Next;
end;
Close;
end;
Result := AListaAnos;
finally
HideHourglassCursor;
end;
end;
function TDataModuleRemesasCliente.GetItem(const ID: Integer): IBizRemesaCliente;
var
Condicion: TDAWhereExpression;

3
Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas
View File

@ -3,11 +3,12 @@ unit uIDataModuleRemesasCliente;
interface
uses
uBizRemesasCliente;
Classes, uBizRemesasCliente;
type
IDataModuleRemesasCliente = interface
['{9047C468-78DE-404E-9047-1125B382FE3B}']
function GetAnosItems : TStringList;
function GetItems: IBizRemesaCliente;
function GetItem(const ID : Integer) : IBizRemesaCliente;
function NewItem : IBizRemesaCliente;

4
Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas
View File

@ -3,12 +3,12 @@ unit uIDataModuleRemesasClienteReport;
interface
uses
SysUtils, Classes, uROTypes;
SysUtils, Classes, uROTypes, uIntegerListUtils;
type
IDataModuleRemesasClienteReport = interface
['{6BFFFC92-D3E0-465C-8259-645B9FE9E446}']
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
end;
implementation

83
Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas
View File

@ -3,17 +3,25 @@ unit schRemesasClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_RemesasCliente = '{DE6CB3E1-9C21-44E9-827D-18877E6C8E67}';
RID_ListaAnosRemesas = '{966B6C1C-CA0B-4466-B8C0-1E0293F1299F}';
RID_RemesasCliente = '{8BAEA7E3-ACE8-4001-BE9A-D454929BBAA6}';
{ Data table names }
nme_ListaAnosRemesas = 'ListaAnosRemesas';
nme_RemesasCliente = 'RemesasCliente';
{ ListaAnosRemesas fields }
fld_ListaAnosRemesasANO = 'ANO';
{ ListaAnosRemesas field indexes }
idx_ListaAnosRemesasANO = 0;
{ RemesasCliente fields }
fld_RemesasClienteID = 'ID';
fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA';
@ -55,9 +63,44 @@ const
idx_RemesasClienteIMPORTE_TOTAL = 17;
type
{ IListaAnosRemesas }
IListaAnosRemesas = interface(IDAStronglyTypedDataTable)
['{DE9F1FE0-2A52-45BF-98ED-8E06106A936B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
function GetANOIsNull: Boolean;
procedure SetANOIsNull(const aValue: Boolean);
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
end;
{ TListaAnosRemesasDataTableRules }
TListaAnosRemesasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRemesas)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
function GetANOIsNull: Boolean; virtual;
procedure SetANOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IRemesasCliente }
IRemesasCliente = interface(IDAStronglyTypedDataTable)
['{2D9ED2DE-5E2C-4014-BFC9-C7D6A770217A}']
['{CAE6CDBE-8183-44BB-940B-662A111BF3CD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -298,6 +341,39 @@ implementation
uses Variants, uROBinaryHelpers;
{ TListaAnosRemesasDataTableRules }
constructor TListaAnosRemesasDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaAnosRemesasDataTableRules.Destroy;
begin
inherited;
end;
function TListaAnosRemesasDataTableRules.GetANOValue: String;
begin
result := DataTable.Fields[idx_ListaAnosRemesasANO].AsString;
end;
procedure TListaAnosRemesasDataTableRules.SetANOValue(const aValue: String);
begin
DataTable.Fields[idx_ListaAnosRemesasANO].AsString := aValue;
end;
function TListaAnosRemesasDataTableRules.GetANOIsNull: boolean;
begin
result := DataTable.Fields[idx_ListaAnosRemesasANO].IsNull;
end;
procedure TListaAnosRemesasDataTableRules.SetANOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ListaAnosRemesasANO].AsVariant := Null;
end;
{ TRemesasClienteDataTableRules }
constructor TRemesasClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -689,6 +765,7 @@ end;
initialization
RegisterDataTableRules(RID_ListaAnosRemesas, TListaAnosRemesasDataTableRules);
RegisterDataTableRules(RID_RemesasCliente, TRemesasClienteDataTableRules);
end.

83
Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas
View File

@ -9,12 +9,47 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_RemesasClienteDelta = '{7503D9C6-5E94-46CA-BFCA-2C514AA6E464}';
RID_ListaAnosRemesasDelta = '{4216F36A-45C7-42E8-80AF-8ED155DE0279}';
RID_RemesasClienteDelta = '{4AAD597B-94D6-4B7E-8698-E812EDC0136D}';
type
{ IListaAnosRemesasDelta }
IListaAnosRemesasDelta = interface(IListaAnosRemesas)
['{4216F36A-45C7-42E8-80AF-8ED155DE0279}']
{ Property getters and setters }
function GetOldANOValue : String;
{ Properties }
property OldANO : String read GetOldANOValue;
end;
{ TListaAnosRemesasBusinessProcessorRules }
TListaAnosRemesasBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosRemesas, IListaAnosRemesasDelta)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
function GetANOIsNull: Boolean; virtual;
function GetOldANOValue: String; virtual;
function GetOldANOIsNull: Boolean; virtual;
procedure SetANOValue(const aValue: String); virtual;
procedure SetANOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ANO : String read GetANOValue write SetANOValue;
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
property OldANO : String read GetOldANOValue;
property OldANOIsNull : Boolean read GetOldANOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IRemesasClienteDelta }
IRemesasClienteDelta = interface(IRemesasCliente)
['{7503D9C6-5E94-46CA-BFCA-2C514AA6E464}']
['{4AAD597B-94D6-4B7E-8698-E812EDC0136D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -255,6 +290,49 @@ implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
{ TListaAnosRemesasBusinessProcessorRules }
constructor TListaAnosRemesasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaAnosRemesasBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaAnosRemesasBusinessProcessorRules.GetANOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO];
end;
function TListaAnosRemesasBusinessProcessorRules.GetANOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO]);
end;
function TListaAnosRemesasBusinessProcessorRules.GetOldANOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRemesasANO];
end;
function TListaAnosRemesasBusinessProcessorRules.GetOldANOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRemesasANO]);
end;
procedure TListaAnosRemesasBusinessProcessorRules.SetANOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO] := aValue;
end;
procedure TListaAnosRemesasBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO] := Null;
end;
{ TRemesasClienteBusinessProcessorRules }
constructor TRemesasClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@ -826,6 +904,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosRemesasDelta, TListaAnosRemesasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_RemesasClienteDelta, TRemesasClienteBusinessProcessorRules);
end.

4
Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas
View File

@ -45,7 +45,7 @@ implementation
uses
uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes,
uFactuGES_App;
uFactuGES_App, dialogs;
{ TBizRemesaCliente }
@ -91,9 +91,11 @@ procedure TBizRemesaCliente.SetRecibos(const Value: IBizRecibosCliente);
begin
FRecibos := Value;
if Assigned(FRecibos) then
begin
if not FRecibos.DataTable.Active then
FRecibos.DataTable.Active := True;
end;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_RemesaCliente, TBizRemesaCliente);

2
Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas
View File

@ -96,8 +96,8 @@ begin
Result := AReferenciasService.IncrementarValorReferencia(REF_REMESAS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, -1)
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_CLIENTE, TBizRemesasClienteServer);
end.

46
Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj
View File

@ -9,11 +9,15 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Banca electronica\Controller\BancaElectronica_controller.dproj" />
<Projects Include="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" />
<Projects Include="..\Banca electronica\Views\BancaElectronica_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
<Projects Include="Controller\RemesasCliente_controller.dproj" />
<Projects Include="Data\RemesasCliente_data.dproj" />
<Projects Include="Model\RemesasCliente_model.dproj" />
@ -80,6 +84,33 @@
<Target Name="RemesasCliente_controller:Make">
<MSBuild Projects="Controller\RemesasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="BancaElectronica_controller">
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="" />
</Target>
<Target Name="BancaElectronica_controller:Clean">
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Clean" />
</Target>
<Target Name="BancaElectronica_controller:Make">
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Make" />
</Target>
<Target Name="BancaElectronica_view">
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="" />
</Target>
<Target Name="BancaElectronica_view:Clean">
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Clean" />
</Target>
<Target Name="BancaElectronica_view:Make">
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Make" />
</Target>
<Target Name="BancaElectronica_plugin">
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="" />
</Target>
<Target Name="BancaElectronica_plugin:Clean">
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="BancaElectronica_plugin:Make">
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="Make" />
</Target>
<Target Name="RemesasCliente_view">
<MSBuild Projects="Views\RemesasCliente_view.dproj" Targets="" />
</Target>
@ -161,14 +192,23 @@
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target>
<Target Name="RemesasProveedor_view">
<MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RemesasProveedor_view:Clean">
<MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasProveedor_view:Make">
<MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;BancaElectronica_controller;BancaElectronica_view;BancaElectronica_plugin;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller;RemesasProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;BancaElectronica_plugin:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean;RemesasProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;BancaElectronica_plugin:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make;RemesasProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

702
Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
View File

File diff suppressed because it is too large Load Diff

83
Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas
View File

@ -5,17 +5,17 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces;
uDADataTable, uDAMemDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uROTypes,
uDAInterfaces, uDADataStreamer, FactuGES_Intf, uDABin2DataStreamer;
type
TRptRemesasCliente = class(TDataModule)
DADataCabecera: TDADataSource;
DADataDetalles: TDADataSource;
tbl_Cabecera: TDACDSDataTable;
tbl_Detalles: TDACDSDataTable;
DABINAdapter: TDABINAdapter;
tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
@ -26,14 +26,16 @@ type
frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
FConnection: IDAConnection;
procedure GenerarRemesa(const ID : Integer); overload;
procedure _GenerarRemesa(const ID : Integer); overload;
public
function GenerarRemesa(const ID : String): Binary; overload;
function GenerarRemesa(const ListaID : TIntegerArray): Binary;
end;
implementation
@ -41,7 +43,7 @@ implementation
{$R *.dfm}
uses
uDataModuleServer;
uDataModuleServer, uSistemaFunc;
const
rptInforme = 'InfRemesaCliente.fr3';
@ -59,59 +61,58 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADataCabecera;
frxDBCabecera.CloseDataSource := False;
frxDBDetalles.DataSource := DADataDetalles;
frxDBDetalles.CloseDataSource := False;
end;
function TRptRemesasCliente.GenerarRemesa(const ID: String): Binary;
function TRptRemesasCliente.GenerarRemesa(const ListaID : TIntegerArray): Binary;
var
ID_Remesas: TStringList;
i: Integer;
begin
Result := Binary.Create;
FConnection.BeginTransaction;
try
ID_Remesas := TStringList.Create;
ID_Remesas.CommaText := ID;
//Vamos generando todos y cada uno de los albaranes recibidos
for i := 0 to ID_Remesas.Count - 1 do
GenerarRemesa(StrToInt(ID_Remesas.Strings[i]));
for i := 0 to ListaID.Count - 1 do
_GenerarRemesa(ListaID.Items[i]);
frxReport.PreviewPages.SaveToStream(Result);
finally
FConnection.RollbackTransaction;
end;
end;
procedure TRptRemesasCliente.GenerarRemesa(const ID: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
dsDetail: IDADataset;
procedure TRptRemesasCliente.DataModuleDestroy(Sender: TObject);
begin
AStream := TMemoryStream.Create;
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
end;
procedure TRptRemesasCliente._GenerarRemesa(const ID: Integer);
var
AInforme: Variant;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_REMESA'], [ID], False);
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Detalles.ParamByName('ID_REMESA').AsInteger := ID;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarRemesa, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True);
frxReport.PrepareReport(False);
finally
AStream.Free;
dsMaster := Nil;
dsDetail := Nil;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;

27
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm
View File

@ -134,6 +134,33 @@ object srvRemesasCliente: TsrvRemesasCliente
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHA_REMESA, 1,4)) as A' +
'NO'#10'from remesas_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dist' +
'inct '#39'Todos'#39' as ANO'#10'from empresas'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'ListaAnosRemesas'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
end
item
Params = <>
Statements = <

24
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas
View File

@ -31,9 +31,9 @@ type
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
protected
{ IsrvRemesasCliente methods }
function GenerateReport(const ID: String): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -42,8 +42,7 @@ implementation
uses
{Generated:} FactuGES_Invk, uDataModuleServer,
uDatabaseUtils, schRemesasClienteClient_Intf, uRestriccionesUsuarioUtils,
uBizRemesasClienteServer,
// uRptRemesasCliente_Server,
uBizRemesasClienteServer, uRptRemesasCliente_Server,
Dialogs;
procedure Create_srvRemesasCliente(out anInstance : IUnknown);
@ -57,13 +56,15 @@ procedure TsrvRemesasCliente.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
{
if DataSet.Name = nme_RemesasCliente then
begin
{ Aquí se asegura que el usuario sólo accede a los RemesasCliente
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA);
{ FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA);
end;
}
end;
procedure TsrvRemesasCliente.DARemoteServiceCreate(Sender: TObject);
@ -78,18 +79,17 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvRemesasCliente.GenerateReport(const ID: String): Binary;
//var
// AReportGenerator : TRptRemesasCliente;
function TsrvRemesasCliente.GenerateReport(
const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptRemesasCliente;
begin
Result := NIL;
{ AReportGenerator := TRptRemesasCliente.Create(nil);
AReportGenerator := TRptRemesasCliente.Create(nil);
try
Result := AReportGenerator.GenerarRemesa(ID);
Result := AReportGenerator.GenerarRemesa(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
initialization

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

Binary file not shown.

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

@ -47,25 +47,26 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="..\..\Lib\Familias_model.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="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\BancaElectronica_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_model.dcp" />
<DCCReference Include="..\..\..\Servidor\frxTee11.dcp" />
<DCCReference Include="..\..\..\Servidor\fsTee11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\tee.dcp" />
<DCCReference Include="..\..\..\Servidor\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass>

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

@ -4,20 +4,21 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Ficha de remesa de cobro'
ClientHeight = 727
ClientWidth = 724
ClientHeight = 654
ClientWidth = 889
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 732
ExplicitHeight = 761
ExplicitWidth = 897
ExplicitHeight = 692
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 724
Width = 889
Caption = 'Remesa de cobro'
ExplicitWidth = 724
ExplicitTop = 52
ExplicitWidth = 889
inherited Image1: TImage
Left = 697
Left = 862
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -46,10 +47,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
end
inherited TBXDock: TTBXDock
Width = 724
ExplicitWidth = 724
Width = 889
ExplicitWidth = 889
inherited tbxMain: TTBXToolbar
ExplicitWidth = 440
ExplicitWidth = 664
inherited TBXItem2: TTBXItem
Visible = False
end
@ -58,14 +59,21 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
object TBXSeparatorItem6: TTBXSeparatorItem [11]
end
object TBXItem33: TTBXItem [12]
Action = actVolcarDisco
object TBXSubmenuItem3: TTBXSubmenuItem [12]
Caption = 'Volcar a disco'
DisplayMode = nbdmImageAndText
ImageIndex = 22
object TBXItem34: TTBXItem
Action = actNorma19
end
object TBXItem33: TTBXItem
Action = actNorma32
end
end
end
inherited tbxMenu: TTBXToolbar
DockPos = 0
ExplicitWidth = 724
ExplicitWidth = 889
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
Visible = False
@ -79,6 +87,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited TBXItem21: TTBXItem
Visible = False
end
inherited TBXItem22: TTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
Visible = False
end
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem
@ -100,32 +114,32 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 708
Width = 724
Top = 635
Width = 889
Panels = <
item
Width = 200
end>
ExplicitTop = 708
ExplicitWidth = 724
ExplicitTop = 635
ExplicitWidth = 889
end
inherited pgPaginas: TPageControl
Width = 718
Height = 550
Width = 883
Height = 470
MultiLine = True
ExplicitTop = 109
ExplicitWidth = 718
ExplicitHeight = 550
ExplicitTop = 112
ExplicitWidth = 883
ExplicitHeight = 460
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 710
ExplicitHeight = 522
ExplicitWidth = 875
ExplicitHeight = 432
inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0
Top = 0
Width = 710
Height = 210
Width = 875
Height = 220
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -135,58 +149,57 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 710
ExplicitHeight = 210
inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 710
Height = 220
Align = alTop
ExplicitWidth = 710
ExplicitWidth = 875
ExplicitHeight = 220
inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 875
Height = 220
ExplicitWidth = 875
ExplicitHeight = 210
DesignSize = (
710
875
220)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 326
Width = 326
ExplicitWidth = 292
Width = 292
end
inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 540
Width = 540
ExplicitWidth = 530
Width = 530
end
inherited edtFechaRemesa: TcxDBDateEdit
Left = 521
Left = 623
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521
ExplicitWidth = 170
Width = 170
ExplicitLeft = 623
ExplicitWidth = 149
Width = 149
end
inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39
Width = 39
ExplicitWidth = 530
Width = 530
end
inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
ExplicitWidth = 530
Width = 530
end
inherited frViewListaSubcuentas1: TfrViewListaSubcuentas
Width = 429
@ -198,18 +211,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
ExplicitWidth = 231
Width = 231
end
inherited eContabilizar: TcxCheckBox
Left = 453
Left = 570
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 453
ExplicitWidth = 203
Width = 203
ExplicitLeft = 570
ExplicitWidth = 136
Width = 136
end
end
end
@ -224,9 +237,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
Left = 0
Top = 210
Width = 710
Height = 312
Top = 220
Width = 875
Height = 222
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -240,15 +253,15 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
TabOrder = 1
ReadOnly = False
ExplicitTop = 210
ExplicitWidth = 710
ExplicitHeight = 312
ExplicitWidth = 875
ExplicitHeight = 222
inherited cxGrid: TcxGrid
Left = 15
Width = 680
Height = 272
Width = 845
Height = 182
ExplicitLeft = 15
ExplicitWidth = 680
ExplicitHeight = 272
ExplicitWidth = 845
ExplicitHeight = 182
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -269,18 +282,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inherited ToolBar1: TToolBar
Left = 15
Width = 680
Width = 845
ExplicitLeft = 15
ExplicitWidth = 680
ExplicitWidth = 845
end
end
end
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 662
Width = 724
Height = 46
Top = 585
Width = 889
Height = 50
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -290,25 +303,27 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitTop = 662
ExplicitWidth = 724
ExplicitHeight = 46
ExplicitTop = 585
ExplicitWidth = 889
ExplicitHeight = 50
inherited dxLayoutControl1: TdxLayoutControl
Width = 724
ExplicitWidth = 724
Width = 889
Height = 50
ExplicitWidth = 889
ExplicitHeight = 50
inherited Bevel3: TBevel
Left = 359
Left = 429
Top = 10
Height = 30
ExplicitLeft = 359
ExplicitLeft = 429
ExplicitTop = 10
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Left = 471
Left = 541
Top = 52
Width = 192
ExplicitLeft = 471
ExplicitLeft = 541
ExplicitTop = 52
ExplicitWidth = 192
end
@ -323,11 +338,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163
ExplicitTop = 37
ExplicitWidth = 93
Width = 93
ExplicitWidth = 157
Width = 157
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 542
Left = 612
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -335,23 +350,23 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 612
ExplicitTop = 87
ExplicitWidth = 137
Width = 137
ExplicitWidth = 147
Width = 147
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 472
Top = 141
Left = 542
Top = 168
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 472
ExplicitTop = 141
ExplicitWidth = 137
Width = 137
ExplicitLeft = 542
ExplicitTop = 168
ExplicitWidth = 217
Width = 217
end
inherited edtDescuento: TcxDBSpinEdit
Left = 92
@ -366,7 +381,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitTop = 37
end
inherited edtIVA: TcxDBSpinEdit
Left = 471
Left = 541
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -374,11 +389,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471
ExplicitLeft = 541
ExplicitTop = 87
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 471
Left = 541
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -386,33 +401,49 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471
ExplicitLeft = 541
ExplicitTop = 10
ExplicitWidth = 92
Width = 92
ExplicitWidth = 218
Width = 218
end
inherited edtRE: TcxDBSpinEdit
Left = 471
Top = 114
Left = 541
Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471
ExplicitLeft = 541
ExplicitTop = 141
end
inherited edtIRPF: TcxDBSpinEdit
Left = 541
Top = 114
Style.IsFontAssigned = True
ExplicitLeft = 541
ExplicitTop = 114
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 542
Top = 114
Left = 612
Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitLeft = 612
ExplicitTop = 141
ExplicitWidth = 147
Width = 147
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 612
Top = 114
Style.IsFontAssigned = True
ExplicitLeft = 612
ExplicitTop = 114
ExplicitWidth = 56
Width = 56
@ -428,8 +459,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 10
ExplicitWidth = 147
Width = 147
ExplicitWidth = 228
Width = 228
end
inherited ePorte: TcxDBCurrencyEdit
Left = 92
@ -442,8 +473,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 64
ExplicitWidth = 147
Width = 147
ExplicitWidth = 228
Width = 228
end
inherited eIVA: TcxDBLookupComboBox
Left = 92
@ -455,13 +486,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 91
ExplicitWidth = 81
Width = 81
ExplicitWidth = 90
Width = 90
end
inherited bTiposIVA: TButton
Left = 211
Left = 281
Top = 91
ExplicitLeft = 211
ExplicitLeft = 281
ExplicitTop = 91
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -474,8 +505,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 118
ExplicitWidth = 219
Width = 219
ExplicitWidth = 228
Width = 228
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -510,13 +541,19 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
end
inherited PnlComentario: TPanel [5]
Width = 724
Width = 889
ExplicitTop = 79
ExplicitWidth = 889
inherited lbComentario: TLabel
Width = 714
Width = 879
Height = 25
end
end
inherited SmallImages: TPngImageList
inherited dsDataTable: TDADataSource [6]
Left = 64
Top = 168
end
inherited SmallImages: TPngImageList [7]
PngImages = <
item
PngImage.Data = {
@ -1045,11 +1082,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Top = 0
Bitmap = {}
end
inherited dsDataTable: TDADataSource [7]
Left = 64
Top = 168
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited LargeImages: TPngImageList [8]
inherited LargeImages: TPngImageList [9]
PngImages = <
item
PngImage.Data = {
@ -1853,12 +1892,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Top = 0
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560
Top = 32
@ -1866,21 +1899,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited EditorActionList: TActionList [11]
Left = 96
Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction
Category = 'Acciones'
Caption = 'Volcar a disco...'
ImageIndex = 22
OnExecute = actVolcarDiscoExecute
OnUpdate = actVolcarDiscoUpdate
end
object actNorma19: TAction
Category = 'Acciones'
Caption = 'Norma 19'
OnExecute = actNorma19Execute
OnUpdate = actNorma19Update
end
object actNorma32: TAction
Category = 'Acciones'
Caption = 'Norma 32'
OnExecute = actNorma32Execute
OnUpdate = actNorma32Update
end
end
inherited StatusBarImages: TPngImageList
Left = 120

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

@ -14,7 +14,8 @@ uses
cxCustomData,
uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces;
uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxLabel;
type
TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente)
@ -26,8 +27,12 @@ type
actVolcarDisco: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem;
TBXItem33: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
actNorma19: TAction;
actNorma32: TAction;
TBXSubmenuItem3: TTBXSubmenuItem;
TBXItem33: TTBXItem;
TBXItem34: TTBXItem;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -38,7 +43,10 @@ type
procedure frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary(
ASender: TcxDataSummary);
procedure actVolcarDiscoUpdate(Sender: TObject);
procedure actVolcarDiscoExecute(Sender: TObject);
procedure actNorma19Execute(Sender: TObject);
procedure actNorma32Execute(Sender: TObject);
procedure actNorma19Update(Sender: TObject);
procedure actNorma32Update(Sender: TObject);
private
procedure OnRecibosChanged(Sender: TObject);
protected
@ -62,6 +70,7 @@ type
procedure PonerTitulos(const ATitulo: string = ''); override;
function GetModified: Boolean; override;
function PuedoImprimir: Boolean; override;
public
property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente;
@ -70,14 +79,13 @@ type
end;
implementation
{$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses
uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController,
uFactuGES_App;
// uBancaElectronicaController;
uFactuGES_App, uBancaElectronicaController;
{
******************************* TfEditorRemesaCliente *******************************
@ -125,13 +133,15 @@ begin
try
bEsNuevo := FRemesaCliente.EsNuevo;
{$IFDEF CONTABILIDAD}
// {$IFDEF CONTABILIDAD}
AIgnorarContabilidad := frViewRemesaCliente1.frViewListaSubCuentas1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaCliente1.frViewListaSubCuentas1.IdSubCuenta;
FController.Guardar(FRemesaCliente, AIgnorarContabilidad, ASubCuenta);
{$ELSE}
FController.Guardar(FRemesaCliente);
{$ENDIF}
// {$ELSE}
// FController.Guardar(FRemesaProveedor);
// {$ENDIF}
// FController.Guardar(FRemesaCliente);
finally
// frViewDetallesFacturaCliente1.EndUpdate;
@ -148,8 +158,8 @@ end;
procedure TfEditorRemesaCliente.ImprimirInterno;
begin
// inherited;
// FController.Print(FRemesaCliente);
inherited;
FController.Print(FRemesaCliente);
end;
procedure TfEditorRemesaCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -189,8 +199,13 @@ end;
procedure TfEditorRemesaCliente.PrevisualizarInterno;
begin
// inherited;
// FController.Preview(FRemesaCliente);
inherited;
FController.Preview(FRemesaCliente);
end;
function TfEditorRemesaCliente.PuedoImprimir: Boolean;
begin
Result := inherited PuedoImprimir and (not RemesaCliente.Recibos.IDIsNull);
end;
procedure TfEditorRemesaCliente.SetRemesaCliente(const Value: IBizRemesaCliente);
@ -296,11 +311,10 @@ begin
// HayCambios := True;
end;
procedure TfEditorRemesaCliente.actVolcarDiscoExecute(Sender: TObject);
//var
// ABancaController : IBancaElectronicaController;
procedure TfEditorRemesaCliente.actNorma19Execute(Sender: TObject);
var
ABancaController : IBancaElectronicaController;
begin
{
inherited;
ABancaController := TBancaElectronicaController.Create;
try
@ -308,7 +322,29 @@ begin
finally
ABancaController := NIL;
end;
}
end;
procedure TfEditorRemesaCliente.actNorma19Update(Sender: TObject);
begin
(Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
end;
procedure TfEditorRemesaCliente.actNorma32Execute(Sender: TObject);
var
ABancaController : IBancaElectronicaController;
begin
inherited;
ABancaController := TBancaElectronicaController.Create;
try
ABancaController.GenerarFicheroNorma32(FRemesaCliente.ID);
finally
ABancaController := NIL;
end;
end;
procedure TfEditorRemesaCliente.actNorma32Update(Sender: TObject);
begin
(Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
end;
procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject);

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

@ -1,5 +1,6 @@
inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview
Caption = 'Previsualizar la remesa'
ExplicitHeight = 547
PixelsPerInch = 96
TextHeight = 13
end

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

@ -45,12 +45,21 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
Width = 785
ExplicitWidth = 785
inherited tbxMain: TTBXToolbar
ExplicitWidth = 403
ExplicitWidth = 785
object TBXSeparatorItem17: TTBXSeparatorItem [12]
end
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
ExplicitWidth = 374
inherited lblAno: TTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
Visible = True
end
inherited sepAno: TTBXSeparatorItem
Visible = True
end
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
@ -68,8 +77,8 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end
end
inherited TBXTMain2: TTBXToolbar
Left = 334
ExplicitLeft = 334
Left = 374
ExplicitLeft = 374
end
end
inherited StatusBar: TJvStatusBar
@ -83,14 +92,18 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
ImageIndex = 24
end
inherited actPrevisualizar: TAction
Enabled = False
Visible = True
end
inherited actImprimir: TAction
Enabled = False
Visible = True
end
inherited actDuplicar: TAction
Visible = False
end
inherited actExportarExcel: TAction
Enabled = True
Visible = True
end
object actVolcarDisco: TAction
Category = 'Acciones'
Caption = 'Volcar a disco...'

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

@ -28,12 +28,16 @@ type
procedure FormShow(Sender: TObject);
procedure actVolcarDiscoExecute(Sender: TObject);
procedure actVolcarDiscoUpdate(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
private
FRemesasCliente: IBizRemesaCliente;
FController : IRemesasClienteController;
protected
function GetRemesasCliente: IBizRemesaCliente;
procedure SetRemesasCliente(const Value: IBizRemesaCliente);
function GetController : IRemesasClienteController; virtual;
procedure SetController (const Value : IRemesasClienteController); virtual;
@ -42,7 +46,7 @@ type
procedure ModificarInterno; override;
procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override;
procedure RefrescarInterno; override;
//Si queremos crear otra vista para el editor heredado solo tendriamos que
//sobreescribir este metodo
@ -72,6 +76,8 @@ uses
}
procedure TfEditorRemesasCliente.FormShow(Sender: TObject);
begin
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
inherited;
if not Assigned(ViewGrid) then
@ -82,8 +88,6 @@ begin
RemesasCliente.DataTable.Active := True;
ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end;
function TfEditorRemesasCliente.GetRemesasCliente: IBizRemesaCliente;
@ -97,7 +101,6 @@ var
ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean;
begin
{
ARemesasCliente := Nil;
AllItems := False;
@ -126,12 +129,12 @@ begin
ARemesasCliente := RemesasCliente;
if Assigned(ARemesasCliente) then
FController.Print(ARemesasCliente, AllItems);
if FController.Print(ARemesasCliente, AllItems) then
RefrescarInterno;
end;
end;
end;
end;
}
end;
function TfEditorRemesasCliente.GetController: IRemesasClienteController;
@ -152,6 +155,13 @@ begin
FController.Ver(RemesasCliente);
end;
procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject; const Text: string);
begin
Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, Text);
if RemesasCliente.DataTable.Active then
RefrescarInterno;
end;
procedure TfEditorRemesasCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
@ -166,7 +176,6 @@ var
ARemesasCliente: IBizRemesaCliente;
AllItems: Boolean;
begin
{
ARemesasCliente := Nil;
AllItems := False;
@ -200,20 +209,39 @@ begin
end;
end;
end;
}
end;
procedure TfEditorRemesasCliente.RefrescarInterno;
begin
//Volvemos a cargar los años de las remesas
if Assigned(FController) then
ListaAnos := FController.DarListaAnosRemesas;
inherited;
end;
procedure TfEditorRemesasCliente.SetRemesasCliente(const Value: IBizRemesaCliente);
begin
FRemesasCliente := Value;
if Assigned(FRemesasCliente) then
begin
//Se guarda el where de la sentencia origen, por si el editor tiene filtros que
//afecten a este where y en un futuro se desea volver al where origen (filtro de año))
DynWhereDataTable := FRemesasCliente.DataTable.DynamicWhere.Xml;
dsDataTable.DataTable := FRemesasCliente.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewRemesasCliente).RemesasCliente := RemesasCliente;
end;
end;
procedure TfEditorRemesasCliente.SetController(const Value: IRemesasClienteController);
begin
FController := Value;
if Assigned(FController) then
ListaAnos := FController.DarListaAnosRemesas;
end;
destructor TfEditorRemesasCliente.Destroy;
@ -225,7 +253,6 @@ end;
procedure TfEditorRemesasCliente.EliminarInterno;
var
ACadena : String;
ARemesas: IBizRemesaCliente;
AllItems: Boolean;
begin
@ -310,4 +337,4 @@ end;
end.

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

@ -9,7 +9,6 @@ uses
uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, uDAInterfaces;
type
@ -46,6 +45,7 @@ type
function GetController : IRemesasClienteController;
procedure SetController (const Value : IRemesasClienteController);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

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

@ -114,9 +114,8 @@ begin
{$IFDEF CONTABILIDAD}
frViewListaSubcuentas1.TipoSubCuenta := tCajas;
dxlcCuentaBancaria.visible := false;
// dxlcCuentaBancaria.visible := false;
dxlcCuentaContable.Visible := true;
if Assigned(AppFactuGES.EjercicioActivo) then
begin
frViewListaSubcuentas1.eContabilizar.Checked := False;
@ -125,7 +124,6 @@ begin
begin
frViewListaSubcuentas1.eContabilizar.Checked := True;
end;
{$ELSE}
dxlcCuentaBancaria.visible := true;
dxlcCuentaContable.Visible := false;

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

@ -33,9 +33,9 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
Column = cxGridViewIMPORTE_TOTAL
end>
OptionsBehavior.PullFocusing = True
object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID'
inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
@ -52,8 +52,6 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
end
object cxGridViewNOMBRE: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE'
Visible = False
VisibleForCustomization = False
Width = 147
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
@ -64,22 +62,18 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
object cxGridViewENTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'ENTIDAD'
Visible = False
VisibleForCustomization = False
end
object cxGridViewSUCURSAL: TcxGridDBColumn
DataBinding.FieldName = 'SUCURSAL'
Visible = False
VisibleForCustomization = False
end
object cxGridViewDC: TcxGridDBColumn
DataBinding.FieldName = 'DC'
Visible = False
VisibleForCustomization = False
end
object cxGridViewCUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe'
@ -91,6 +85,34 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 221
Width = 221
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 394
ExplicitTop = 394
@ -199,82 +221,23 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000011A4944415478DA
63FCFFFF3F032580916203966D3945B60991DEA68C6003D4BD9919269F4CC6AA
E8F7DFBF0CDFFFFC61F8F6FB37C3C71F3FC0ECB9FE5B19523CE6309CDB310D61
0008C00C996B760EC3209B6D7270CD208062C02E9134B8429866E6534C1081AB
0C0C7F13FF81999A6B4519BE035D02728DDCB204220CB80A118319A0B04200AC
19843556A762370024B9DCFA328617903583BC62B83E13350C40FE074B421581
70EF05569C31907DD8036140F7E4F9180AA6DAEE60B04CAE6660905064F8717C
2AC3F97DE719E6EE7BCE30A5C50BCE9EB3F73B23232E1B8EB528861E7CADB6EA
CEE58358E5939D24C32CABEFADC667C07F8A5D00A456811452D505208D5635F7
5783D480F211C92E98BBEF075C0FD8004A73230074DEE0E1BE54FBD500000000
49454E44AE426082}
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
16FA1194E3DBC30000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
Bitmap = {}
end
object PngImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000022E4944415478DA
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000001274944415478DA
DD923D4A035110C7FFAB60A208795B585865636795A4538CF0F4089A3EC113E4
0E5E20E00536584AD2682382BBA085A0984DC0D6B72FA0310AD9599068045947
B052F015A97460986198F9315F5692249844AC7F08B02C0BDBA725C96E95557E
857D56B7B979EEFFC8FF1E287BEB5208515FB49D3C5B2420B455802985CE2B50
3BD83AF34D00773957A8AC391B78E1E23E29DC50805069BC29344E76BA551320
5C2DCAEC92C88128C21D425C33208A34665A421FEF761D2360A558C8CE4160C8
1DDC33E096343477906A6574B0D73302DC944045D8027D068C10631C119EDA31
E6BD4CE362BF671C41CE46A80FED383F1284078A31AD80670F9D054AD72E0F07
BF2FF1F38CE5664912C555DEBC1C10214DF0DF69EC5E1D3D9ACF38F123FD3DC0
07A932AEE15E52559F0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 160
Top = 32
Bitmap = {}
end
end

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

@ -14,7 +14,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces;
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase;
type
IViewRemesasCliente = interface(IViewGrid)
@ -25,8 +25,6 @@ type
end;
TfrViewRemesasCliente = class(TfrViewGrid, IViewRemesasCliente)
PngImageList: TPngImageList;
cxGridViewRecID: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewFECHA_REMESA: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn;
@ -47,7 +45,8 @@ type
implementation
uses uDataModuleRemesasCliente;
uses
uDataModuleRemesasCliente, cxVariants;
{$R *.dfm}
@ -57,6 +56,7 @@ uses uDataModuleRemesasCliente;
{
******************************* TfrViewRemesasCliente *******************************
}
function TfrViewRemesasCliente.GetRemesasCliente: IBizRemesaCliente;
begin
Result := FRemesasCliente;
@ -69,5 +69,4 @@ begin
dsDataSource.DataTable := FRemesasCliente.DataTable;
end;
end.

692
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm
View File

File diff suppressed because it is too large Load Diff

96
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas
View File

@ -7,15 +7,15 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces;
uDAInterfaces, uDADataStreamer, FactuGES_Intf, uDABin2DataStreamer,
uDAMemDataTable;
type
TRptRemesasProveedor = class(TDataModule)
DADataCabecera: TDADataSource;
DADataDetalles: TDADataSource;
tbl_Cabecera: TDACDSDataTable;
tbl_Detalles: TDACDSDataTable;
DABINAdapter: TDABINAdapter;
tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
@ -25,15 +25,17 @@ type
frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
FConnection: IDAConnection;
procedure GenerarRemesa(const ID : Integer); overload;
procedure _GenerarRemesa(const ID : Integer); overload;
public
function GenerarRemesa(const ID : String): Binary; overload;
function GenerarRemesa(const ListaID : TIntegerArray): Binary; overload;
end;
implementation
@ -41,7 +43,7 @@ implementation
{$R *.dfm}
uses
uDataModuleServer;
uDataModuleServer, uSistemaFunc;
const
rptInforme = 'InfRemesaProveedor.fr3';
@ -59,60 +61,60 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADataCabecera;
frxDBCabecera.CloseDataSource := False;
frxDBDetalles.DataSource := DADataDetalles;
frxDBDetalles.CloseDataSource := False;
end;
function TRptRemesasProveedor.GenerarRemesa(const ID: String): Binary;
function TRptRemesasProveedor.GenerarRemesa(const ListaID : TIntegerArray): Binary;
var
ID_Remesas: TStringList;
i: Integer;
begin
Result := Binary.Create;
FConnection.BeginTransaction;
try
ID_Remesas := TStringList.Create;
ID_Remesas.CommaText := ID;
//Vamos generando todos y cada uno de los albaranes recibidos
for i := 0 to ID_Remesas.Count - 1 do
GenerarRemesa(StrToInt(ID_Remesas.Strings[i]));
for i := 0 to ListaID.Count - 1 do
_GenerarRemesa(ListaID.Items[i]);
frxReport.PreviewPages.SaveToStream(Result);
finally
FConnection.RollbackTransaction;
end;
end;
procedure TRptRemesasProveedor.GenerarRemesa(const ID: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
dsDetail: IDADataset;
procedure TRptRemesasProveedor.DataModuleDestroy(Sender: TObject);
begin
AStream := TMemoryStream.Create;
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_REMESA'], [ID], False);
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);
finally
AStream.Free;
dsMaster := Nil;
dsDetail := Nil;
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
end;
procedure TRptRemesasProveedor._GenerarRemesa(const ID: Integer);
var
AInforme: Variant;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Detalles.ParamByName('ID_REMESA').AsInteger := ID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarRemesa, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True);
frxReport.PrepareReport(False);
finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
end.

17
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas
View File

@ -34,7 +34,7 @@ type
private
protected
{ IsrvRemesasProveedor methods }
function GenerateReport(const ID: String): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -44,7 +44,7 @@ uses
{Generated:} FactuGES_Invk, uDataModuleServer,
uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizRemesasProveedorServer,
//uRptRemesasProveedor_Server,
uRptRemesasProveedor_Server,
Dialogs;
procedure Create_srvRemesasProveedor(out anInstance : IUnknown);
@ -79,21 +79,20 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvRemesasProveedor.GenerateReport(const ID: String): Binary;
//var
// AReportGenerator : TRptRemesasProveedor;
function TsrvRemesasProveedor.GenerateReport(
const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptRemesasProveedor;
begin
Result := NIL;
{
AReportGenerator := TRptRemesasProveedor.Create(nil);
try
Result := AReportGenerator.GenerarRemesa(ID);
Result := AReportGenerator.GenerarRemesa(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
initialization
TROClassFactory.Create('srvRemesasProveedor', Create_srvRemesasProveedor, TsrvRemesasProveedor_Invoker);

142
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -9,7 +9,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 707
ExplicitHeight = 657
ExplicitHeight = 661
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -49,7 +49,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 699
ExplicitWidth = 699
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
ExplicitWidth = 370
inherited TBXItem2: TTBXItem
Visible = False
end
@ -111,21 +111,21 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end
inherited pgPaginas: TPageControl
Width = 693
Height = 446
Height = 443
MultiLine = True
ExplicitTop = 109
ExplicitTop = 112
ExplicitWidth = 693
ExplicitHeight = 446
ExplicitHeight = 443
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 685
ExplicitHeight = 418
ExplicitHeight = 415
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
Left = 0
Top = 210
Width = 685
Height = 208
Height = 205
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -137,12 +137,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ReadOnly = False
ExplicitTop = 210
ExplicitWidth = 685
ExplicitHeight = 208
ExplicitHeight = 205
inherited cxGrid: TcxGrid
Width = 685
Height = 183
Height = 180
ExplicitWidth = 685
ExplicitHeight = 183
ExplicitHeight = 180
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -161,18 +161,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited ToolBar1: TToolBar
Width = 685
ExplicitWidth = 685
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
inline frViewRemesaProveedor1: TfrViewRemesaProveedor
@ -213,12 +201,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 108
end
inherited edtFechaRemesa: TcxDBDateEdit
Left = 419
Left = 418
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419
ExplicitLeft = 418
ExplicitWidth = 170
Width = 170
end
@ -247,18 +235,18 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
ExplicitWidth = 231
Width = 231
end
inherited eContabilizar: TcxCheckBox
Left = 424
Left = 427
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 424
ExplicitWidth = 203
Width = 203
ExplicitLeft = 427
ExplicitWidth = 136
Width = 136
end
end
end
@ -287,18 +275,18 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 699
ExplicitWidth = 699
inherited Bevel3: TBevel
Left = 347
Left = 318
Top = 10
Height = 30
ExplicitLeft = 347
ExplicitLeft = 318
ExplicitTop = 10
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Left = 459
Left = 430
Top = 52
Width = 192
ExplicitLeft = 459
ExplicitLeft = 430
ExplicitTop = 52
ExplicitWidth = 192
end
@ -313,11 +301,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163
ExplicitTop = 37
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 530
Left = 501
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -325,23 +311,19 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 530
ExplicitLeft = 501
ExplicitTop = 87
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 460
Top = 141
Left = 431
Top = 168
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 460
ExplicitTop = 141
ExplicitWidth = 137
Width = 137
ExplicitLeft = 431
ExplicitTop = 168
end
inherited edtDescuento: TcxDBSpinEdit
Left = 92
@ -356,7 +338,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitTop = 37
end
inherited edtIVA: TcxDBSpinEdit
Left = 459
Left = 430
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -364,11 +346,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459
ExplicitLeft = 430
ExplicitTop = 87
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 459
Left = 430
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@ -376,36 +358,46 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459
ExplicitLeft = 430
ExplicitTop = 10
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 459
Top = 114
Left = 430
Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459
ExplicitLeft = 430
ExplicitTop = 141
end
inherited edtIRPF: TcxDBSpinEdit
Left = 430
Top = 114
Style.IsFontAssigned = True
ExplicitLeft = 430
ExplicitTop = 114
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 530
Top = 114
Left = 501
Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 530
ExplicitLeft = 501
ExplicitTop = 141
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 501
Top = 114
Style.IsFontAssigned = True
ExplicitLeft = 501
ExplicitTop = 114
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92
@ -418,8 +410,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 10
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Left = 92
@ -432,8 +422,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 64
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Left = 92
@ -445,13 +433,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 91
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 199
Left = 170
Top = 91
ExplicitLeft = 199
ExplicitLeft = 170
ExplicitTop = 91
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -464,8 +450,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92
ExplicitTop = 118
ExplicitWidth = 219
Width = 219
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -502,6 +486,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited PnlComentario: TPanel [5]
Width = 699
ExplicitWidth = 699
inherited lbComentario: TLabel
Width = 689
Height = 25
end
end
inherited dsDataTable: TDADataSource [6]
Left = 64
@ -1311,13 +1299,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Top = 0
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited SmallImages: TPngImageList [9]
inherited SmallImages: TPngImageList [8]
PngImages = <
item
PngImage.Data = {
@ -1846,6 +1828,12 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Top = 0
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560
Top = 32

15
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas
View File

@ -40,8 +40,10 @@ type
ASender: TcxDataSummary);
procedure actVolcarDiscoUpdate(Sender: TObject);
procedure actVolcarDiscoExecute(Sender: TObject);
private
procedure OnRecibosChanged(Sender: TObject);
protected
FController : IRemesasProveedorController;
FRemesaProveedor: IBizRemesaProveedor;
@ -112,6 +114,9 @@ end;
procedure TfEditorRemesaProveedor.GuardarInterno;
var
bEsNuevo : Boolean;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin
inherited;
bEsNuevo := False;
@ -123,15 +128,13 @@ begin
try
bEsNuevo := FRemesaProveedor.EsNuevo;
{$IFDEF CONTABILIDAD}
// {$IFDEF CONTABILIDAD}
AIgnorarContabilidad := frViewRemesaProveedor1.frViewListaSubCuentas1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaProveedor1.frViewListaSubCuentas1.IdSubCuenta;
FController.Guardar(FRemesaProveedor, AIgnorarContabilidad, ASubCuenta);
{$ELSE}
FController.Guardar(FRemesaProveedor);
{$ENDIF}
FController.Guardar(FRemesaProveedor);
// {$ELSE}
// FController.Guardar(FRemesaProveedor);
// {$ENDIF}
finally
// frViewDetallesFacturaProveedor1.EndUpdate;

8
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm
View File

@ -184,8 +184,8 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 80
ExplicitWidth = 376
Width = 376
ExplicitWidth = 231
Width = 231
end
inherited eContabilizar: TcxCheckBox
Left = 278
@ -195,8 +195,8 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 278
ExplicitWidth = 203
Width = 203
ExplicitWidth = 136
Width = 136
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem

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

@ -114,7 +114,7 @@ begin
{$IFDEF CONTABILIDAD}
frViewListaSubcuentas1.TipoSubCuenta := tCajas;
dxlcCuentaBancaria.visible := false;
// dxlcCuentaBancaria.visible := false;
dxlcCuentaContable.Visible := true;
if Assigned(AppFactuGES.EjercicioActivo) then

6
Source/Servicios/FactuGES.RODL
View File

@ -272,7 +272,7 @@
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="ID" DataType="AnsiString" Flag="In" >
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
</Parameters>
</Operation>
@ -288,7 +288,7 @@
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="ID" DataType="AnsiString" Flag="In" >
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
</Parameters>
</Operation>
@ -386,6 +386,8 @@
</Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">

23
Source/Servicios/FactuGES_Intf.pas
View File

@ -480,7 +480,7 @@ type
{ IsrvRemesasCliente }
IsrvRemesasCliente = interface(IDataAbstractService)
['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}']
function GenerateReport(const ID: AnsiString): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ CosrvRemesasCliente }
@ -493,13 +493,13 @@ type
protected
function __GetInterfaceName:string; override;
function GenerateReport(const ID: AnsiString): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ IsrvRemesasProveedor }
IsrvRemesasProveedor = interface(IDataAbstractService)
['{6540A037-9847-4650-89BB-7B349C6004DF}']
function GenerateReport(const ID: AnsiString): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ CosrvRemesasProveedor }
@ -512,7 +512,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerateReport(const ID: AnsiString): Binary;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ IsrvFacturasCliente }
@ -596,7 +596,7 @@ type
{ IsrvAlbaranesCliente }
IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -610,7 +610,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -1771,12 +1771,12 @@ begin
result := 'srvRemesasCliente';
end;
function TsrvRemesasCliente_Proxy.GenerateReport(const ID: AnsiString): Binary;
function TsrvRemesasCliente_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ID', TypeInfo(AnsiString), ID, []);
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1802,12 +1802,12 @@ begin
result := 'srvRemesasProveedor';
end;
function TsrvRemesasProveedor_Proxy.GenerateReport(const ID: AnsiString): Binary;
function TsrvRemesasProveedor_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ID', TypeInfo(AnsiString), ID, []);
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1977,13 +1977,14 @@ begin
result := 'srvAlbaranesCliente';
end;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

26
Source/Servicios/FactuGES_Invk.pas
View File

@ -857,17 +857,18 @@ begin
end;
procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ID: AnsiString): Binary; }
{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
var
ID: AnsiString;
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ID', TypeInfo(AnsiString), ID, []);
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ID);
lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -877,6 +878,7 @@ begin
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
@ -893,17 +895,18 @@ begin
end;
procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ID: AnsiString): Binary; }
{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
var
ID: AnsiString;
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ID', TypeInfo(AnsiString), ID, []);
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ID);
lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -913,6 +916,7 @@ begin
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
@ -1113,10 +1117,11 @@ begin
end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1125,8 +1130,9 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerLogotipo);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

34
Source/Servidor/FactuGES_Server.dpr
View File

@ -104,8 +104,6 @@ uses
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
@ -113,10 +111,16 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@ -126,20 +130,18 @@ uses
schSubfamiliasServer_Intf in '..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

13
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,6 +29,9 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de mayo de 2013 10:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -224,6 +227,10 @@
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
@ -231,6 +238,10 @@
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>