Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de recibos de cliente para que la cuenta que saque en el recibo no sea la del cliente sino la de la factura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@709 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-20 16:29:26 +00:00
parent 37d2b8c2f6
commit 803408f586
22 changed files with 1450 additions and 2090 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
Source/Informes/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -243,6 +243,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA' DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -261,28 +266,24 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'CALLE_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'POBLACION_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
end end
item item
Name = 'DC_CLIENTE' Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 10
DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'PROVINCIA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -403,6 +404,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -418,24 +424,24 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Size = 15 Size = 15
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'CALLE_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'POBLACION_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'DC_CLIENTE' Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 10
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'PROVINCIA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'

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

@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCliente = '{5410D8EC-FA59-43E6-96AB-C7C2E1292FBB}'; RID_RecibosCliente = '{E9F29F10-35D7-452D-84BE-6DA7198A02C9}';
RID_PagosCliente = '{A9A33A29-1E9F-40C7-9F00-73776CAA6D93}'; RID_PagosCliente = '{9C420402-DDE5-4E67-AFF4-B29246EB13C5}';
RID_RecibosCompensadosCli = '{55474263-530A-458F-ADE8-497B260FA9A3}'; RID_RecibosCompensadosCli = '{81964F25-3486-482C-A0CB-C0C59C70EE91}';
{ Data table names } { Data table names }
nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente = 'RecibosCliente';
@ -38,13 +38,14 @@ const
fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA'; fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
fld_RecibosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE'; fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE';
fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_RecibosClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; fld_RecibosClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
fld_RecibosClienteENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; fld_RecibosClienteCALLE_CLIENTE = 'CALLE_CLIENTE';
fld_RecibosClienteSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; fld_RecibosClientePOBLACION_CLIENTE = 'POBLACION_CLIENTE';
fld_RecibosClienteDC_CLIENTE = 'DC_CLIENTE'; fld_RecibosClienteCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
fld_RecibosClienteCUENTA_CLIENTE = 'CUENTA_CLIENTE'; fld_RecibosClientePROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosClienteUSUARIO = 'USUARIO'; fld_RecibosClienteUSUARIO = 'USUARIO';
@ -69,16 +70,17 @@ const
idx_RecibosClienteFORMA_PAGO_FACTURA = 16; idx_RecibosClienteFORMA_PAGO_FACTURA = 16;
idx_RecibosClienteIMPORTE_FACTURA = 17; idx_RecibosClienteIMPORTE_FACTURA = 17;
idx_RecibosClienteID_EMPRESA = 18; idx_RecibosClienteID_EMPRESA = 18;
idx_RecibosClienteID_CLIENTE = 19; idx_RecibosClienteDATOS_BANCARIOS = 19;
idx_RecibosClienteNOMBRE_CLIENTE = 20; idx_RecibosClienteID_CLIENTE = 20;
idx_RecibosClienteNIF_CIF_CLIENTE = 21; idx_RecibosClienteNOMBRE_CLIENTE = 21;
idx_RecibosClienteENTIDAD_CLIENTE = 22; idx_RecibosClienteNIF_CIF_CLIENTE = 22;
idx_RecibosClienteSUCURSAL_CLIENTE = 23; idx_RecibosClienteCALLE_CLIENTE = 23;
idx_RecibosClienteDC_CLIENTE = 24; idx_RecibosClientePOBLACION_CLIENTE = 24;
idx_RecibosClienteCUENTA_CLIENTE = 25; idx_RecibosClienteCODIGO_POSTAL_CLIENTE = 25;
idx_RecibosClienteFECHA_ALTA = 26; idx_RecibosClientePROVINCIA_CLIENTE = 26;
idx_RecibosClienteFECHA_MODIFICACION = 27; idx_RecibosClienteFECHA_ALTA = 27;
idx_RecibosClienteUSUARIO = 28; idx_RecibosClienteFECHA_MODIFICACION = 28;
idx_RecibosClienteUSUARIO = 29;
{ PagosCliente fields } { PagosCliente fields }
fld_PagosClienteID = 'ID'; fld_PagosClienteID = 'ID';
@ -128,13 +130,14 @@ const
fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
fld_RecibosCompensadosCliDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE'; fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; fld_RecibosCompensadosCliCALLE_CLIENTE = 'CALLE_CLIENTE';
fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; fld_RecibosCompensadosCliPOBLACION_CLIENTE = 'POBLACION_CLIENTE';
fld_RecibosCompensadosCliDC_CLIENTE = 'DC_CLIENTE'; fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
fld_RecibosCompensadosCliCUENTA_CLIENTE = 'CUENTA_CLIENTE'; fld_RecibosCompensadosCliPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosCliUSUARIO = 'USUARIO'; fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
@ -159,21 +162,22 @@ const
idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16; idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16;
idx_RecibosCompensadosCliIMPORTE_FACTURA = 17; idx_RecibosCompensadosCliIMPORTE_FACTURA = 17;
idx_RecibosCompensadosCliID_EMPRESA = 18; idx_RecibosCompensadosCliID_EMPRESA = 18;
idx_RecibosCompensadosCliID_CLIENTE = 19; idx_RecibosCompensadosCliDATOS_BANCARIOS = 19;
idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20; idx_RecibosCompensadosCliID_CLIENTE = 20;
idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 21; idx_RecibosCompensadosCliNOMBRE_CLIENTE = 21;
idx_RecibosCompensadosCliENTIDAD_CLIENTE = 22; idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 22;
idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 23; idx_RecibosCompensadosCliCALLE_CLIENTE = 23;
idx_RecibosCompensadosCliDC_CLIENTE = 24; idx_RecibosCompensadosCliPOBLACION_CLIENTE = 24;
idx_RecibosCompensadosCliCUENTA_CLIENTE = 25; idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 25;
idx_RecibosCompensadosCliFECHA_ALTA = 26; idx_RecibosCompensadosCliPROVINCIA_CLIENTE = 26;
idx_RecibosCompensadosCliFECHA_MODIFICACION = 27; idx_RecibosCompensadosCliFECHA_ALTA = 27;
idx_RecibosCompensadosCliUSUARIO = 28; idx_RecibosCompensadosCliFECHA_MODIFICACION = 28;
idx_RecibosCompensadosCliUSUARIO = 29;
type type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{11D2AB69-38A8-41B8-8139-2C32F3732B9C}'] ['{BCE939A4-4046-4AE1-906E-19AFBC0E5FD2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -251,6 +255,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer); procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean; function GetID_CLIENTEIsNull: Boolean;
@ -263,22 +271,22 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
function GetNIF_CIF_CLIENTEIsNull: Boolean; function GetNIF_CIF_CLIENTEIsNull: Boolean;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
function GetENTIDAD_CLIENTEValue: String; function GetCALLE_CLIENTEValue: String;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); procedure SetCALLE_CLIENTEValue(const aValue: String);
function GetENTIDAD_CLIENTEIsNull: Boolean; function GetCALLE_CLIENTEIsNull: Boolean;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean);
function GetSUCURSAL_CLIENTEValue: String; function GetPOBLACION_CLIENTEValue: String;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); procedure SetPOBLACION_CLIENTEValue(const aValue: String);
function GetSUCURSAL_CLIENTEIsNull: Boolean; function GetPOBLACION_CLIENTEIsNull: Boolean;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
function GetDC_CLIENTEValue: String; function GetCODIGO_POSTAL_CLIENTEValue: String;
procedure SetDC_CLIENTEValue(const aValue: String); procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
function GetDC_CLIENTEIsNull: Boolean; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
function GetCUENTA_CLIENTEValue: String; function GetPROVINCIA_CLIENTEValue: String;
procedure SetCUENTA_CLIENTEValue(const aValue: String); procedure SetPROVINCIA_CLIENTEValue(const aValue: String);
function GetCUENTA_CLIENTEIsNull: Boolean; function GetPROVINCIA_CLIENTEIsNull: Boolean;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -332,20 +340,22 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -355,7 +365,7 @@ type
end; end;
{ TRecibosClienteDataTableRules } { TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -435,6 +445,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
@ -447,22 +461,22 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual; function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual; function GetCALLE_CLIENTEValue: String; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual; function GetPOBLACION_CLIENTEValue: String; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual; function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual; procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual; function GetPROVINCIA_CLIENTEValue: String; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual; function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -515,20 +529,22 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -544,7 +560,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{A77D5C00-617A-4A1C-B34F-B24E6AC72E0D}'] ['{BB11224C-1002-4939-ACCC-1CC94A74BCEF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -624,7 +640,7 @@ type
end; end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -711,7 +727,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{3E3D9FC0-4E90-4A4D-AE58-8B53087B5A5F}'] ['{EB5868FD-C6AA-4687-87B7-0AD07FDDA889}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -789,6 +805,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer); procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean; function GetID_CLIENTEIsNull: Boolean;
@ -801,22 +821,22 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
function GetNIF_CIF_CLIENTEIsNull: Boolean; function GetNIF_CIF_CLIENTEIsNull: Boolean;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
function GetENTIDAD_CLIENTEValue: String; function GetCALLE_CLIENTEValue: String;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); procedure SetCALLE_CLIENTEValue(const aValue: String);
function GetENTIDAD_CLIENTEIsNull: Boolean; function GetCALLE_CLIENTEIsNull: Boolean;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean);
function GetSUCURSAL_CLIENTEValue: String; function GetPOBLACION_CLIENTEValue: String;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); procedure SetPOBLACION_CLIENTEValue(const aValue: String);
function GetSUCURSAL_CLIENTEIsNull: Boolean; function GetPOBLACION_CLIENTEIsNull: Boolean;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
function GetDC_CLIENTEValue: String; function GetCODIGO_POSTAL_CLIENTEValue: String;
procedure SetDC_CLIENTEValue(const aValue: String); procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
function GetDC_CLIENTEIsNull: Boolean; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
function GetCUENTA_CLIENTEValue: String; function GetPROVINCIA_CLIENTEValue: String;
procedure SetCUENTA_CLIENTEValue(const aValue: String); procedure SetPROVINCIA_CLIENTEValue(const aValue: String);
function GetCUENTA_CLIENTEIsNull: Boolean; function GetPROVINCIA_CLIENTEIsNull: Boolean;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -870,20 +890,22 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -893,7 +915,7 @@ type
end; end;
{ TRecibosCompensadosCliDataTableRules } { TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -973,6 +995,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
@ -985,22 +1011,22 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual; function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual; function GetCALLE_CLIENTEValue: String; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual; function GetPOBLACION_CLIENTEValue: String; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual; function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual; procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual; function GetPROVINCIA_CLIENTEValue: String; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual; function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -1053,20 +1079,22 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -1494,6 +1522,27 @@ begin
DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsVariant := Null;
end; 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; function TRecibosClienteDataTableRules.GetID_CLIENTEValue: Integer;
begin begin
result := DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsInteger; result := DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsInteger;
@ -1557,88 +1606,88 @@ begin
DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEValue: String; function TRecibosClienteDataTableRules.GetCALLE_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString;
end; end;
procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString := aValue;
end; end;
function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; function TRecibosClienteDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].IsNull;
end; end;
procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEValue: String; function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString;
end; end;
procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString := aValue;
end; end;
function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].IsNull;
end; end;
procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetDC_CLIENTEValue: String; function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString;
end; end;
procedure TRecibosClienteDataTableRules.SetDC_CLIENTEValue(const aValue: String); procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString := aValue;
end; end;
function TRecibosClienteDataTableRules.GetDC_CLIENTEIsNull: boolean; function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].IsNull;
end; end;
procedure TRecibosClienteDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEValue: String; function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString;
end; end;
procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString := aValue;
end; end;
function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].IsNull;
end; end;
procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetFECHA_ALTAValue: DateTime; function TRecibosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
@ -2379,6 +2428,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
end; 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; function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger; result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger;
@ -2442,88 +2512,88 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String; function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString := aValue;
end; end;
function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].IsNull;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEValue: String; function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString := aValue;
end; end;
function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].IsNull;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEValue: String; function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString := aValue;
end; end;
function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEIsNull: boolean; function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].IsNull;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEValue: String; function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString; result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString := aValue; DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString := aValue;
end; end;
function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].IsNull; result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].IsNull;
end; end;
procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime; function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime;

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosClienteDelta = '{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'; RID_RecibosClienteDelta = '{252DA552-C7AC-4E91-BA26-BC298E1B66DE}';
RID_PagosClienteDelta = '{B09875FA-0962-46A9-9A3A-40F618B4230D}'; RID_PagosClienteDelta = '{733D49FB-64CA-4B84-9F7A-C4EE6287107A}';
RID_RecibosCompensadosCliDelta = '{43471651-957E-47B2-B810-E0227C1BB163}'; RID_RecibosCompensadosCliDelta = '{D4C982A9-C395-4F4E-91E0-0633186E4D73}';
type type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'] ['{252DA552-C7AC-4E91-BA26-BC298E1B66DE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -37,13 +37,14 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency; function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNIF_CIF_CLIENTEValue : String; function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String; function GetOldCALLE_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String; function GetOldPOBLACION_CLIENTEValue : String;
function GetOldDC_CLIENTEValue : String; function GetOldCODIGO_POSTAL_CLIENTEValue : String;
function GetOldCUENTA_CLIENTEValue : String; function GetOldPROVINCIA_CLIENTEValue : String;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -68,13 +69,14 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -199,6 +201,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); 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_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEValue: Integer; virtual;
@ -217,30 +225,30 @@ type
function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual; function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual; function GetCALLE_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetCALLE_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual; function GetOldCALLE_CLIENTEValue: String; virtual;
function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetOldCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual; function GetPOBLACION_CLIENTEValue: String; virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
function GetOldSUCURSAL_CLIENTEValue: String; virtual; function GetOldPOBLACION_CLIENTEValue: String; virtual;
function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual; function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
function GetOldDC_CLIENTEValue: String; virtual; function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetOldDC_CLIENTEIsNull: Boolean; virtual; function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual; procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual; function GetPROVINCIA_CLIENTEValue: String; virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual; function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldCUENTA_CLIENTEValue: String; virtual; function GetOldPROVINCIA_CLIENTEValue: String; virtual;
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual; function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -337,6 +345,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; 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 NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull; property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull; property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull; property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull;
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull; property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull; property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -386,7 +398,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{B09875FA-0962-46A9-9A3A-40F618B4230D}'] ['{733D49FB-64CA-4B84-9F7A-C4EE6287107A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -552,7 +564,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{43471651-957E-47B2-B810-E0227C1BB163}'] ['{D4C982A9-C395-4F4E-91E0-0633186E4D73}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -573,13 +585,14 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency; function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNIF_CIF_CLIENTEValue : String; function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String; function GetOldCALLE_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String; function GetOldPOBLACION_CLIENTEValue : String;
function GetOldDC_CLIENTEValue : String; function GetOldCODIGO_POSTAL_CLIENTEValue : String;
function GetOldCUENTA_CLIENTEValue : String; function GetOldPROVINCIA_CLIENTEValue : String;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -604,13 +617,14 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -735,6 +749,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); 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_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEValue: Integer; virtual;
@ -753,30 +773,30 @@ type
function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual; function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual; function GetCALLE_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetCALLE_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual; function GetOldCALLE_CLIENTEValue: String; virtual;
function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual; function GetOldCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual; function GetPOBLACION_CLIENTEValue: String; virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
function GetOldSUCURSAL_CLIENTEValue: String; virtual; function GetOldPOBLACION_CLIENTEValue: String; virtual;
function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual; function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual; function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual; function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
function GetOldDC_CLIENTEValue: String; virtual; function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetOldDC_CLIENTEIsNull: Boolean; virtual; function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual; procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual; function GetPROVINCIA_CLIENTEValue: String; virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual; function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldCUENTA_CLIENTEValue: String; virtual; function GetOldPROVINCIA_CLIENTEValue: String; virtual;
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual; function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -873,6 +893,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; 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 NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull; property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull; property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull;
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull; property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull;
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull; property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull;
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull; property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -1525,6 +1549,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := Null;
end; 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; function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE];
@ -1618,128 +1673,128 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]);
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]);
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := aValue;
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := aValue;
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := aValue;
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
end; end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := aValue;
end; end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
@ -2820,6 +2875,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
end; 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; function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
@ -2913,128 +2999,128 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := aValue;
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := aValue;
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := aValue;
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := aValue;
end; end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;

131
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -43,6 +43,11 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
@ -72,15 +77,15 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
@ -93,7 +98,7 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
@ -106,24 +111,24 @@ object RptRecibosCliente: TRptRecibosCliente
Size = 15 Size = 15
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'CALLE_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 10
end end
item item
Name = 'DC_CLIENTE' Name = 'PROVINCIA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'POBLACION_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
@ -442,28 +447,26 @@ object RptRecibosCliente: TRptRecibosCliente
'_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' +
' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' + ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' +
','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' + ','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' +
'URA,'#10' V_RECIBOS_CLIENTE.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFE' + 'URA,'#10' V_RECIBOS_CLIENTE.DATOS_BANCARIOS,'#10' V_RECIBOS_CLIENT' +
'RENCIA_REMESA,'#10' V_RECIBOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBO' + 'E.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECI' +
'S_CLIENTE.FECHA_VENCIMIENTO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10 + 'BOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIEN' +
' V_RECIBOS_CLIENTE.OBSERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPOR' + 'TO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBS' +
'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' + 'ERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE' +
'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + '.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' +
'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + 'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' +
'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + 'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' +
'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' + 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' +
'OS_CLIENTE.CODIGO_POSTAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCI' + 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' +
'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' + 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' +
'S_CLIENTE.TITULAR_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE' + 'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' +
','#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.' + 'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' +
'DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.' + ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' +
'NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.' + ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' +
'CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,' + 'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' +
#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_PO' + ' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' +
'STAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS' + 'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' +
'.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WE' + 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 +
'B, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECI' + 'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10
'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
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -498,6 +501,11 @@ object RptRecibosCliente: TRptRecibosCliente
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'ID_FACTURA' SQLOrigin = 'ID_FACTURA'
end end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = '<unknown>'
SQLOrigin = 'DATOS_BANCARIOS'
end
item item
DatasetField = 'ID_REMESA' DatasetField = 'ID_REMESA'
TableField = '<unknown>' TableField = '<unknown>'
@ -586,26 +594,6 @@ object RptRecibosCliente: TRptRecibosCliente
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'POBLACION_CLIENTE' SQLOrigin = 'POBLACION_CLIENTE'
end end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CUENTA_CLIENTE'
end
item item
DatasetField = 'NIF_CIF_EMPRESA' DatasetField = 'NIF_CIF_EMPRESA'
TableField = '<unknown>' TableField = '<unknown>'
@ -670,11 +658,6 @@ object RptRecibosCliente: TRptRecibosCliente
DatasetField = 'LOGOTIPO' DatasetField = 'LOGOTIPO'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'LOGOTIPO' SQLOrigin = 'LOGOTIPO'
end
item
DatasetField = 'TITULAR_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'TITULAR_CLIENTE'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -710,6 +693,11 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
@ -792,31 +780,6 @@ object RptRecibosCliente: TRptRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end 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 item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString

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

@ -98,6 +98,10 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item item
DatasetField = 'ID_CLIENTE' DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE' TableField = 'ID_CLIENTE'
@ -111,20 +115,20 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'NIF_CIF_CLIENTE' TableField = 'NIF_CIF_CLIENTE'
end end
item item
DatasetField = 'ENTIDAD_CLIENTE' DatasetField = 'CALLE_CLIENTE'
TableField = 'ENTIDAD_CLIENTE' TableField = 'CALLE_CLIENTE'
end end
item item
DatasetField = 'SUCURSAL_CLIENTE' DatasetField = 'POBLACION_CLIENTE'
TableField = 'SUCURSAL_CLIENTE' TableField = 'POBLACION_CLIENTE'
end end
item item
DatasetField = 'DC_CLIENTE' DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'DC_CLIENTE' TableField = 'CODIGO_POSTAL_CLIENTE'
end end
item item
DatasetField = 'CUENTA_CLIENTE' DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'CUENTA_CLIENTE' TableField = 'PROVINCIA_CLIENTE'
end end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
@ -244,6 +248,11 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA' DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -262,28 +271,24 @@ object srvRecibosCliente: TsrvRecibosCliente
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'CALLE_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'POBLACION_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
end end
item item
Name = 'DC_CLIENTE' Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 10
DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'PROVINCIA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -517,6 +522,10 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item item
DatasetField = 'ID_CLIENTE' DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE' TableField = 'ID_CLIENTE'
@ -530,20 +539,20 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'NIF_CIF_CLIENTE' TableField = 'NIF_CIF_CLIENTE'
end end
item item
DatasetField = 'ENTIDAD_CLIENTE' DatasetField = 'CALLE_CLIENTE'
TableField = 'ENTIDAD_CLIENTE' TableField = 'CALLE_CLIENTE'
end end
item item
DatasetField = 'SUCURSAL_CLIENTE' DatasetField = 'POBLACION_CLIENTE'
TableField = 'SUCURSAL_CLIENTE' TableField = 'POBLACION_CLIENTE'
end end
item item
DatasetField = 'DC_CLIENTE' DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'DC_CLIENTE' TableField = 'CODIGO_POSTAL_CLIENTE'
end end
item item
DatasetField = 'CUENTA_CLIENTE' DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'CUENTA_CLIENTE' TableField = 'PROVINCIA_CLIENTE'
end end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
@ -644,6 +653,11 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -659,24 +673,24 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 15 Size = 15
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'CALLE_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'POBLACION_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'DC_CLIENTE' Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 10
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'PROVINCIA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 255
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'

120
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -12,7 +12,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente' Caption = 'Recibo de cliente'
ExplicitWidth = 691 ExplicitWidth = 691
inherited Image1: TImage inherited Image1: TImage
Left = 664 Left = 558
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -37,6 +37,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
2B7D0062D74EABC521DC370000000049454E44AE426082} 2B7D0062D74EABC521DC370000000049454E44AE426082}
ExplicitLeft = 574 ExplicitLeft = 574
end end
inherited lblDesbloquear: TcxLabel
Left = 593
ExplicitLeft = 593
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 691 Width = 691
@ -51,7 +55,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 329 Height = 329
ActivePage = pagPagos
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 329 ExplicitHeight = 329
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -84,18 +87,34 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
677 677
335) 335)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 315 ExplicitWidth = 315
ExplicitHeight = 44 ExplicitHeight = 44
Height = 44 Height = 44
@ -103,76 +122,97 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 441 Left = 441
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 441 Left = 441
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 441 Left = 441
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 441 Left = 441
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 441 Left = 441
ExplicitLeft = 441 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 214 StyleDisabled.LookAndFeel.SkinName = ''
Width = 214 StyleFocused.LookAndFeel.SkinName = ''
end StyleHot.LookAndFeel.SkinName = ''
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
ExplicitLeft = 441 ExplicitLeft = 441
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited eConcepto: TcxDBTextEdit inherited eConcepto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end 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 end
end end
@ -276,6 +316,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 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 inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end
@ -318,11 +370,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 315 ExplicitWidth = 315
Width = 315 Width = 315
end end

2
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -11,7 +11,7 @@ uses
uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController, uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados, uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados,
uDAInterfaces; uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)

206
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -187,7 +187,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 440 Left = 440
Top = 84 Top = 111
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -217,13 +217,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
Height = 21 Height = 21
Width = 228 Width = 228
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 440 Left = 440
Top = 167 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataField = 'NOMBRE_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -248,12 +248,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Width = 228 Width = 228
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 440 Left = 440
Top = 140 Top = 167
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataField = 'NIF_CIF_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -278,127 +278,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
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
Width = 228 Width = 228
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
@ -519,6 +399,36 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 5 TabOrder = 5
Width = 216 Width = 216
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -612,6 +522,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eFormaPago Control = eFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:' Caption = 'Total factura:'
Control = eImporteTotal Control = eImporteTotal
@ -633,45 +548,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eNombreCliente Control = eNombreCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end 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 end
end end

12
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -42,23 +42,13 @@ type
eNombreCliente: TcxDBTextEdit; eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
eNifCif: TcxDBTextEdit; eNifCif: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eEntidad: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
eSucursal: TcxDBTextEdit;
dxLayoutControl1Item14: TdxLayoutItem;
eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit; eRemesa: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item19: TdxLayoutItem; dxLayoutControl1Item19: TdxLayoutItem;
edtFechaEmision: TcxDBDateEdit; edtFechaEmision: TcxDBDateEdit;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
@ -67,6 +57,8 @@ type
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
eConcepto: TcxDBTextEdit; eConcepto: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
function GetRecibo: IBizRecibosCliente; function GetRecibo: IBizRecibosCliente;

58
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -226,6 +226,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -240,26 +245,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString DataType = datString
Size = 15 Size = 15
end 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 item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
@ -422,6 +407,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -442,34 +432,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end 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 item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime

394
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}'; RID_RecibosCompensadosProv = '{4F2EE656-026F-4B10-86C2-B20762BE3B0C}';
RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}'; RID_RecibosProveedor = '{475F3A75-FAE9-4B74-96DB-B4AF7CD46E87}';
RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}'; RID_PagosProveedor = '{A2635576-C5EB-4458-AA15-91D3EE590873}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -40,13 +40,10 @@ const
fld_RecibosCompensadosProvFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosCompensadosProvFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA'; fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA';
fld_RecibosCompensadosProvDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR'; fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_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_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosProvUSUARIO = 'USUARIO'; fld_RecibosCompensadosProvUSUARIO = 'USUARIO';
@ -73,16 +70,13 @@ const
idx_RecibosCompensadosProvFORMA_PAGO_FACTURA = 18; idx_RecibosCompensadosProvFORMA_PAGO_FACTURA = 18;
idx_RecibosCompensadosProvIMPORTE_FACTURA = 19; idx_RecibosCompensadosProvIMPORTE_FACTURA = 19;
idx_RecibosCompensadosProvID_EMPRESA = 20; idx_RecibosCompensadosProvID_EMPRESA = 20;
idx_RecibosCompensadosProvID_PROVEEDOR = 21; idx_RecibosCompensadosProvDATOS_BANCARIOS = 21;
idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 22; idx_RecibosCompensadosProvID_PROVEEDOR = 22;
idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 23; idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 23;
idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 24; idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 24;
idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 25; idx_RecibosCompensadosProvFECHA_ALTA = 25;
idx_RecibosCompensadosProvDC_PROVEEDOR = 26; idx_RecibosCompensadosProvFECHA_MODIFICACION = 26;
idx_RecibosCompensadosProvCUENTA_PROVEEDOR = 27; idx_RecibosCompensadosProvUSUARIO = 27;
idx_RecibosCompensadosProvFECHA_ALTA = 28;
idx_RecibosCompensadosProvFECHA_MODIFICACION = 29;
idx_RecibosCompensadosProvUSUARIO = 30;
{ RecibosProveedor fields } { RecibosProveedor fields }
fld_RecibosProveedorID = 'ID'; fld_RecibosProveedorID = 'ID';
@ -106,13 +100,10 @@ const
fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA'; fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA';
fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_RecibosProveedorNIF_CIF_PROVEEDOR = 'NIF_CIF_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_ALTA = 'FECHA_ALTA';
fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosProveedorUSUARIO = 'USUARIO'; fld_RecibosProveedorUSUARIO = 'USUARIO';
@ -139,16 +130,13 @@ const
idx_RecibosProveedorFORMA_PAGO_FACTURA = 18; idx_RecibosProveedorFORMA_PAGO_FACTURA = 18;
idx_RecibosProveedorIMPORTE_FACTURA = 19; idx_RecibosProveedorIMPORTE_FACTURA = 19;
idx_RecibosProveedorID_EMPRESA = 20; idx_RecibosProveedorID_EMPRESA = 20;
idx_RecibosProveedorID_PROVEEDOR = 21; idx_RecibosProveedorDATOS_BANCARIOS = 21;
idx_RecibosProveedorNOMBRE_PROVEEDOR = 22; idx_RecibosProveedorID_PROVEEDOR = 22;
idx_RecibosProveedorNIF_CIF_PROVEEDOR = 23; idx_RecibosProveedorNOMBRE_PROVEEDOR = 23;
idx_RecibosProveedorENTIDAD_PROVEEDOR = 24; idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24;
idx_RecibosProveedorSUCURSAL_PROVEEDOR = 25; idx_RecibosProveedorFECHA_ALTA = 25;
idx_RecibosProveedorDC_PROVEEDOR = 26; idx_RecibosProveedorFECHA_MODIFICACION = 26;
idx_RecibosProveedorCUENTA_PROVEEDOR = 27; idx_RecibosProveedorUSUARIO = 27;
idx_RecibosProveedorFECHA_ALTA = 28;
idx_RecibosProveedorFECHA_MODIFICACION = 29;
idx_RecibosProveedorUSUARIO = 30;
{ PagosProveedor fields } { PagosProveedor fields }
fld_PagosProveedorID = 'ID'; fld_PagosProveedorID = 'ID';
@ -181,7 +169,7 @@ const
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}'] ['{5B17FD1B-07B7-4241-BB12-EAC558D12C8E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -267,6 +255,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean; function GetID_PROVEEDORIsNull: Boolean;
@ -279,22 +271,6 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
function GetNIF_CIF_PROVEEDORIsNull: Boolean; function GetNIF_CIF_PROVEEDORIsNull: Boolean;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: 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; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -352,20 +328,14 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; 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_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -375,7 +345,7 @@ type
end; end;
{ TRecibosCompensadosProvDataTableRules } { TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -463,6 +433,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
@ -475,22 +449,6 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: 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; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -547,20 +505,14 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; 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_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -576,7 +528,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{DCA30451-7CE9-4A08-991B-213799064ED6}'] ['{EEA4A9FB-5FE6-4AEA-97A0-7E1A745AFDA6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -662,6 +614,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean; function GetID_PROVEEDORIsNull: Boolean;
@ -674,22 +630,6 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
function GetNIF_CIF_PROVEEDORIsNull: Boolean; function GetNIF_CIF_PROVEEDORIsNull: Boolean;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: 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; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -747,20 +687,14 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; 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_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -770,7 +704,7 @@ type
end; end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -858,6 +792,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: 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; function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
@ -870,22 +808,6 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: 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; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -942,20 +864,14 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; 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_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; 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_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -971,7 +887,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}'] ['{0CDD85E2-5782-497F-9F64-DCD22CBC13EC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1051,7 +967,7 @@ type
end; end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1592,6 +1508,27 @@ begin
DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsVariant := Null;
end; 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; function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORValue: Integer;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger; result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger;
@ -1655,90 +1592,6 @@ begin
DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null;
end; 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; function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime; result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime;
@ -2255,6 +2108,27 @@ begin
DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null;
end; 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; function TRecibosProveedorDataTableRules.GetID_PROVEEDORValue: Integer;
begin begin
result := DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsInteger; result := DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsInteger;
@ -2318,90 +2192,6 @@ begin
DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null;
end; 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; function TRecibosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime; result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime;

442
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}'; RID_RecibosCompensadosProvDelta = '{46C42FEF-6415-42DA-86DE-B140A2E3B65C}';
RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}'; RID_RecibosProveedorDelta = '{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}';
RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'; RID_PagosProveedorDelta = '{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{7D64E436-4A62-4815-9B17-18188D7EB661}'] ['{46C42FEF-6415-42DA-86DE-B140A2E3B65C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -39,13 +39,10 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency; function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_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_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -72,13 +69,10 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_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_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -215,6 +209,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); 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_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual;
@ -233,30 +233,6 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); 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_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -361,6 +337,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; 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_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; 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 NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; 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_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -410,7 +374,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{8CC4F287-B555-4CB1-B413-10F941E621CF}'] ['{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -433,13 +397,10 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency; function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_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_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -466,13 +427,10 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_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_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -609,6 +567,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); 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_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual;
@ -627,30 +591,6 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); 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_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -755,6 +695,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; 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_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; 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 NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; 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_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -804,7 +732,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'] ['{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -1635,6 +1563,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null;
end; 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; function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
@ -1728,130 +1687,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null;
end; 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; function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
@ -2608,6 +2443,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
end; 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; function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR];
@ -2701,130 +2567,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null;
end; 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; function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];

94
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -105,6 +105,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item item
DatasetField = 'ID_PROVEEDOR' DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR'
@ -117,22 +121,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NIF_CIF_PROVEEDOR' DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR' TableField = 'NIF_CIF_PROVEEDOR'
end 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 item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ALTA'
@ -244,6 +232,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -258,26 +251,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 15 Size = 15
end 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 item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
@ -384,6 +357,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item item
DatasetField = 'ID_PROVEEDOR' DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR'
@ -396,22 +373,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NIF_CIF_PROVEEDOR' DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR' TableField = 'NIF_CIF_PROVEEDOR'
end 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 item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ALTA'
@ -543,6 +504,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
@ -560,30 +526,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 15 Size = 15
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end 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 item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime

93
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -12,7 +12,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Caption = 'Recibo de cliente' Caption = 'Recibo de cliente'
ExplicitWidth = 691 ExplicitWidth = 691
inherited Image1: TImage inherited Image1: TImage
Left = 664 Left = 558
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -37,6 +37,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
2B7D0062D74EABC521DC370000000049454E44AE426082} 2B7D0062D74EABC521DC370000000049454E44AE426082}
ExplicitLeft = 574 ExplicitLeft = 574
end end
inherited lblDesbloquear: TcxLabel
Left = 593
ExplicitLeft = 593
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 691 Width = 691
@ -51,7 +55,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 353 Height = 353
ActivePage = pagPagos
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 353 ExplicitHeight = 353
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -116,94 +119,56 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 274 Width = 274
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 42 ExplicitWidth = 42
Width = 42 Width = 42
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end 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 inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -229,12 +194,14 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129 Width = 129
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 428 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 428 ExplicitLeft = 440
ExplicitWidth = 157
Width = 157
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -244,6 +211,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 216 ExplicitWidth = 216
Width = 216 Width = 216
end 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 end
end end
@ -343,6 +320,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 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 inherited ToolButton3: TToolButton
Top = 0 Top = 0
ExplicitTop = 0 ExplicitTop = 0

2
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -11,7 +11,7 @@ uses
uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes, uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes,
uDAInterfaces; uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)

224
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -101,7 +101,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 216 Width = 100
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
@ -126,7 +126,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 274 Width = 274
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 439 Left = 443
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -156,7 +156,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 20 Width = 20
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 439 Left = 443
Top = 84 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -186,8 +186,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 42 Width = 42
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 439 Left = 443
Top = 111 Top = 138
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -217,13 +217,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
Height = 21 Height = 21
Width = 182 Width = 182
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 439 Left = 443
Top = 194 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR' DataBinding.DataField = 'NOMBRE_PROVEEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -248,12 +248,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
Width = 171 Width = 171
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 439 Left = 443
Top = 167 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR' DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -278,129 +278,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Width = 147 Width = 147
end 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 object eRemesa: TcxDBTextEdit
Left = 136 Left = 136
Top = 165 Top = 165
@ -457,7 +337,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 668 Width = 100
end end
object eReferenciaProveedor: TcxDBTextEdit object eReferenciaProveedor: TcxDBTextEdit
Left = 136 Left = 136
@ -486,10 +366,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 287 Width = 100
end end
object rReferenciaFacturaProv: TcxDBTextEdit object rReferenciaFacturaProv: TcxDBTextEdit
Left = 439 Left = 443
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -548,6 +428,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 6 TabOrder = 6
Width = 216 Width = 216
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -648,6 +558,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eFormaPago Control = eFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:' Caption = 'Total factura:'
Control = eImporteTotal Control = eImporteTotal
@ -669,45 +584,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eNombreCliente Control = eNombreCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end 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 end
end end

12
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -42,25 +42,15 @@ type
eNombreCliente: TcxDBTextEdit; eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
eNifCif: TcxDBTextEdit; eNifCif: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eEntidad: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
eSucursal: TcxDBTextEdit;
dxLayoutControl1Item14: TdxLayoutItem;
eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit; eRemesa: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item19: TdxLayoutItem; dxLayoutControl1Item19: TdxLayoutItem;
edtFechaEmision: TcxDBDateEdit; edtFechaEmision: TcxDBDateEdit;
dxLayoutControl1Item20: TdxLayoutItem; dxLayoutControl1Item20: TdxLayoutItem;
@ -69,6 +59,8 @@ type
rReferenciaFacturaProv: TcxDBTextEdit; rReferenciaFacturaProv: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit; rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
private private
FRecibo : IBizRecibosProveedor; FRecibo : IBizRecibosProveedor;
function GetRecibo: IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -48,8 +48,6 @@ uses
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService}, srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService},
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_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}, srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService}, 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', uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.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}, 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}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: 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', schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

586
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,297 +1,297 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>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</DCC_UsePackage> <DCC_UsePackage>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</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.3.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 01 de octubre de 2008 11:10</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.3.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 01 de octubre de 2008 11:10</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.3.7.0\0" VALUE "FileVersion", "1.3.7.0\0"
VALUE "ProductVersion", "1.3.7.0\0" VALUE "ProductVersion", "1.3.7.0\0"
VALUE "CompileDate", "lunes, 20 de octubre de 2008 12:58\0" VALUE "CompileDate", "lunes, 20 de octubre de 2008 16:55\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"