From 803408f5867f4d5e9af0c515177b4ddc47bb501b Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 20 Oct 2008 16:29:26 +0000 Subject: [PATCH] Arreglo de recibos de cliente para que la cuenta que saque en el recibo no sea la del cliente sino la de la factura git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@709 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Informes/InfReciboCliente.fr3 | 72 +-- .../Data/uDataModuleRecibosCliente.dfm | 46 +- .../Model/schRecibosClienteClient_Intf.pas | 466 ++++++++------ .../Model/schRecibosClienteServer_Intf.pas | 482 ++++++++------ .../Reports/uRptRecibosCliente_Server.dfm | 131 ++-- .../Servidor/srvRecibosCliente_Impl.dfm | 86 +-- .../Views/uEditorReciboCliente.dfm | 120 +++- .../Views/uEditorReciboCliente.pas | 2 +- .../Views/uViewReciboCliente.dfm | 206 ++---- .../Views/uViewReciboCliente.pas | 12 +- .../Data/uDataModuleRecibosProveedor.dfm | 58 +- .../Model/schRecibosProveedorClient_Intf.pas | 394 +++--------- .../Model/schRecibosProveedorServer_Intf.pas | 442 +++---------- .../Servidor/srvRecibosProveedor_Impl.dfm | 94 +-- .../Views/uEditorReciboProveedor.dfm | 93 ++- .../Views/uEditorReciboProveedor.pas | 2 +- .../Views/uViewReciboProveedor.dfm | 224 ++----- .../Views/uViewReciboProveedor.pas | 12 +- Source/Servidor/FactuGES_Server.RES | Bin 23204 -> 23204 bytes Source/Servidor/FactuGES_Server.dpr | 10 +- Source/Servidor/FactuGES_Server.dproj | 586 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 22 files changed, 1450 insertions(+), 2090 deletions(-) diff --git a/Source/Informes/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3 index 2c246ba6..5739b31e 100644 --- a/Source/Informes/InfReciboCliente.fr3 +++ b/Source/Informes/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,70 +7,64 @@ - + - + - - + + - + - - - - - - - - - + + + + + + + - - - - - - + + + - - + + - + - - - - - - - - - + + + + + + + - - - - - - + + + + + + + diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index dc90623f..bc339cf8 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -243,6 +243,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_EMPRESA' end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -261,28 +266,24 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' end item - Name = 'ENTIDAD_CLIENTE' + Name = 'CALLE_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE' + Size = 255 end item - Name = 'SUCURSAL_CLIENTE' + Name = 'POBLACION_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE' + Size = 255 end item - Name = 'DC_CLIENTE' + Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_DC_CLIENTE' + Size = 10 end item - Name = 'CUENTA_CLIENTE' + Name = 'PROVINCIA_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE' + Size = 255 end item Name = 'FECHA_ALTA' @@ -403,6 +404,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -418,24 +424,24 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Size = 15 end item - Name = 'ENTIDAD_CLIENTE' + Name = 'CALLE_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'SUCURSAL_CLIENTE' + Name = 'POBLACION_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'DC_CLIENTE' + Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString - Size = 15 + Size = 10 end item - Name = 'CUENTA_CLIENTE' + Name = 'PROVINCIA_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item Name = 'FECHA_ALTA' diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 7691331d..f4f51ea5 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCliente = '{5410D8EC-FA59-43E6-96AB-C7C2E1292FBB}'; - RID_PagosCliente = '{A9A33A29-1E9F-40C7-9F00-73776CAA6D93}'; - RID_RecibosCompensadosCli = '{55474263-530A-458F-ADE8-497B260FA9A3}'; + RID_RecibosCliente = '{E9F29F10-35D7-452D-84BE-6DA7198A02C9}'; + RID_PagosCliente = '{9C420402-DDE5-4E67-AFF4-B29246EB13C5}'; + RID_RecibosCompensadosCli = '{81964F25-3486-482C-A0CB-C0C59C70EE91}'; { Data table names } nme_RecibosCliente = 'RecibosCliente'; @@ -38,13 +38,14 @@ const fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE'; fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_RecibosClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; - fld_RecibosClienteENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; - fld_RecibosClienteSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; - fld_RecibosClienteDC_CLIENTE = 'DC_CLIENTE'; - fld_RecibosClienteCUENTA_CLIENTE = 'CUENTA_CLIENTE'; + fld_RecibosClienteCALLE_CLIENTE = 'CALLE_CLIENTE'; + fld_RecibosClientePOBLACION_CLIENTE = 'POBLACION_CLIENTE'; + fld_RecibosClienteCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE'; + fld_RecibosClientePROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE'; fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosClienteUSUARIO = 'USUARIO'; @@ -69,16 +70,17 @@ const idx_RecibosClienteFORMA_PAGO_FACTURA = 16; idx_RecibosClienteIMPORTE_FACTURA = 17; idx_RecibosClienteID_EMPRESA = 18; - idx_RecibosClienteID_CLIENTE = 19; - idx_RecibosClienteNOMBRE_CLIENTE = 20; - idx_RecibosClienteNIF_CIF_CLIENTE = 21; - idx_RecibosClienteENTIDAD_CLIENTE = 22; - idx_RecibosClienteSUCURSAL_CLIENTE = 23; - idx_RecibosClienteDC_CLIENTE = 24; - idx_RecibosClienteCUENTA_CLIENTE = 25; - idx_RecibosClienteFECHA_ALTA = 26; - idx_RecibosClienteFECHA_MODIFICACION = 27; - idx_RecibosClienteUSUARIO = 28; + idx_RecibosClienteDATOS_BANCARIOS = 19; + idx_RecibosClienteID_CLIENTE = 20; + idx_RecibosClienteNOMBRE_CLIENTE = 21; + idx_RecibosClienteNIF_CIF_CLIENTE = 22; + idx_RecibosClienteCALLE_CLIENTE = 23; + idx_RecibosClientePOBLACION_CLIENTE = 24; + idx_RecibosClienteCODIGO_POSTAL_CLIENTE = 25; + idx_RecibosClientePROVINCIA_CLIENTE = 26; + idx_RecibosClienteFECHA_ALTA = 27; + idx_RecibosClienteFECHA_MODIFICACION = 28; + idx_RecibosClienteUSUARIO = 29; { PagosCliente fields } fld_PagosClienteID = 'ID'; @@ -128,13 +130,14 @@ const fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosCompensadosCliDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE'; fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; - fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; - fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; - fld_RecibosCompensadosCliDC_CLIENTE = 'DC_CLIENTE'; - fld_RecibosCompensadosCliCUENTA_CLIENTE = 'CUENTA_CLIENTE'; + fld_RecibosCompensadosCliCALLE_CLIENTE = 'CALLE_CLIENTE'; + fld_RecibosCompensadosCliPOBLACION_CLIENTE = 'POBLACION_CLIENTE'; + fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE'; + fld_RecibosCompensadosCliPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE'; fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosCliUSUARIO = 'USUARIO'; @@ -159,21 +162,22 @@ const idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16; idx_RecibosCompensadosCliIMPORTE_FACTURA = 17; idx_RecibosCompensadosCliID_EMPRESA = 18; - idx_RecibosCompensadosCliID_CLIENTE = 19; - idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20; - idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 21; - idx_RecibosCompensadosCliENTIDAD_CLIENTE = 22; - idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 23; - idx_RecibosCompensadosCliDC_CLIENTE = 24; - idx_RecibosCompensadosCliCUENTA_CLIENTE = 25; - idx_RecibosCompensadosCliFECHA_ALTA = 26; - idx_RecibosCompensadosCliFECHA_MODIFICACION = 27; - idx_RecibosCompensadosCliUSUARIO = 28; + idx_RecibosCompensadosCliDATOS_BANCARIOS = 19; + idx_RecibosCompensadosCliID_CLIENTE = 20; + idx_RecibosCompensadosCliNOMBRE_CLIENTE = 21; + idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 22; + idx_RecibosCompensadosCliCALLE_CLIENTE = 23; + idx_RecibosCompensadosCliPOBLACION_CLIENTE = 24; + idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 25; + idx_RecibosCompensadosCliPROVINCIA_CLIENTE = 26; + idx_RecibosCompensadosCliFECHA_ALTA = 27; + idx_RecibosCompensadosCliFECHA_MODIFICACION = 28; + idx_RecibosCompensadosCliUSUARIO = 29; type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{11D2AB69-38A8-41B8-8139-2C32F3732B9C}'] + ['{BCE939A4-4046-4AE1-906E-19AFBC0E5FD2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -251,6 +255,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetDATOS_BANCARIOSValue: String; + procedure SetDATOS_BANCARIOSValue(const aValue: String); + function GetDATOS_BANCARIOSIsNull: Boolean; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; @@ -263,22 +271,22 @@ type 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 GetCALLE_CLIENTEValue: String; + procedure SetCALLE_CLIENTEValue(const aValue: String); + function GetCALLE_CLIENTEIsNull: Boolean; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); + function GetPOBLACION_CLIENTEValue: String; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); + function GetPOBLACION_CLIENTEIsNull: Boolean; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); + function GetCODIGO_POSTAL_CLIENTEValue: String; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); + function GetPROVINCIA_CLIENTEValue: String; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); + function GetPROVINCIA_CLIENTEIsNull: Boolean; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; @@ -332,20 +340,22 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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 CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; 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; @@ -355,7 +365,7 @@ type end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -435,6 +445,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; @@ -447,22 +461,22 @@ type 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 GetCALLE_CLIENTEValue: String; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + function GetCALLE_CLIENTEIsNull: Boolean; virtual; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + function GetPOBLACION_CLIENTEIsNull: Boolean; virtual; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTAL_CLIENTEValue: String; virtual; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual; + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -515,20 +529,22 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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 CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; 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; @@ -544,7 +560,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{A77D5C00-617A-4A1C-B34F-B24E6AC72E0D}'] + ['{BB11224C-1002-4939-ACCC-1CC94A74BCEF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -624,7 +640,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -711,7 +727,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{3E3D9FC0-4E90-4A4D-AE58-8B53087B5A5F}'] + ['{EB5868FD-C6AA-4687-87B7-0AD07FDDA889}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -789,6 +805,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetDATOS_BANCARIOSValue: String; + procedure SetDATOS_BANCARIOSValue(const aValue: String); + function GetDATOS_BANCARIOSIsNull: Boolean; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; @@ -801,22 +821,22 @@ type 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 GetCALLE_CLIENTEValue: String; + procedure SetCALLE_CLIENTEValue(const aValue: String); + function GetCALLE_CLIENTEIsNull: Boolean; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); + function GetPOBLACION_CLIENTEValue: String; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); + function GetPOBLACION_CLIENTEIsNull: Boolean; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); + function GetCODIGO_POSTAL_CLIENTEValue: String; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); + function GetPROVINCIA_CLIENTEValue: String; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); + function GetPROVINCIA_CLIENTEIsNull: Boolean; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; @@ -870,20 +890,22 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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 CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; 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; @@ -893,7 +915,7 @@ type end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -973,6 +995,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; @@ -985,22 +1011,22 @@ type 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 GetCALLE_CLIENTEValue: String; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + function GetCALLE_CLIENTEIsNull: Boolean; virtual; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + function GetPOBLACION_CLIENTEIsNull: Boolean; virtual; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTAL_CLIENTEValue: String; virtual; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual; + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -1053,20 +1079,22 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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 CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; 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; @@ -1494,6 +1522,27 @@ begin DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsVariant := Null; end; +function TRecibosClienteDataTableRules.GetDATOS_BANCARIOSValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteDATOS_BANCARIOS].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteDATOS_BANCARIOS].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetDATOS_BANCARIOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteDATOS_BANCARIOS].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteDATOS_BANCARIOS].AsVariant := Null; +end; + function TRecibosClienteDataTableRules.GetID_CLIENTEValue: Integer; begin result := DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsInteger; @@ -1557,88 +1606,88 @@ begin DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsVariant := Null; end; -function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEValue: String; +function TRecibosClienteDataTableRules.GetCALLE_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString; end; -procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); +procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString := aValue; end; -function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; +function TRecibosClienteDataTableRules.GetCALLE_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].IsNull; end; -procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsVariant := Null; end; -function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEValue: String; +function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString; end; -procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString := aValue; end; -function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; +function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].IsNull; end; -procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsVariant := Null; end; -function TRecibosClienteDataTableRules.GetDC_CLIENTEValue: String; +function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString; end; -procedure TRecibosClienteDataTableRules.SetDC_CLIENTEValue(const aValue: String); +procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString := aValue; end; -function TRecibosClienteDataTableRules.GetDC_CLIENTEIsNull: boolean; +function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].IsNull; end; -procedure TRecibosClienteDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsVariant := Null; end; -function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEValue: String; +function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString; end; -procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); +procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString := aValue; end; -function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; +function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].IsNull; end; -procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsVariant := Null; end; function TRecibosClienteDataTableRules.GetFECHA_ALTAValue: DateTime; @@ -2379,6 +2428,27 @@ begin DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetDATOS_BANCARIOSValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDATOS_BANCARIOS].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliDATOS_BANCARIOS].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetDATOS_BANCARIOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDATOS_BANCARIOS].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliDATOS_BANCARIOS].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer; begin result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger; @@ -2442,88 +2512,88 @@ begin DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null; end; -function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString; end; -procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; +function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].IsNull; end; -procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsVariant := Null; end; -function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString; end; -procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; +function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].IsNull; end; -procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsVariant := Null; end; -function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString; end; -procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEIsNull: boolean; +function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].IsNull; end; -procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsVariant := Null; end; -function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString; end; -procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; +function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].IsNull; + result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].IsNull; end; -procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null; + DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsVariant := Null; end; function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 20b48aba..3a25bc3c 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosClienteDelta = '{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'; - RID_PagosClienteDelta = '{B09875FA-0962-46A9-9A3A-40F618B4230D}'; - RID_RecibosCompensadosCliDelta = '{43471651-957E-47B2-B810-E0227C1BB163}'; + RID_RecibosClienteDelta = '{252DA552-C7AC-4E91-BA26-BC298E1B66DE}'; + RID_PagosClienteDelta = '{733D49FB-64CA-4B84-9F7A-C4EE6287107A}'; + RID_RecibosCompensadosCliDelta = '{D4C982A9-C395-4F4E-91E0-0633186E4D73}'; type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'] + ['{252DA552-C7AC-4E91-BA26-BC298E1B66DE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -37,13 +37,14 @@ type function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_EMPRESAValue : Integer; + function GetOldDATOS_BANCARIOSValue : String; 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 GetOldCALLE_CLIENTEValue : String; + function GetOldPOBLACION_CLIENTEValue : String; + function GetOldCODIGO_POSTAL_CLIENTEValue : String; + function GetOldPROVINCIA_CLIENTEValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; @@ -68,13 +69,14 @@ type property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; 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 OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -199,6 +201,12 @@ type function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + function GetOldDATOS_BANCARIOSValue: String; virtual; + function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEValue: Integer; virtual; @@ -217,30 +225,30 @@ type 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 GetCALLE_CLIENTEValue: String; virtual; + function GetCALLE_CLIENTEIsNull: Boolean; virtual; + function GetOldCALLE_CLIENTEValue: String; virtual; + function GetOldCALLE_CLIENTEIsNull: Boolean; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + function GetPOBLACION_CLIENTEIsNull: Boolean; virtual; + function GetOldPOBLACION_CLIENTEValue: String; virtual; + function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTAL_CLIENTEValue: String; virtual; + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual; + function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual; + function GetOldPROVINCIA_CLIENTEValue: String; virtual; + function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; @@ -337,6 +345,10 @@ type 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 DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; 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; @@ -349,22 +361,22 @@ type 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 CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue; + property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; + property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull; 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; @@ -386,7 +398,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{B09875FA-0962-46A9-9A3A-40F618B4230D}'] + ['{733D49FB-64CA-4B84-9F7A-C4EE6287107A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -552,7 +564,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{43471651-957E-47B2-B810-E0227C1BB163}'] + ['{D4C982A9-C395-4F4E-91E0-0633186E4D73}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -573,13 +585,14 @@ type function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_EMPRESAValue : Integer; + function GetOldDATOS_BANCARIOSValue : String; 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 GetOldCALLE_CLIENTEValue : String; + function GetOldPOBLACION_CLIENTEValue : String; + function GetOldCODIGO_POSTAL_CLIENTEValue : String; + function GetOldPROVINCIA_CLIENTEValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; @@ -604,13 +617,14 @@ type property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; 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 OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -735,6 +749,12 @@ type function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + function GetOldDATOS_BANCARIOSValue: String; virtual; + function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEValue: Integer; virtual; @@ -753,30 +773,30 @@ type 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 GetCALLE_CLIENTEValue: String; virtual; + function GetCALLE_CLIENTEIsNull: Boolean; virtual; + function GetOldCALLE_CLIENTEValue: String; virtual; + function GetOldCALLE_CLIENTEIsNull: Boolean; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + function GetPOBLACION_CLIENTEIsNull: Boolean; virtual; + function GetOldPOBLACION_CLIENTEValue: String; virtual; + function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTAL_CLIENTEValue: String; virtual; + function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual; + function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual; + procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual; + procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual; + function GetOldPROVINCIA_CLIENTEValue: String; virtual; + function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; @@ -873,6 +893,10 @@ type 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 DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; 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; @@ -885,22 +909,22 @@ type 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 CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull; + property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull; + property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull; + property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue; + property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull; + property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue; + property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull; + property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; + property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull; 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; @@ -1525,6 +1549,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := Null; end; +function TRecibosClienteBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS]; +end; + +function TRecibosClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDATOS_BANCARIOS]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDATOS_BANCARIOS]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDATOS_BANCARIOS] := Null; +end; + function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]; @@ -1618,128 +1673,128 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := Null; end; -function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]); end; -function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]); end; -procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); +procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := aValue; end; -procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := Null; end; -function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]); end; -function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]); end; -procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := aValue; end; -procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := Null; end; -function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]); end; -function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]); end; -procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); +procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := aValue; end; -procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := Null; end; -function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]); end; -function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; +function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]; end; -function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; +function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]); end; -procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); +procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := aValue; end; -procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := Null; end; function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; @@ -2820,6 +2875,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDATOS_BANCARIOS] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]; @@ -2913,128 +2999,128 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]); end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]); end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := aValue; end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := Null; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]); end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]); end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := aValue; end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := Null; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]); end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]); end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := aValue; end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := Null; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]); end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]); end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := aValue; end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := Null; end; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index 20888e9d..66bda607 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -43,6 +43,11 @@ object RptRecibosCliente: TRptRecibosCliente Name = 'ID_FACTURA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_REMESA' DataType = datInteger @@ -72,15 +77,15 @@ object RptRecibosCliente: TRptRecibosCliente end item Name = 'IMPORTE' - DataType = datFloat + DataType = datCurrency end item Name = 'OTROS_GASTOS' - DataType = datFloat + DataType = datCurrency end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency end item Name = 'FECHA_FACTURA' @@ -93,7 +98,7 @@ object RptRecibosCliente: TRptRecibosCliente end item Name = 'IMPORTE_FACTURA' - DataType = datFloat + DataType = datCurrency end item Name = 'NOMBRE_CLIENTE' @@ -106,24 +111,24 @@ object RptRecibosCliente: TRptRecibosCliente Size = 15 end item - Name = 'ENTIDAD_CLIENTE' + Name = 'CALLE_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'SUCURSAL_CLIENTE' + Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString - Size = 15 + Size = 10 end item - Name = 'DC_CLIENTE' + Name = 'PROVINCIA_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'CUENTA_CLIENTE' + Name = 'POBLACION_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item Name = 'NIF_CIF_EMPRESA' @@ -442,28 +447,26 @@ object RptRecibosCliente: TRptRecibosCliente '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' + ','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' + - 'URA,'#10' V_RECIBOS_CLIENTE.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFE' + - 'RENCIA_REMESA,'#10' V_RECIBOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBO' + - 'S_CLIENTE.FECHA_VENCIMIENTO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10 + - ' V_RECIBOS_CLIENTE.OBSERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPOR' + - 'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' + - 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + - 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + - 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + - 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' + - 'OS_CLIENTE.CODIGO_POSTAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCI' + - 'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' + - 'S_CLIENTE.TITULAR_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE' + - ','#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.' + - 'DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.' + - 'NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.' + - 'CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,' + - #10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_PO' + - 'STAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS' + - '.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WE' + - 'B, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECI' + - 'BOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIB' + - 'OS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 + 'URA,'#10' V_RECIBOS_CLIENTE.DATOS_BANCARIOS,'#10' V_RECIBOS_CLIENT' + + 'E.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECI' + + 'BOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIEN' + + 'TO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBS' + + 'ERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE' + + '.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' + + 'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' + + 'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' + + 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' + + 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' + + 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' + + 'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' + + 'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' + + ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' + + ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' + + 'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' + + ' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' + + 'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' + + 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 + + 'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -498,6 +501,11 @@ object RptRecibosCliente: TRptRecibosCliente TableField = '' SQLOrigin = 'ID_FACTURA' end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = '' + SQLOrigin = 'DATOS_BANCARIOS' + end item DatasetField = 'ID_REMESA' TableField = '' @@ -586,26 +594,6 @@ object RptRecibosCliente: TRptRecibosCliente TableField = '' SQLOrigin = 'POBLACION_CLIENTE' end - item - DatasetField = 'ENTIDAD_CLIENTE' - TableField = '' - SQLOrigin = 'ENTIDAD_CLIENTE' - end - item - DatasetField = 'SUCURSAL_CLIENTE' - TableField = '' - SQLOrigin = 'SUCURSAL_CLIENTE' - end - item - DatasetField = 'DC_CLIENTE' - TableField = '' - SQLOrigin = 'DC_CLIENTE' - end - item - DatasetField = 'CUENTA_CLIENTE' - TableField = '' - SQLOrigin = 'CUENTA_CLIENTE' - end item DatasetField = 'NIF_CIF_EMPRESA' TableField = '' @@ -670,11 +658,6 @@ object RptRecibosCliente: TRptRecibosCliente DatasetField = 'LOGOTIPO' TableField = '' SQLOrigin = 'LOGOTIPO' - end - item - DatasetField = 'TITULAR_CLIENTE' - TableField = '' - SQLOrigin = 'TITULAR_CLIENTE' end> end> Name = 'Informe_Cabecera' @@ -710,6 +693,11 @@ object RptRecibosCliente: TRptRecibosCliente Name = 'ID_FACTURA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_REMESA' DataType = datInteger @@ -792,31 +780,6 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datString Size = 255 end - item - Name = 'TITULAR_CLIENTE' - DataType = datString - Size = 255 - end - item - Name = 'ENTIDAD_CLIENTE' - DataType = datString - Size = 15 - end - item - Name = 'SUCURSAL_CLIENTE' - DataType = datString - Size = 15 - end - item - Name = 'DC_CLIENTE' - DataType = datString - Size = 15 - end - item - Name = 'CUENTA_CLIENTE' - DataType = datString - Size = 15 - end item Name = 'NIF_CIF_EMPRESA' DataType = datString diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index dd00f5f6..259d4fbc 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -98,6 +98,10 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' + end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' @@ -111,20 +115,20 @@ object srvRecibosCliente: TsrvRecibosCliente TableField = 'NIF_CIF_CLIENTE' end item - DatasetField = 'ENTIDAD_CLIENTE' - TableField = 'ENTIDAD_CLIENTE' + DatasetField = 'CALLE_CLIENTE' + TableField = 'CALLE_CLIENTE' end item - DatasetField = 'SUCURSAL_CLIENTE' - TableField = 'SUCURSAL_CLIENTE' + DatasetField = 'POBLACION_CLIENTE' + TableField = 'POBLACION_CLIENTE' end item - DatasetField = 'DC_CLIENTE' - TableField = 'DC_CLIENTE' + DatasetField = 'CODIGO_POSTAL_CLIENTE' + TableField = 'CODIGO_POSTAL_CLIENTE' end item - DatasetField = 'CUENTA_CLIENTE' - TableField = 'CUENTA_CLIENTE' + DatasetField = 'PROVINCIA_CLIENTE' + TableField = 'PROVINCIA_CLIENTE' end item DatasetField = 'FECHA_ALTA' @@ -244,6 +248,11 @@ object srvRecibosCliente: TsrvRecibosCliente DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_EMPRESA' end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -262,28 +271,24 @@ object srvRecibosCliente: TsrvRecibosCliente DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' end item - Name = 'ENTIDAD_CLIENTE' + Name = 'CALLE_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE' + Size = 255 end item - Name = 'SUCURSAL_CLIENTE' + Name = 'POBLACION_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE' + Size = 255 end item - Name = 'DC_CLIENTE' + Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_DC_CLIENTE' + Size = 10 end item - Name = 'CUENTA_CLIENTE' + Name = 'PROVINCIA_CLIENTE' DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE' + Size = 255 end item Name = 'FECHA_ALTA' @@ -517,6 +522,10 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' + end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' @@ -530,20 +539,20 @@ object srvRecibosCliente: TsrvRecibosCliente TableField = 'NIF_CIF_CLIENTE' end item - DatasetField = 'ENTIDAD_CLIENTE' - TableField = 'ENTIDAD_CLIENTE' + DatasetField = 'CALLE_CLIENTE' + TableField = 'CALLE_CLIENTE' end item - DatasetField = 'SUCURSAL_CLIENTE' - TableField = 'SUCURSAL_CLIENTE' + DatasetField = 'POBLACION_CLIENTE' + TableField = 'POBLACION_CLIENTE' end item - DatasetField = 'DC_CLIENTE' - TableField = 'DC_CLIENTE' + DatasetField = 'CODIGO_POSTAL_CLIENTE' + TableField = 'CODIGO_POSTAL_CLIENTE' end item - DatasetField = 'CUENTA_CLIENTE' - TableField = 'CUENTA_CLIENTE' + DatasetField = 'PROVINCIA_CLIENTE' + TableField = 'PROVINCIA_CLIENTE' end item DatasetField = 'FECHA_ALTA' @@ -644,6 +653,11 @@ object srvRecibosCliente: TsrvRecibosCliente Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -659,24 +673,24 @@ object srvRecibosCliente: TsrvRecibosCliente Size = 15 end item - Name = 'ENTIDAD_CLIENTE' + Name = 'CALLE_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'SUCURSAL_CLIENTE' + Name = 'POBLACION_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item - Name = 'DC_CLIENTE' + Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString - Size = 15 + Size = 10 end item - Name = 'CUENTA_CLIENTE' + Name = 'PROVINCIA_CLIENTE' DataType = datString - Size = 15 + Size = 255 end item Name = 'FECHA_ALTA' diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index a661a7ea..0c6dd0eb 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -12,7 +12,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Caption = 'Recibo de cliente' ExplicitWidth = 691 inherited Image1: TImage - Left = 664 + Left = 558 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -37,6 +37,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente 2B7D0062D74EABC521DC370000000049454E44AE426082} ExplicitLeft = 574 end + inherited lblDesbloquear: TcxLabel + Left = 593 + ExplicitLeft = 593 + end end inherited TBXDock: TTBXDock Width = 691 @@ -51,7 +55,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited pgPaginas: TPageControl Width = 685 Height = 329 - ActivePage = pagPagos ExplicitWidth = 685 ExplicitHeight = 329 inherited pagGeneral: TTabSheet @@ -84,18 +87,34 @@ inherited fEditorReciboCliente: TfEditorReciboCliente 677 335) inherited eReferencia: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited eSituacion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited edtFechaVencimiento: TcxDBDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited memObservaciones: TcxDBMemo + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 315 ExplicitHeight = 44 Height = 44 @@ -103,76 +122,97 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end inherited eFechaEmision: TcxDBTextEdit Left = 441 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 441 ExplicitWidth = 214 Width = 214 end inherited eFormaPago: TcxDBTextEdit Left = 441 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 441 ExplicitWidth = 214 Width = 214 end inherited eImporteTotal: TcxDBCurrencyEdit Left = 441 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 441 ExplicitWidth = 214 Width = 214 end inherited eNombreCliente: TcxDBTextEdit Left = 441 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 441 ExplicitWidth = 214 Width = 214 end inherited eNifCif: TcxDBTextEdit Left = 441 - ExplicitLeft = 441 - ExplicitWidth = 214 - Width = 214 - end - inherited eEntidad: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 - ExplicitWidth = 44 - Width = 44 - end - inherited eSucursal: TcxDBTextEdit - Left = 540 - ExplicitLeft = 540 - ExplicitWidth = 49 - Width = 49 - end - inherited eDC: TcxDBTextEdit - Left = 618 - ExplicitLeft = 618 - ExplicitWidth = 37 - Width = 37 - end - inherited eCuenta: TcxDBTextEdit - Left = 441 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 441 ExplicitWidth = 214 Width = 214 end inherited eRemesa: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited edtFechaEmision: TcxDBDateEdit - DataBinding.DataField = 'FECHA_EMISION' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited rRefReciboCompensado: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited eConcepto: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end + inherited eCuenta: TcxDBTextEdit + Left = 441 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 441 + ExplicitWidth = 214 + Width = 214 + end end end end @@ -276,6 +316,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 677 ExplicitWidth = 677 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end inherited ToolButton3: TToolButton ExplicitWidth = 98 end @@ -318,11 +370,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 150 + Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' end inherited eImporteTotalRecibo: TcxCurrencyEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 315 Width = 315 end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 8d8ae369..e3f0d8f1 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -11,7 +11,7 @@ uses uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController, uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados, - uDAInterfaces; + uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index 34892159..aad7a367 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -187,7 +187,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object eImporteTotal: TcxDBCurrencyEdit Left = 440 - Top = 84 + Top = 111 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource @@ -217,13 +217,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 10 + TabOrder = 11 Height = 21 Width = 228 end object eNombreCliente: TcxDBTextEdit Left = 440 - Top = 167 + Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataSource = DADataSource @@ -248,12 +248,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 12 + TabOrder = 13 Width = 228 end object eNifCif: TcxDBTextEdit Left = 440 - Top = 140 + Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataSource = DADataSource @@ -278,127 +278,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 11 - Width = 228 - end - object eEntidad: TcxDBTextEdit - Left = 440 - Top = 194 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'ENTIDAD_CLIENTE' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 13 - Width = 59 - end - object eSucursal: TcxDBTextEdit - Left = 554 - Top = 194 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'SUCURSAL_CLIENTE' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 14 - Width = 52 - end - object eDC: TcxDBTextEdit - Left = 635 - Top = 194 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'DC_CLIENTE' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 15 - Width = 33 - end - object eCuenta: TcxDBTextEdit - Left = 440 - Top = 221 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'CUENTA_CLIENTE' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 16 + TabOrder = 12 Width = 228 end object eRemesa: TcxDBTextEdit @@ -519,6 +399,36 @@ inherited frViewReciboCliente: TfrViewReciboCliente TabOrder = 5 Width = 216 end + object eCuenta: TcxDBTextEdit + Left = 440 + Top = 84 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'DATOS_BANCARIOS' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 10 + Width = 228 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -612,6 +522,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente Control = eFormaPago ControlOptions.ShowBorder = False end + object dxLayoutControl1Item15: TdxLayoutItem + Caption = 'Cuenta bancaria:' + Control = eCuenta + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item9: TdxLayoutItem Caption = 'Total factura:' Control = eImporteTotal @@ -633,45 +548,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente Control = eNombreCliente ControlOptions.ShowBorder = False end - object dxLayoutControl1Group4: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Entidad:' - Control = eEntidad - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Sucursal:' - Control = eSucursal - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'DC:' - Control = eDC - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item15: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'C'#243'd. cuenta:' - Control = eCuenta - ControlOptions.ShowBorder = False - end - end end end end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas index 48df160f..2b1a7c71 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas @@ -42,23 +42,13 @@ type eNombreCliente: TcxDBTextEdit; dxLayoutControl1Item11: TdxLayoutItem; eNifCif: TcxDBTextEdit; - dxLayoutControl1Item12: TdxLayoutItem; - eEntidad: TcxDBTextEdit; - dxLayoutControl1Item13: TdxLayoutItem; - eSucursal: TcxDBTextEdit; - dxLayoutControl1Item14: TdxLayoutItem; - eDC: TcxDBTextEdit; - dxLayoutControl1Item15: TdxLayoutItem; - eCuenta: TcxDBTextEdit; dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Item16: TdxLayoutItem; eRemesa: TcxDBTextEdit; - dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutControl1Group7: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Item19: TdxLayoutItem; edtFechaEmision: TcxDBDateEdit; dxLayoutControl1Item4: TdxLayoutItem; @@ -67,6 +57,8 @@ type dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Item6: TdxLayoutItem; eConcepto: TcxDBTextEdit; + dxLayoutControl1Item15: TdxLayoutItem; + eCuenta: TcxDBTextEdit; private FRecibo : IBizRecibosCliente; function GetRecibo: IBizRecibosCliente; diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm index 603e8f16..faa5e6ff 100644 --- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm @@ -226,6 +226,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -240,26 +245,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor DataType = datString Size = 15 end - item - Name = 'ENTIDAD_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'SUCURSAL_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'DC_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'CUENTA_PROVEEDOR' - DataType = datString - Size = 15 - end item Name = 'FECHA_ALTA' DataType = datDateTime @@ -422,6 +407,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor DataType = datInteger DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -442,34 +432,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' end - item - Name = 'ENTIDAD_PROVEEDOR' - DataType = datString - Size = 15 - DisplayLabel = 'RecibosProveedor_ENTIDAD_PROVEEDOR' - DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR' - end - item - Name = 'SUCURSAL_PROVEEDOR' - DataType = datString - Size = 15 - DisplayLabel = 'RecibosProveedor_SUCURSAL_PROVEEDOR' - DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR' - end - item - Name = 'DC_PROVEEDOR' - DataType = datString - Size = 15 - DisplayLabel = 'RecibosProveedor_DC_PROVEEDOR' - DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR' - end - item - Name = 'CUENTA_PROVEEDOR' - DataType = datString - Size = 15 - DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR' - DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR' - end item Name = 'FECHA_ALTA' DataType = datDateTime diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index f4a77f76..f36c06a0 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}'; - RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}'; - RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}'; + RID_RecibosCompensadosProv = '{4F2EE656-026F-4B10-86C2-B20762BE3B0C}'; + RID_RecibosProveedor = '{475F3A75-FAE9-4B74-96DB-B4AF7CD46E87}'; + RID_PagosProveedor = '{A2635576-C5EB-4458-AA15-91D3EE590873}'; { Data table names } nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; @@ -40,13 +40,10 @@ const fld_RecibosCompensadosProvFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosCompensadosProvDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR'; fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; - fld_RecibosCompensadosProvENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR'; - fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR'; - fld_RecibosCompensadosProvDC_PROVEEDOR = 'DC_PROVEEDOR'; - fld_RecibosCompensadosProvCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR'; fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosProvUSUARIO = 'USUARIO'; @@ -73,16 +70,13 @@ const idx_RecibosCompensadosProvFORMA_PAGO_FACTURA = 18; idx_RecibosCompensadosProvIMPORTE_FACTURA = 19; idx_RecibosCompensadosProvID_EMPRESA = 20; - idx_RecibosCompensadosProvID_PROVEEDOR = 21; - idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 22; - idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 23; - idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 24; - idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 25; - idx_RecibosCompensadosProvDC_PROVEEDOR = 26; - idx_RecibosCompensadosProvCUENTA_PROVEEDOR = 27; - idx_RecibosCompensadosProvFECHA_ALTA = 28; - idx_RecibosCompensadosProvFECHA_MODIFICACION = 29; - idx_RecibosCompensadosProvUSUARIO = 30; + idx_RecibosCompensadosProvDATOS_BANCARIOS = 21; + idx_RecibosCompensadosProvID_PROVEEDOR = 22; + idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 23; + idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 24; + idx_RecibosCompensadosProvFECHA_ALTA = 25; + idx_RecibosCompensadosProvFECHA_MODIFICACION = 26; + idx_RecibosCompensadosProvUSUARIO = 27; { RecibosProveedor fields } fld_RecibosProveedorID = 'ID'; @@ -106,13 +100,10 @@ const fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_RecibosProveedorNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; - fld_RecibosProveedorENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR'; - fld_RecibosProveedorSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR'; - fld_RecibosProveedorDC_PROVEEDOR = 'DC_PROVEEDOR'; - fld_RecibosProveedorCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR'; fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosProveedorUSUARIO = 'USUARIO'; @@ -139,16 +130,13 @@ const idx_RecibosProveedorFORMA_PAGO_FACTURA = 18; idx_RecibosProveedorIMPORTE_FACTURA = 19; idx_RecibosProveedorID_EMPRESA = 20; - idx_RecibosProveedorID_PROVEEDOR = 21; - idx_RecibosProveedorNOMBRE_PROVEEDOR = 22; - idx_RecibosProveedorNIF_CIF_PROVEEDOR = 23; - idx_RecibosProveedorENTIDAD_PROVEEDOR = 24; - idx_RecibosProveedorSUCURSAL_PROVEEDOR = 25; - idx_RecibosProveedorDC_PROVEEDOR = 26; - idx_RecibosProveedorCUENTA_PROVEEDOR = 27; - idx_RecibosProveedorFECHA_ALTA = 28; - idx_RecibosProveedorFECHA_MODIFICACION = 29; - idx_RecibosProveedorUSUARIO = 30; + idx_RecibosProveedorDATOS_BANCARIOS = 21; + idx_RecibosProveedorID_PROVEEDOR = 22; + idx_RecibosProveedorNOMBRE_PROVEEDOR = 23; + idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24; + idx_RecibosProveedorFECHA_ALTA = 25; + idx_RecibosProveedorFECHA_MODIFICACION = 26; + idx_RecibosProveedorUSUARIO = 27; { PagosProveedor fields } fld_PagosProveedorID = 'ID'; @@ -181,7 +169,7 @@ const type { IRecibosCompensadosProv } IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) - ['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}'] + ['{5B17FD1B-07B7-4241-BB12-EAC558D12C8E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -267,6 +255,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetDATOS_BANCARIOSValue: String; + procedure SetDATOS_BANCARIOSValue(const aValue: String); + function GetDATOS_BANCARIOSIsNull: Boolean; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); function GetID_PROVEEDORValue: Integer; procedure SetID_PROVEEDORValue(const aValue: Integer); function GetID_PROVEEDORIsNull: Boolean; @@ -279,22 +271,6 @@ type procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); function GetNIF_CIF_PROVEEDORIsNull: Boolean; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); - function GetENTIDAD_PROVEEDORValue: String; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); - function GetENTIDAD_PROVEEDORIsNull: Boolean; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); - function GetSUCURSAL_PROVEEDORValue: String; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); - function GetSUCURSAL_PROVEEDORIsNull: Boolean; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); - function GetDC_PROVEEDORValue: String; - procedure SetDC_PROVEEDORValue(const aValue: String); - function GetDC_PROVEEDORIsNull: Boolean; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); - function GetCUENTA_PROVEEDORValue: String; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); - function GetCUENTA_PROVEEDORIsNull: Boolean; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; @@ -352,20 +328,14 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; 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; @@ -375,7 +345,7 @@ type end; { TRecibosCompensadosProvDataTableRules } - TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) + TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) private protected { Property getters and setters } @@ -463,6 +433,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; @@ -475,22 +449,6 @@ type procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_PROVEEDORValue: String; virtual; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; - function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_PROVEEDORValue: String; virtual; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; - function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetDC_PROVEEDORValue: String; virtual; - procedure SetDC_PROVEEDORValue(const aValue: String); virtual; - function GetDC_PROVEEDORIsNull: Boolean; virtual; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCUENTA_PROVEEDORValue: String; virtual; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; - function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -547,20 +505,14 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; 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; @@ -576,7 +528,7 @@ type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{DCA30451-7CE9-4A08-991B-213799064ED6}'] + ['{EEA4A9FB-5FE6-4AEA-97A0-7E1A745AFDA6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -662,6 +614,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetDATOS_BANCARIOSValue: String; + procedure SetDATOS_BANCARIOSValue(const aValue: String); + function GetDATOS_BANCARIOSIsNull: Boolean; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); function GetID_PROVEEDORValue: Integer; procedure SetID_PROVEEDORValue(const aValue: Integer); function GetID_PROVEEDORIsNull: Boolean; @@ -674,22 +630,6 @@ type procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); function GetNIF_CIF_PROVEEDORIsNull: Boolean; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); - function GetENTIDAD_PROVEEDORValue: String; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); - function GetENTIDAD_PROVEEDORIsNull: Boolean; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); - function GetSUCURSAL_PROVEEDORValue: String; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); - function GetSUCURSAL_PROVEEDORIsNull: Boolean; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); - function GetDC_PROVEEDORValue: String; - procedure SetDC_PROVEEDORValue(const aValue: String); - function GetDC_PROVEEDORIsNull: Boolean; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); - function GetCUENTA_PROVEEDORValue: String; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); - function GetCUENTA_PROVEEDORIsNull: Boolean; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; @@ -747,20 +687,14 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; 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; @@ -770,7 +704,7 @@ type end; { TRecibosProveedorDataTableRules } - TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) + TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor) private protected { Property getters and setters } @@ -858,6 +792,10 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; @@ -870,22 +808,6 @@ type procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_PROVEEDORValue: String; virtual; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; - function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_PROVEEDORValue: String; virtual; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; - function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetDC_PROVEEDORValue: String; virtual; - procedure SetDC_PROVEEDORValue(const aValue: String); virtual; - function GetDC_PROVEEDORIsNull: Boolean; virtual; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCUENTA_PROVEEDORValue: String; virtual; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; - function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -942,20 +864,14 @@ type property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; 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; @@ -971,7 +887,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}'] + ['{0CDD85E2-5782-497F-9F64-DCD22CBC13EC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1051,7 +967,7 @@ type end; { TPagosProveedorDataTableRules } - TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) + TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor) private protected { Property getters and setters } @@ -1592,6 +1508,27 @@ begin DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsVariant := Null; end; +function TRecibosCompensadosProvDataTableRules.GetDATOS_BANCARIOSValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDATOS_BANCARIOS].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvDATOS_BANCARIOS].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetDATOS_BANCARIOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDATOS_BANCARIOS].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvDATOS_BANCARIOS].AsVariant := Null; +end; + function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORValue: Integer; begin result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger; @@ -1655,90 +1592,6 @@ begin DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null; end; -function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString := aValue; -end; - -function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].IsNull; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString := aValue; -end; - -function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].IsNull; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString := aValue; -end; - -function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].IsNull; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString := aValue; -end; - -function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].IsNull; -end; - -procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsVariant := Null; -end; - function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime; @@ -2255,6 +2108,27 @@ begin DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null; end; +function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsVariant := Null; +end; + function TRecibosProveedorDataTableRules.GetID_PROVEEDORValue: Integer; begin result := DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsInteger; @@ -2318,90 +2192,6 @@ begin DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null; end; -function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString; -end; - -procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString := aValue; -end; - -function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].IsNull; -end; - -procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString; -end; - -procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString := aValue; -end; - -function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].IsNull; -end; - -procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosProveedorDataTableRules.GetDC_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString; -end; - -procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString := aValue; -end; - -function TRecibosProveedorDataTableRules.GetDC_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].IsNull; -end; - -procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsVariant := Null; -end; - -function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString; -end; - -procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString := aValue; -end; - -function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].IsNull; -end; - -procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsVariant := Null; -end; - function TRecibosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime; diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index e75934ee..3c1637e8 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}'; - RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}'; - RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'; + RID_RecibosCompensadosProvDelta = '{46C42FEF-6415-42DA-86DE-B140A2E3B65C}'; + RID_RecibosProveedorDelta = '{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}'; + RID_PagosProveedorDelta = '{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}'; type { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) - ['{7D64E436-4A62-4815-9B17-18188D7EB661}'] + ['{46C42FEF-6415-42DA-86DE-B140A2E3B65C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -39,13 +39,10 @@ type function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_EMPRESAValue : Integer; + function GetOldDATOS_BANCARIOSValue : String; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNIF_CIF_PROVEEDORValue : String; - function GetOldENTIDAD_PROVEEDORValue : String; - function GetOldSUCURSAL_PROVEEDORValue : String; - function GetOldDC_PROVEEDORValue : String; - function GetOldCUENTA_PROVEEDORValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; @@ -72,13 +69,10 @@ type property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; - property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; - property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; - property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; - property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -215,6 +209,12 @@ type function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + function GetOldDATOS_BANCARIOSValue: String; virtual; + function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; @@ -233,30 +233,6 @@ type function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_PROVEEDORValue: String; virtual; - function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; - function GetOldENTIDAD_PROVEEDORValue: String; virtual; - function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_PROVEEDORValue: String; virtual; - function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - function GetOldSUCURSAL_PROVEEDORValue: String; virtual; - function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetDC_PROVEEDORValue: String; virtual; - function GetDC_PROVEEDORIsNull: Boolean; virtual; - function GetOldDC_PROVEEDORValue: String; virtual; - function GetOldDC_PROVEEDORIsNull: Boolean; virtual; - procedure SetDC_PROVEEDORValue(const aValue: String); virtual; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCUENTA_PROVEEDORValue: String; virtual; - function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; - function GetOldCUENTA_PROVEEDORValue: String; virtual; - function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; @@ -361,6 +337,10 @@ type 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 DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -373,22 +353,6 @@ type property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; - property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; - property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; - property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; - property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; - property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull; 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; @@ -410,7 +374,7 @@ type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{8CC4F287-B555-4CB1-B413-10F941E621CF}'] + ['{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -433,13 +397,10 @@ type function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_EMPRESAValue : Integer; + function GetOldDATOS_BANCARIOSValue : String; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNIF_CIF_PROVEEDORValue : String; - function GetOldENTIDAD_PROVEEDORValue : String; - function GetOldSUCURSAL_PROVEEDORValue : String; - function GetOldDC_PROVEEDORValue : String; - function GetOldCUENTA_PROVEEDORValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; @@ -466,13 +427,10 @@ type property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; - property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; - property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; - property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; - property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -609,6 +567,12 @@ type function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + function GetOldDATOS_BANCARIOSValue: String; virtual; + function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; @@ -627,30 +591,6 @@ type function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetENTIDAD_PROVEEDORValue: String; virtual; - function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; - function GetOldENTIDAD_PROVEEDORValue: String; virtual; - function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual; - procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; - procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetSUCURSAL_PROVEEDORValue: String; virtual; - function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - function GetOldSUCURSAL_PROVEEDORValue: String; virtual; - function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual; - procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; - procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetDC_PROVEEDORValue: String; virtual; - function GetDC_PROVEEDORIsNull: Boolean; virtual; - function GetOldDC_PROVEEDORValue: String; virtual; - function GetOldDC_PROVEEDORIsNull: Boolean; virtual; - procedure SetDC_PROVEEDORValue(const aValue: String); virtual; - procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCUENTA_PROVEEDORValue: String; virtual; - function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; - function GetOldCUENTA_PROVEEDORValue: String; virtual; - function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; - procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; @@ -755,6 +695,10 @@ type 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 DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; @@ -767,22 +711,6 @@ type property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; - property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; - property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; - property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; - property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull; - property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; - property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; - property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; - property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull; - property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; - property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; - property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; - property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull; - property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; - property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; - property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; - property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull; 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; @@ -804,7 +732,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'] + ['{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -1635,6 +1563,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null; end; +function TRecibosCompensadosProvBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS] := Null; +end; + function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; @@ -1728,130 +1687,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null; end; -function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]); -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]); -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue; -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]); -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]); -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue; -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]); -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]); -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue; -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]); -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]; -end; - -function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]); -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue; -end; - -procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null; -end; - function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA]; @@ -2608,6 +2443,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null; end; +function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS] := Null; +end; + function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]; @@ -2701,130 +2567,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null; end; -function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]); -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]); -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue; -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null; -end; - -function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]); -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]); -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue; -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null; -end; - -function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]); -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]); -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue; -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null; -end; - -function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]); -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; -end; - -function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]); -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue; -end; - -procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null; -end; - function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 9a2049dd..2996177e 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -105,6 +105,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' + end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' @@ -117,22 +121,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetField = 'NIF_CIF_PROVEEDOR' TableField = 'NIF_CIF_PROVEEDOR' end - item - DatasetField = 'ENTIDAD_PROVEEDOR' - TableField = 'ENTIDAD_PROVEEDOR' - end - item - DatasetField = 'SUCURSAL_PROVEEDOR' - TableField = 'SUCURSAL_PROVEEDOR' - end - item - DatasetField = 'DC_PROVEEDOR' - TableField = 'DC_PROVEEDOR' - end - item - DatasetField = 'CUENTA_PROVEEDOR' - TableField = 'CUENTA_PROVEEDOR' - end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' @@ -244,6 +232,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -258,26 +251,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datString Size = 15 end - item - Name = 'ENTIDAD_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'SUCURSAL_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'DC_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'CUENTA_PROVEEDOR' - DataType = datString - Size = 15 - end item Name = 'FECHA_ALTA' DataType = datDateTime @@ -384,6 +357,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' + end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' @@ -396,22 +373,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetField = 'NIF_CIF_PROVEEDOR' TableField = 'NIF_CIF_PROVEEDOR' end - item - DatasetField = 'ENTIDAD_PROVEEDOR' - TableField = 'ENTIDAD_PROVEEDOR' - end - item - DatasetField = 'SUCURSAL_PROVEEDOR' - TableField = 'SUCURSAL_PROVEEDOR' - end - item - DatasetField = 'DC_PROVEEDOR' - TableField = 'DC_PROVEEDOR' - end - item - DatasetField = 'CUENTA_PROVEEDOR' - TableField = 'CUENTA_PROVEEDOR' - end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' @@ -543,6 +504,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor DataType = datInteger DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -560,30 +526,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor Size = 15 DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' end - item - Name = 'ENTIDAD_PROVEEDOR' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR' - end - item - Name = 'SUCURSAL_PROVEEDOR' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR' - end - item - Name = 'DC_PROVEEDOR' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR' - end - item - Name = 'CUENTA_PROVEEDOR' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR' - end item Name = 'FECHA_ALTA' DataType = datDateTime diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 77e5746c..2b7b2953 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -12,7 +12,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Caption = 'Recibo de cliente' ExplicitWidth = 691 inherited Image1: TImage - Left = 664 + Left = 558 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -37,6 +37,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor 2B7D0062D74EABC521DC370000000049454E44AE426082} ExplicitLeft = 574 end + inherited lblDesbloquear: TcxLabel + Left = 593 + ExplicitLeft = 593 + end end inherited TBXDock: TTBXDock Width = 691 @@ -51,7 +55,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited pgPaginas: TPageControl Width = 685 Height = 353 - ActivePage = pagPagos ExplicitWidth = 685 ExplicitHeight = 353 inherited pagGeneral: TTabSheet @@ -116,94 +119,56 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 274 end inherited eFechaEmision: TcxDBTextEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 ExplicitWidth = 20 Width = 20 end inherited eFormaPago: TcxDBTextEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 ExplicitWidth = 42 Width = 42 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 ExplicitWidth = 182 Width = 182 end inherited eNombreCliente: TcxDBTextEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 ExplicitWidth = 171 Width = 171 end inherited eNifCif: TcxDBTextEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 ExplicitWidth = 255 Width = 255 end - inherited eEntidad: TcxDBTextEdit - Left = 428 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 - ExplicitWidth = 90 - Width = 90 - end - inherited eSucursal: TcxDBTextEdit - Left = 540 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 540 - ExplicitWidth = 75 - Width = 75 - end - inherited eDC: TcxDBTextEdit - Left = 622 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 622 - end - inherited eCuenta: TcxDBTextEdit - Left = 428 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 - ExplicitWidth = 83 - Width = 83 - end inherited eRemesa: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -229,12 +194,14 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 129 end inherited rReferenciaFacturaProv: TcxDBTextEdit - Left = 428 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 428 + ExplicitLeft = 440 + ExplicitWidth = 157 + Width = 157 end inherited rRefReciboCompensado: TcxDBTextEdit Style.LookAndFeel.SkinName = '' @@ -244,6 +211,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitWidth = 216 Width = 216 end + inherited eCuenta: TcxDBTextEdit + Left = 440 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 440 + ExplicitWidth = 83 + Width = 83 + end end end end @@ -343,6 +320,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited ToolBar1: TToolBar Width = 677 ExplicitWidth = 677 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end inherited ToolButton3: TToolButton Top = 0 ExplicitTop = 0 diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas index 4fb734ee..8d5de3d8 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas @@ -11,7 +11,7 @@ uses uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes, - uDAInterfaces; + uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm index 2ce9664c..f12b098c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -101,7 +101,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 - Width = 216 + Width = 100 end object memObservaciones: TcxDBMemo Left = 22 @@ -126,7 +126,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 274 end object eFechaEmision: TcxDBTextEdit - Left = 439 + Left = 443 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -156,7 +156,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 20 end object eFormaPago: TcxDBTextEdit - Left = 439 + Left = 443 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -186,8 +186,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 42 end object eImporteTotal: TcxDBCurrencyEdit - Left = 439 - Top = 111 + Left = 443 + Top = 138 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource @@ -217,13 +217,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 11 + TabOrder = 12 Height = 21 Width = 182 end object eNombreCliente: TcxDBTextEdit - Left = 439 - Top = 194 + Left = 443 + Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -248,12 +248,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 13 + TabOrder = 14 Width = 171 end object eNifCif: TcxDBTextEdit - Left = 439 - Top = 167 + Left = 443 + Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_PROVEEDOR' DataBinding.DataSource = DADataSource @@ -278,129 +278,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 12 + TabOrder = 13 Width = 147 end - object eEntidad: TcxDBTextEdit - Left = 439 - Top = 221 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'ENTIDAD_PROVEEDOR' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 14 - Width = 90 - end - object eSucursal: TcxDBTextEdit - Left = 514 - Top = 221 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'SUCURSAL_PROVEEDOR' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 15 - Width = 75 - end - object eDC: TcxDBTextEdit - Left = 563 - Top = 221 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'DC_PROVEEDOR' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 16 - Width = 33 - end - object eCuenta: TcxDBTextEdit - Left = 439 - Top = 248 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'CUENTA_PROVEEDOR' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - StyleDisabled.Color = clMenuBar - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 17 - Width = 83 - end object eRemesa: TcxDBTextEdit Left = 136 Top = 165 @@ -457,7 +337,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 2 - Width = 668 + Width = 100 end object eReferenciaProveedor: TcxDBTextEdit Left = 136 @@ -486,10 +366,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 - Width = 287 + Width = 100 end object rReferenciaFacturaProv: TcxDBTextEdit - Left = 439 + Left = 443 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' @@ -548,6 +428,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor TabOrder = 6 Width = 216 end + object eCuenta: TcxDBTextEdit + Left = 443 + Top = 111 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'DATOS_BANCARIOS' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 11 + Width = 150 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -648,6 +558,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Control = eFormaPago ControlOptions.ShowBorder = False end + object dxLayoutControl1Item6: TdxLayoutItem + Caption = 'Cuenta bancaria:' + Control = eCuenta + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item9: TdxLayoutItem Caption = 'Total factura:' Control = eImporteTotal @@ -669,45 +584,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Control = eNombreCliente ControlOptions.ShowBorder = False end - object dxLayoutControl1Group4: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Entidad:' - Control = eEntidad - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Sucursal:' - Control = eSucursal - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'DC:' - Control = eDC - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item15: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'C'#243'd. cuenta:' - Control = eCuenta - ControlOptions.ShowBorder = False - end - end end end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas index aa7e6ac2..654dec57 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas @@ -42,25 +42,15 @@ type eNombreCliente: TcxDBTextEdit; dxLayoutControl1Item11: TdxLayoutItem; eNifCif: TcxDBTextEdit; - dxLayoutControl1Item12: TdxLayoutItem; - eEntidad: TcxDBTextEdit; - dxLayoutControl1Item13: TdxLayoutItem; - eSucursal: TcxDBTextEdit; - dxLayoutControl1Item14: TdxLayoutItem; - eDC: TcxDBTextEdit; - dxLayoutControl1Item15: TdxLayoutItem; - eCuenta: TcxDBTextEdit; dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Item16: TdxLayoutItem; eRemesa: TcxDBTextEdit; - dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Item19: TdxLayoutItem; edtFechaEmision: TcxDBDateEdit; dxLayoutControl1Item20: TdxLayoutItem; @@ -69,6 +59,8 @@ type rReferenciaFacturaProv: TcxDBTextEdit; dxLayoutControl1Item4: TdxLayoutItem; rRefReciboCompensado: TcxDBTextEdit; + dxLayoutControl1Item6: TdxLayoutItem; + eCuenta: TcxDBTextEdit; private FRecibo : IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index efaf124f9a305ffb531c4f5075decb7e90f0fbfc..4946383dba85d3e3ff785379b73dbc194fab6146 100644 GIT binary patch delta 21 ccmZ3om2t^d#tk7+>}CvB45kdGlcS?N0a9HCg#Z8m delta 21 ccmZ3om2t^d#tk7+>_!Y$45kbglcS?N0a8E)ga7~l diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index f4880002..ad362afd 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -48,8 +48,6 @@ uses srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService}, schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', - schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService}, uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService}, @@ -58,8 +56,6 @@ uses uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', - schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', - schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService}, srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService}, @@ -130,7 +126,11 @@ uses schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService}; + srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService}, + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', + schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', + schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index ee633460..5631df3b 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,297 +1,297 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1370FalseFalseFalseFalseFalse308212521.3.7.01.3.7.0miércoles, 01 de octubre de 2008 11:10FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1370FalseFalseFalseFalseFalse308212521.3.7.01.3.7.0miércoles, 01 de octubre de 2008 11:10FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +