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

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@709 0c75b7a4-871f-7646-8a2f-f78d34cc349f
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

File diff suppressed because one or more lines are too long

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -187,7 +187,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 440
Top = 84
Top = 111
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -217,13 +217,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 11
Height = 21
Width = 228
end
object eNombreCliente: TcxDBTextEdit
Left = 440
Top = 167
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE'
DataBinding.DataSource = DADataSource
@ -248,12 +248,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Width = 228
end
object eNifCif: TcxDBTextEdit
Left = 440
Top = 140
Top = 167
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE'
DataBinding.DataSource = DADataSource
@ -278,127 +278,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 228
end
object eEntidad: TcxDBTextEdit
Left = 440
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 59
end
object eSucursal: TcxDBTextEdit
Left = 554
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 52
end
object eDC: TcxDBTextEdit
Left = 635
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Width = 33
end
object eCuenta: TcxDBTextEdit
Left = 440
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
TabOrder = 12
Width = 228
end
object eRemesa: TcxDBTextEdit
@ -519,6 +399,36 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 5
Width = 216
end
object eCuenta: TcxDBTextEdit
Left = 440
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
Width = 228
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -612,6 +522,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
@ -633,45 +548,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entidad:'
Control = eEntidad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal:'
Control = eSucursal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'DC:'
Control = eDC
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'd. cuenta:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
end
end
end
end

View File

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

View File

@ -226,6 +226,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -240,26 +245,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -422,6 +407,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -442,34 +432,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
DisplayLabel = 'RecibosProveedor_ENTIDAD_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR'
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
DisplayLabel = 'RecibosProveedor_SUCURSAL_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR'
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
DisplayLabel = 'RecibosProveedor_DC_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR'
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime

View File

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

View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}';
RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}';
RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}';
RID_RecibosCompensadosProvDelta = '{46C42FEF-6415-42DA-86DE-B140A2E3B65C}';
RID_RecibosProveedorDelta = '{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}';
RID_PagosProveedorDelta = '{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}';
type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{7D64E436-4A62-4815-9B17-18188D7EB661}']
['{46C42FEF-6415-42DA-86DE-B140A2E3B65C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -39,13 +39,10 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_PROVEEDORValue : String;
function GetOldENTIDAD_PROVEEDORValue : String;
function GetOldSUCURSAL_PROVEEDORValue : String;
function GetOldDC_PROVEEDORValue : String;
function GetOldCUENTA_PROVEEDORValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
@ -72,13 +69,10 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
@ -215,6 +209,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
@ -233,30 +233,6 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
function GetOldDC_PROVEEDORValue: String; virtual;
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
function GetOldCUENTA_PROVEEDORValue: String; virtual;
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -361,6 +337,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@ -373,22 +353,6 @@ type
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -410,7 +374,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
['{8CC4F287-B555-4CB1-B413-10F941E621CF}']
['{80D121EA-2F86-44E4-9AE9-EEF31D5CF58A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -433,13 +397,10 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_PROVEEDORValue : String;
function GetOldENTIDAD_PROVEEDORValue : String;
function GetOldSUCURSAL_PROVEEDORValue : String;
function GetOldDC_PROVEEDORValue : String;
function GetOldCUENTA_PROVEEDORValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
@ -466,13 +427,10 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
@ -609,6 +567,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
@ -627,30 +591,6 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
function GetOldDC_PROVEEDORValue: String; virtual;
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
function GetOldCUENTA_PROVEEDORValue: String; virtual;
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -755,6 +695,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@ -767,22 +711,6 @@ type
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -804,7 +732,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}']
['{8AB67F2C-0537-4A5B-AC9C-93FC3DA0411F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -1635,6 +1563,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDATOS_BANCARIOS] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
@ -1728,130 +1687,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
@ -2608,6 +2443,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS];
end;
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR];
@ -2701,130 +2567,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];

View File

@ -105,6 +105,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
@ -117,22 +121,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
end
item
DatasetField = 'SUCURSAL_PROVEEDOR'
TableField = 'SUCURSAL_PROVEEDOR'
end
item
DatasetField = 'DC_PROVEEDOR'
TableField = 'DC_PROVEEDOR'
end
item
DatasetField = 'CUENTA_PROVEEDOR'
TableField = 'CUENTA_PROVEEDOR'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
@ -244,6 +232,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -258,26 +251,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -384,6 +357,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
@ -396,22 +373,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
end
item
DatasetField = 'SUCURSAL_PROVEEDOR'
TableField = 'SUCURSAL_PROVEEDOR'
end
item
DatasetField = 'DC_PROVEEDOR'
TableField = 'DC_PROVEEDOR'
end
item
DatasetField = 'CUENTA_PROVEEDOR'
TableField = 'CUENTA_PROVEEDOR'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
@ -543,6 +504,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -560,30 +526,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 15
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR'
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR'
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR'
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime

View File

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

View File

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

View File

@ -101,7 +101,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 216
Width = 100
end
object memObservaciones: TcxDBMemo
Left = 22
@ -126,7 +126,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 274
end
object eFechaEmision: TcxDBTextEdit
Left = 439
Left = 443
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@ -156,7 +156,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 20
end
object eFormaPago: TcxDBTextEdit
Left = 439
Left = 443
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -186,8 +186,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 42
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 439
Top = 111
Left = 443
Top = 138
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -217,13 +217,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
Height = 21
Width = 182
end
object eNombreCliente: TcxDBTextEdit
Left = 439
Top = 194
Left = 443
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR'
DataBinding.DataSource = DADataSource
@ -248,12 +248,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
TabOrder = 14
Width = 171
end
object eNifCif: TcxDBTextEdit
Left = 439
Top = 167
Left = 443
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
DataBinding.DataSource = DADataSource
@ -278,129 +278,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Width = 147
end
object eEntidad: TcxDBTextEdit
Left = 439
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 90
end
object eSucursal: TcxDBTextEdit
Left = 514
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Width = 75
end
object eDC: TcxDBTextEdit
Left = 563
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
Width = 33
end
object eCuenta: TcxDBTextEdit
Left = 439
Top = 248
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
Width = 83
end
object eRemesa: TcxDBTextEdit
Left = 136
Top = 165
@ -457,7 +337,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 668
Width = 100
end
object eReferenciaProveedor: TcxDBTextEdit
Left = 136
@ -486,10 +366,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 287
Width = 100
end
object rReferenciaFacturaProv: TcxDBTextEdit
Left = 439
Left = 443
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -548,6 +428,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 6
Width = 216
end
object eCuenta: TcxDBTextEdit
Left = 443
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 150
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -648,6 +558,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
@ -669,45 +584,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entidad:'
Control = eEntidad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal:'
Control = eSucursal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'DC:'
Control = eDC
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'd. cuenta:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
end
end
end
end

View File

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

Binary file not shown.

View File

@ -48,8 +48,6 @@ uses
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService},
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService},
@ -58,8 +56,6 @@ uses
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
@ -130,7 +126,11 @@ uses
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService};
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.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\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.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\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "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
BLOCK "VarFileInfo"