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

Version 4.0.3

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@82 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-10-06 10:32:34 +00:00
parent fdc9033b3c
commit e07ae69e14
93 changed files with 3172 additions and 1090 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.

8
Build/Build.fbpInf
View File

@ -1,6 +1,6 @@
<project ServerProjectName=""> <project ServerProjectName="">
<watches/> <watches/>
<collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{C61122F3-C791-4A88-8A9F-53A4F282AC6F},{E8E8671F-894B-4049-B4A6-905B57207637}</collapsedNodes> <collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{E8E8671F-894B-4049-B4A6-905B57207637}</collapsedNodes>
<breakpoints></breakpoints> <breakpoints></breakpoints>
<actions/> <actions/>
<propertysets/> <propertysets/>
@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:28:48</LastBuildRun> <LastBuildRun>00:00:01</LastBuildRun>
<LastBuildStart>17/09/2010 19:01:29</LastBuildStart> <LastBuildStart>01/10/2010 18:26:31</LastBuildStart>
<LastBuildState>False</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

14
Database/scripts/factuges.sql
View File

@ -1102,7 +1102,9 @@ CREATE TABLE PROVEEDORES_DATOS (
SUBCONTRATA TIPO_BOOLEANO, SUBCONTRATA TIPO_BOOLEANO,
VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT VENCIMIENTO_FACTURAS_3 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT,
PAIS VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE PROVEEDORES_GRUPOS ( CREATE TABLE PROVEEDORES_GRUPOS (
@ -3306,8 +3308,6 @@ FROM
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_FACTURA) LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_FACTURA)
; ;
/* View: V_PROVEEDORES */ /* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES( CREATE VIEW V_PROVEEDORES(
ID, ID,
@ -3347,7 +3347,8 @@ CREATE VIEW V_PROVEEDORES(
EMAIL_ADMINISTRACION, EMAIL_ADMINISTRACION,
VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3) VENCIMIENTO_FACTURAS_3,
PAIS)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -3387,7 +3388,8 @@ SELECT
PROVEEDORES_DATOS.EMAIL_ADMINISTRACION, PROVEEDORES_DATOS.EMAIL_ADMINISTRACION,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1, PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2, PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3 PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3,
PROVEEDORES_DATOS.PAIS
FROM FROM
V_CONTACTOS V_CONTACTOS
@ -3396,8 +3398,6 @@ WHERE
V_CONTACTOS.ID_CATEGORIA = 2 V_CONTACTOS.ID_CATEGORIA = 2
; ;
/* View: V_REC_CLI_COMPENSADOS */ /* View: V_REC_CLI_COMPENSADOS */
CREATE VIEW V_REC_CLI_COMPENSADOS( CREATE VIEW V_REC_CLI_COMPENSADOS(
ID_RECIBO, ID_RECIBO,

104
Source/Base/Base.dproj
View File

@ -58,63 +58,63 @@
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas"> <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form> <Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <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\cxExportD11.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\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.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\dxCoreD11.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\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\RemObjects_Indy_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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,0,0,0 FILEVERSION 4,0,3,0
PRODUCTVERSION 4,0,0,0 PRODUCTVERSION 4,0,3,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.0.0.0\0" VALUE "FileVersion", "4.0.3.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.0.0.0\0" VALUE "ProductVersion", "4.0.3.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uBootStrap.pas
View File

@ -54,7 +54,7 @@ begin
// LoadModule('GestorInformes_plugin.bpl'); // LoadModule('GestorInformes_plugin.bpl');
LoadModule('Comisiones_plugin.bpl'); LoadModule('Comisiones_plugin.bpl');
LoadModule('BancaElectronica_plugin.bpl');
LoadModule('TiendaWeb_plugin.bpl'); LoadModule('TiendaWeb_plugin.bpl');
end; end;
end; end;

2
Source/Informes/1/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

61
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -3,7 +3,7 @@ unit schAlbaranesClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -179,7 +179,7 @@ type
end; end;
{ TListaAnosAlbaranesDataTableRules } { TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -500,7 +500,7 @@ type
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -915,7 +915,7 @@ type
end; end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

17
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
View File

@ -9,8 +9,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Top = 139 Top = 139
Width = 790 Width = 790
Visible = False Visible = False
ExplicitLeft = -8 ExplicitTop = 139
ExplicitTop = 280
ExplicitWidth = 790 ExplicitWidth = 790
inherited Image1: TImage inherited Image1: TImage
Left = 763 Left = 763
@ -20,12 +19,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 64 Top = 64
Width = 790 Width = 790
ExplicitTop = 91 ExplicitTop = 64
ExplicitWidth = 790 ExplicitWidth = 790
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 359 Left = 359
ExplicitLeft = 359 ExplicitLeft = 359
ExplicitWidth = 263 ExplicitWidth = 126
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -86,9 +85,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitWidth = 790 ExplicitWidth = 790
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 318 Left = 96
Visible = False Visible = False
ExplicitLeft = 318 ExplicitLeft = 96
ExplicitWidth = 694
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -109,7 +109,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
@ -190,6 +189,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end end
end end
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]
inherited actEnviarEMail: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList [6]
end end

13
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -254,6 +254,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638 ExplicitLeft = 638
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -272,6 +274,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 464 Top = 464
Visible = True
ExplicitTop = 464 ExplicitTop = 464
ExplicitWidth = 802 ExplicitWidth = 802
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -290,6 +293,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object TBXItem2: TTBXItem object TBXItem2: TTBXItem
Action = actAlmacenes Action = actAlmacenes
end end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actAgentes
end
end end
end end
end end
@ -342,6 +350,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
OnExecute = actAlmacenesExecute OnExecute = actAlmacenesExecute
OnUpdate = actAlmacenesUpdate OnUpdate = actAlmacenesUpdate
end end
object actAgentes: TAction
Caption = 'Agentes'
OnExecute = actAgentesExecute
OnUpdate = actAgentesUpdate
end
end end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <

25
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -64,6 +64,9 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn; cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewAGENTE: TcxGridDBColumn; cxGridViewAGENTE: TcxGridDBColumn;
cxGridLevelBloqueados: TcxGridLevel; cxGridLevelBloqueados: TcxGridLevel;
actAgentes: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -88,6 +91,8 @@ type
procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView; procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean); var ADone: Boolean);
procedure actAgentesExecute(Sender: TObject);
procedure actAgentesUpdate(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -111,6 +116,26 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrViewAlbaranesCliente.actAgentesExecute(Sender: TObject);
begin
if (cxGridViewAGENTE.GroupIndex < 0) then
begin
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewAGENTE.Visible := False;
end
else
begin
cxGridViewAGENTE.GroupIndex := -1;
cxGridViewAGENTE.Visible := True;
end;
end;
procedure TfrViewAlbaranesCliente.actAgentesUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
end;
procedure TfrViewAlbaranesCliente.actAlmacenesExecute(Sender: TObject); procedure TfrViewAlbaranesCliente.actAlmacenesExecute(Sender: TObject);
begin begin
if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then

21
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
View File

@ -4,6 +4,7 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 286 Height = 286
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitHeight = 286 ExplicitHeight = 286
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
@ -17,24 +18,42 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
Caption = '' Caption = ''
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Caption = 'Generales' Caption = 'Otros proveedores'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 225 Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225 ExplicitLeft = 225
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 383 Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383 ExplicitLeft = 383
ExplicitWidth = 322 ExplicitWidth = 322
Width = 322 Width = 322

4
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos,
dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uViewFiltroBase, uDAInterfaces, uViewArticulos; uViewFiltroBase, uDAInterfaces, uViewArticulos, uCustomView, uViewBase;
type type
IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos) IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos)
@ -57,7 +57,7 @@ begin
0 : if Assigned(FProveedor) then 0 : if Assigned(FProveedor) then
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE); FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE);
1 : if Assigned(FProveedor) then 1 : if Assigned(FProveedor) then
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, Null, 'ARTICULOS SIN PROVEEDOR'); FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE);
end; end;
end; end;

14
Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
View File

@ -90,8 +90,20 @@ begin
end; end;
procedure TfrViewProveedorArticulo.PrecioNetoChanged(Sender: TObject); procedure TfrViewProveedorArticulo.PrecioNetoChanged(Sender: TObject);
var
APrecioCoste: Double;
ADescuento: Double;
begin begin
ePrecioNeto.EditValue := ePrecioCoste.EditValue - ((ePrecioCoste.EditValue * eDescuento.EditValue)/100) APrecioCoste := 0;
ADescuento := 0;
if not varIsNull(ePrecioCoste.EditValue) then
APrecioCoste := ePrecioCoste.EditValue;
if not varIsNull(eDescuento.EditValue) then
ADescuento := eDescuento.EditValue;
ePrecioNeto.EditValue := APrecioCoste - ((APrecioCoste * ADescuento)/100)
end; end;
end. end.

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

Binary file not shown.

66
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> <PropertyGroup>
<ProjectGuid>{d465978e-860e-4eb2-9a25-2afb559e8e07}</ProjectGuid> <ProjectGuid>{d465978e-860e-4eb2-9a25-2afb559e8e07}</ProjectGuid>
<MainSource>BancaElectronica_controller.dpk</MainSource> <MainSource>BancaElectronica_controller.dpk</MainSource>
@ -39,72 +40,35 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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>
<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>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="BancaElectronica_controller.dpk"> <DelphiCompile Include="BancaElectronica_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\Utiles\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Utiles\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\Utiles\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\Utiles\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\CVBNorma1958CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma19CSB.pas" /> <DCCReference Include="..\Utiles\CVBNorma19CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma32CSB.pas" />
<DCCReference Include="..\Utiles\CVBNorma34CSB.pas" /> <DCCReference Include="..\Utiles\CVBNorma34CSB.pas" />
<DCCReference Include="..\Utiles\CVBUtils.pas" /> <DCCReference Include="..\Utiles\CVBUtils.pas" />
<DCCReference Include="..\Utiles\GUIBase.dcp" />
<DCCReference Include="..\Utiles\RemesasCliente_controller.dcp" />
<DCCReference Include="..\Utiles\RemesasCliente_model.dcp" />
<DCCReference Include="..\Utiles\rtl.dcp" />
<DCCReference Include="..\Utiles\vcl.dcp" />
<DCCReference Include="uBancaElectronicaController.pas" /> <DCCReference Include="uBancaElectronicaController.pas" />
<DCCReference Include="View\uIEditorExportacionNorma19.pas" /> <DCCReference Include="View\uIEditorExportacionNorma19.pas" />
<DCCReference Include="View\uIEditorExportacionNorma32.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

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

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

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

Binary file not shown.

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

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

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

@ -26,34 +26,41 @@ unit uBancaElectronicaController;
interface interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase; Classes, SysUtils, uDADataTable;
type type
IBancaElectronicaController = interface(IControllerBase) IBancaElectronicaController = interface
['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}'] ['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
procedure GenerarFicheroNorma19 (const IDRemesa : Integer); procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
end; end;
TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController) TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
private private
function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer; function VerEditorNorma19(var Entidad : String; var Oficina : String;
var AFechaCargo : TDateTime; var AFileName : String): Boolean; 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 public
procedure GenerarFicheroNorma19 (const IDRemesa : Integer); procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
end; end;
implementation implementation
uses uses
cxControls, Controls, Windows, Forms, cxControls, Controls, Windows,
CVBNorma1958CSB, CVBNorma1958CSB, CVBNorma32CSB,
uEditorRegistryUtils, uEditorRegistryUtils,
uBizEmpresas, uEmpresasController, uBizEmpresas, uEmpresasController,
uBizContactos, uClientesController, uBizContactos, uClientesController,
uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf, uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf,
schRecibosClienteClient_Intf, Dialogs, schRecibosClienteClient_Intf, Dialogs,
uIEditorExportacionNorma19; uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente,
schContactosClient_Intf, schEmpresasClient_Intf;
{ TBancaElectronicaController } { TBancaElectronicaController }
@ -71,14 +78,15 @@ var
ANorma19 : TCVBNorma1958CSB; ANorma19 : TCVBNorma1958CSB;
I: integer; I: integer;
AEntidad : Integer; AEntidad : String;
AOficina : Integer; AOficina : String;
begin begin
ARemesasController := TRemesasClienteController.Create; ARemesasController := TRemesasClienteController.Create;
AEmpresasController := TEmpresasController.Create; AEmpresasController := TEmpresasController.Create;
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
ANorma19 := TCVBNorma1958CSB.Create(NIL); ANorma19 := TCVBNorma1958CSB.Create(NIL);
ShowHourglassCursor;
try try
ARemesa := ARemesasController.Buscar(IDRemesa); ARemesa := ARemesasController.Buscar(IDRemesa);
ARemesa.DataTable.Active := True; ARemesa.DataTable.Active := True;
@ -96,16 +104,27 @@ begin
ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19'; ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19';
ANorma19.FecAbono := ARemesa.FECHA_REMESA; 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; Exit;
ANorma19.EntRecepPres := IntToStr(AEntidad); ANorma19.EntRecepPres := AEntidad;
ANorma19.OfiRecepPres := IntToStr(AOficina); ANorma19.OfiRecepPres := AOficina;
with ANorma19 do with ANorma19 do
begin begin
_NORMA_ := 19; _NORMA_ := 19;
Procedimiento := prPrimero; // <= ???????????????????????????????????? //ANorma19.Procedimiento := prPrimero; // <= ????????????????????????????????????
Euros := True; Euros := True;
Depura := True; Depura := True;
@ -144,10 +163,10 @@ begin
// el que paga // el que paga
Referencia := ACliente.REFERENCIA; Referencia := ACliente.REFERENCIA;
NomTitDom := ARemesa.Recibos.NOMBRE_CLIENTE; NomTitDom := ARemesa.Recibos.NOMBRE_CLIENTE;
// EntTitDom := ARemesa.Recibos.ENTIDAD_CLIENTE; EntTitDom := ARemesa.Recibos.ENTIDAD_CLIENTE;
// OfiTitDom := ARemesa.Recibos.SUCURSAL_CLIENTE; OfiTitDom := ARemesa.Recibos.SUCURSAL_CLIENTE;
// DcTitDom := ARemesa.Recibos.DC_CLIENTE; DcTitDom := ARemesa.Recibos.DC_CLIENTE;
// CcTitDom := ARemesa.Recibos.CUENTA_CLIENTE; CcTitDom := ARemesa.Recibos.CUENTA_CLIENTE;
NomTitCta := ARemesa.Recibos.NOMBRE_CLIENTE; NomTitCta := ARemesa.Recibos.NOMBRE_CLIENTE;
DomTitCta := ''; DomTitCta := '';
PlzTitCta := ''; PlzTitCta := '';
@ -164,6 +183,7 @@ begin
Cerrar; Cerrar;
end; end;
finally finally
HideHourglassCursor;
ARemesasController := NIL; ARemesasController := NIL;
AEmpresasController := NIL; AEmpresasController := NIL;
AClientesController := NIL; AClientesController := NIL;
@ -174,35 +194,218 @@ begin
end; end;
end; end;
function TBancaElectronicaController.DarParametrosParaExportar ( procedure TBancaElectronicaController.GenerarFicheroNorma32(
var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime; 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 AFileName : String): Boolean;
var var
AEditor : IEditorExportacionNorma19; AEditor : IEditorExportacionNorma19;
begin begin
Result := False; Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor); CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor);
with AEditor do
begin
CodigoEntidad := Entidad;
CodigoAgencia := Oficina;
FechaCargo := AFechaCargo;
Fichero := AFileName;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then if Assigned(AEditor) then
try try
AEditor.CodigoEntidad := Entidad;
AEditor.CodigoAgencia := Oficina;
AEditor.FechaCargo := AFechaCargo;
AEditor.Fichero := AFileName;
if (AEditor.ShowModal = mrOk) then if (AEditor.ShowModal = mrOk) then
begin begin
AEditor.Entidad := CodigoEntidad; Entidad := AEditor.CodigoEntidad;
AEditor.Oficina := CodigoAgencia; Oficina := AEditor.CodigoAgencia;
AFechaCargo := AEditor.FechaCargo; AFechaCargo := AEditor.FechaCargo;
AFileName := AEditor.Fichero; AFileName := AEditor.Fichero;
Result := True; Result := True;
end; end;
finally
AEditor.Release; AEditor.Release;
finally
AEditor := NIL;
end; end;
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. end.

22
Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.rc
View File

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

BIN
Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.res
View File

Binary file not shown.

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.

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

Binary file not shown.

72
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> <PropertyGroup>
<ProjectGuid>{318cdb6c-0c6b-444c-81a7-75d2547d33e7}</ProjectGuid> <ProjectGuid>{318cdb6c-0c6b-444c-81a7-75d2547d33e7}</ProjectGuid>
<MainSource>BancaElectronica_view.dpk</MainSource> <MainSource>BancaElectronica_view.dpk</MainSource>
@ -39,47 +40,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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>
<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_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
@ -87,17 +48,40 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="BancaElectronica_controller.dcp" /> <DCCReference Include="BancaElectronica_controller.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCustomD11R.dcp" />
<DCCReference Include="JvDlgsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" /> <DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uBancaElectronicaViewRegister.pas" /> <DCCReference Include="uBancaElectronicaViewRegister.pas" />
<DCCReference Include="uEditorExportacionNorma19.pas"> <DCCReference Include="uEditorExportacionNorma19.pas">
<Form>fEditorExportacionNorma19</Form> <Form>fEditorExportacionNorma19</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorExportacionNorma32.pas">
<Form>fEditorExportacionNorma3</Form>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

22
Source/Modulos/Banca electronica/Views/BancaElectronica_view.rc
View File

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

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

Binary file not shown.

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

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

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

@ -41,55 +41,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Height = 13 Height = 13
Caption = 'Fecha de cargo:' Caption = 'Fecha de cargo:'
end end
object pnlHeader: TPanel
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Volcado de remesas a disco'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Caption = 'Introduzca los siguientes datos para realizar el volcado'
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
object Image1: TImage object Image1: TImage
Left = 345 Left = 345
Top = 15 Top = 15
@ -180,7 +131,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
TabOrder = 2 TabOrder = 2
Width = 167 Width = 167
end end
object edtCodEntidad: TcxMaskEdit object edtCodEntidad: TcxTextEdit
Left = 120 Left = 120
Top = 93 Top = 93
Properties.BeepOnError = True Properties.BeepOnError = True
@ -197,7 +148,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Text = ' ' Text = ' '
Width = 73 Width = 73
end end
object edtCodAgencia: TcxMaskEdit object edtCodAgencia: TcxTextEdit
Left = 120 Left = 120
Top = 120 Top = 120
Properties.BeepOnError = True Properties.BeepOnError = True
@ -225,7 +176,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
ModalResult = 2 ModalResult = 2
TabOrder = 4 TabOrder = 4
OnClick = CancelBtnClick OnClick = CancelBtnClick
ExplicitTop = 265
end end
object OKBtn: TButton object OKBtn: TButton
Left = 202 Left = 202
@ -235,7 +185,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Action = actVolcar Action = actVolcar
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 3 TabOrder = 3
ExplicitTop = 265
end end
object JvFilenameEdit1: TJvFilenameEdit object JvFilenameEdit1: TJvFilenameEdit
Left = 24 Left = 24
@ -243,7 +192,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Width = 349 Width = 349
Height = 21 Height = 21
Flat = False Flat = False
ParentCtl3D = False ParentFlat = False
Filter = 'Ficheros de norma 19 (*.C19)|*.C19' Filter = 'Ficheros de norma 19 (*.C19)|*.C19'
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
DialogTitle = 'Volcar a disco la remesa' DialogTitle = 'Volcar a disco la remesa'
@ -253,9 +202,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
AppStorage = JvAppRegistryStorage AppStorage = JvAppRegistryStorage
AppStoragePath = 'fEditorBase\' AppStoragePath = 'fEditorBase\'
VersionCheck = fpvcNocheck VersionCheck = fpvcNocheck
StoredProps.Strings = (
'edtCodAgencia.Text'
'edtCodEntidad.Text')
StoredValues = <> StoredValues = <>
Left = 80 Left = 80
Top = 64 Top = 64
@ -263,7 +209,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
object JvAppRegistryStorage: TJvAppRegistryStorage object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%' Root = 'Software\FactuGES'
SubStorages = <> SubStorages = <>
Left = 112 Left = 112
Top = 64 Top = 64

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

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit, Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
uIEditorExportacionNorma19, JvExControls, JvComponent, uIEditorExportacionNorma19, JvExControls, JvComponent, JvgWizardHeader,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList; JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
@ -19,10 +19,8 @@ type
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
edtCodEntidad: TcxMaskEdit; edtCodEntidad: TcxTextEdit;
edtCodAgencia: TcxMaskEdit; edtCodAgencia: TcxTextEdit;
lblTitle: TLabel;
lblComments: TLabel;
Bevel1: TBevel; Bevel1: TBevel;
JvFormStorage: TJvFormStorage; JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage; JvAppRegistryStorage: TJvAppRegistryStorage;
@ -41,11 +39,11 @@ type
private private
FFichero : String; FFichero : String;
protected protected
procedure SetCodigoEntidad(const AValue: Integer); procedure SetCodigoEntidad(const AValue: String);
function GetCodigoEntidad : Integer; function GetCodigoEntidad : String;
procedure SetCodigoAgencia(const AValue: Integer); procedure SetCodigoAgencia(const AValue: String);
function GetCodigoAgencia : Integer; function GetCodigoAgencia : String;
procedure SetFechaCargo(const AValue: TDateTime); procedure SetFechaCargo(const AValue: TDateTime);
function GetFechaCargo : TDateTime; function GetFechaCargo : TDateTime;
@ -53,8 +51,8 @@ type
procedure SetFichero(const AValue: String); procedure SetFichero(const AValue: String);
function GetFichero : String; function GetFichero : String;
public public
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad; property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia; property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo; property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
property Fichero : String read GetFichero write SetFichero; property Fichero : String read GetFichero write SetFichero;
end; end;
@ -104,14 +102,14 @@ begin
edtFechaCargo.Date := Now; edtFechaCargo.Date := Now;
end; end;
function TfEditorExportacionNorma19.GetCodigoAgencia: Integer; function TfEditorExportacionNorma19.GetCodigoAgencia: String;
begin begin
Result := StrToInt(edtCodAgencia.Text); Result := edtCodAgencia.Text;
end; end;
function TfEditorExportacionNorma19.GetCodigoEntidad: Integer; function TfEditorExportacionNorma19.GetCodigoEntidad: String;
begin begin
Result := StrToInt(edtCodEntidad.Text); Result := edtCodEntidad.Text;
end; end;
function TfEditorExportacionNorma19.GetFechaCargo: TDateTime; function TfEditorExportacionNorma19.GetFechaCargo: TDateTime;
@ -171,14 +169,14 @@ begin
end; end;
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: Integer); procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: String);
begin begin
edtCodAgencia.Text := IntToStr(AValue); edtCodAgencia.Text := AValue;
end; end;
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: Integer); procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: String);
begin begin
edtCodEntidad.Text := IntToStr(AValue); edtCodEntidad.Text := AValue;
end; end;
procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime); 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.

5
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -296,6 +296,11 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

99
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,22 +9,22 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{14B93F69-65C7-4EC5-B1B3-62AFB72B56CC}'; RID_Contactos = '{04865183-AFBB-4B4A-943A-AD4D76B6C5CC}';
RID_GruposCliente = '{124D5907-C17F-45AA-8054-B2907386691A}'; RID_GruposCliente = '{3A2865D7-D76B-4D57-A0F0-D04F22EF51BB}';
RID_DatosBancarios = '{ABCF1579-76BE-4A00-9059-0BD20DA768FF}'; RID_DatosBancarios = '{47326ABA-7215-45CB-9699-185E7926F56D}';
RID_Clientes = '{25A428D4-0DA0-4C84-91A3-C62146B36377}'; RID_Clientes = '{752BC70E-B5CD-49B4-9165-BED3EF49622A}';
RID_Proveedores = '{BED5456E-216D-4183-BE0E-0CA6A6A3291B}'; RID_Proveedores = '{22AE961E-E08B-4FF6-80A2-32589AD84AC9}';
RID_Empleados = '{190D4595-EC77-40B1-83F0-683B59B8CA6A}'; RID_Empleados = '{9581116B-D5A5-489A-B828-F15F3DD1B97D}';
RID_DireccionesContacto = '{52E7BA67-F88F-4DCC-BBC9-41CEDE7DE3A8}'; RID_DireccionesContacto = '{BE7C6793-FC10-47E3-82B9-FED0D91CA69A}';
RID_ClientesDescuentos = '{C20093E4-2828-41F4-B798-500C95F1DABE}'; RID_ClientesDescuentos = '{66FE83C9-7815-4450-B7F3-0A33BE698507}';
RID_GruposProveedor = '{A815592C-9F5E-499E-BA92-135145F5608B}'; RID_GruposProveedor = '{E5A13739-A562-481A-B473-E1FA88174DC1}';
RID_GruposEmpleado = '{EC079A8C-D587-4647-804C-DA0B528278CF}'; RID_GruposEmpleado = '{0599F7F4-52F2-4A1B-80A4-0F0950DA5245}';
RID_Contactos_Refresh = '{762F774A-9D7D-496D-AE66-A018D430B41C}'; RID_Contactos_Refresh = '{4F929248-961C-4FCC-9D11-1339B2D588E1}';
RID_ContratosEmpleados = '{0B52807A-6F66-420F-A38F-2083D4A0D722}'; RID_ContratosEmpleados = '{0A08FD58-E087-4A8F-A17F-4B52E96069AE}';
RID_DescripcionesProveedores = '{63C50F71-C164-4298-965D-CE0D1B5BC2D5}'; RID_DescripcionesProveedores = '{E7EFC76A-8F2C-4EAE-84F2-098DAC735EC9}';
RID_PersonalContacto = '{E5692F4D-8DEA-48BE-B38C-55553ECF4BC7}'; RID_PersonalContacto = '{384190A3-903C-46F6-903A-B44ABFA39FA8}';
RID_Agentes_Comisiones = '{91F3B993-9766-4C99-B97E-03F667F57F4C}'; RID_Agentes_Comisiones = '{38CD5D31-E276-42B3-890C-5F8B7D4E9B84}';
RID_Agentes = '{60EF74A6-4CFA-4938-83A1-CF8A893D9556}'; RID_Agentes = '{A38A458F-178D-40E8-94F0-21A6793E83DE}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -251,6 +251,7 @@ const
fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
fld_ProveedoresPAIS = 'PAIS';
{ Proveedores field indexes } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -291,6 +292,7 @@ const
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 35; idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 35;
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 36; idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 36;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 37; idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 37;
idx_ProveedoresPAIS = 38;
{ Empleados fields } { Empleados fields }
fld_EmpleadosID = 'ID'; fld_EmpleadosID = 'ID';
@ -585,7 +587,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{2DB7CF12-84F0-4A60-AD6A-DA3FCBAD6022}'] ['{9A4BE7AE-4BE0-4889-B12E-60F9ECE71512}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -884,7 +886,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{82FFDC15-328B-4A4E-96D9-AED477D1ED65}'] ['{01A15969-F3E7-4EEF-8664-15B8D3B0E00D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -931,7 +933,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{6F903B6D-1421-4FD0-A385-8CB231550883}'] ['{0EB678B0-07DE-4113-9150-AD45354E5CCA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1062,7 +1064,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{2F65D059-0171-4485-8985-309F1475EB2E}'] ['{515EA8E0-4B1B-468A-B88B-AE4775770080}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1589,7 +1591,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{69BB1B32-4DA1-4DCA-B2B1-B8D5ED5FB2AC}'] ['{A0768A97-F46F-4EDD-9F60-86A567490F83}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1742,6 +1744,10 @@ type
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1821,6 +1827,8 @@ type
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
@ -1981,6 +1989,10 @@ type
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -2059,6 +2071,8 @@ type
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2068,7 +2082,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{52136C1F-BAAE-4C19-A591-9DBFA7B5EF85}'] ['{FA15A2F9-3FFA-440D-B51B-810D6CE397D8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2499,7 +2513,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{A00892E0-6BE7-4A54-B211-7B2058E39FAD}'] ['{EE890F26-E3BD-45D8-93C5-E73F51E967B4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2714,7 +2728,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{4C548880-D3ED-4686-BC44-170BDBE4794F}'] ['{FA5D340E-D74E-499F-A473-3903250EDFFC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2797,7 +2811,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{B1ED690F-51F7-4482-A2EC-EBD20B348D57}'] ['{79D0F5A2-1006-489A-861F-E1010826A125}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2844,7 +2858,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{0CF4F7AF-E9C7-4EB6-A261-FAE055291528}'] ['{4125D0FB-2B55-4467-9699-3E8ACBD42536}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2891,7 +2905,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{65B9A25E-F38D-4FFF-B3BE-7AB95CACFF06}'] ['{586D4069-929D-4534-B0F8-2571EC18642B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3166,7 +3180,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{C71461FF-81B8-4737-A3A4-346F882232C8}'] ['{41A79482-6529-4898-B689-BACE01797F02}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3201,7 +3215,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{77679B6E-99EF-4BD1-8CAA-21096036D0E1}'] ['{FC0653D5-96D3-4C1C-9437-56595DFEB2C7}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3236,7 +3250,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{B07C08EE-8BAC-4548-B57C-76F885326F10}'] ['{7C4776C9-1F5A-4A84-AF95-5499638E984C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3379,7 +3393,7 @@ type
{ IAgentes_Comisiones } { IAgentes_Comisiones }
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable) IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
['{1396676A-6951-4D10-BF85-4D549F547492}'] ['{2EF8B495-6460-40F7-B268-BF5EDB0973AA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3462,7 +3476,7 @@ type
{ IAgentes } { IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable) IAgentes = interface(IDAStronglyTypedDataTable)
['{0AC6B3A1-8F53-4387-9A75-AAFD330DF895}'] ['{6EA11F0C-820C-4310-AEE9-F3F0E1FEFCCF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -6273,6 +6287,27 @@ begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null; DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null;
end; end;
function TProveedoresDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_ProveedoresPAIS].AsString;
end;
procedure TProveedoresDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue;
end;
function TProveedoresDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresPAIS].IsNull;
end;
procedure TProveedoresDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresPAIS].AsVariant := Null;
end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

107
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,27 +9,27 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{CEAC9E34-EC23-4975-8564-049459103E5B}'; RID_ContactosDelta = '{2299AF5C-93A6-4870-867B-460C36B56E93}';
RID_GruposClienteDelta = '{92BEDCB7-57F2-45D0-8EDF-79C519290D32}'; RID_GruposClienteDelta = '{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}';
RID_DatosBancariosDelta = '{56C98169-EDC3-481A-AD9C-FF45E1D9C93B}'; RID_DatosBancariosDelta = '{F820E138-7A65-4103-9FF8-071A33AA5D7D}';
RID_ClientesDelta = '{28EFB7E0-62B4-4F3D-A4E0-25254B665748}'; RID_ClientesDelta = '{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}';
RID_ProveedoresDelta = '{AEECF2DF-D7F7-42E7-9081-76778714FF75}'; RID_ProveedoresDelta = '{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}';
RID_EmpleadosDelta = '{D74B1150-C343-4DC5-A6F5-A7F4E7598F67}'; RID_EmpleadosDelta = '{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}';
RID_DireccionesContactoDelta = '{9FE0DA23-FE77-4167-AEFF-143E4F8C823D}'; RID_DireccionesContactoDelta = '{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}';
RID_ClientesDescuentosDelta = '{743C4823-D8F2-42F3-9B1D-FAE647AA0B89}'; RID_ClientesDescuentosDelta = '{4DDCB8A9-4A0A-4866-9843-817FF925BC53}';
RID_GruposProveedorDelta = '{E8CA6C8F-9ECC-41DF-8586-E2E3B9F5458B}'; RID_GruposProveedorDelta = '{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}';
RID_GruposEmpleadoDelta = '{714DAE98-83AA-4A95-9A5F-07A6B7E8B355}'; RID_GruposEmpleadoDelta = '{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}';
RID_Contactos_RefreshDelta = '{7DD183E3-37C3-4264-8D84-F4A815289F8B}'; RID_Contactos_RefreshDelta = '{600B66BD-C6C3-4919-9890-F312E1B5D200}';
RID_ContratosEmpleadosDelta = '{E62488A1-C81E-4B36-90ED-206B1033DD39}'; RID_ContratosEmpleadosDelta = '{14195F40-F9F2-44C1-8788-55F57D0A9691}';
RID_DescripcionesProveedoresDelta = '{58F6D16F-8509-4805-B234-6263DC21BE65}'; RID_DescripcionesProveedoresDelta = '{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}';
RID_PersonalContactoDelta = '{517AA226-5930-4EBD-99CB-D01DA050A368}'; RID_PersonalContactoDelta = '{C9915E22-807B-462B-8FB0-2CC33FCCA389}';
RID_Agentes_ComisionesDelta = '{B489AFCD-F2A4-4762-99E8-171CC8767238}'; RID_Agentes_ComisionesDelta = '{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}';
RID_AgentesDelta = '{05D9F35E-0C52-4504-84CC-B35F48442AB5}'; RID_AgentesDelta = '{419889C5-E18E-43AA-B78B-7AA634B266A2}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{CEAC9E34-EC23-4975-8564-049459103E5B}'] ['{2299AF5C-93A6-4870-867B-460C36B56E93}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -328,7 +328,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{92BEDCB7-57F2-45D0-8EDF-79C519290D32}'] ['{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -374,7 +374,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{56C98169-EDC3-481A-AD9C-FF45E1D9C93B}'] ['{F820E138-7A65-4103-9FF8-071A33AA5D7D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -504,7 +504,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{28EFB7E0-62B4-4F3D-A4E0-25254B665748}'] ['{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1031,7 +1031,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{AEECF2DF-D7F7-42E7-9081-76778714FF75}'] ['{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1071,6 +1071,7 @@ type
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1111,6 +1112,7 @@ type
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -1347,6 +1349,12 @@ type
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1501,6 +1509,10 @@ type
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1510,7 +1522,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{D74B1150-C343-4DC5-A6F5-A7F4E7598F67}'] ['{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1945,7 +1957,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{9FE0DA23-FE77-4167-AEFF-143E4F8C823D}'] ['{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2160,7 +2172,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{743C4823-D8F2-42F3-9B1D-FAE647AA0B89}'] ['{4DDCB8A9-4A0A-4866-9843-817FF925BC53}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2242,7 +2254,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{E8CA6C8F-9ECC-41DF-8586-E2E3B9F5458B}'] ['{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2288,7 +2300,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{714DAE98-83AA-4A95-9A5F-07A6B7E8B355}'] ['{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2334,7 +2346,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{7DD183E3-37C3-4264-8D84-F4A815289F8B}'] ['{600B66BD-C6C3-4919-9890-F312E1B5D200}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2609,7 +2621,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{E62488A1-C81E-4B36-90ED-206B1033DD39}'] ['{14195F40-F9F2-44C1-8788-55F57D0A9691}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2643,7 +2655,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{58F6D16F-8509-4805-B234-6263DC21BE65}'] ['{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2677,7 +2689,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{517AA226-5930-4EBD-99CB-D01DA050A368}'] ['{C9915E22-807B-462B-8FB0-2CC33FCCA389}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2819,7 +2831,7 @@ type
{ IAgentes_ComisionesDelta } { IAgentes_ComisionesDelta }
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones) IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
['{B489AFCD-F2A4-4762-99E8-171CC8767238}'] ['{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -2901,7 +2913,7 @@ type
{ IAgentesDelta } { IAgentesDelta }
IAgentesDelta = interface(IAgentes) IAgentesDelta = interface(IAgentes)
['{05D9F35E-0C52-4504-84CC-B35F48442AB5}'] ['{419889C5-E18E-43AA-B78B-7AA634B266A2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -6856,6 +6868,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null;
end; end;
function TProveedoresBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS];
end;
function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]);
end;
function TProveedoresBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS];
end;
function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]);
end;
procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := Null;
end;
{ TEmpleadosBusinessProcessorRules } { TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

18
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -166,6 +166,9 @@ type
function GetEMAIL_ADMINISTRACIONValue: String; function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
@ -180,6 +183,7 @@ type
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property PAIS: String read GetPAISValue write SetPAISValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
@ -399,6 +403,9 @@ type
procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint); procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint);
procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint); procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetEMAIL_ADMINISTRACIONValue: String; function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
@ -419,6 +426,7 @@ type
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
property PAIS: String read GetPAISValue write SetPAISValue;
end; end;
@ -790,6 +798,11 @@ begin
result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger; result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
end; end;
function TBizProveedor.GetPAISValue: String;
begin
result := DataTable.Fields[idx_ProveedoresPAIS].AsString;
end;
function TBizProveedor.GetREGIMEN_IVAValue: String; function TBizProveedor.GetREGIMEN_IVAValue: String;
begin begin
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString; result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@ -900,6 +913,11 @@ begin
DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue; DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
end; end;
procedure TBizProveedor.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue;
end;
procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String); procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
begin begin
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue; DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;

2
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -95,6 +95,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;
@ -137,6 +138,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;

38
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -951,6 +951,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'EMAIL_ADMINISTRACION' DatasetField = 'EMAIL_ADMINISTRACION'
TableField = 'EMAIL_ADMINISTRACION' TableField = 'EMAIL_ADMINISTRACION'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1167,6 +1171,11 @@ object srvContactos: TsrvContactos
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -3529,6 +3538,12 @@ object srvContactos: TsrvContactos
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3539,12 +3554,13 @@ object srvContactos: TsrvContactos
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' + 'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' + 'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' +
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' ' + 'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3, PA' +
'VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCIO' + 'IS)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESC' +
'N_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :' + 'RIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTR' +
'ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GR' + 'ATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACIO' +
'UPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_' + 'N, :GRUPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FAC' +
'1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10' '#10' '#10#10 'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3, :PAIS' +
')'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3658,6 +3674,12 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
Value = '' Value = ''
@ -3677,8 +3699,8 @@ object srvContactos: TsrvContactos
'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' + 'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' +
'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' + 'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' +
'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' + 'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' +
'= :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PR' + '= :VENCIMIENTO_FACTURAS_3,'#10' PAIS = :PAIS'#10' WHERE'#10' (ID_PROV' +
'OVEEDOR)'#10 'EEDOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

116
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,64 +49,64 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" /> <DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" /> <DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" /> <DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" /> <DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" /> <DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" /> <DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" /> <DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" /> <DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" /> <DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas"> <DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form> <Form>fEditorAgente</Form>

22
Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
View File

@ -8,8 +8,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Top = 113 Top = 113
Width = 683 Width = 683
Visible = False Visible = False
ExplicitLeft = -8 ExplicitTop = 113
ExplicitTop = 133
ExplicitWidth = 683 ExplicitWidth = 683
inherited Image1: TImage inherited Image1: TImage
Left = 656 Left = 656
@ -24,17 +23,21 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 378 ExplicitWidth = 284
inherited TBXSubmenuItem3: TTBXSubmenuItem
Enabled = False
Visible = False
end
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 378 Left = 284
Top = 23 Top = 23
DockPos = 96 DockPos = 96
DockRow = 1 DockRow = 1
ExplicitLeft = 378 ExplicitLeft = 284
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -117,7 +120,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
@ -161,9 +163,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 166 ExplicitTop = 140
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 298 ExplicitHeight = 324
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
@ -172,7 +174,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 663 ExplicitWidth = 663
ExplicitHeight = 155 ExplicitHeight = 181
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -246,7 +248,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Left = 10 Left = 10
Top = 293 Top = 293
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 267 ExplicitTop = 293
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663 Width = 663

23
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -10,8 +10,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Top = 113 Top = 113
Width = 656 Width = 656
Visible = False Visible = False
ExplicitLeft = 8 ExplicitTop = 113
ExplicitTop = 166
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -26,17 +25,22 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 351 DockPos = -6
ExplicitWidth = 284
inherited TBXSubmenuItem3: TTBXSubmenuItem
Enabled = False
Visible = False
end
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 351 Left = 284
Top = 23 Top = 23
DockPos = 108 DockPos = 108
DockRow = 1 DockRow = 1
ExplicitLeft = 351 ExplicitLeft = 284
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -120,7 +124,6 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
@ -164,9 +167,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 166 ExplicitTop = 140
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 259 ExplicitHeight = 285
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
@ -175,7 +178,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 636 ExplicitWidth = 636
ExplicitHeight = 116 ExplicitHeight = 142
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -250,7 +253,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Left = 10 Left = 10
Top = 254 Top = 254
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 228 ExplicitTop = 254
ExplicitWidth = 636 ExplicitWidth = 636
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636 Width = 636

75
Source/Modulos/Contactos/Views/uViewAgente.dfm
View File

@ -122,6 +122,43 @@ inherited frViewAgente: TfrViewAgente
ExplicitWidth = 166 ExplicitWidth = 166
Width = 166 Width = 166
end end
object eFechaBaja: TcxDBDateEdit [11]
Left = 121
Top = 109
DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 229
end
object eCausaBaja: TcxDBTextEdit [12]
Left = 121
Top = 136
DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = 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 = 5
Width = 229
end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 485 Left = 485
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -154,43 +191,6 @@ inherited frViewAgente: TfrViewAgente
ExplicitWidth = 239 ExplicitWidth = 239
Width = 239 Width = 239
end end
object eFechaBaja: TcxDBDateEdit [14]
Left = 121
Top = 109
DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 229
end
object eCausaBaja: TcxDBTextEdit [15]
Left = 121
Top = 136
DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = 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 = 5
Width = 229
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 231 Left = 231
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -238,6 +238,7 @@ inherited frViewAgente: TfrViewAgente
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 121 Left = 121
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''

1
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -437,6 +437,7 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 132 Left = 132
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''

14
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -160,6 +160,7 @@ inherited frViewClientes: TfrViewClientes
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 423 Top = 423
Visible = True
ExplicitTop = 423 ExplicitTop = 423
ExplicitWidth = 793 ExplicitWidth = 793
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -167,8 +168,12 @@ inherited frViewClientes: TfrViewClientes
ExplicitWidth = 793 ExplicitWidth = 793
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 783 Width = 783
Visible = False
ExplicitWidth = 783 ExplicitWidth = 783
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actAgentes
end
end end
end end
end end
@ -186,6 +191,13 @@ inherited frViewClientes: TfrViewClientes
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
Left = 64 Left = 64
end end
inherited ActionList1: TActionList
object actAgentes: TAction
Caption = 'Agentes'
OnExecute = actAgentesExecute
OnUpdate = actAgentesUpdate
end
end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item item

25
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -28,6 +28,9 @@ type
cxGridViewFELICITACION: TcxGridDBColumn; cxGridViewFELICITACION: TcxGridDBColumn;
cxGridViewRAPEL: TcxGridDBColumn; cxGridViewRAPEL: TcxGridDBColumn;
cxGridViewAGENTE: TcxGridDBColumn; cxGridViewAGENTE: TcxGridDBColumn;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
actAgentes: TAction;
procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem; procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo; ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption; const AMousePos: TPoint; var AHintText: TCaption;
@ -36,6 +39,8 @@ type
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo; ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption; const AMousePos: TPoint; var AHintText: TCaption;
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect); var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
procedure actAgentesExecute(Sender: TObject);
procedure actAgentesUpdate(Sender: TObject);
end; end;
@ -47,6 +52,26 @@ uses uViewGridBase;
{$R *.dfm} {$R *.dfm}
procedure TfrViewClientes.actAgentesExecute(Sender: TObject);
begin
if (cxGridViewAGENTE.GroupIndex < 0) then
begin
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewAGENTE.Visible := False;
end
else
begin
cxGridViewAGENTE.GroupIndex := -1;
cxGridViewAGENTE.Visible := True;
end;
end;
procedure TfrViewClientes.actAgentesUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
end;
procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint( procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;

160
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -8,8 +8,8 @@ inherited frViewProveedor: TfrViewProveedor
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 917 Width = 917
Height = 629 Height = 629
ExplicitWidth = 799 ExplicitWidth = 917
ExplicitHeight = 492 ExplicitHeight = 629
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 872 Left = 872
ExplicitLeft = 872 ExplicitLeft = 872
@ -23,7 +23,7 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitLeft = 872 ExplicitLeft = 872
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 543 Left = 569
Top = 262 Top = 262
Width = 322 Width = 322
Height = 26 Height = 26
@ -34,7 +34,7 @@ inherited frViewProveedor: TfrViewProveedor
end end
object Label2: TLabel [4] object Label2: TLabel [4]
Left = 22 Left = 22
Top = 415 Top = 442
Width = 324 Width = 324
Height = 39 Height = 39
Margins.Bottom = 0 Margins.Bottom = 0
@ -45,8 +45,8 @@ inherited frViewProveedor: TfrViewProveedor
WordWrap = True WordWrap = True
end end
object PngSpeedButton4: TPngSpeedButton [5] object PngSpeedButton4: TPngSpeedButton [5]
Left = 502 Left = 528
Top = 460 Top = 487
Width = 23 Width = 23
Height = 22 Height = 22
Action = actMandarCorreoTrabajo Action = actMandarCorreoTrabajo
@ -197,7 +197,7 @@ inherited frViewProveedor: TfrViewProveedor
end end
object eMailAdministracion: TcxDBHyperLinkEdit [13] object eMailAdministracion: TcxDBHyperLinkEdit [13]
Left = 134 Left = 134
Top = 460 Top = 487
DataBinding.DataField = 'EMAIL_ADMINISTRACION' DataBinding.DataField = 'EMAIL_ADMINISTRACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged
@ -214,7 +214,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 15
Width = 186 Width = 186
end end
object eCodigoAsignado: TcxDBTextEdit [14] object eCodigoAsignado: TcxDBTextEdit [14]
@ -237,29 +237,29 @@ inherited frViewProveedor: TfrViewProveedor
Width = 330 Width = 330
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 460 Left = 486
Top = 304 Top = 304
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
ExplicitLeft = 460 ExplicitLeft = 486
ExplicitTop = 304 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 518 Top = 545
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23 TabOrder = 24
ExplicitTop = 518 ExplicitTop = 545
ExplicitHeight = 55 ExplicitHeight = 55
Height = 55 Height = 55
end end
object cxDBCheckBox3: TcxDBCheckBox [17] object cxDBCheckBox3: TcxDBCheckBox [17]
Left = 442 Left = 468
Top = 136 Top = 136
Caption = 'Subcontrata' Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA' DataBinding.DataField = 'SUBCONTRATA'
@ -283,7 +283,7 @@ inherited frViewProveedor: TfrViewProveedor
Width = 83 Width = 83
end end
object cxDBCheckBox1: TcxDBCheckBox [18] object cxDBCheckBox1: TcxDBCheckBox [18]
Left = 543 Left = 569
Top = 294 Top = 294
Caption = 'Incluir este proveedor en la tienda web' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
@ -304,50 +304,50 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 22 TabOrder = 23
Width = 236 Width = 236
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 650 Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 650
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 650
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 650
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 650
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17 TabOrder = 17
ExplicitLeft = 650 ExplicitLeft = 676
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eFax: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 650 Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 18
ExplicitLeft = 650 ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 676
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
@ -362,52 +362,53 @@ inherited frViewProveedor: TfrViewProveedor
Width = 330 Width = 330
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 261 Left = 271
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 261 ExplicitLeft = 271
ExplicitWidth = 226 ExplicitWidth = 226
Width = 226 Width = 226
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 650 Left = 676
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 650
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 650
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20 TabOrder = 20
ExplicitLeft = 650 ExplicitLeft = 676
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 650 Left = 676
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21 TabOrder = 21
ExplicitLeft = 650 ExplicitLeft = 676
ExplicitWidth = 142
Width = 142
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitLeft = 676
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 134 Left = 134
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -418,17 +419,39 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 134 Left = 134
Top = 358 Top = 385
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 358 ExplicitTop = 385
ExplicitWidth = 330 ExplicitWidth = 330
Width = 330 Width = 330
end end
object ePais: TcxDBTextEdit [30]
Left = 134
Top = 358
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 391
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -483,6 +506,13 @@ inherited frViewProveedor: TfrViewProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
object dxLayoutControlContactoItem27: TdxLayoutItem [3]
Caption = 'Pa'#237's:'
Control = ePais
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoGroup24: TdxLayoutGroup object dxLayoutControlContactoGroup24: TdxLayoutGroup
Caption = 'Correo electr'#243'nico de administraci'#243'n' Caption = 'Correo electr'#243'nico de administraci'#243'n'
object dxLayoutControlContactoItem33: TdxLayoutItem object dxLayoutControlContactoItem33: TdxLayoutItem

2
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -39,6 +39,8 @@ type
eMailAdministracion: TcxDBHyperLinkEdit; eMailAdministracion: TcxDBHyperLinkEdit;
PngSpeedButton4: TPngSpeedButton; PngSpeedButton4: TPngSpeedButton;
actMandarCorreoAdministrativo: TAction; actMandarCorreoAdministrativo: TAction;
dxLayoutControlContactoItem27: TdxLayoutItem;
ePais: TcxDBTextEdit;
procedure actMandarCorreoAdministrativoExecute(Sender: TObject); procedure actMandarCorreoAdministrativoExecute(Sender: TObject);
procedure actMandarCorreoAdministrativoUpdate(Sender: TObject); procedure actMandarCorreoAdministrativoUpdate(Sender: TObject);
procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject); procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject);

3
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -186,6 +186,8 @@ var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
FShowLogotipo := VerSello;
try try
//Vamos generando todos y cada una de las facturas recibidas //Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -201,6 +203,7 @@ var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
FShowLogotipo := VerSello;
try try
//Vamos generando todos y cada una de las facturas recibidas //Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do

34
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,22 +49,24 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" /> <DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" /> <DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" /> <DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uDialogListaFacturasEnvioEMail.pas"> <DCCReference Include="uDialogListaFacturasEnvioEMail.pas">
<Form>DialogListaFacturasEnvioEMail</Form> <Form>fDialogListaFacturasEnvioEMail</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
@ -111,8 +113,6 @@
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

13
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm
View File

@ -1,9 +1,9 @@
inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente
Caption = 'Opciones para facturas de cliente' Caption = 'Opciones para facturas de cliente'
ClientHeight = 240 ClientHeight = 197
ClientWidth = 418 ClientWidth = 418
ExplicitWidth = 424 ExplicitWidth = 424
ExplicitHeight = 272 ExplicitHeight = 229
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited Bevel2: TBevel inherited Bevel2: TBevel
@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
ExplicitWidth = 418 ExplicitWidth = 418
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Top = 196 Top = 153
Width = 418 Width = 418
ExplicitTop = 196 ExplicitTop = 196
ExplicitWidth = 418 ExplicitWidth = 418
end end
inherited pnlBotones: TPanel inherited pnlBotones: TPanel
Top = 198 Top = 155
Width = 418 Width = 418
ExplicitTop = 198 ExplicitTop = 198
ExplicitWidth = 418 ExplicitWidth = 418
@ -49,7 +49,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
end end
inherited pnlCuerpo: TPanel inherited pnlCuerpo: TPanel
Width = 418 Width = 418
Height = 130 Height = 87
ExplicitWidth = 418 ExplicitWidth = 418
ExplicitHeight = 130 ExplicitHeight = 130
object cbVerCopia: TCheckBox object cbVerCopia: TCheckBox
@ -62,6 +62,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
Visible = False
end end
object cbVerSello: TCheckBox object cbVerSello: TCheckBox
AlignWithMargins = True AlignWithMargins = True
@ -69,7 +70,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
Top = 28 Top = 28
Width = 200 Width = 200
Height = 17 Height = 17
Caption = 'Mostrar sello de la empresa' Caption = 'Mostrar logotipo de la empresa'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1

12
Source/Modulos/Facturas de cliente/Views/uEditorElegirArticulosFacturaCliente.dfm
View File

@ -1,7 +1,15 @@
inherited fEditorElegirArticulosFacturaCliente: TfEditorElegirArticulosFacturaCliente inherited fEditorElegirArticulosFacturaCliente: TfEditorElegirArticulosFacturaCliente
Caption = 'fEditorElegirArticulosFacturaCliente' Caption = 'fEditorElegirArticulosFacturaCliente'
ExplicitWidth = 320 ExplicitHeight = 538
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited pnlHeader: TPanel
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 24
end
end
end end

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -354,12 +354,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Top = 72 Top = 72
Width = 809 Width = 809
Height = 218 Height = 218
ExplicitTop = 72
ExplicitWidth = 809 ExplicitWidth = 809
ExplicitHeight = 191 ExplicitHeight = 191
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 46
Width = 809 Width = 809
ExplicitTop = 46
ExplicitWidth = 809 ExplicitWidth = 809
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 566 ExplicitWidth = 566

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -340,7 +340,7 @@ begin
AVerCopia := True; AVerCopia := True;
//Preguntamos si desea que en las facturas se vea el Sello //Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
FController.Print(FFactura, AllItems, AVerSello, AVerCopia); FController.Print(FFactura, AllItems, AVerSello, AVerCopia);
end; end;
@ -430,7 +430,7 @@ begin
AVerCopia := True; AVerCopia := True;
//Preguntamos si desea que en las facturas se vea el Sello //Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
FController.Preview(FFactura, AllItems, AVerSello, AVerCopia); FController.Preview(FFactura, AllItems, AVerSello, AVerCopia);
end; end;

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -357,7 +357,7 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello //Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then if Assigned(AFacturas) then
if FController.Print(AFacturas, AllItems, AVerSello, AVerCopia) then if FController.Print(AFacturas, AllItems, AVerSello, AVerCopia) then
RefrescarInterno; RefrescarInterno;
@ -453,7 +453,7 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello //Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems, AVerSello, AVerCopia); FController.Preview(AFacturas, AllItems, AVerSello, AVerCopia);
end; end;

46
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm
View File

@ -1,4 +1,50 @@
inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio coste'
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Descuento'
end
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio neto'
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Caption = 'Precio porte'
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 = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39231.869697800920000000 ReportDocument.CreationDate = 39231.869697800920000000

2
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces; uDAInterfaces, uCustomView, uViewBase;
type type
IViewElegirArticulosFacturasCliente = interface(IViewArticulos) IViewElegirArticulosFacturasCliente = interface(IViewArticulos)

21
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
View File

@ -108,23 +108,32 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = nil Properties.OnButtonClick = nil
Visible = False
Options.Editing = False Options.Editing = False
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = True
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Caption = 'Importe coste' Caption = 'Importe coste'
Visible = True
end end
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 73
ExplicitTop = 73 inherited TBXToolbar1: TTBXToolbar
inherited TBXSubmenuItem1: TTBXSubmenuItem
Enabled = False
Visible = False
end
object TBXItem18: TTBXItem [1]
Action = actAnadirArticulos
DisplayMode = nbdmImageAndText
end
end
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Caption = 'A'#241'adir art'#237'culos...'
end
end end
end end

1
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas
View File

@ -25,6 +25,7 @@ type
end; end;
TfrViewDetallesFacturaProveedor = class(TfrViewDetallesArticulos, IViewDetallesFacturaProveedor) TfrViewDetallesFacturaProveedor = class(TfrViewDetallesArticulos, IViewDetallesFacturaProveedor)
TBXItem18: TTBXItem;
protected protected
FFactura: IBizFacturaProveedor; FFactura: IBizFacturaProveedor;
function GetFactura: IBizFacturaProveedor; function GetFactura: IBizFacturaProveedor;

20
Source/Modulos/Facturas de proveedor/Views/uViewElegirArticulosFacturasProveedor.dfm
View File

@ -18,24 +18,42 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
Caption = '' Caption = ''
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Caption = 'Generales' Caption = 'Otros proveedores'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 225 Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225 ExplicitLeft = 225
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 383 Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383 ExplicitLeft = 383
ExplicitWidth = 322 ExplicitWidth = 322
Width = 322 Width = 322

5
Source/Modulos/Facturas de proveedor/Views/uViewElegirArticulosFacturasProveedor.pas
View File

@ -12,7 +12,8 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uBizContactos, uDAInterfaces, uViewArticulosPorProveedor; uBizContactos, uDAInterfaces, uViewArticulosPorProveedor, uCustomView,
uViewBase;
type type
IViewElegirArticulosFacturasProveedor = interface(IViewArticulos) IViewElegirArticulosFacturasProveedor = interface(IViewArticulos)
@ -54,7 +55,7 @@ begin
0 : if Assigned(FProveedor) then 0 : if Assigned(FProveedor) then
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE); FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE);
1 : if Assigned(FProveedor) then 1 : if Assigned(FProveedor) then
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, Null, 'ARTICULOS SIN PROVEEDOR'); FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE);
end; end;
end; end;

4
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -324,7 +324,7 @@ begin
if Supports(ADetalles, IBizArticulo) then if Supports(ADetalles, IBizArticulo) then
begin begin
AArticulos.ID_ARTICULO := FieldByName(fld_ArticulosID).AsInteger; AArticulos.ID_ARTICULO := FieldByName(fld_ArticulosID).AsInteger;
// AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_ArticulosREFERENCIA_PROV).AsString; AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_ArticulosREFERENCIA_PROV).AsString;
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString; AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;
AArticulos.CANTIDAD := 1; AArticulos.CANTIDAD := 1;
end end
@ -332,7 +332,7 @@ begin
else else
begin begin
AArticulos.ID_ARTICULO := FieldByName(fld_INVENTARIOID_ARTICULO).AsInteger; AArticulos.ID_ARTICULO := FieldByName(fld_INVENTARIOID_ARTICULO).AsInteger;
// AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_INVENTARIOREFERENCIA_PROVEEDOR).AsString; AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_INVENTARIOREFERENCIA_PROVEEDOR).AsString;
if Supports(ADetalles, IBizInventario) then if Supports(ADetalles, IBizInventario) then
begin begin
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString; AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;

2
Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas
View File

@ -14,7 +14,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar, uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar,
uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels, uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels,
uViewFiltroBase, cxSpinEdit, uDAInterfaces; uViewFiltroBase, cxSpinEdit, uDAInterfaces, uCustomView, uViewBase;
type type
IViewViewEntradaSalidaArticulos = interface(IViewGrid) IViewViewEntradaSalidaArticulos = interface(IViewGrid)

18
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -671,15 +671,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' COALESCE(ART' + 'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' COALESCE(ART' +
'ICULOS.DESCRIPCION, V_PED_PROV_ARTICULOS.DESCRIPCION) as CONCEPT' + 'ICULOS.DESCRIPCION, V_PED_PROV_ARTICULOS.DESCRIPCION) as CONCEPT' +
'O,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD,'#10' ' + 'O,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD,'#10' ' +
' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEE' + ' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM V_P' +
'DOR'#10'FROM V_PED_PROV_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTIC' + 'ED_PROV_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_' +
'ULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10' LEFT JOIN PEDID' + 'PED_PROV_ARTICULOS.ID_ARTICULO)'#10' LEFT JOIN PEDIDOS_PROVEEDOR' +
'OS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_' + ' ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_PEDIDO)'#10' ' +
'PEDIDO)'#10' LEFT JOIN ARTICULOS_PROVEEDORES ON'#10' ((ARTICU' + ' LEFT JOIN ARTICULOS_PROVEEDORES ON'#10' ((ARTICULOS_PROVEEDO' +
'LOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND'#10' (ARTICU' + 'RES.ID_ARTICULO = ARTICULOS.ID) AND'#10' (ARTICULOS_PROVEEDO' +
'LOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10 + 'RES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE (V_PED' +
'WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10' AND (V_PE' + '_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10' AND (V_PED_PROV_ARTIC' +
'D_PROV_ARTICULOS.ID_PEDIDO = :ID)'#10 'ULOS.ID_PEDIDO = :ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

52
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dfm
View File

@ -3,8 +3,8 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
Top = 108 Top = 108
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:' Caption = 'Datos de la direcci'#243'n de entrega:'
ClientHeight = 189 ClientHeight = 230
ClientWidth = 453 ClientWidth = 452
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
OldCreateOrder = True OldCreateOrder = True
@ -14,15 +14,15 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
DesignSize = ( DesignSize = (
453 452
189) 230)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Top = 14 Top = 14
Width = 349 Width = 348
Height = 163 Height = 211
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Shape = bsFrame Shape = bsFrame
end end
@ -58,8 +58,24 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
AutoSize = False AutoSize = False
Caption = 'Poblaci'#243'n:' Caption = 'Poblaci'#243'n:'
end end
object Label5: TLabel
Left = 20
Top = 170
Width = 110
Height = 13
AutoSize = False
Caption = 'Persona contacto:'
end
object Label6: TLabel
Left = 20
Top = 197
Width = 110
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object OKBtn: TButton object OKBtn: TButton
Left = 370 Left = 369
Top = 13 Top = 13
Width = 75 Width = 75
Height = 25 Height = 25
@ -68,9 +84,10 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
Default = True Default = True
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 370
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 370 Left = 369
Top = 44 Top = 44
Width = 75 Width = 75
Height = 25 Height = 25
@ -79,6 +96,7 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 370
end end
object eDireccion: TDBEdit object eDireccion: TDBEdit
Left = 136 Left = 136
@ -150,6 +168,24 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
TabOrder = 5 TabOrder = 5
Width = 210 Width = 210
end end
object ePersonaContacto: TDBEdit
Left = 136
Top = 167
Width = 210
Height = 21
DataField = 'PERSONA_CONTACTO'
DataSource = dsDireccion
TabOrder = 6
end
object eTelefono: TDBEdit
Left = 136
Top = 194
Width = 210
Height = 21
DataField = 'TELEFONO'
DataSource = dsDireccion
TabOrder = 7
end
object dsDireccion: TDADataSource object dsDireccion: TDADataSource
Left = 16 Left = 16
Top = 46 Top = 46

10
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas
View File

@ -22,6 +22,10 @@ type
cbProvincia: TcxDBComboBox; cbProvincia: TcxDBComboBox;
Label2: TLabel; Label2: TLabel;
cbPoblacion: TcxDBComboBox; cbPoblacion: TcxDBComboBox;
Label5: TLabel;
ePersonaContacto: TDBEdit;
eTelefono: TDBEdit;
Label6: TLabel;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -31,6 +35,8 @@ type
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
private private
pPersonaContacto: String;
pTelefono: String;
pDireccion: String; pDireccion: String;
pPoblacion: String; pPoblacion: String;
pProvincia: String; pProvincia: String;
@ -142,6 +148,8 @@ begin
//En el caso de cancelar se recuperan los valores iniciales //En el caso de cancelar se recuperan los valores iniciales
if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then
begin begin
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
eDireccion.Field.Value := pDireccion; eDireccion.Field.Value := pDireccion;
cbPoblacion.DataBinding.Field.Value := pPoblacion; cbPoblacion.DataBinding.Field.Value := pPoblacion;
cbProvincia.DataBinding.Field.Value := pProvincia; cbProvincia.DataBinding.Field.Value := pProvincia;
@ -168,6 +176,8 @@ end;
procedure TfEditorDireccionEntregaPedidoProveedor.FormShow(Sender: TObject); procedure TfEditorDireccionEntregaPedidoProveedor.FormShow(Sender: TObject);
begin begin
//Guardamos los valores iniciales por si al final el usuario cancela //Guardamos los valores iniciales por si al final el usuario cancela
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
pDireccion := eDireccion.Text; pDireccion := eDireccion.Text;
pPoblacion := cbPoblacion.Text; pPoblacion := cbPoblacion.Text;
pProvincia := cbProvincia.Text; pProvincia := cbProvincia.Text;

2
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -239,6 +239,8 @@ begin
txtDireccion.Caption := FPedido.CALLE; txtDireccion.Caption := FPedido.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA;
if (not FPedido.PERSONA_CONTACTOIsNull) and (FPedido.PERSONA_CONTACTO <> '') then
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Persona contacto: ' + FPedido.PERSONA_CONTACTO;
if (not FPedido.TELEFONOIsNull) and (FPedido.TELEFONO <> '') then if (not FPedido.TELEFONOIsNull) and (FPedido.TELEFONO <> '') then
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FPedido.TELEFONO; txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FPedido.TELEFONO;

2
Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm
View File

@ -35,7 +35,7 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Tag = 1 Tag = 1
Caption = 'Otros' Caption = 'Otros proveedores'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtf3E7.tmp */ /* c:\temp\dtfC6.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtf3E5.tmp */ /* c:\temp\dtfC4.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtf3E3.tmp */ /* c:\temp\dtfC2.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtf44B.tmp */ /* c:\temp\dtf12A.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtf449.tmp */ /* c:\temp\dtf128.tmp */

17
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk
View File

@ -28,10 +28,23 @@ requires
FacturasCliente_model, FacturasCliente_model,
AlbaranesCliente_controller, AlbaranesCliente_controller,
AlbaranesCliente_model, AlbaranesCliente_model,
FacturasCliente_controller; FacturasCliente_controller,
rtl,
vcl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx,
cxEditorsD11,
cxDataD11,
dbrtl,
vcljpg,
vcldb;
contains contains
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCliAlbCli}, uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCliAlbCli},
uGenerarAlbaranesCliFacCliUtils in 'uGenerarAlbaranesCliFacCliUtils.pas' {dmGenerarAlbaranesCli}; uGenerarAlbaranesCliFacCliUtils in 'uGenerarAlbaranesCliFacCliUtils.pas' {dmGenerarAlbaranesCli},
uEditorFechaFactura in 'uEditorFechaFactura.pas'{frEditorFechaFactura:TForm};
end. end.

19
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.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> <PropertyGroup>
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid> <ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
<MainSource>AlbCli_FacCli_relation.dpk</MainSource> <MainSource>AlbCli_FacCli_relation.dpk</MainSource>
@ -85,14 +86,30 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" /> <DCCReference Include="FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" /> <DCCReference Include="FacturasCliente_model.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uEditorFechaFactura.pas">
<Form>frEditorFechaFactura</Form>
<DesignClass>F</DesignClass>
</DCCReference>
<DCCReference Include="uGenerarAlbaranesCliFacCliUtils.pas"> <DCCReference Include="uGenerarAlbaranesCliFacCliUtils.pas">
<Form>dmGenerarAlbaranesCli</Form> <Form>dmGenerarAlbaranesCli</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uGenerarFacturasCliAlbCliUtils.pas"> <DCCReference Include="uGenerarFacturasCliAlbCliUtils.pas">
<Form>dmGenerarFacturasCliAlbCli</Form> <Form>dmGenerarFacturasCliAlbCli</Form>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

60
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uEditorFechaFactura.dfm Normal file
View File

@ -0,0 +1,60 @@
object fEditorFechaFactura: TfEditorFechaFactura
Left = 0
Top = 0
BorderStyle = bsToolWindow
Caption = 'Fecha de las facturas'
ClientHeight = 148
ClientWidth = 371
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 336
Height = 13
Caption =
'Introduzca la fecha que desea para las facturas que se van a gen' +
'erar'
WordWrap = True
end
object Label2: TLabel
Left = 24
Top = 59
Width = 97
Height = 26
Caption = 'Fecha de facturas:'
WordWrap = True
end
object eFechaFactura: TcxDateEdit
Left = 127
Top = 56
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
Width = 162
end
object Button1: TButton
Left = 286
Top = 110
Width = 75
Height = 25
Caption = 'Continuar'
ModalResult = 1
TabOrder = 1
end
end

35
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uEditorFechaFactura.pas Normal file
View File

@ -0,0 +1,35 @@
unit uEditorFechaFactura;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar;
type
TfEditorFechaFactura = class(TForm)
Label1: TLabel;
eFechaFactura: TcxDateEdit;
Button1: TButton;
Label2: TLabel;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fEditorFechaFactura: TfEditorFechaFactura;
implementation
{$R *.dfm}
procedure TfEditorFechaFactura.FormShow(Sender: TObject);
begin
eFechaFactura.Date := Date;
end;
end.

29
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -11,17 +11,17 @@ type
end; end;
function GenerarFacturaCliAlb(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload; function GenerarFacturaCliAlb(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload; function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaCliAlb : Boolean; overload; function GenerarFacturaCliAlb : Boolean; overload;
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean; function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True): Boolean;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uses
DB, uDialogUtils, uDADataTable, uControllerDetallesBase, DB, uDialogUtils, uDADataTable, uControllerDetallesBase, uEditorFechaFactura,
uBizDetallesFacturaCliente, uBizDetallesAlbaranCliente, uBizDetallesFacturaCliente, uBizDetallesAlbaranCliente,
uAlbaranesClienteController, uDetallesFacturaClienteController, uAlbaranesClienteController, uDetallesFacturaClienteController,
@ -216,7 +216,7 @@ begin
AAlbaran := AAlbaranesClienteController.Buscar(IDAlbaran); AAlbaran := AAlbaranesClienteController.Buscar(IDAlbaran);
if Assigned(AAlbaran) then if Assigned(AAlbaran) then
Result := GenerarFacturaCliAlb(AAlbaran); Result := GenerarFacturaCliAlb(AAlbaran, Date);
if Assigned(AAlbaranesClienteController) then if Assigned(AAlbaranesClienteController) then
Finalizar; Finalizar;
@ -226,7 +226,7 @@ begin
end; end;
end; end;
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload; function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
AFacturasNuevas : IBizFacturaCliente; AFacturasNuevas : IBizFacturaCliente;
i: Integer; i: Integer;
@ -244,7 +244,7 @@ begin
try try
AFacturasNuevas := AFacturasClienteController.Nuevo(False); AFacturasNuevas := AFacturasClienteController.Nuevo(False);
if GenerarFacturas(AFacturasNuevas, AAlbaran, CopiarDetalles) then if GenerarFacturas(AFacturasNuevas, AAlbaran, FechaFacturaNueva, CopiarDetalles) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then
begin begin
@ -281,6 +281,7 @@ end;
function GenerarFacturaCliAlb : Boolean; overload; function GenerarFacturaCliAlb : Boolean; overload;
var var
AAlbaranes : IBizAlbaranCliente; AAlbaranes : IBizAlbaranCliente;
AFechaFactura: TDateTime;
begin begin
Result := False; Result := False;
try try
@ -292,7 +293,17 @@ begin
+ #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True); + #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True);
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
Result := GenerarFacturaCliAlb(AAlbaranes); begin
//Preguntamos la fecha que deseamos tengan las facturas a generar
with TfEditorFechaFactura.Create(Nil) do
begin
ShowModal;
AFechaFactura := eFechaFactura.Date;
Free;
end;
Result := GenerarFacturaCliAlb(AAlbaranes, AFechaFactura);
end;
if Assigned(AAlbaranesClienteController) then if Assigned(AAlbaranesClienteController) then
Finalizar; Finalizar;
@ -301,7 +312,7 @@ begin
end; end;
end; end;
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean; function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True): Boolean;
var var
AFacturaActual : IBizFacturaCliente; AFacturaActual : IBizFacturaCliente;
AAlbaranesController : IAlbaranesClienteController; AAlbaranesController : IAlbaranesClienteController;
@ -343,6 +354,8 @@ begin
else begin else begin
// No hay factura de ese cliente. Creo una nueva // No hay factura de ese cliente. Creo una nueva
AFacturasClienteController.Anadir(AFacturas); AFacturasClienteController.Anadir(AFacturas);
//Asignamos a la factura la fecha pasada por parametro
AFacturas.FECHA_FACTURA := FechaFacturaNueva;
AAlbaranesController.RecuperarCliente(AListaAlbaranes); AAlbaranesController.RecuperarCliente(AListaAlbaranes);
AListaAlbaranes.Cliente.DataTable.Active := True; AListaAlbaranes.Cliente.DataTable.Active := True;
AFacturas.Cliente := AListaAlbaranes.Cliente; AFacturas.Cliente := AListaAlbaranes.Cliente;

24
Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -24,7 +24,7 @@ uses
uPedidosClienteController, uAlbaranesClienteController, uClientesController, uPedidosClienteController, uAlbaranesClienteController, uClientesController,
uDetallesAlbaranClienteController, uControllerDetallesBase, uDetallesAlbaranClienteController, uControllerDetallesBase,
uBizContactos, schPedidosClienteClient_Intf, uBizContactos, schPedidosClienteClient_Intf,
schAlbaranesClienteClient_Intf; schAlbaranesClienteClient_Intf, uDataTableUtils;
var var
dmGenerarAlbaranesCli: TdmGenerarAlbaranesCli; dmGenerarAlbaranesCli: TdmGenerarAlbaranesCli;
@ -100,11 +100,17 @@ begin
//obligarle siempre a recalcular los detalles una sola vez //obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADetalles); ADetallesController.BeginUpdate(ADetalles);
AArticulosPendientes.DataTable.First; //Arreglamos que el orden de los detalles del documento generado sea igual que los del documento origen
for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do // AArticulosPendientes.DataTable.First;
// for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
APedido.Detalles.DataTable.First;
for i := 0 to APedido.Detalles.DataTable.RecordCount - 1 do
begin
// APedido.Detalles.First;
// if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
AArticulosPendientes.DataTable.First;
if (AArticulosPendientes.DataTable.Locate('ID_ARTICULO', APedido.Detalles.ID_ARTICULO, [])) then
begin begin
APedido.Detalles.First;
if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
if (AArticulosPendientes.CANTIDAD_PENDIENTE > 0) then if (AArticulosPendientes.CANTIDAD_PENDIENTE > 0) then
begin begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
@ -121,8 +127,14 @@ begin
ADetalles.VISIBLE := APedido.Detalles.VISIBLE; ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR; ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
ADetalles.Post; ADetalles.Post;
AArticulosPendientes.Next; // AArticulosPendientes.Next;
end; end;
DesconectarTabla(AArticulosPendientes.DataTable);
AArticulosPendientes.DataTable.Delete;
ConectarTabla(AArticulosPendientes.DataTable);
end;
APedido.Detalles.DataTable.Next;
end; end;
finally finally
ADetallesController.EndUpdate(ADetalles); ADetallesController.EndUpdate(ADetalles);

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

@ -9,6 +9,9 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.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="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" /> <Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
<Projects Include="..\Tienda web\Controller\TiendaWeb_controller.dproj" /> <Projects Include="..\Tienda web\Controller\TiendaWeb_controller.dproj" />
<Projects Include="..\Tienda web\Data\TiendaWeb_data.dproj" /> <Projects Include="..\Tienda web\Data\TiendaWeb_data.dproj" />
@ -171,14 +174,41 @@
<Target Name="TiendaWeb_plugin:Make"> <Target Name="TiendaWeb_plugin:Make">
<MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="Make" /> <MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="Make" />
</Target> </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="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin;BancaElectronica_controller;BancaElectronica_view;BancaElectronica_plugin" />
</Target> </Target>
<Target Name="Clean"> <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;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin: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;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;BancaElectronica_plugin:Clean" />
</Target> </Target>
<Target Name="Make"> <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;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin: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;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;BancaElectronica_plugin:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

Binary file not shown.

24
Source/Modulos/Remesas de cliente/Views/RemesasCliente_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> <PropertyGroup>
<ProjectGuid>{5e4bdd4d-597f-407c-8b0c-32e37fbd6267}</ProjectGuid> <ProjectGuid>{5e4bdd4d-597f-407c-8b0c-32e37fbd6267}</ProjectGuid>
<MainSource>RemesasCliente_view.dpk</MainSource> <MainSource>RemesasCliente_view.dpk</MainSource>
@ -54,16 +55,17 @@
<DelphiCompile Include="RemesasCliente_view.dpk"> <DelphiCompile Include="RemesasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Familias_controller.dcp" /> <DCCReference Include="..\..\Lib\BancaElectronica_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Familias_model.dcp" /> <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\frxTee11.dcp" /> <DCCReference Include="..\..\Lib\Familias_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\fsTee11.dcp" /> <DCCReference Include="..\..\Lib\frxTee11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\fsTee11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" /> <DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\tee.dcp" /> <DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\teeUI.dcp" /> <DCCReference Include="..\..\Lib\tee.dcp" />
<DCCReference Include="..\..\Lib\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas"> <DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form> <Form>fEditorRemesaCliente</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass> <DesignClass>TfEditorRemesaCliente</DesignClass>

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

@ -55,7 +55,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 598 ExplicitWidth = 586
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -64,9 +64,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
object TBXSeparatorItem6: TTBXSeparatorItem [11] object TBXSeparatorItem6: TTBXSeparatorItem [11]
end end
object TBXItem33: TTBXItem [12] object TBXSubmenuItem3: TTBXSubmenuItem [12]
Action = actVolcarDisco Caption = 'Volcar a disco'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
ImageIndex = 22
object TBXItem34: TTBXItem
Action = actNorma19
end
object TBXItem33: TTBXItem
Action = actNorma32
end
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
@ -560,9 +567,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Category = 'Acciones' Category = 'Acciones'
Caption = 'Volcar a disco...' Caption = 'Volcar a disco...'
ImageIndex = 22 ImageIndex = 22
OnExecute = actVolcarDiscoExecute
OnUpdate = actVolcarDiscoUpdate OnUpdate = actVolcarDiscoUpdate
end 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 end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList [6]
PngImages = < PngImages = <

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

@ -27,8 +27,12 @@ type
actVolcarDisco: TAction; actVolcarDisco: TAction;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem; TBXItem7: TTBXItem;
TBXItem33: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem; TBXSeparatorItem6: TTBXSeparatorItem;
actNorma19: TAction;
actNorma32: TAction;
TBXSubmenuItem3: TTBXSubmenuItem;
TBXItem33: TTBXItem;
TBXItem34: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -39,7 +43,10 @@ type
procedure frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary( procedure frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary(
ASender: TcxDataSummary); ASender: TcxDataSummary);
procedure actVolcarDiscoUpdate(Sender: TObject); 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 private
procedure OnRecibosChanged(Sender: TObject); procedure OnRecibosChanged(Sender: TObject);
protected protected
@ -78,8 +85,7 @@ implementation
uses uses
uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor, uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController, uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController,
uFactuGES_App; uFactuGES_App, uBancaElectronicaController;
// uBancaElectronicaController;
{ {
******************************* TfEditorRemesaCliente ******************************* ******************************* TfEditorRemesaCliente *******************************
@ -292,11 +298,10 @@ begin
// HayCambios := True; // HayCambios := True;
end; end;
procedure TfEditorRemesaCliente.actVolcarDiscoExecute(Sender: TObject); procedure TfEditorRemesaCliente.actNorma19Execute(Sender: TObject);
//var var
// ABancaController : IBancaElectronicaController; ABancaController : IBancaElectronicaController;
begin begin
{
inherited; inherited;
ABancaController := TBancaElectronicaController.Create; ABancaController := TBancaElectronicaController.Create;
try try
@ -304,7 +309,29 @@ begin
finally finally
ABancaController := NIL; ABancaController := NIL;
end; 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; end;
procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject); procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject);

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */ /* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */ /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtf3FD.tmp */ /* c:\temp\dtfDC.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -115,8 +115,6 @@ uses
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uBizAgentesServer in '..\Modulos\Contactos\Model\uBizAgentesServer.pas', uBizAgentesServer in '..\Modulos\Contactos\Model\uBizAgentesServer.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService}, srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas', uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
@ -163,7 +161,9 @@ uses
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas', schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas', schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas'; schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

4
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"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</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">4.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">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 23 de septiembre de 2010 16:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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">4.0.3.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">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 01 de octubre de 2010 18:59</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,0,0,0 FILEVERSION 4,0,3,0
PRODUCTVERSION 4,0,0,0 PRODUCTVERSION 4,0,3,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.0.0.0\0" VALUE "FileVersion", "4.0.3.0\0"
VALUE "ProductVersion", "4.0.0.0\0" VALUE "ProductVersion", "4.0.3.0\0"
VALUE "CompileDate", "viernes, 24 de septiembre de 2010 11:21\0" VALUE "CompileDate", "viernes, 01 de octubre de 2010 19:02\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"