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

Version 2.6.8

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@117 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2016-09-05 09:30:43 +00:00
parent 963b20a5e1
commit 3c52af3f25
18 changed files with 622 additions and 143 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.

103
Source/Base/Base.dproj
View File

@ -51,6 +51,13 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,55 +72,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.RES
View File

Binary file not shown.

2
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -195,7 +195,7 @@ end;
procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true);
end;
function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

BIN
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES
View File

Binary file not shown.

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

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

16
Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
View File

@ -17,6 +17,7 @@
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
@ -221,14 +222,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_view">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_view:Clean">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_view:Make">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

BIN
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res
View File

Binary file not shown.

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

@ -194,6 +194,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'REFERENCIA_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -285,6 +290,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -436,6 +446,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -507,6 +522,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -585,6 +605,10 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
end>
Params = <>
MasterMappingMode = mmWhere

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

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{4E5198B9-A3EA-41ED-876A-F20E75C77CFA}';
RID_RecibosCliente = '{47FD8329-5BE1-4334-971C-9F5BEB6F6D6E}';
RID_PagosCliente = '{8F0C7790-8AF6-4F0F-BB5A-54C49E8FEB37}';
RID_RecibosCompensadosCli = '{3645D510-70D1-4184-9DDC-96D4CF5A1288}';
RID_ListaAnosRecibos = '{9AD56FB9-67A7-486D-97A3-F97769F49FBE}';
RID_RecibosCliente = '{A6B99CCC-1F59-46D1-9E40-CDA699F5DBDE}';
RID_PagosCliente = '{95D516A8-1FAC-4A03-8CE4-0D6CB5390369}';
RID_RecibosCompensadosCli = '{2617D7C0-DF3B-4791-8CB7-3E57E1C4E48A}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -33,6 +33,7 @@ const
fld_RecibosClienteREFERENCIA = 'REFERENCIA';
fld_RecibosClienteSITUACION = 'SITUACION';
fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
fld_RecibosClienteREFERENCIA_FACTURA = 'REFERENCIA_FACTURA';
fld_RecibosClienteFECHA_FACTURA = 'FECHA_FACTURA';
fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
@ -49,6 +50,7 @@ const
fld_RecibosClienteIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE';
fld_RecibosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_RecibosClienteENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
fld_RecibosClienteSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
@ -74,39 +76,41 @@ const
idx_RecibosClienteREFERENCIA = 3;
idx_RecibosClienteSITUACION = 4;
idx_RecibosClienteID_FACTURA = 5;
idx_RecibosClienteFECHA_FACTURA = 6;
idx_RecibosClienteFORMA_PAGO_FACTURA = 7;
idx_RecibosClienteIMPORTE_FACTURA = 8;
idx_RecibosClienteID_REMESA = 9;
idx_RecibosClienteREFERENCIA_REMESA = 10;
idx_RecibosClienteFECHA_EMISION = 11;
idx_RecibosClienteFECHA_VENCIMIENTO = 12;
idx_RecibosClienteDESCRIPCION = 13;
idx_RecibosClienteOBSERVACIONES = 14;
idx_RecibosClienteIMPORTE = 15;
idx_RecibosClienteOTROS_GASTOS = 16;
idx_RecibosClienteIMPORTE_TOTAL = 17;
idx_RecibosClienteIMPORTE_COMPENSADO = 18;
idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 19;
idx_RecibosClienteID_EMPRESA = 20;
idx_RecibosClienteID_CLIENTE = 21;
idx_RecibosClienteNOMBRE_CLIENTE = 22;
idx_RecibosClienteENTIDAD_CLIENTE = 23;
idx_RecibosClienteSUCURSAL_CLIENTE = 24;
idx_RecibosClienteDC_CLIENTE = 25;
idx_RecibosClienteCUENTA_CLIENTE = 26;
idx_RecibosClienteNIF_CIF = 27;
idx_RecibosClienteNOMBRE = 28;
idx_RecibosClienteCALLE = 29;
idx_RecibosClientePOBLACION = 30;
idx_RecibosClienteCODIGO_POSTAL = 31;
idx_RecibosClientePROVINCIA = 32;
idx_RecibosClienteFECHA_ALTA = 33;
idx_RecibosClienteFECHA_MODIFICACION = 34;
idx_RecibosClienteUSUARIO = 35;
idx_RecibosClienteID_TIENDA = 36;
idx_RecibosClienteTIENDA = 37;
idx_RecibosClienteCUENTA_CONTABLE = 38;
idx_RecibosClienteREFERENCIA_FACTURA = 6;
idx_RecibosClienteFECHA_FACTURA = 7;
idx_RecibosClienteFORMA_PAGO_FACTURA = 8;
idx_RecibosClienteIMPORTE_FACTURA = 9;
idx_RecibosClienteID_REMESA = 10;
idx_RecibosClienteREFERENCIA_REMESA = 11;
idx_RecibosClienteFECHA_EMISION = 12;
idx_RecibosClienteFECHA_VENCIMIENTO = 13;
idx_RecibosClienteDESCRIPCION = 14;
idx_RecibosClienteOBSERVACIONES = 15;
idx_RecibosClienteIMPORTE = 16;
idx_RecibosClienteOTROS_GASTOS = 17;
idx_RecibosClienteIMPORTE_TOTAL = 18;
idx_RecibosClienteIMPORTE_COMPENSADO = 19;
idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 20;
idx_RecibosClienteID_EMPRESA = 21;
idx_RecibosClienteID_CLIENTE = 22;
idx_RecibosClienteREFERENCIA_CLIENTE = 23;
idx_RecibosClienteNOMBRE_CLIENTE = 24;
idx_RecibosClienteENTIDAD_CLIENTE = 25;
idx_RecibosClienteSUCURSAL_CLIENTE = 26;
idx_RecibosClienteDC_CLIENTE = 27;
idx_RecibosClienteCUENTA_CLIENTE = 28;
idx_RecibosClienteNIF_CIF = 29;
idx_RecibosClienteNOMBRE = 30;
idx_RecibosClienteCALLE = 31;
idx_RecibosClientePOBLACION = 32;
idx_RecibosClienteCODIGO_POSTAL = 33;
idx_RecibosClientePROVINCIA = 34;
idx_RecibosClienteFECHA_ALTA = 35;
idx_RecibosClienteFECHA_MODIFICACION = 36;
idx_RecibosClienteUSUARIO = 37;
idx_RecibosClienteID_TIENDA = 38;
idx_RecibosClienteTIENDA = 39;
idx_RecibosClienteCUENTA_CONTABLE = 40;
{ PagosCliente fields }
fld_PagosClienteID = 'ID';
@ -155,6 +159,7 @@ const
fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
fld_RecibosCompensadosCliSITUACION = 'SITUACION';
fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
fld_RecibosCompensadosCliREFERENCIA_FACTURA = 'REFERENCIA_FACTURA';
fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
@ -171,6 +176,7 @@ const
fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
fld_RecibosCompensadosCliREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
@ -187,6 +193,7 @@ const
fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
fld_RecibosCompensadosCliTIENDA = 'TIENDA';
fld_RecibosCompensadosCliCUENTA_CONTABLE = 'CUENTA_CONTABLE';
{ RecibosCompensadosCli field indexes }
idx_RecibosCompensadosCliID = 0;
@ -195,43 +202,46 @@ const
idx_RecibosCompensadosCliREFERENCIA = 3;
idx_RecibosCompensadosCliSITUACION = 4;
idx_RecibosCompensadosCliID_FACTURA = 5;
idx_RecibosCompensadosCliFECHA_FACTURA = 6;
idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 7;
idx_RecibosCompensadosCliIMPORTE_FACTURA = 8;
idx_RecibosCompensadosCliID_REMESA = 9;
idx_RecibosCompensadosCliREFERENCIA_REMESA = 10;
idx_RecibosCompensadosCliFECHA_EMISION = 11;
idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 12;
idx_RecibosCompensadosCliDESCRIPCION = 13;
idx_RecibosCompensadosCliOBSERVACIONES = 14;
idx_RecibosCompensadosCliIMPORTE = 15;
idx_RecibosCompensadosCliOTROS_GASTOS = 16;
idx_RecibosCompensadosCliIMPORTE_TOTAL = 17;
idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 18;
idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 19;
idx_RecibosCompensadosCliID_EMPRESA = 20;
idx_RecibosCompensadosCliID_CLIENTE = 21;
idx_RecibosCompensadosCliNOMBRE_CLIENTE = 22;
idx_RecibosCompensadosCliENTIDAD_CLIENTE = 23;
idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 24;
idx_RecibosCompensadosCliDC_CLIENTE = 25;
idx_RecibosCompensadosCliCUENTA_CLIENTE = 26;
idx_RecibosCompensadosCliNIF_CIF = 27;
idx_RecibosCompensadosCliNOMBRE = 28;
idx_RecibosCompensadosCliCALLE = 29;
idx_RecibosCompensadosCliPOBLACION = 30;
idx_RecibosCompensadosCliCODIGO_POSTAL = 31;
idx_RecibosCompensadosCliPROVINCIA = 32;
idx_RecibosCompensadosCliFECHA_ALTA = 33;
idx_RecibosCompensadosCliFECHA_MODIFICACION = 34;
idx_RecibosCompensadosCliUSUARIO = 35;
idx_RecibosCompensadosCliID_TIENDA = 36;
idx_RecibosCompensadosCliTIENDA = 37;
idx_RecibosCompensadosCliREFERENCIA_FACTURA = 6;
idx_RecibosCompensadosCliFECHA_FACTURA = 7;
idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 8;
idx_RecibosCompensadosCliIMPORTE_FACTURA = 9;
idx_RecibosCompensadosCliID_REMESA = 10;
idx_RecibosCompensadosCliREFERENCIA_REMESA = 11;
idx_RecibosCompensadosCliFECHA_EMISION = 12;
idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 13;
idx_RecibosCompensadosCliDESCRIPCION = 14;
idx_RecibosCompensadosCliOBSERVACIONES = 15;
idx_RecibosCompensadosCliIMPORTE = 16;
idx_RecibosCompensadosCliOTROS_GASTOS = 17;
idx_RecibosCompensadosCliIMPORTE_TOTAL = 18;
idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 19;
idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 20;
idx_RecibosCompensadosCliID_EMPRESA = 21;
idx_RecibosCompensadosCliID_CLIENTE = 22;
idx_RecibosCompensadosCliREFERENCIA_CLIENTE = 23;
idx_RecibosCompensadosCliNOMBRE_CLIENTE = 24;
idx_RecibosCompensadosCliENTIDAD_CLIENTE = 25;
idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 26;
idx_RecibosCompensadosCliDC_CLIENTE = 27;
idx_RecibosCompensadosCliCUENTA_CLIENTE = 28;
idx_RecibosCompensadosCliNIF_CIF = 29;
idx_RecibosCompensadosCliNOMBRE = 30;
idx_RecibosCompensadosCliCALLE = 31;
idx_RecibosCompensadosCliPOBLACION = 32;
idx_RecibosCompensadosCliCODIGO_POSTAL = 33;
idx_RecibosCompensadosCliPROVINCIA = 34;
idx_RecibosCompensadosCliFECHA_ALTA = 35;
idx_RecibosCompensadosCliFECHA_MODIFICACION = 36;
idx_RecibosCompensadosCliUSUARIO = 37;
idx_RecibosCompensadosCliID_TIENDA = 38;
idx_RecibosCompensadosCliTIENDA = 39;
idx_RecibosCompensadosCliCUENTA_CONTABLE = 40;
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{FEEAB5C2-E5E2-4D30-8C71-0DCC065B480F}']
['{6EE69FF4-C573-4C84-ABB8-AADD20CB1C97}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -266,7 +276,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{AFADC16A-65C2-4FF7-881E-7326C4760D9C}']
['{FA997C06-FA56-476C-A2C8-9C14645F12AD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -292,6 +302,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetREFERENCIA_FACTURAValue: String;
procedure SetREFERENCIA_FACTURAValue(const aValue: String);
function GetREFERENCIA_FACTURAIsNull: Boolean;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
@ -356,6 +370,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean;
@ -439,6 +457,8 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@ -471,6 +491,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@ -536,6 +558,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURAValue: String; virtual;
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
@ -600,6 +626,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
@ -682,6 +712,8 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@ -714,6 +746,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@ -757,7 +791,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
['{A92479D7-E796-4338-99B5-B712D903564D}']
['{F52B261A-56AB-4702-9FA4-F06407A2A66E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -996,7 +1030,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{9A3F6FE8-550A-4465-80AD-33C323C9C9BB}']
['{4FA8D8AA-25E8-4B7A-972A-1E6491B96D5B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1022,6 +1056,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetREFERENCIA_FACTURAValue: String;
procedure SetREFERENCIA_FACTURAValue(const aValue: String);
function GetREFERENCIA_FACTURAIsNull: Boolean;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
@ -1086,6 +1124,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean;
@ -1150,6 +1192,10 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCUENTA_CONTABLEValue: String;
procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
{ Properties }
@ -1165,6 +1211,8 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@ -1197,6 +1245,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@ -1229,6 +1279,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
end;
{ TRecibosCompensadosCliDataTableRules }
@ -1260,6 +1312,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURAValue: String; virtual;
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
@ -1324,6 +1380,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
@ -1388,6 +1448,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1402,6 +1466,8 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@ -1434,6 +1500,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@ -1466,6 +1534,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1647,6 +1717,27 @@ begin
DataTable.Fields[idx_RecibosClienteID_FACTURA].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_FACTURAValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsString;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsString := aValue;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime;
@ -1983,6 +2074,27 @@ begin
DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsString;
@ -2868,6 +2980,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_FACTURAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
@ -3204,6 +3337,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString;
@ -3540,6 +3694,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CONTABLEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CONTABLEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CONTABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_ListaAnosRecibos, TListaAnosRecibosDataTableRules);

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

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}';
RID_RecibosClienteDelta = '{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}';
RID_PagosClienteDelta = '{968C3D29-8DDA-43CA-A2DE-75706146ECC9}';
RID_RecibosCompensadosCliDelta = '{0EC94848-6B9E-4404-AF44-E604C7182106}';
RID_ListaAnosRecibosDelta = '{9E586155-C30C-4C3D-969F-4C5A8A34C00E}';
RID_RecibosClienteDelta = '{D8BC8C31-56C2-45FC-AB7B-063313B4B910}';
RID_PagosClienteDelta = '{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}';
RID_RecibosCompensadosCliDelta = '{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}']
['{9E586155-C30C-4C3D-969F-4C5A8A34C00E}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}']
['{D8BC8C31-56C2-45FC-AB7B-063313B4B910}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -59,6 +59,7 @@ type
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREFERENCIA_FACTURAValue : String;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
@ -75,6 +76,7 @@ type
function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String;
@ -100,6 +102,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
@ -116,6 +119,7 @@ type
property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
@ -176,6 +180,12 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURAValue: String; virtual;
function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
function GetOldREFERENCIA_FACTURAValue: String; virtual;
function GetOldREFERENCIA_FACTURAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
function GetOldFECHA_FACTURAValue: DateTime; virtual;
@ -272,6 +282,12 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual;
@ -400,6 +416,10 @@ type
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull : Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property OldREFERENCIA_FACTURAIsNull : Boolean read GetOldREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@ -464,6 +484,10 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@ -541,7 +565,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{968C3D29-8DDA-43CA-A2DE-75706146ECC9}']
['{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -779,7 +803,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{0EC94848-6B9E-4404-AF44-E604C7182106}']
['{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -787,6 +811,7 @@ type
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREFERENCIA_FACTURAValue : String;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
@ -803,6 +828,7 @@ type
function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String;
@ -819,6 +845,7 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldCUENTA_CONTABLEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -827,6 +854,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
@ -843,6 +871,7 @@ type
property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
@ -859,6 +888,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
end;
{ TRecibosCompensadosCliBusinessProcessorRules }
@ -902,6 +932,12 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURAValue: String; virtual;
function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
function GetOldREFERENCIA_FACTURAValue: String; virtual;
function GetOldREFERENCIA_FACTURAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
function GetOldFECHA_FACTURAValue: DateTime; virtual;
@ -998,6 +1034,12 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual;
@ -1094,6 +1136,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
function GetOldCUENTA_CONTABLEValue: String; virtual;
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1120,6 +1168,10 @@ type
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property REFERENCIA_FACTURAIsNull : Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property OldREFERENCIA_FACTURAIsNull : Boolean read GetOldREFERENCIA_FACTURAIsNull;
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@ -1184,6 +1236,10 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@ -1248,6 +1304,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1500,6 +1560,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
@ -1996,6 +2087,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
@ -3291,6 +3413,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
@ -3787,6 +3940,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
@ -4283,6 +4467,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CONTABLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);

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

@ -204,6 +204,14 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'CUENTA_CONTABLE'
TableField = 'CUENTA_CONTABLE'
end
item
DatasetField = 'REFERENCIA_FACTURA'
TableField = 'REFERENCIA_FACTURA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'RecibosCliente'
@ -244,6 +252,11 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'REFERENCIA_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -327,6 +340,11 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -766,6 +784,18 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'IMPORTE_SIN_COMPENSAR'
TableField = 'IMPORTE_SIN_COMPENSAR'
end
item
DatasetField = 'REFERENCIA_FACTURA'
TableField = 'REFERENCIA_FACTURA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'CUENTA_CONTABLE'
TableField = 'CUENTA_CONTABLE'
end>
end>
Name = 'RecibosCompensadosCli'
@ -798,6 +828,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -868,6 +903,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -946,6 +986,10 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
end>
end>
JoinDataTables = <>

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

@ -120,6 +120,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Visible = False
BestFitMaxWidth = 150
end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'

1
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -60,6 +60,7 @@ type
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn;
cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -29,7 +29,6 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de abril de 2016 13:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.