diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc index 6d06d8be..f674738a 100644 --- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc +++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD3.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf164.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 74f7d55d..4fd82ec7 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -9,14 +9,12 @@ 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_RecibosCliente = '{C45C8AE2-4838-451C-9B22-5ECF1462811F}'; - RID_RecibosCliente_Refresh = '{B39AD438-0F34-4953-9277-1CBF633864A7}'; - RID_PagosCliente = '{30992EC0-F83A-4DE3-A765-699E027648FB}'; - RID_RecibosCompensadosCli = '{FE1565E9-8B01-47B5-9D2B-BBED6173D85E}'; + RID_RecibosCliente = '{49C7956A-0A84-4CAC-A577-709985BCFE40}'; + RID_PagosCliente = '{556A81CB-B10F-4575-B1E8-1CDC29E07ECA}'; + RID_RecibosCompensadosCli = '{F7389B45-CBEA-4957-9676-8031F6C9B121}'; { Data table names } nme_RecibosCliente = 'RecibosCliente'; - nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh'; nme_PagosCliente = 'PagosCliente'; nme_RecibosCompensadosCli = 'RecibosCompensadosCli'; @@ -82,68 +80,6 @@ const idx_RecibosClienteFECHA_MODIFICACION = 27; idx_RecibosClienteUSUARIO = 28; - { RecibosCliente_Refresh fields } - fld_RecibosCliente_RefreshID = 'ID'; - fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; - fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; - fld_RecibosCliente_RefreshREFERENCIA = 'REFERENCIA'; - fld_RecibosCliente_RefreshSITUACION = 'SITUACION'; - fld_RecibosCliente_RefreshID_FACTURA = 'ID_FACTURA'; - fld_RecibosCliente_RefreshID_REMESA = 'ID_REMESA'; - fld_RecibosCliente_RefreshREFERENCIA_REMESA = 'REFERENCIA_REMESA'; - fld_RecibosCliente_RefreshFECHA_EMISION = 'FECHA_EMISION'; - fld_RecibosCliente_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; - fld_RecibosCliente_RefreshDESCRIPCION = 'DESCRIPCION'; - fld_RecibosCliente_RefreshOBSERVACIONES = 'OBSERVACIONES'; - fld_RecibosCliente_RefreshIMPORTE = 'IMPORTE'; - fld_RecibosCliente_RefreshOTROS_GASTOS = 'OTROS_GASTOS'; - fld_RecibosCliente_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_RecibosCliente_RefreshFECHA_FACTURA = 'FECHA_FACTURA'; - fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; - fld_RecibosCliente_RefreshIMPORTE_FACTURA = 'IMPORTE_FACTURA'; - fld_RecibosCliente_RefreshID_CLIENTE = 'ID_CLIENTE'; - fld_RecibosCliente_RefreshNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; - fld_RecibosCliente_RefreshNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; - fld_RecibosCliente_RefreshENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; - fld_RecibosCliente_RefreshSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; - fld_RecibosCliente_RefreshDC_CLIENTE = 'DC_CLIENTE'; - fld_RecibosCliente_RefreshCUENTA_CLIENTE = 'CUENTA_CLIENTE'; - fld_RecibosCliente_RefreshID_EMPRESA = 'ID_EMPRESA'; - fld_RecibosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA'; - fld_RecibosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_RecibosCliente_RefreshUSUARIO = 'USUARIO'; - - { RecibosCliente_Refresh field indexes } - idx_RecibosCliente_RefreshID = 0; - idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 1; - idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 2; - idx_RecibosCliente_RefreshREFERENCIA = 3; - idx_RecibosCliente_RefreshSITUACION = 4; - idx_RecibosCliente_RefreshID_FACTURA = 5; - idx_RecibosCliente_RefreshID_REMESA = 6; - idx_RecibosCliente_RefreshREFERENCIA_REMESA = 7; - idx_RecibosCliente_RefreshFECHA_EMISION = 8; - idx_RecibosCliente_RefreshFECHA_VENCIMIENTO = 9; - idx_RecibosCliente_RefreshDESCRIPCION = 10; - idx_RecibosCliente_RefreshOBSERVACIONES = 11; - idx_RecibosCliente_RefreshIMPORTE = 12; - idx_RecibosCliente_RefreshOTROS_GASTOS = 13; - idx_RecibosCliente_RefreshIMPORTE_TOTAL = 14; - idx_RecibosCliente_RefreshFECHA_FACTURA = 15; - idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 16; - idx_RecibosCliente_RefreshIMPORTE_FACTURA = 17; - idx_RecibosCliente_RefreshID_CLIENTE = 18; - idx_RecibosCliente_RefreshNOMBRE_CLIENTE = 19; - idx_RecibosCliente_RefreshNIF_CIF_CLIENTE = 20; - idx_RecibosCliente_RefreshENTIDAD_CLIENTE = 21; - idx_RecibosCliente_RefreshSUCURSAL_CLIENTE = 22; - idx_RecibosCliente_RefreshDC_CLIENTE = 23; - idx_RecibosCliente_RefreshCUENTA_CLIENTE = 24; - idx_RecibosCliente_RefreshID_EMPRESA = 25; - idx_RecibosCliente_RefreshFECHA_ALTA = 26; - idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27; - idx_RecibosCliente_RefreshUSUARIO = 28; - { PagosCliente fields } fld_PagosClienteID = 'ID'; fld_PagosClienteID_RECIBO = 'ID_RECIBO'; @@ -211,7 +147,7 @@ const type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{CA324EA4-321F-4D01-B7A9-F04B0929DE7B}'] + ['{14D43E5A-D46A-4F89-8E59-6BA1C0EBB6B1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -580,380 +516,9 @@ type end; - { IRecibosCliente_Refresh } - IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{D0E5C19C-1BCA-4F1E-BF22-4DA5954B148C}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_RECIBO_COMPENSADOValue: Integer; - procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); - function GetID_RECIBO_COMPENSADOIsNull: Boolean; - procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); - function GetREFERENCIA_REC_COMPENSADOValue: String; - procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); - function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; - procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetSITUACIONValue: String; - procedure SetSITUACIONValue(const aValue: String); - function GetSITUACIONIsNull: Boolean; - procedure SetSITUACIONIsNull(const aValue: Boolean); - function GetID_FACTURAValue: Integer; - procedure SetID_FACTURAValue(const aValue: Integer); - function GetID_FACTURAIsNull: Boolean; - procedure SetID_FACTURAIsNull(const aValue: Boolean); - function GetID_REMESAValue: Integer; - procedure SetID_REMESAValue(const aValue: Integer); - function GetID_REMESAIsNull: Boolean; - procedure SetID_REMESAIsNull(const aValue: Boolean); - function GetREFERENCIA_REMESAValue: String; - procedure SetREFERENCIA_REMESAValue(const aValue: String); - function GetREFERENCIA_REMESAIsNull: Boolean; - procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); - function GetFECHA_EMISIONValue: DateTime; - procedure SetFECHA_EMISIONValue(const aValue: DateTime); - function GetFECHA_EMISIONIsNull: Boolean; - procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); - function GetFECHA_VENCIMIENTOValue: DateTime; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); - function GetFECHA_VENCIMIENTOIsNull: Boolean; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetDESCRIPCIONIsNull: Boolean; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); - function GetOBSERVACIONESValue: String; - procedure SetOBSERVACIONESValue(const aValue: String); - function GetOBSERVACIONESIsNull: Boolean; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); - function GetIMPORTEValue: Currency; - procedure SetIMPORTEValue(const aValue: Currency); - function GetIMPORTEIsNull: Boolean; - procedure SetIMPORTEIsNull(const aValue: Boolean); - function GetOTROS_GASTOSValue: Currency; - procedure SetOTROS_GASTOSValue(const aValue: Currency); - function GetOTROS_GASTOSIsNull: Boolean; - procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetFECHA_FACTURAValue: DateTime; - procedure SetFECHA_FACTURAValue(const aValue: DateTime); - function GetFECHA_FACTURAIsNull: Boolean; - procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); - function GetFORMA_PAGO_FACTURAValue: String; - procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); - function GetFORMA_PAGO_FACTURAIsNull: Boolean; - procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); - function GetIMPORTE_FACTURAValue: Currency; - procedure SetIMPORTE_FACTURAValue(const aValue: Currency); - function GetIMPORTE_FACTURAIsNull: Boolean; - procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); - function GetID_CLIENTEValue: Integer; - procedure SetID_CLIENTEValue(const aValue: Integer); - function GetID_CLIENTEIsNull: Boolean; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); - function GetNOMBRE_CLIENTEValue: String; - procedure SetNOMBRE_CLIENTEValue(const aValue: String); - function GetNOMBRE_CLIENTEIsNull: Boolean; - procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); - function GetNIF_CIF_CLIENTEValue: String; - procedure SetNIF_CIF_CLIENTEValue(const aValue: String); - function GetNIF_CIF_CLIENTEIsNull: Boolean; - procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); - function GetENTIDAD_CLIENTEValue: String; - procedure SetENTIDAD_CLIENTEValue(const aValue: String); - function GetENTIDAD_CLIENTEIsNull: Boolean; - procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); - function GetSUCURSAL_CLIENTEValue: String; - procedure SetSUCURSAL_CLIENTEValue(const aValue: String); - function GetSUCURSAL_CLIENTEIsNull: Boolean; - procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); - function GetDC_CLIENTEValue: String; - procedure SetDC_CLIENTEValue(const aValue: String); - function GetDC_CLIENTEIsNull: Boolean; - procedure SetDC_CLIENTEIsNull(const aValue: Boolean); - function GetCUENTA_CLIENTEValue: String; - procedure SetCUENTA_CLIENTEValue(const aValue: String); - function GetCUENTA_CLIENTEIsNull: Boolean; - procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetID_EMPRESAIsNull: Boolean; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_ALTAIsNull: Boolean; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONIsNull: Boolean; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetUSUARIOIsNull: Boolean; - procedure SetUSUARIOIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; - property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; - property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; - property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - 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 ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; - property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; - property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; - property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; - property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; - property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; - property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; - property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; - property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - 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; - property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; - property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; - property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; - property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; - property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; - property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; - property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; - property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; - property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; - property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; - property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; - property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; - property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; - property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - end; - - { TRecibosCliente_RefreshDataTableRules } - TRecibosCliente_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente_Refresh) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetIDIsNull: Boolean; virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_RECIBO_COMPENSADOValue: Integer; virtual; - procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; - function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; - procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; - procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; - function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; - procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - function GetSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_REMESAValue: Integer; virtual; - procedure SetID_REMESAValue(const aValue: Integer); virtual; - function GetID_REMESAIsNull: Boolean; virtual; - procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_REMESAValue: String; virtual; - procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; - function GetREFERENCIA_REMESAIsNull: Boolean; virtual; - procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; - function GetFECHA_EMISIONValue: DateTime; virtual; - procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; - function GetFECHA_EMISIONIsNull: Boolean; virtual; - procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: String; virtual; - procedure SetOBSERVACIONESValue(const aValue: String); virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetIMPORTEValue: Currency; virtual; - procedure SetIMPORTEValue(const aValue: Currency); virtual; - function GetIMPORTEIsNull: Boolean; virtual; - procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; - function GetOTROS_GASTOSValue: Currency; virtual; - procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; - function GetOTROS_GASTOSIsNull: Boolean; virtual; - procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetFECHA_FACTURAValue: DateTime; virtual; - procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; - function GetFECHA_FACTURAIsNull: Boolean; virtual; - procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; - function GetFORMA_PAGO_FACTURAValue: String; virtual; - procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; - function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; - procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_FACTURAValue: Currency; virtual; - procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; - function GetIMPORTE_FACTURAIsNull: Boolean; virtual; - procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBRE_CLIENTEValue: String; virtual; - procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; - function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; - procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNIF_CIF_CLIENTEValue: String; virtual; - procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; - function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual; - procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_CLIENTEValue: String; virtual; - procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; - function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; - procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_CLIENTEValue: String; virtual; - procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; - function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; - procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetDC_CLIENTEValue: String; virtual; - procedure SetDC_CLIENTEValue(const aValue: String); virtual; - function GetDC_CLIENTEIsNull: Boolean; virtual; - procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetCUENTA_CLIENTEValue: String; virtual; - procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; - function GetCUENTA_CLIENTEIsNull: Boolean; virtual; - procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; - property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; - property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; - property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - 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 ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; - property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; - property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; - property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; - property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; - property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; - property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; - property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; - property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - 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; - property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; - property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; - property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; - property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; - property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; - property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; - property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; - property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; - property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; - property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; - property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; - property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; - property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; - property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{5F9EDB68-CE2E-4908-87F6-FFE6D51400BF}'] + ['{92A8371B-B686-4664-8F0F-621B498C99F2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1120,7 +685,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{D750D258-1625-4272-8D13-36211B9AFB6A}'] + ['{EB912FB7-AC41-4E3F-B888-E26228ED7B80}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1958,627 +1523,6 @@ begin end; -{ TRecibosCliente_RefreshDataTableRules } -constructor TRecibosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRecibosCliente_RefreshDataTableRules.Destroy; -begin - inherited; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetSITUACIONValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetSITUACIONValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetSITUACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_FACTURAValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_FACTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_REMESAValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_REMESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_REMESAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_REMESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REMESAValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REMESAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_EMISIONValue: DateTime; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsDateTime; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsDateTime := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_EMISIONIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsDateTime; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsDateTime := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetDESCRIPCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetOBSERVACIONESValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetOBSERVACIONESValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetOBSERVACIONESIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTEValue: Currency; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsCurrency; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsCurrency := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetOTROS_GASTOSValue: Currency; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsCurrency; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency); -begin - DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsCurrency := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetOTROS_GASTOSIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsCurrency; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_FACTURAValue: DateTime; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsDateTime; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsDateTime := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFORMA_PAGO_FACTURAValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_FACTURAValue: Currency; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsCurrency; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency); -begin - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsCurrency := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_CLIENTEValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetNOMBRE_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetNIF_CIF_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetENTIDAD_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetSUCURSAL_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetDC_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetDC_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetDC_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetCUENTA_CLIENTEValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsInteger; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsInteger := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsDateTime; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsDateTime := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsDateTime; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsVariant := Null; -end; - -function TRecibosCliente_RefreshDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString := aValue; -end; - -function TRecibosCliente_RefreshDataTableRules.GetUSUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].IsNull; -end; - -procedure TRecibosCliente_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsVariant := Null; -end; - - { TPagosClienteDataTableRules } constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); begin @@ -3193,7 +2137,6 @@ end; initialization RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules); - RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules); RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules); RegisterDataTableRules(RID_RecibosCompensadosCli, TRecibosCompensadosCliDataTableRules); diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index cfb1068a..13ec6181 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosClienteDelta = '{620E956A-4FE0-49E0-9137-4C256258EAAC}'; - RID_RecibosCliente_RefreshDelta = '{7BC75401-792B-4405-9AAC-7AD088D5873D}'; - RID_PagosClienteDelta = '{C1592064-7E8B-4BF8-AA15-D3440A659561}'; - RID_RecibosCompensadosCliDelta = '{C4091E2E-DAF8-461F-881E-E50A1E93713C}'; + RID_RecibosClienteDelta = '{112687A9-E4E3-453E-AD24-F6AF1575EDCC}'; + RID_PagosClienteDelta = '{41C4B6B1-E072-45C7-9E22-BB8773C91269}'; + RID_RecibosCompensadosCliDelta = '{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}'; type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{620E956A-4FE0-49E0-9137-4C256258EAAC}'] + ['{112687A9-E4E3-453E-AD24-F6AF1575EDCC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -385,379 +384,9 @@ type end; - { IRecibosCliente_RefreshDelta } - IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh) - ['{7BC75401-792B-4405-9AAC-7AD088D5873D}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_RECIBO_COMPENSADOValue : Integer; - function GetOldREFERENCIA_REC_COMPENSADOValue : String; - function GetOldREFERENCIAValue : String; - function GetOldSITUACIONValue : String; - function GetOldID_FACTURAValue : Integer; - function GetOldID_REMESAValue : Integer; - function GetOldREFERENCIA_REMESAValue : String; - function GetOldFECHA_EMISIONValue : DateTime; - function GetOldFECHA_VENCIMIENTOValue : DateTime; - function GetOldDESCRIPCIONValue : String; - function GetOldOBSERVACIONESValue : String; - function GetOldIMPORTEValue : Currency; - function GetOldOTROS_GASTOSValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldFECHA_FACTURAValue : DateTime; - function GetOldFORMA_PAGO_FACTURAValue : String; - function GetOldIMPORTE_FACTURAValue : Currency; - function GetOldID_CLIENTEValue : Integer; - function GetOldNOMBRE_CLIENTEValue : String; - function GetOldNIF_CIF_CLIENTEValue : String; - function GetOldENTIDAD_CLIENTEValue : String; - function GetOldSUCURSAL_CLIENTEValue : String; - function GetOldDC_CLIENTEValue : String; - function GetOldCUENTA_CLIENTEValue : String; - function GetOldID_EMPRESAValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldUSUARIOValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; - property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldSITUACION : String read GetOldSITUACIONValue; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_REMESA : Integer read GetOldID_REMESAValue; - property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; - property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; - property OldIMPORTE : Currency read GetOldIMPORTEValue; - property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; - property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; - property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; - property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; - property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; - property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; - property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; - property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; - property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; - property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - end; - - { TRecibosCliente_RefreshBusinessProcessorRules } - TRecibosCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente_Refresh, IRecibosCliente_RefreshDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_RECIBO_COMPENSADOValue: Integer; virtual; - function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; - function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; - function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual; - procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; - procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; - function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; - function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; - function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; - procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; - procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - function GetSITUACIONIsNull: Boolean; virtual; - function GetOldSITUACIONValue: String; virtual; - function GetOldSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - function GetOldID_FACTURAValue: Integer; virtual; - function GetOldID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_REMESAValue: Integer; virtual; - function GetID_REMESAIsNull: Boolean; virtual; - function GetOldID_REMESAValue: Integer; virtual; - function GetOldID_REMESAIsNull: Boolean; virtual; - procedure SetID_REMESAValue(const aValue: Integer); virtual; - procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_REMESAValue: String; virtual; - function GetREFERENCIA_REMESAIsNull: Boolean; virtual; - function GetOldREFERENCIA_REMESAValue: String; virtual; - function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual; - procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; - procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; - function GetFECHA_EMISIONValue: DateTime; virtual; - function GetFECHA_EMISIONIsNull: Boolean; virtual; - function GetOldFECHA_EMISIONValue: DateTime; virtual; - function GetOldFECHA_EMISIONIsNull: Boolean; virtual; - procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: String; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - function GetOldOBSERVACIONESValue: String; virtual; - function GetOldOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESValue(const aValue: String); virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetIMPORTEValue: Currency; virtual; - function GetIMPORTEIsNull: Boolean; virtual; - function GetOldIMPORTEValue: Currency; virtual; - function GetOldIMPORTEIsNull: Boolean; virtual; - procedure SetIMPORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; - function GetOTROS_GASTOSValue: Currency; virtual; - function GetOTROS_GASTOSIsNull: Boolean; virtual; - function GetOldOTROS_GASTOSValue: Currency; virtual; - function GetOldOTROS_GASTOSIsNull: Boolean; virtual; - procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; - procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetFECHA_FACTURAValue: DateTime; virtual; - function GetFECHA_FACTURAIsNull: Boolean; virtual; - function GetOldFECHA_FACTURAValue: DateTime; virtual; - function GetOldFECHA_FACTURAIsNull: Boolean; virtual; - procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; - procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; - function GetFORMA_PAGO_FACTURAValue: String; virtual; - function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; - function GetOldFORMA_PAGO_FACTURAValue: String; virtual; - function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual; - procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; - procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_FACTURAValue: Currency; virtual; - function GetIMPORTE_FACTURAIsNull: Boolean; virtual; - function GetOldIMPORTE_FACTURAValue: Currency; virtual; - function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual; - procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; - procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - function GetOldID_CLIENTEValue: Integer; virtual; - function GetOldID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBRE_CLIENTEValue: String; virtual; - function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; - function GetOldNOMBRE_CLIENTEValue: String; virtual; - function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual; - procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; - procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNIF_CIF_CLIENTEValue: String; virtual; - function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual; - function GetOldNIF_CIF_CLIENTEValue: String; virtual; - function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual; - procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; - procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_CLIENTEValue: String; virtual; - function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; - function GetOldENTIDAD_CLIENTEValue: String; virtual; - function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual; - procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; - procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_CLIENTEValue: String; virtual; - function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; - function GetOldSUCURSAL_CLIENTEValue: String; virtual; - function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual; - procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; - procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetDC_CLIENTEValue: String; virtual; - function GetDC_CLIENTEIsNull: Boolean; virtual; - function GetOldDC_CLIENTEValue: String; virtual; - function GetOldDC_CLIENTEIsNull: Boolean; virtual; - procedure SetDC_CLIENTEValue(const aValue: String); virtual; - procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetCUENTA_CLIENTEValue: String; virtual; - function GetCUENTA_CLIENTEIsNull: Boolean; virtual; - function GetOldCUENTA_CLIENTEValue: String; virtual; - function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual; - procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; - procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - function GetUSUARIOIsNull: Boolean; virtual; - function GetOldUSUARIOValue: String; virtual; - function GetOldUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; - property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; - property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; - property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull; - property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; - property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; - property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; - property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property OldSITUACION : String read GetOldSITUACIONValue; - property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; - property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; - 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 ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; - property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; - property OldID_REMESA : Integer read GetOldID_REMESAValue; - property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull; - property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; - property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; - property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; - property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull; - property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; - property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; - property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; - property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull; - property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; - property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; - property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; - property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; - property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; - property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; - property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; - property OldIMPORTE : Currency read GetOldIMPORTEValue; - property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull; - property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; - property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; - property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; - property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - 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; - property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; - property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; - property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; - property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; - property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull; - property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; - property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; - property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; - property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull; - property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - 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 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; - property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull; - property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; - property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; - property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; - property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull; - property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; - property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; - property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; - property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull; - property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; - property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; - property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; - property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull; - property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; - property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; - property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; - property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull; - property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; - property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; - property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; - property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{C1592064-7E8B-4BF8-AA15-D3440A659561}'] + ['{41C4B6B1-E072-45C7-9E22-BB8773C91269}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -923,7 +552,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{C4091E2E-DAF8-461F-881E-E50A1E93713C}'] + ['{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -2051,917 +1680,6 @@ begin end; -{ TRecibosCliente_RefreshBusinessProcessorRules } -constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRecibosCliente_RefreshBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSITUACION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSITUACION]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_FACTURA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_REMESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_REMESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_REMESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_REMESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_REMESA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDESCRIPCION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDESCRIPCION]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetDC_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDC_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_EMPRESA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_EMPRESA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION] := Null; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO]); -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshUSUARIO]; -end; - -function TRecibosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshUSUARIO]); -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue; -end; - -procedure TRecibosCliente_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := Null; -end; - - { TPagosClienteBusinessProcessorRules } constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin @@ -3856,7 +2574,6 @@ end; initialization RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules); diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas index f64ac8d0..5c0e4ed5 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas @@ -94,6 +94,7 @@ type procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli); procedure OnNewRecord(Sender: TDADataTable); override; + function GetSITUACIONValue: String; override; procedure SetID_REMESAValue(const aValue: Integer); override; public @@ -132,6 +133,11 @@ begin Result := FRecibosCompensados; end; +function TBizRecibosCliente.GetSITUACIONValue: String; +begin + result := Trim(DataTable.Fields[idx_RecibosClienteSITUACION].AsString); +end; + procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer); begin if (aValue = 0) then diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc index 960aa761..f3136828 100644 --- a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc +++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5B.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16A.tmp */ diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj index 32efb038..bc1f00d9 100644 --- a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj +++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj @@ -48,24 +48,6 @@ - - - - - - - - - - - - - - - - - - @@ -111,14 +93,32 @@ + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index 1e37eecb..21f08281 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -26,6 +26,14 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'ID' TableField = 'ID' end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' + end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' @@ -38,6 +46,18 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' @@ -54,6 +74,14 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'IMPORTE' TableField = 'IMPORTE' end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' @@ -66,6 +94,14 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA' end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' @@ -90,10 +126,6 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' @@ -105,46 +137,17 @@ object srvRecibosCliente: TsrvRecibosCliente item DatasetField = 'USUARIO' TableField = 'USUARIO' - end - item - DatasetField = 'ID_REMESA' - TableField = 'ID_REMESA' - end - item - DatasetField = 'REFERENCIA_REMESA' - TableField = 'REFERENCIA_REMESA' - end - item - DatasetField = 'OTROS_GASTOS' - TableField = 'OTROS_GASTOS' - end - item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'FECHA_EMISION' - TableField = 'FECHA_EMISION' - end - item - DatasetField = 'ID_RECIBO_COMPENSADO' - TableField = 'ID_RECIBO_COMPENSADO' - end - item - DatasetField = 'REFERENCIA_REC_COMPENSADO' - TableField = 'REFERENCIA_REC_COMPENSADO' end> end> Name = 'RecibosCliente' Fields = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' + ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_ID' + InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' @@ -299,308 +302,6 @@ object srvRecibosCliente: TsrvRecibosCliente DictionaryEntry = 'RecibosCliente_USUARIO' end> end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_RECIBOS_CLIENTE' - SQL = - 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' + - 'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' + - ','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' + - 'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' + - 'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' + - 'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' + - 'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' + - '_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' + - ' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' + - ' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' + - '_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'SITUACION' - TableField = 'SITUACION' - end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'FECHA_VENCIMIENTO' - TableField = 'FECHA_VENCIMIENTO' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'IMPORTE' - TableField = 'IMPORTE' - end - item - DatasetField = 'FECHA_FACTURA' - TableField = 'FECHA_FACTURA' - end - item - DatasetField = 'FORMA_PAGO_FACTURA' - TableField = 'FORMA_PAGO_FACTURA' - end - item - DatasetField = 'IMPORTE_FACTURA' - TableField = 'IMPORTE_FACTURA' - end - item - DatasetField = 'NOMBRE_CLIENTE' - TableField = 'NOMBRE_CLIENTE' - end - item - DatasetField = 'NIF_CIF_CLIENTE' - TableField = 'NIF_CIF_CLIENTE' - end - item - DatasetField = 'ENTIDAD_CLIENTE' - TableField = 'ENTIDAD_CLIENTE' - end - item - DatasetField = 'SUCURSAL_CLIENTE' - TableField = 'SUCURSAL_CLIENTE' - end - item - DatasetField = 'DC_CLIENTE' - TableField = 'DC_CLIENTE' - end - item - DatasetField = 'CUENTA_CLIENTE' - TableField = 'CUENTA_CLIENTE' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_REMESA' - TableField = 'ID_REMESA' - end - item - DatasetField = 'REFERENCIA_REMESA' - TableField = 'REFERENCIA_REMESA' - end - item - DatasetField = 'OTROS_GASTOS' - TableField = 'OTROS_GASTOS' - end - item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'FECHA_EMISION' - TableField = 'FECHA_EMISION' - end - item - DatasetField = 'ID_RECIBO_COMPENSADO' - TableField = 'ID_RECIBO_COMPENSADO' - end - item - DatasetField = 'REFERENCIA_REC_COMPENSADO' - TableField = 'REFERENCIA_REC_COMPENSADO' - end> - end> - Name = 'RecibosCliente_Refresh' - Fields = < - item - Name = 'ID' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_Refresh_ID' - end - item - Name = 'ID_RECIBO_COMPENSADO' - DataType = datInteger - end - item - Name = 'REFERENCIA_REC_COMPENSADO' - DataType = datString - Size = 255 - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA' - end - item - Name = 'SITUACION' - DataType = datString - Size = 9 - DictionaryEntry = 'RecibosCliente_Refresh_SITUACION' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_Refresh_ID_FACTURA' - end - item - Name = 'ID_REMESA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_Refresh_ID_REMESA' - end - item - Name = 'REFERENCIA_REMESA' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA_REMESA' - end - item - Name = 'FECHA_EMISION' - DataType = datDateTime - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_DESCRIPCION' - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_OBSERVACIONES' - end - item - Name = 'IMPORTE' - DataType = datCurrency - DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE' - end - item - Name = 'OTROS_GASTOS' - DataType = datCurrency - DictionaryEntry = 'RecibosCliente_Refresh_OTROS_GASTOS' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_TOTAL' - end - item - Name = 'FECHA_FACTURA' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_Refresh_FECHA_FACTURA' - end - item - Name = 'FORMA_PAGO_FACTURA' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA' - end - item - Name = 'IMPORTE_FACTURA' - DataType = datCurrency - DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_FACTURA' - end - item - Name = 'ID_CLIENTE' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_Refresh_ID_CLIENTE' - end - item - Name = 'NOMBRE_CLIENTE' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_Refresh_NOMBRE_CLIENTE' - end - item - Name = 'NIF_CIF_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE' - end - item - Name = 'ENTIDAD_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE' - end - item - Name = 'SUCURSAL_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE' - end - item - Name = 'DC_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_Refresh_DC_CLIENTE' - end - item - Name = 'CUENTA_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_Refresh_CUENTA_CLIENTE' - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_Refresh_ID_EMPRESA' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_Refresh_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_Refresh_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RecibosCliente_Refresh_USUARIO' - end> - end item Params = <> Statements = < @@ -662,7 +363,8 @@ object srvRecibosCliente: TsrvRecibosCliente Fields = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_CLIENTE_ID' DictionaryEntry = 'PagosCliente_ID' InPrimaryKey = True end @@ -908,7 +610,8 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' Value = '' ParamType = daptInput end @@ -1081,7 +784,8 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_CLIENTE_ID' Value = '' ParamType = daptInput end @@ -1404,8 +1108,11 @@ object srvRecibosCliente: TsrvRecibosCliente Fields = < item Name = 'RecibosCliente_ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'RecibosCliente_REFERENCIA' @@ -1521,129 +1228,13 @@ object srvRecibosCliente: TsrvRecibosCliente Size = 20 DisplayLabel = 'USUARIO' end - item - Name = 'RecibosCliente_Refresh_ID' - DataType = datInteger - DisplayLabel = 'ID' - end - item - Name = 'RecibosCliente_Refresh_REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'REFERENCIA' - end - item - Name = 'RecibosCliente_Refresh_SITUACION' - DataType = datString - Size = 9 - DisplayLabel = 'SITUACION' - end - item - Name = 'RecibosCliente_Refresh_ID_FACTURA' - DataType = datInteger - DisplayLabel = 'ID_FACTURA' - end - item - Name = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO' - DataType = datDateTime - DisplayLabel = 'FECHA_VENCIMIENTO' - end - item - Name = 'RecibosCliente_Refresh_DESCRIPCION' - DataType = datString - Size = 255 - DisplayLabel = 'DESCRIPCION' - end - item - Name = 'RecibosCliente_Refresh_OBSERVACIONES' - DataType = datString - Size = 255 - DisplayLabel = 'OBSERVACIONES' - end - item - Name = 'RecibosCliente_Refresh_IMPORTE' - DataType = datCurrency - DisplayLabel = 'IMPORTE' - Alignment = taRightJustify - end - item - Name = 'RecibosCliente_Refresh_FECHA_FACTURA' - DataType = datDateTime - DisplayLabel = 'FECHA_FACTURA' - end - item - Name = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA' - DataType = datString - Size = 255 - DisplayLabel = 'FORMA_PAGO_FACTURA' - end - item - Name = 'RecibosCliente_Refresh_IMPORTE_FACTURA' - DataType = datCurrency - DisplayLabel = 'IMPORTE_FACTURA' - Alignment = taRightJustify - end - item - Name = 'RecibosCliente_Refresh_NOMBRE_CLIENTE' - DataType = datString - Size = 255 - DisplayLabel = 'NOMBRE_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE' - DataType = datString - Size = 15 - DisplayLabel = 'NIF_CIF_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE' - DataType = datString - Size = 15 - DisplayLabel = 'ENTIDAD_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE' - DataType = datString - Size = 15 - DisplayLabel = 'SUCURSAL_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_DC_CLIENTE' - DataType = datString - Size = 15 - DisplayLabel = 'DC_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_CUENTA_CLIENTE' - DataType = datString - Size = 15 - DisplayLabel = 'CUENTA_CLIENTE' - end - item - Name = 'RecibosCliente_Refresh_ID_EMPRESA' - DataType = datInteger - DisplayLabel = 'ID_EMPRESA' - end - item - Name = 'RecibosCliente_Refresh_FECHA_ALTA' - DataType = datDateTime - DisplayLabel = 'FECHA_ALTA' - end - item - Name = 'RecibosCliente_Refresh_FECHA_MODIFICACION' - DataType = datDateTime - DisplayLabel = 'FECHA_MODIFICACION' - end - item - Name = 'RecibosCliente_Refresh_USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'USUARIO' - end item Name = 'PagosCliente_ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_CLIENTE_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'PagosCliente_ID_RECIBO' @@ -1696,10 +1287,6 @@ object srvRecibosCliente: TsrvRecibosCliente DataType = datString Size = 20 end - item - Name = 'RecibosCliente_Refresh_ID_REMESA' - DataType = datInteger - end item Name = 'RecibosCliente_ID_REMESA' DataType = datInteger @@ -1709,21 +1296,11 @@ object srvRecibosCliente: TsrvRecibosCliente DataType = datString Size = 255 end - item - Name = 'RecibosCliente_Refresh_REFERENCIA_REMESA' - DataType = datString - Size = 255 - end item Name = 'RecibosCliente_OTROS_GASTOS' DataType = datCurrency Alignment = taRightJustify end - item - Name = 'RecibosCliente_Refresh_OTROS_GASTOS' - DataType = datCurrency - Alignment = taRightJustify - end item Name = 'RecibosCliente_IMPORTE_TOTAL' DataType = datCurrency @@ -1735,17 +1312,6 @@ object srvRecibosCliente: TsrvRecibosCliente DataType = datInteger DisplayLabel = 'ID_CLIENTE' end - item - Name = 'RecibosCliente_Refresh_IMPORTE_TOTAL' - DataType = datCurrency - DisplayLabel = 'IMPORTE_TOTAL' - Alignment = taRightJustify - end - item - Name = 'RecibosCliente_Refresh_ID_CLIENTE' - DataType = datInteger - DisplayLabel = 'ID_CLIENTE' - end item Name = 'RecibosCliente_FECHA_EMISION' DataType = datDateTime diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas index c3460645..9249f601 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas @@ -69,7 +69,7 @@ begin { Aquí se asegura que el usuario sólo accede a Recibos de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA); +// FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA); end; end;