diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 04eede6..b2e2e65 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 6f57818..f7a67e6 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -51,6 +51,13 @@ + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -65,55 +72,55 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 809f61f..2ffd4b1 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.RES b/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.RES index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.RES and b/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.RES differ diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas index 0b82d05..2bad590 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas @@ -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; diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES and b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES differ diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 6de691b..763fd65 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -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 } diff --git a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj index 05677b2..d0c9a6a 100644 --- a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj +++ b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj @@ -17,6 +17,7 @@ + @@ -221,14 +222,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj index 75609dc..e006b3a 100644 --- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj +++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj @@ -49,8 +49,8 @@ MainSource - - + +
DataModuleRecibosCliente
TDAClientDataModule diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res index 8b251f3..1641339 100644 Binary files a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res and b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res differ diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index 1f4dd1f..c1b7536 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -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 diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 386b2f7..8bfbdb0 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -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); diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index c285441..ef50077 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -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); diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index f16319a..a343de5 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -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 = <> diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 184a157..9c0cb39 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -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' diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index 13ba265..e9042cf 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -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); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 35e3dcd..76d57e5 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -29,7 +29,6 @@ FalseTrueFalseTrueFalse2680FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.8.0FactuGES (Servidor)2.6.8.0lunes, 11 de abril de 2016 13:37 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 38b8c8b..73d08e4 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ