diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index d01d32e1..f1e498dd 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1224,9 +1224,16 @@ CREATE TABLE RECIBOS_CLIENTE (
USUARIO TIPO_USUARIO,
ID_REMESA TIPO_ID,
ID_RECIBO_COMPENSADO INTEGER,
- ID_TIENDA TIPO_ID
+ ID_TIENDA TIPO_ID,
+ NIF_CIF VARCHAR(15) COLLATE ES_ES,
+ NOMBRE VARCHAR(255),
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255) COLLATE ES_ES,
+ PROVINCIA VARCHAR(255) COLLATE ES_ES,
+ CODIGO_POSTAL VARCHAR(10) COLLATE ES_ES
);
+
CREATE TABLE RECIBOS_PROVEEDOR (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@@ -3348,6 +3355,9 @@ CREATE VIEW V_RECIBOS_CLIENTE(
REFERENCIA,
SITUACION,
ID_FACTURA,
+ FECHA_FACTURA,
+ FORMA_PAGO_FACTURA,
+ IMPORTE_FACTURA,
ID_REMESA,
REFERENCIA_REMESA,
FECHA_EMISION,
@@ -3357,26 +3367,24 @@ CREATE VIEW V_RECIBOS_CLIENTE(
IMPORTE,
OTROS_GASTOS,
IMPORTE_TOTAL,
- FECHA_FACTURA,
- FORMA_PAGO_FACTURA,
- IMPORTE_FACTURA,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
- NIF_CIF_CLIENTE,
ENTIDAD_CLIENTE,
SUCURSAL_CLIENTE,
DC_CLIENTE,
CUENTA_CLIENTE,
+ NIF_CIF,
+ NOMBRE,
+ CALLE,
+ POBLACION,
+ CODIGO_POSTAL,
+ PROVINCIA,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_TIENDA,
- TIENDA,
- CALLE_CLIENTE,
- POBLACION_CLIENTE,
- CODIGO_POSTAL_CLIENTE,
- PROVINCIA_CLIENTE)
+ TIENDA)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@@ -3388,26 +3396,31 @@ SELECT RECIBOS_CLIENTE.ID,
ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
END,
RECIBOS_CLIENTE.ID_FACTURA,
+ FACTURAS_CLIENTE.FECHA_FACTURA,
+ FORMAS_PAGO.DESCRIPCION,
+ FACTURAS_CLIENTE.IMPORTE_TOTAL,
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
-
- FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
RECIBOS_CLIENTE.ID_EMPRESA,
-
- CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
- CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
-
+ RECIBOS_CLIENTE.ID_CLIENTE,
+ CONTACTOS.NOMBRE,
+ CONTACTOS_DATOS_BANCO.ENTIDAD,
+ CONTACTOS_DATOS_BANCO.SUCURSAL,
+ CONTACTOS_DATOS_BANCO.DC,
+ CONTACTOS_DATOS_BANCO.CUENTA,
+ RECIBOS_CLIENTE.NIF_CIF,
+ RECIBOS_CLIENTE.NOMBRE,
+ RECIBOS_CLIENTE.CALLE,
+ RECIBOS_CLIENTE.POBLACION,
+ RECIBOS_CLIENTE.CODIGO_POSTAL,
+ RECIBOS_CLIENTE.PROVINCIA,
RECIBOS_CLIENTE.FECHA_ALTA,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
RECIBOS_CLIENTE.ID_TIENDA,
- COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
- CONTACTOS.CALLE,
- CONTACTOS.POBLACION,
- CONTACTOS.CODIGO_POSTAL,
- CONTACTOS.PROVINCIA
+ COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA
FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION
@@ -3432,8 +3445,6 @@ LEFT JOIN EMPRESAS_TIENDAS
ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
;
-
-
/* View: V_RECIBOS_PROVEEDOR */
CREATE VIEW V_RECIBOS_PROVEEDOR(
ID,
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index d21a8ba8..c1ef3fe3 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -228,7 +228,7 @@ begin
with TIniFile.Create(Fichero) do
begin
VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0);
- VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', '');
+ VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', 'Todas');
Free;
end;
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/uViewGrid.dfm b/Source/GUIBase/uViewGrid.dfm
index be5d0ea7..d4cee25e 100644
--- a/Source/GUIBase/uViewGrid.dfm
+++ b/Source/GUIBase/uViewGrid.dfm
@@ -107,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2
Visible = False
- ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
@@ -155,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
- ReportDocument.CreationDate = 39443.853303854160000000
+ ReportDocument.CreationDate = 39559.757468888880000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True
@@ -315,7 +314,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageFooter.LeftTitle.Strings = (
- 'LUIS LEON REPRESENTACIONES S.L.')
+ 'ACANA HOME S.L.')
PrinterPage.PageFooter.RightTitle.Strings = (
'[Page #] de [Total Pages]')
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj
index f9d3f422..b5ddf1fe 100644
--- a/Source/Modulos/Contactos/Data/Contactos_data.dproj
+++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj
@@ -42,30 +42,34 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_data.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_data.dpk
MainSource
-
-
-
-
-
-
+
+
+
+
+
+
+ TDAClientDataModule
+ TDAClientDataModule
+ TDAClientDataModule
+ TDAClientDataModule
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contactos/Data/Contactos_data.res and b/Source/Modulos/Contactos/Data/Contactos_data.res differ
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 760a91f8..6e18f45e 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -10,117 +10,6 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
- inherited tbl_DireccionesContacto: TDAMemDataTable
- Fields = <
- item
- Name = 'ID'
- DataType = datAutoInc
- GeneratorName = 'GEN_CONTACTOS_DIR_ID'
- ServerAutoRefresh = True
- DictionaryEntry = 'DireccionesContacto_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Calle'
- DictionaryEntry = 'DireccionesContacto_CALLE'
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- DisplayLabel = 'Poblaci'#243'n'
- DictionaryEntry = 'DireccionesContacto_POBLACION'
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Provincia'
- DictionaryEntry = 'DireccionesContacto_PROVINCIA'
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- DisplayLabel = 'C'#243'digo postal'
- DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
- end
- item
- Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
- DisplayLabel = 'Persona de contacto'
- DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DisplayLabel = 'DireccionesContacto_NOMBRE'
- DictionaryEntry = 'DireccionesContacto_NOMBRE'
- end
- item
- Name = 'TELEFONO'
- DataType = datString
- Size = 25
- DisplayLabel = 'Tel'#233'fono'
- DictionaryEntry = 'DireccionesContacto_TELEFONO'
- end
- item
- Name = 'MOVIL'
- DataType = datString
- Size = 25
- DisplayLabel = 'M'#243'vil'
- DictionaryEntry = 'Contactos_MOVIL_1'
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- DisplayLabel = 'Fax'
- DictionaryEntry = 'Contactos_FAX'
- end
- item
- Name = 'EMAIL'
- DataType = datString
- Size = 255
- DisplayLabel = 'E-mail'
- DictionaryEntry = 'DireccionesContacto_EMAIL'
- end
- item
- Name = 'NOTAS'
- DataType = datMemo
- DisplayLabel = 'Notas'
- DictionaryEntry = 'DireccionesContacto_NOTAS'
- end
- item
- Name = 'PORTE'
- DataType = datFloat
- DisplayLabel = 'Coste del porte'
- DictionaryEntry = 'DireccionesContacto_PORTE'
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end>
- end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
index b46881ee..0f90e5ee 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
@@ -230,6 +230,11 @@ inherited DataModuleContactos: TDataModuleContactos
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
item
Name = 'CALLE'
DataType = datString
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index a5326678..8f6bdaa1 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -4,117 +4,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
- inherited tbl_DireccionesContacto: TDAMemDataTable
- Fields = <
- item
- Name = 'ID'
- DataType = datAutoInc
- GeneratorName = 'GEN_CONTACTOS_DIR_ID'
- ServerAutoRefresh = True
- DictionaryEntry = 'DireccionesContacto_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Calle'
- DictionaryEntry = 'DireccionesContacto_CALLE'
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- DisplayLabel = 'Poblaci'#243'n'
- DictionaryEntry = 'DireccionesContacto_POBLACION'
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Provincia'
- DictionaryEntry = 'DireccionesContacto_PROVINCIA'
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- DisplayLabel = 'C'#243'digo postal'
- DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
- end
- item
- Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
- DisplayLabel = 'Persona de contacto'
- DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DisplayLabel = 'DireccionesContacto_NOMBRE'
- DictionaryEntry = 'DireccionesContacto_NOMBRE'
- end
- item
- Name = 'TELEFONO'
- DataType = datString
- Size = 25
- DisplayLabel = 'Tel'#233'fono'
- DictionaryEntry = 'DireccionesContacto_TELEFONO'
- end
- item
- Name = 'MOVIL'
- DataType = datString
- Size = 25
- DisplayLabel = 'M'#243'vil'
- DictionaryEntry = 'Contactos_MOVIL_1'
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- DisplayLabel = 'Fax'
- DictionaryEntry = 'Contactos_FAX'
- end
- item
- Name = 'EMAIL'
- DataType = datString
- Size = 255
- DisplayLabel = 'E-mail'
- DictionaryEntry = 'DireccionesContacto_EMAIL'
- end
- item
- Name = 'NOTAS'
- DataType = datMemo
- DisplayLabel = 'Notas'
- DictionaryEntry = 'DireccionesContacto_NOTAS'
- end
- item
- Name = 'PORTE'
- DataType = datFloat
- DisplayLabel = 'Coste del porte'
- DictionaryEntry = 'DireccionesContacto_PORTE'
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end>
- end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index 2d70e8cd..f3f6f90a 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -3,25 +3,25 @@ unit schContactosClient_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_SubCuentasContacto = '{C590CC84-6AC7-4513-8D77-7258F8EB4535}';
- RID_Contactos = '{B90A91FA-E62F-42FC-A978-194A0DD6A4BD}';
- RID_GruposCliente = '{3AE7D1E5-3CBB-49C7-A3BC-3E8738099CC0}';
- RID_DatosBancarios = '{8788C035-B5A3-44D6-83A4-DFCBD4B62098}';
- RID_Clientes = '{363F240A-531E-4C17-924D-FDA78492B088}';
- RID_Proveedores = '{47BD57F0-0117-4609-B36E-DE4F8054FE96}';
- RID_Empleados = '{18570434-D839-4C1D-907E-F266CA08F759}';
- RID_DireccionesContacto = '{0BCC33E0-DDFB-4718-A63F-66326ACDD55C}';
- RID_ClientesDescuentos = '{397118E3-6034-4264-B378-A646EE472E09}';
- RID_ProcedenciasCliente = '{C452DC28-9F89-43A4-A245-CC9C2DF12458}';
- RID_GruposProveedor = '{93523FFC-C70F-4769-98A6-7E07BEBF14BD}';
- RID_GruposEmpleado = '{EFC3E233-2239-4D54-A23D-B859102E8AAB}';
- RID_Contactos_Refresh = '{DAFCE1F7-9449-4170-BA9A-182DFBD2B440}';
+ RID_SubCuentasContacto = '{DB13534D-4F66-4F7A-AA47-A3750FB6AF8D}';
+ RID_Contactos = '{5A1FF834-F42A-4433-B3BB-33E3E6D6F601}';
+ RID_GruposCliente = '{D6EB0072-26E0-4FF6-BFEE-782EF5A2856C}';
+ RID_DatosBancarios = '{A2B2C8F0-5C46-4290-927A-C65B8416FB28}';
+ RID_Clientes = '{3667E3E4-2352-46D7-BFA8-7E57E641EAD5}';
+ RID_Proveedores = '{E20838F6-54CF-4730-A976-E94FBD45CC84}';
+ RID_Empleados = '{C579408E-EB03-448C-A3DE-0B03EA808043}';
+ RID_DireccionesContacto = '{F458A24A-F154-4499-8AA2-17A1CC34F534}';
+ RID_ClientesDescuentos = '{493FB076-CB1E-4788-B6AE-158C133CF91D}';
+ RID_ProcedenciasCliente = '{A0EF189E-3FDC-40DE-9A34-C015C5637009}';
+ RID_GruposProveedor = '{62877BBE-4203-4FB1-A4CD-D7CE999BB8F1}';
+ RID_GruposEmpleado = '{62BDE0EF-FC09-42FF-A3B7-EEE7EA761B30}';
+ RID_Contactos_Refresh = '{7A32F22A-ABD7-45D4-AA0A-4B0749ECFB1E}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -497,7 +497,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
- ['{3C6FCE2A-1F78-4B2A-9DDE-E49783DB3354}']
+ ['{E55102AC-23D4-4B72-B565-F73315E0D02C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -541,7 +541,7 @@ type
end;
{ TSubCuentasContactoDataTableRules }
- TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
+ TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
private
protected
{ Property getters and setters }
@@ -592,7 +592,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
- ['{F6F2F867-4B4A-412F-B4E6-73621D0BDE0A}']
+ ['{2CF9C4AB-BFF3-4CB4-9B1E-0DE2663541FD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -749,7 +749,7 @@ type
end;
{ TContactosDataTableRules }
- TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
+ TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -915,7 +915,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
- ['{A016FE21-06D0-42D0-8080-FA263A898337}']
+ ['{7CDABC80-C90D-451E-8F0A-B0D1A8C2E302}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -935,7 +935,7 @@ type
end;
{ TGruposClienteDataTableRules }
- TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
+ TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@@ -962,7 +962,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
- ['{5FA0CE9B-73F8-490C-9238-2AB1C6B97A82}']
+ ['{B8A09F34-4344-44FF-A7CE-FB07B1B9A661}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1024,7 +1024,7 @@ type
end;
{ TDatosBancariosDataTableRules }
- TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
+ TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@@ -1093,7 +1093,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
- ['{4B798E26-1BFF-4E85-B130-683F79FF8F6C}']
+ ['{BC86DEF5-59DE-4183-A68A-B8935CA07359}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1334,7 +1334,7 @@ type
end;
{ TClientesDataTableRules }
- TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
+ TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -1584,7 +1584,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
- ['{C2FC4275-80D5-469C-8A86-72F71CDE26FD}']
+ ['{09EE22A7-EAC7-4F06-9FFC-22E2EB719A9C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1825,7 +1825,7 @@ type
end;
{ TProveedoresDataTableRules }
- TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
+ TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -2075,7 +2075,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
- ['{7BE5930F-DFEB-42FF-A1B5-1F208AE7E423}']
+ ['{23A1B700-F071-4A40-88BD-7C40365E4E9D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2276,7 +2276,7 @@ type
end;
{ TEmpleadosDataTableRules }
- TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
+ TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@@ -2494,7 +2494,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
- ['{6D18A60E-F841-46E1-BB6F-FA840C83D1CA}']
+ ['{AFF34C4D-7E69-4A19-9DC8-CE5E5A7EFBB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2603,7 +2603,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
- TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
+ TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -2721,7 +2721,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
- ['{6DD4A9BD-5260-47AC-844C-A83424002EA9}']
+ ['{4C7AD5A0-287B-42A5-B371-D4212207B562}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2759,7 +2759,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
- TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
+ TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@@ -2804,7 +2804,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
- ['{B3F0B2C9-DE6D-4E46-858B-28517AF13733}']
+ ['{32BA4DA2-A83D-4A86-9E3E-C97C6503B330}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2824,7 +2824,7 @@ type
end;
{ TProcedenciasClienteDataTableRules }
- TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
+ TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
private
protected
{ Property getters and setters }
@@ -2851,7 +2851,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
- ['{F70EB01C-2913-44ED-A784-1DB30C28CF24}']
+ ['{2350E1EA-E9A9-4715-8A7D-71519BADBDBA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2871,7 +2871,7 @@ type
end;
{ TGruposProveedorDataTableRules }
- TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
+ TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@@ -2898,7 +2898,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
- ['{07795EB8-F353-4AB7-9956-3F1CEB045506}']
+ ['{00148DAB-C258-43EB-8BA5-1F286CE20673}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2918,7 +2918,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
- TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
+ TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@@ -2945,7 +2945,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
- ['{7AB51E50-F1FC-460B-B962-2E16691C8DFC}']
+ ['{B63A757E-4A8E-4B8B-AA10-7E8FB2B0B0D9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3078,7 +3078,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
- TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
+ TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index bb7eebf7..d4a0a773 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{E8742466-5EA1-44A5-9AE5-DD451737894B}';
- RID_ContactosDelta = '{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}';
- RID_GruposClienteDelta = '{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}';
- RID_DatosBancariosDelta = '{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}';
- RID_ClientesDelta = '{61AA99B2-A336-4CF4-B737-F7002CAE26A8}';
- RID_ProveedoresDelta = '{9F1B09AD-D218-4081-9531-51647613FE85}';
- RID_EmpleadosDelta = '{9E2B39E4-C45A-489E-B91D-8115E398AAE4}';
- RID_DireccionesContactoDelta = '{3BEFC631-A199-4025-9A4A-535780FC7FB1}';
- RID_ClientesDescuentosDelta = '{6A749D0D-D126-40CC-856C-A1EA0042B3B2}';
- RID_ProcedenciasClienteDelta = '{58146E09-69C6-4A3D-9D4E-067BCA148B35}';
- RID_GruposProveedorDelta = '{1CFF788E-11F9-4CB6-B76F-8486A316784C}';
- RID_GruposEmpleadoDelta = '{3804414A-7B65-4D1B-AAC1-027A1ED130AE}';
- RID_Contactos_RefreshDelta = '{D9CC832B-B08B-489C-8562-A79E392C9510}';
+ RID_SubCuentasContactoDelta = '{FC0194D1-310E-4427-AF7F-AB018733BB57}';
+ RID_ContactosDelta = '{527CF7E9-2348-451B-8C83-481A8B52C85A}';
+ RID_GruposClienteDelta = '{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}';
+ RID_DatosBancariosDelta = '{77E54D4E-287A-4452-8DAA-0B0EE634F103}';
+ RID_ClientesDelta = '{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}';
+ RID_ProveedoresDelta = '{7C15EA57-7716-461B-B224-F0F372D48882}';
+ RID_EmpleadosDelta = '{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}';
+ RID_DireccionesContactoDelta = '{F03C2A28-12AF-4253-A847-F21AE6F55C0E}';
+ RID_ClientesDescuentosDelta = '{0366F4B1-E659-4C51-B654-1D19255C0469}';
+ RID_ProcedenciasClienteDelta = '{7D90B987-7B65-461C-BB0F-368751B6BFA3}';
+ RID_GruposProveedorDelta = '{2646C695-AF72-47B1-B49F-3D205AB26AA8}';
+ RID_GruposEmpleadoDelta = '{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}';
+ RID_Contactos_RefreshDelta = '{69513B43-5718-4C52-8EC8-9A276ACAE98A}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
- ['{E8742466-5EA1-44A5-9AE5-DD451737894B}']
+ ['{FC0194D1-310E-4427-AF7F-AB018733BB57}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@@ -120,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
- ['{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}']
+ ['{527CF7E9-2348-451B-8C83-481A8B52C85A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -443,7 +443,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
- ['{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}']
+ ['{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -489,7 +489,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
- ['{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}']
+ ['{77E54D4E-287A-4452-8DAA-0B0EE634F103}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -619,7 +619,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
- ['{61AA99B2-A336-4CF4-B737-F7002CAE26A8}']
+ ['{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1110,7 +1110,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
- ['{9F1B09AD-D218-4081-9531-51647613FE85}']
+ ['{7C15EA57-7716-461B-B224-F0F372D48882}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1601,7 +1601,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
- ['{9E2B39E4-C45A-489E-B91D-8115E398AAE4}']
+ ['{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -2024,7 +2024,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
- ['{3BEFC631-A199-4025-9A4A-535780FC7FB1}']
+ ['{F03C2A28-12AF-4253-A847-F21AE6F55C0E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -2251,7 +2251,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
- ['{6A749D0D-D126-40CC-856C-A1EA0042B3B2}']
+ ['{0366F4B1-E659-4C51-B654-1D19255C0469}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -2333,7 +2333,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
- ['{58146E09-69C6-4A3D-9D4E-067BCA148B35}']
+ ['{7D90B987-7B65-461C-BB0F-368751B6BFA3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -2379,7 +2379,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
- ['{1CFF788E-11F9-4CB6-B76F-8486A316784C}']
+ ['{2646C695-AF72-47B1-B49F-3D205AB26AA8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -2425,7 +2425,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
- ['{3804414A-7B65-4D1B-AAC1-027A1ED130AE}']
+ ['{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -2471,7 +2471,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
- ['{D9CC832B-B08B-489C-8562-A79E392C9510}']
+ ['{69513B43-5718-4C52-8EC8-9A276ACAE98A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index ec84183f..c538cb60 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -117,6 +117,9 @@ type
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
+ function GetNOMBRE_COMERCIALValue: String;
+ procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
@@ -148,6 +151,7 @@ type
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
+ property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@@ -324,6 +328,9 @@ type
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
+ function GetNOMBRE_COMERCIALValue: String;
+ procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+
function GetREGIMEN_IVAValue: String;
procedure SetREGIMEN_IVAValue(const aValue: String);
@@ -374,7 +381,8 @@ type
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
- property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
+ property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
+ property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
end;
@@ -721,6 +729,11 @@ begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
end;
+function TBizProveedor.GetNOMBRE_COMERCIALValue: String;
+begin
+ result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString;
+end;
+
function TBizProveedor.GetREGIMEN_IVAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@@ -849,6 +862,11 @@ begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := Value;
end;
+procedure TBizProveedor.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 03eb3239..3fe8c882 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -1180,6 +1180,12 @@ begin
ARecibos.ID_CLIENTE := AFactura.ID_CLIENTE;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
+ ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
+ ARecibos.CALLE := AFactura.CALLE;
+ ARecibos.NIF_CIF := AFactura.NIF_CIF;
+ ARecibos.POBLACION := AFactura.POBLACION;
+ ARecibos.PROVINCIA := AFactura.PROVINCIA;
+ ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 57212e2c..00c3289c 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -141,11 +141,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'NIF_CIF'
@@ -256,11 +258,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
+ ServerAutoRefresh = True
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'ID_SUBCUENTA'
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 30c4d252..93a18b05 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,8 +9,8 @@ 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_FacturasCliente = '{C39C2786-BDB8-49DE-9EAC-91698C9EBFFA}';
- RID_FacturasCliente_Detalles = '{263850A9-538B-4EC7-B310-3E4C2EE93339}';
+ RID_FacturasCliente = '{AE5A4A76-8A04-4005-A949-58C1F079D651}';
+ RID_FacturasCliente_Detalles = '{A6BF3706-DC34-41F3-8469-835D382D23D8}';
{ Data table names }
nme_FacturasCliente = 'FacturasCliente';
@@ -135,7 +135,7 @@ const
type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{DAB1C0BD-33A9-4AFD-B37A-5402F2FAC3A5}']
+ ['{89B45F34-48D2-4E4D-9C03-F1591EA6F05E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -638,7 +638,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{D3CAD64F-1C21-4C1F-9BEE-04D8DAD24072}']
+ ['{6C713963-6140-464C-8BE5-4E547A0336EC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index 608a4b22..1dabcdb4 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,13 +9,13 @@ 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_FacturasClienteDelta = '{46477AC1-BF12-4410-9EA7-3D1C21A049B9}';
- RID_FacturasCliente_DetallesDelta = '{64DA04CA-425B-42E0-A86A-4B521E488AA9}';
+ RID_FacturasClienteDelta = '{E601804E-04A1-4309-8827-23A675659EC2}';
+ RID_FacturasCliente_DetallesDelta = '{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}';
type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{46477AC1-BF12-4410-9EA7-3D1C21A049B9}']
+ ['{E601804E-04A1-4309-8827-23A675659EC2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -518,7 +518,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{64DA04CA-425B-42E0-A86A-4B521E488AA9}']
+ ['{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index dafbbead..1decb273 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -281,11 +281,13 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'NIF_CIF'
@@ -383,11 +385,13 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
+ ServerAutoRefresh = True
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
end
item
Name = 'ID_SUBCUENTA'
@@ -1235,6 +1239,7 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
+ ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_BASE_IMPONIBLE'
@@ -1302,6 +1307,7 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString
Size = 100
DisplayLabel = 'Cliente'
+ ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_CALLE'
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
index e4bd9157..bf8a0094 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
@@ -2,12 +2,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454
Top = 208
Caption = 'Nueva factura de cliente'
- ClientHeight = 642
+ ClientHeight = 662
ClientWidth = 771
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitWidth = 779
- ExplicitHeight = 676
+ ExplicitHeight = 696
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -70,7 +70,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited pgPaginas: TPageControl
Width = 765
- Height = 378
+ Height = 398
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@@ -85,7 +85,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0
Top = 0
Width = 757
- Height = 350
+ Height = 370
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -99,13 +99,35 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 757
- Height = 350
+ Height = 370
ExplicitWidth = 757
ExplicitHeight = 350
+ inherited eReferencia: TcxDBTextEdit
+ ExplicitWidth = 159
+ Width = 159
+ end
+ inherited edtFecha: TcxDBDateEdit
+ ExplicitWidth = 159
+ Width = 159
+ end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 301
+ ExplicitHeight = 159
+ Height = 159
Width = 301
end
+ inherited cbFormaPago: TcxDBLookupComboBox
+ ExplicitWidth = 78
+ Width = 78
+ end
+ inherited frViewTienda1: TfrViewTienda
+ inherited dxLayoutControl1: TdxLayoutControl
+ inherited cbTienda: TcxComboBox
+ ExplicitWidth = 399
+ Width = 399
+ end
+ end
+ end
inherited frViewClienteFactura1: TfrViewClienteFactura
Width = 314
ExplicitWidth = 314
@@ -142,13 +164,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 225
+ Left = 242
DataBinding.DataSource = dsDataTable
- ExplicitLeft = 225
+ ExplicitLeft = 242
end
inherited Button3: TBitBtn
- Left = 115
- ExplicitLeft = 115
+ Left = 132
+ ExplicitLeft = 132
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@@ -162,11 +184,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
+ ExplicitHeight = 350
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
Width = 757
- Height = 350
+ Height = 370
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -242,7 +265,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited cxGrid: TcxGrid
Width = 757
- Height = 278
+ Height = 298
ExplicitWidth = 757
ExplicitHeight = 278
end
@@ -258,6 +281,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
+ ExplicitHeight = 350
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
@@ -299,7 +323,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited StatusBar: TJvStatusBar
- Top = 623
+ Top = 643
Width = 771
Panels = <
item
@@ -310,7 +334,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
- Top = 460
+ Top = 480
Width = 771
Height = 163
Align = alBottom
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 4351ea97..fdaffe2a 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -59,15 +59,22 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 28
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+ Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
+ Visible = False
+ end
+ object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
+ Caption = 'Cliente'
+ DataBinding.FieldName = 'NOMBRE_CLIENTE'
end
object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF'
Visible = False
end
object cxGridViewNOMBRE: TcxGridDBColumn
- Caption = 'Raz'#243'n'
+ Caption = 'Raz'#243'n social'
DataBinding.FieldName = 'NOMBRE'
+ Visible = False
Width = 181
end
object cxGridViewCALLE: TcxGridDBColumn
@@ -135,10 +142,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
VisibleForCustomization = False
Width = 54
end
- object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
- Caption = 'Cliente'
- DataBinding.FieldName = 'NOMBRE_CLIENTE'
- end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 38976cf7..dcbbe042 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -1174,29 +1174,13 @@ begin
ARecibosProveedorController.EliminarTodo(ARecibos);
//Se cambia la lógica para acana, en el caso de elegir una forma de pago sin plazos
- //y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento de la factura
- if AFormaPago.Plazos.RecordCount < 1 then
- begin
- ARecibos := ARecibosProveedorController.Nuevo;
- ARecibos.Edit;
- ARecibos.ID_FACTURA := AFactura.ID;
- ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
- ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
- ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
- ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - 1';
- ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
- ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
- ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
- ARecibosProveedorController.Guardar(ARecibos);
- end
- else
- //Vamos a generar todos los recibos necesarios para la factura
+ //y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento
+ //de la factura, en el caso de elegir una forma de pago con plazos la logica será la misma que en clientes
With AFormaPago.Plazos.DataTable do
begin
i := 1;
First;
- while not eof do
- begin
+ repeat
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
@@ -1204,13 +1188,27 @@ begin
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
- ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
- ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
- ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
+ ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
+ ARecibos.CALLE := AFactura.CALLE;
+ ARecibos.NIF_CIF := AFactura.NIF_CIF;
+ ARecibos.POBLACION := AFactura.POBLACION;
+ ARecibos.PROVINCIA := AFactura.PROVINCIA;
+ ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
+ ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
+ if AFormaPago.Plazos.RecordCount < 1 then
+ begin
+ ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
+ ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
+ end
+ else
+ begin
+ ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
+ ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
+ end;
ARecibosProveedorController.Guardar(ARecibos);
Inc(i);
Next;
- end;
+ until (eof);
end;
//Liberamos
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
index bd9d3b59..7c24f7dd 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
- Width = 831
- Height = 466
+ Width = 790
+ Height = 496
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 831
- Height = 466
+ Width = 790
+ Height = 496
Align = alClient
ParentBackground = True
TabOrder = 0
@@ -19,8 +19,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
- 831
- 466)
+ 790
+ 496)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@@ -113,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 169
end
object bFormasPago: TButton
- Left = 324
+ Left = 296
Top = 138
Width = 132
Height = 23
@@ -189,7 +189,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
- Left = 484
+ Left = 456
Top = 30
Width = 312
Height = 260
@@ -201,7 +201,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False
TabOrder = 7
ReadOnly = False
- ExplicitLeft = 484
+ ExplicitLeft = 456
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
@@ -233,12 +233,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 233
- ExplicitLeft = 233
+ Left = 220
+ ExplicitLeft = 220
end
inherited Button3: TBitBtn
- Left = 117
- ExplicitLeft = 117
+ Left = 104
+ ExplicitLeft = 104
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276
@@ -315,9 +315,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
- AutoAligns = []
- AlignHorz = ahClient
- AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item3: TdxLayoutItem
Control = frViewProveedorFactura1
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk
index c599d317..eaa8a951 100644
Binary files a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk and b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk differ
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
index fb1783cd..9d714f77 100644
--- a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
+++ b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
@@ -1,4 +1,5 @@
-
+
+
{c8b2fb9a-0367-4fd0-b836-4b594c06bcab}
RecibosCliente_controller.dpk
@@ -39,17 +40,18 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_controller.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_controller.dpk
MainSource
-
-
-
-
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index a1c59670..3e7aee73 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
@@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase,
- uPagosClienteController, uClientesController,
+ uPagosClienteController, uClientesController, uBizDireccionesContacto,
uBizRecibosCliente, uIDataModuleRecibosCliente;
type
@@ -70,6 +70,8 @@ type
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
+ procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
@@ -140,6 +142,8 @@ type
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
+ procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@@ -296,6 +300,43 @@ begin
end;
end;
+procedure TRecibosClienteController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+var
+ bEnEdicion : Boolean;
+begin
+ if not Assigned(ARecibo) then
+ raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
+
+ if not Assigned(ADireccionEnvio) then
+ raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
+
+ if ARecibo.DataTable.Active then
+ ARecibo.DataTable.Active := True;
+
+ if ADireccionEnvio.DataTable.Active then
+ ADireccionEnvio.DataTable.Active := True;
+
+ bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
+ if not bEnEdicion then
+ ARecibo.Edit;
+
+ ShowHourglassCursor;
+ ARecibo.Edit;
+ try
+ ARecibo.CALLE := ADireccionEnvio.CALLE;
+ ARecibo.POBLACION := ADireccionEnvio.POBLACION;
+ ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
+ ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
+ ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
+ ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
+
+ if not bEnEdicion then
+ ARecibo.Post;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
constructor TRecibosClienteController.Create;
begin
inherited;
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index 21bab097..44e880be 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
@@ -147,22 +147,28 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
+ DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO'
+ DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
+ DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
+ DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
@@ -170,6 +176,23 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -223,25 +246,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Alignment = taRightJustify
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
- Alignment = taRightJustify
- DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
- end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@@ -256,14 +263,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
- item
- Name = 'NIF_CIF_CLIENTE'
- DataType = datString
- Size = 15
- DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
- end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
@@ -288,6 +290,48 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Size = 15
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'RecibosCliente_NIF_CIF'
+ DictionaryEntry = 'RecibosCliente_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'RecibosCliente_NOMBRE'
+ DictionaryEntry = 'RecibosCliente_NOMBRE'
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'RecibosCliente_CALLE'
+ DictionaryEntry = 'RecibosCliente_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'RecibosCliente_POBLACION'
+ DictionaryEntry = 'RecibosCliente_POBLACION'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DisplayLabel = 'RecibosCliente_CODIGO_POSTAL'
+ DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'RecibosCliente_PROVINCIA'
+ DictionaryEntry = 'RecibosCliente_PROVINCIA'
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -307,31 +351,17 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
+ DisplayLabel = 'RecibosCliente_ID_TIENDA'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_CLIENTE'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_CLIENTE'
- DataType = datString
- Size = 255
+ DisplayLabel = 'RecibosCliente_TIENDA'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_TIENDA'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -380,6 +410,19 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -418,19 +461,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
+ Alignment = taRightJustify
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_EMPRESA'
@@ -444,11 +477,8 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
- end
- item
- Name = 'NIF_CIF_CLIENTE'
- DataType = datString
- Size = 15
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
@@ -470,6 +500,36 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datString
Size = 15
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -491,26 +551,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_CLIENTE'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_CLIENTE'
- DataType = datString
- Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index 99109ba8..bb6acad5 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
@@ -9,9 +9,9 @@ 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 = '{9D876D5E-A906-4836-9CD6-7F2790A82FFE}';
- RID_PagosCliente = '{8C1E660A-951D-4529-A191-A7FD95238D8D}';
- RID_RecibosCompensadosCli = '{C04A1186-43EC-42DC-BAF7-8FA8DBBD503E}';
+ RID_RecibosCliente = '{DCB9268D-1E73-4C71-AD8B-986ACC76D0E4}';
+ RID_PagosCliente = '{853B9B68-03CE-4AB0-A1F9-D8EE6D3F42D5}';
+ RID_RecibosCompensadosCli = '{06C579B8-915A-4953-912C-5C7083643056}';
{ Data table names }
nme_RecibosCliente = 'RecibosCliente';
@@ -25,6 +25,9 @@ const
fld_RecibosClienteREFERENCIA = 'REFERENCIA';
fld_RecibosClienteSITUACION = 'SITUACION';
fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
+ fld_RecibosClienteFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
+ fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosClienteID_REMESA = 'ID_REMESA';
fld_RecibosClienteREFERENCIA_REMESA = 'REFERENCIA_REMESA';
fld_RecibosClienteFECHA_EMISION = 'FECHA_EMISION';
@@ -34,26 +37,24 @@ const
fld_RecibosClienteIMPORTE = 'IMPORTE';
fld_RecibosClienteOTROS_GASTOS = 'OTROS_GASTOS';
fld_RecibosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_RecibosClienteFECHA_FACTURA = 'FECHA_FACTURA';
- fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
- fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
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_RecibosClienteNIF_CIF = 'NIF_CIF';
+ fld_RecibosClienteNOMBRE = 'NOMBRE';
+ fld_RecibosClienteCALLE = 'CALLE';
+ fld_RecibosClientePOBLACION = 'POBLACION';
+ fld_RecibosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
+ fld_RecibosClientePROVINCIA = 'PROVINCIA';
fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosClienteUSUARIO = 'USUARIO';
fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
fld_RecibosClienteTIENDA = 'TIENDA';
- fld_RecibosClienteCALLE_CLIENTE = 'CALLE_CLIENTE';
- fld_RecibosClientePOBLACION_CLIENTE = 'POBLACION_CLIENTE';
- fld_RecibosClienteCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
- fld_RecibosClientePROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
{ RecibosCliente field indexes }
idx_RecibosClienteID = 0;
@@ -62,35 +63,36 @@ const
idx_RecibosClienteREFERENCIA = 3;
idx_RecibosClienteSITUACION = 4;
idx_RecibosClienteID_FACTURA = 5;
- idx_RecibosClienteID_REMESA = 6;
- idx_RecibosClienteREFERENCIA_REMESA = 7;
- idx_RecibosClienteFECHA_EMISION = 8;
- idx_RecibosClienteFECHA_VENCIMIENTO = 9;
- idx_RecibosClienteDESCRIPCION = 10;
- idx_RecibosClienteOBSERVACIONES = 11;
- idx_RecibosClienteIMPORTE = 12;
- idx_RecibosClienteOTROS_GASTOS = 13;
- idx_RecibosClienteIMPORTE_TOTAL = 14;
- idx_RecibosClienteFECHA_FACTURA = 15;
- idx_RecibosClienteFORMA_PAGO_FACTURA = 16;
- idx_RecibosClienteIMPORTE_FACTURA = 17;
+ idx_RecibosClienteFECHA_FACTURA = 6;
+ idx_RecibosClienteFORMA_PAGO_FACTURA = 7;
+ idx_RecibosClienteIMPORTE_FACTURA = 8;
+ idx_RecibosClienteID_REMESA = 9;
+ idx_RecibosClienteREFERENCIA_REMESA = 10;
+ idx_RecibosClienteFECHA_EMISION = 11;
+ idx_RecibosClienteFECHA_VENCIMIENTO = 12;
+ idx_RecibosClienteDESCRIPCION = 13;
+ idx_RecibosClienteOBSERVACIONES = 14;
+ idx_RecibosClienteIMPORTE = 15;
+ idx_RecibosClienteOTROS_GASTOS = 16;
+ idx_RecibosClienteIMPORTE_TOTAL = 17;
idx_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_RecibosClienteID_TIENDA = 29;
- idx_RecibosClienteTIENDA = 30;
- idx_RecibosClienteCALLE_CLIENTE = 31;
- idx_RecibosClientePOBLACION_CLIENTE = 32;
- idx_RecibosClienteCODIGO_POSTAL_CLIENTE = 33;
- idx_RecibosClientePROVINCIA_CLIENTE = 34;
+ idx_RecibosClienteENTIDAD_CLIENTE = 21;
+ idx_RecibosClienteSUCURSAL_CLIENTE = 22;
+ idx_RecibosClienteDC_CLIENTE = 23;
+ idx_RecibosClienteCUENTA_CLIENTE = 24;
+ idx_RecibosClienteNIF_CIF = 25;
+ idx_RecibosClienteNOMBRE = 26;
+ idx_RecibosClienteCALLE = 27;
+ idx_RecibosClientePOBLACION = 28;
+ idx_RecibosClienteCODIGO_POSTAL = 29;
+ idx_RecibosClientePROVINCIA = 30;
+ idx_RecibosClienteFECHA_ALTA = 31;
+ idx_RecibosClienteFECHA_MODIFICACION = 32;
+ idx_RecibosClienteUSUARIO = 33;
+ idx_RecibosClienteID_TIENDA = 34;
+ idx_RecibosClienteTIENDA = 35;
{ PagosCliente fields }
fld_PagosClienteID = 'ID';
@@ -129,6 +131,9 @@ const
fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
fld_RecibosCompensadosCliSITUACION = 'SITUACION';
fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
+ fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
+ fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosCompensadosCliID_REMESA = 'ID_REMESA';
fld_RecibosCompensadosCliREFERENCIA_REMESA = 'REFERENCIA_REMESA';
fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION';
@@ -138,26 +143,24 @@ const
fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
- fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
- fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
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_RecibosCompensadosCliNIF_CIF = 'NIF_CIF';
+ fld_RecibosCompensadosCliNOMBRE = 'NOMBRE';
+ fld_RecibosCompensadosCliCALLE = 'CALLE';
+ fld_RecibosCompensadosCliPOBLACION = 'POBLACION';
+ fld_RecibosCompensadosCliCODIGO_POSTAL = 'CODIGO_POSTAL';
+ fld_RecibosCompensadosCliPROVINCIA = 'PROVINCIA';
fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
fld_RecibosCompensadosCliTIENDA = 'TIENDA';
- fld_RecibosCompensadosCliCALLE_CLIENTE = 'CALLE_CLIENTE';
- fld_RecibosCompensadosCliPOBLACION_CLIENTE = 'POBLACION_CLIENTE';
- fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
- fld_RecibosCompensadosCliPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
{ RecibosCompensadosCli field indexes }
idx_RecibosCompensadosCliID = 0;
@@ -166,40 +169,41 @@ const
idx_RecibosCompensadosCliREFERENCIA = 3;
idx_RecibosCompensadosCliSITUACION = 4;
idx_RecibosCompensadosCliID_FACTURA = 5;
- idx_RecibosCompensadosCliID_REMESA = 6;
- idx_RecibosCompensadosCliREFERENCIA_REMESA = 7;
- idx_RecibosCompensadosCliFECHA_EMISION = 8;
- idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 9;
- idx_RecibosCompensadosCliDESCRIPCION = 10;
- idx_RecibosCompensadosCliOBSERVACIONES = 11;
- idx_RecibosCompensadosCliIMPORTE = 12;
- idx_RecibosCompensadosCliOTROS_GASTOS = 13;
- idx_RecibosCompensadosCliIMPORTE_TOTAL = 14;
- idx_RecibosCompensadosCliFECHA_FACTURA = 15;
- idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16;
- idx_RecibosCompensadosCliIMPORTE_FACTURA = 17;
+ idx_RecibosCompensadosCliFECHA_FACTURA = 6;
+ idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 7;
+ idx_RecibosCompensadosCliIMPORTE_FACTURA = 8;
+ idx_RecibosCompensadosCliID_REMESA = 9;
+ idx_RecibosCompensadosCliREFERENCIA_REMESA = 10;
+ idx_RecibosCompensadosCliFECHA_EMISION = 11;
+ idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 12;
+ idx_RecibosCompensadosCliDESCRIPCION = 13;
+ idx_RecibosCompensadosCliOBSERVACIONES = 14;
+ idx_RecibosCompensadosCliIMPORTE = 15;
+ idx_RecibosCompensadosCliOTROS_GASTOS = 16;
+ idx_RecibosCompensadosCliIMPORTE_TOTAL = 17;
idx_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_RecibosCompensadosCliID_TIENDA = 29;
- idx_RecibosCompensadosCliTIENDA = 30;
- idx_RecibosCompensadosCliCALLE_CLIENTE = 31;
- idx_RecibosCompensadosCliPOBLACION_CLIENTE = 32;
- idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 33;
- idx_RecibosCompensadosCliPROVINCIA_CLIENTE = 34;
+ idx_RecibosCompensadosCliENTIDAD_CLIENTE = 21;
+ idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 22;
+ idx_RecibosCompensadosCliDC_CLIENTE = 23;
+ idx_RecibosCompensadosCliCUENTA_CLIENTE = 24;
+ idx_RecibosCompensadosCliNIF_CIF = 25;
+ idx_RecibosCompensadosCliNOMBRE = 26;
+ idx_RecibosCompensadosCliCALLE = 27;
+ idx_RecibosCompensadosCliPOBLACION = 28;
+ idx_RecibosCompensadosCliCODIGO_POSTAL = 29;
+ idx_RecibosCompensadosCliPROVINCIA = 30;
+ idx_RecibosCompensadosCliFECHA_ALTA = 31;
+ idx_RecibosCompensadosCliFECHA_MODIFICACION = 32;
+ idx_RecibosCompensadosCliUSUARIO = 33;
+ idx_RecibosCompensadosCliID_TIENDA = 34;
+ idx_RecibosCompensadosCliTIENDA = 35;
type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
- ['{CDD4FB91-F7FE-4197-9573-C8BFF711A1E5}']
+ ['{8AD351CA-F2B8-49BB-9A37-B5F938BF6627}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -225,6 +229,18 @@ type
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFORMA_PAGO_FACTURAValue: String;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+ function GetIMPORTE_FACTURAValue: Currency;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
+ function GetIMPORTE_FACTURAIsNull: Boolean;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
function GetID_REMESAValue: Integer;
procedure SetID_REMESAValue(const aValue: Integer);
function GetID_REMESAIsNull: Boolean;
@@ -261,18 +277,6 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetFECHA_FACTURAValue: DateTime;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime);
- function GetFECHA_FACTURAIsNull: Boolean;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
- function GetFORMA_PAGO_FACTURAValue: String;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
- function GetFORMA_PAGO_FACTURAIsNull: Boolean;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
- function GetIMPORTE_FACTURAValue: Currency;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
- function GetIMPORTE_FACTURAIsNull: Boolean;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
@@ -285,10 +289,6 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
- function GetNIF_CIF_CLIENTEValue: String;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
- function GetNIF_CIF_CLIENTEIsNull: Boolean;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
function GetENTIDAD_CLIENTEValue: String;
procedure SetENTIDAD_CLIENTEValue(const aValue: String);
function GetENTIDAD_CLIENTEIsNull: Boolean;
@@ -305,6 +305,30 @@ type
procedure SetCUENTA_CLIENTEValue(const aValue: String);
function GetCUENTA_CLIENTEIsNull: Boolean;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+ function GetNIF_CIFValue: String;
+ procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
+ function GetNOMBREValue: String;
+ procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
+ function GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
+ function GetPOBLACIONValue: String;
+ procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
+ function GetCODIGO_POSTALValue: String;
+ procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+ function GetPROVINCIAValue: String;
+ procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
@@ -325,22 +349,6 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(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);
{ Properties }
@@ -356,6 +364,12 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
@@ -374,20 +388,12 @@ type
property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property 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;
@@ -396,6 +402,18 @@ type
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
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;
@@ -406,14 +424,6 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property 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;
end;
{ TRecibosClienteDataTableRules }
@@ -445,6 +455,18 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
procedure SetID_REMESAValue(const aValue: Integer); virtual;
function GetID_REMESAIsNull: Boolean; virtual;
@@ -481,18 +503,6 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetFORMA_PAGO_FACTURAValue: String; virtual;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
- function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_FACTURAValue: Currency; virtual;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
- function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
@@ -505,10 +515,6 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIF_CLIENTEValue: String; virtual;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
- function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
@@ -525,6 +531,30 @@ type
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIFValue: String; virtual;
+ procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
@@ -545,22 +575,6 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(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;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -575,6 +589,12 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
@@ -593,20 +613,12 @@ type
property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property 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;
@@ -615,6 +627,18 @@ type
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
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;
@@ -625,14 +649,6 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property 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;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -642,7 +658,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
- ['{FAD77A47-7E68-40C4-932C-9ACB417BE572}']
+ ['{44E8C095-6364-4195-B8EC-7222003F2C8D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -821,7 +837,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
- ['{5CD2C006-BC87-45F8-A501-F59FC5ABB7A6}']
+ ['{0C7C8F75-6882-4934-B7A9-63E06929B18C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -847,6 +863,18 @@ type
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFORMA_PAGO_FACTURAValue: String;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+ function GetIMPORTE_FACTURAValue: Currency;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
+ function GetIMPORTE_FACTURAIsNull: Boolean;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
function GetID_REMESAValue: Integer;
procedure SetID_REMESAValue(const aValue: Integer);
function GetID_REMESAIsNull: Boolean;
@@ -883,18 +911,6 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetFECHA_FACTURAValue: DateTime;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime);
- function GetFECHA_FACTURAIsNull: Boolean;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
- function GetFORMA_PAGO_FACTURAValue: String;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
- function GetFORMA_PAGO_FACTURAIsNull: Boolean;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
- function GetIMPORTE_FACTURAValue: Currency;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
- function GetIMPORTE_FACTURAIsNull: Boolean;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
@@ -907,10 +923,6 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
- function GetNIF_CIF_CLIENTEValue: String;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
- function GetNIF_CIF_CLIENTEIsNull: Boolean;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
function GetENTIDAD_CLIENTEValue: String;
procedure SetENTIDAD_CLIENTEValue(const aValue: String);
function GetENTIDAD_CLIENTEIsNull: Boolean;
@@ -927,6 +939,30 @@ type
procedure SetCUENTA_CLIENTEValue(const aValue: String);
function GetCUENTA_CLIENTEIsNull: Boolean;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+ function GetNIF_CIFValue: String;
+ procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
+ function GetNOMBREValue: String;
+ procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
+ function GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
+ function GetPOBLACIONValue: String;
+ procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
+ function GetCODIGO_POSTALValue: String;
+ procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+ function GetPROVINCIAValue: String;
+ procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
@@ -947,22 +983,6 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(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);
{ Properties }
@@ -978,6 +998,12 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
@@ -996,20 +1022,12 @@ type
property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property 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;
@@ -1018,6 +1036,18 @@ type
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
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;
@@ -1028,14 +1058,6 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property 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;
end;
{ TRecibosCompensadosCliDataTableRules }
@@ -1067,6 +1089,18 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
procedure SetID_REMESAValue(const aValue: Integer); virtual;
function GetID_REMESAIsNull: Boolean; virtual;
@@ -1103,18 +1137,6 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetFORMA_PAGO_FACTURAValue: String; virtual;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
- function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_FACTURAValue: Currency; virtual;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
- function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
@@ -1127,10 +1149,6 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIF_CLIENTEValue: String; virtual;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
- function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
@@ -1147,6 +1165,30 @@ type
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIFValue: String; virtual;
+ procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
@@ -1167,22 +1209,6 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(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;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -1197,6 +1223,12 @@ type
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
@@ -1215,20 +1247,12 @@ type
property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property 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;
@@ -1237,6 +1261,18 @@ type
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
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;
@@ -1247,14 +1283,6 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property 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;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1403,6 +1431,69 @@ begin
DataTable.Fields[idx_RecibosClienteID_FACTURA].AsVariant := Null;
end;
+function TRecibosClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsVariant := Null;
+end;
+
function TRecibosClienteDataTableRules.GetID_REMESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosClienteID_REMESA].AsInteger;
@@ -1592,69 +1683,6 @@ begin
DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsVariant := Null;
end;
-function TRecibosClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
-begin
- result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime;
-end;
-
-procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetFECHA_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsVariant := Null;
-end;
-
-function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsVariant := Null;
-end;
-
-function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAValue: Currency;
-begin
- result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency;
-end;
-
-procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsVariant := Null;
-end;
-
function TRecibosClienteDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsInteger;
@@ -1718,27 +1746,6 @@ begin
DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsVariant := Null;
end;
-function TRecibosClienteDataTableRules.GetNIF_CIF_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsVariant := Null;
-end;
-
function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString;
@@ -1823,6 +1830,132 @@ begin
DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsVariant := Null;
end;
+function TRecibosClienteDataTableRules.GetNIF_CIFValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNIF_CIF].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNIF_CIFValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteNIF_CIF].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNIF_CIF].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteNIF_CIF].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNOMBRE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteNOMBRE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNOMBRE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteNOMBRE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCALLE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteCALLE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCALLE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteCALLE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetPOBLACIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClientePOBLACION].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPOBLACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClientePOBLACION].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClientePOBLACION].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClientePOBLACION].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCODIGO_POSTALValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetPROVINCIAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClientePROVINCIA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPROVINCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClientePROVINCIA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClientePROVINCIA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClientePROVINCIA].AsVariant := Null;
+end;
+
function TRecibosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosClienteFECHA_ALTA].AsDateTime;
@@ -1928,90 +2061,6 @@ begin
DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null;
end;
-function TRecibosClienteDataTableRules.GetCALLE_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString;
-end;
-
-procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].IsNull;
-end;
-
-procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsVariant := Null;
-end;
-
{ TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
@@ -2435,6 +2484,69 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
end;
+function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null;
+end;
+
function TRecibosCompensadosCliDataTableRules.GetID_REMESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger;
@@ -2624,69 +2736,6 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsVariant := Null;
end;
-function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsVariant := Null;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null;
-end;
-
function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
@@ -2750,27 +2799,6 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsVariant := Null;
end;
-function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null;
-end;
-
function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString;
@@ -2855,6 +2883,132 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null;
end;
+function TRecibosCompensadosCliDataTableRules.GetNIF_CIFValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIFValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliNOMBRE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliNOMBRE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliCALLE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliCALLE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliCALLE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliCALLE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetPOBLACIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetPOBLACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliPOBLACION].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliPOBLACION].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTALValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetPROVINCIAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA].AsVariant := Null;
+end;
+
function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime;
@@ -2960,90 +3114,6 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
end;
-function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsVariant := Null;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString := aValue;
-end;
-
-function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].IsNull;
-end;
-
-procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsVariant := Null;
-end;
-
initialization
RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index 1b610236..61ff5d46 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_RecibosClienteDelta = '{3B5E6810-7B21-4881-A614-7F6875FDF51E}';
- RID_PagosClienteDelta = '{0176E856-FFB0-45DB-B513-08CC489BBD1A}';
- RID_RecibosCompensadosCliDelta = '{0EB879D1-ECF1-41EF-8A76-5C738183AB40}';
+ RID_RecibosClienteDelta = '{8CD5251D-CE8C-4A61-8272-EFFEE29410D8}';
+ RID_PagosClienteDelta = '{3618A16E-F809-4BAE-B479-3EB39D0F0B15}';
+ RID_RecibosCompensadosCliDelta = '{9F026DE8-077E-4590-ADA4-05082A2E8633}';
type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
- ['{3B5E6810-7B21-4881-A614-7F6875FDF51E}']
+ ['{8CD5251D-CE8C-4A61-8272-EFFEE29410D8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -24,6 +24,9 @@ type
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFORMA_PAGO_FACTURAValue : String;
+ function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_REMESAValue : Integer;
function GetOldREFERENCIA_REMESAValue : String;
function GetOldFECHA_EMISIONValue : DateTime;
@@ -33,26 +36,24 @@ type
function GetOldIMPORTEValue : Currency;
function GetOldOTROS_GASTOSValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldFECHA_FACTURAValue : DateTime;
- function GetOldFORMA_PAGO_FACTURAValue : String;
- function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
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 GetOldNIF_CIFValue : String;
+ function GetOldNOMBREValue : String;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldPROVINCIAValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
- function GetOldCALLE_CLIENTEValue : String;
- function GetOldPOBLACION_CLIENTEValue : String;
- function GetOldCODIGO_POSTAL_CLIENTEValue : String;
- function GetOldPROVINCIA_CLIENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -61,6 +62,9 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
@@ -70,26 +74,24 @@ type
property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
- property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
- property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
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 OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
- 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;
end;
{ TRecibosClienteBusinessProcessorRules }
@@ -133,6 +135,24 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_FACTURAValue: DateTime; virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ function GetOldFECHA_FACTURAValue: DateTime; virtual;
+ function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_FACTURAValue: Currency; virtual;
+ function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
function GetID_REMESAIsNull: Boolean; virtual;
function GetOldID_REMESAValue: Integer; virtual;
@@ -187,24 +207,6 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- function GetOldFECHA_FACTURAValue: DateTime; virtual;
- function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetFORMA_PAGO_FACTURAValue: String; virtual;
- function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
- function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_FACTURAValue: Currency; virtual;
- function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
- function GetOldIMPORTE_FACTURAValue: Currency; virtual;
- function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
@@ -223,12 +225,6 @@ type
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIF_CLIENTEValue: String; virtual;
- function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- function GetOldNIF_CIF_CLIENTEValue: String; virtual;
- function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual;
@@ -253,6 +249,42 @@ type
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@@ -283,30 +315,6 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(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;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -333,6 +341,18 @@ type
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
@@ -369,18 +389,6 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
- property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
- property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
- property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
- property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
@@ -393,10 +401,6 @@ type
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
- property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
- property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
- property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
- property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
@@ -413,6 +417,30 @@ type
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 NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+ property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+ property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+ property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
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;
@@ -433,22 +461,6 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
- 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;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -458,7 +470,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
- ['{0176E856-FFB0-45DB-B513-08CC489BBD1A}']
+ ['{3618A16E-F809-4BAE-B479-3EB39D0F0B15}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -636,7 +648,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
- ['{0EB879D1-ECF1-41EF-8A76-5C738183AB40}']
+ ['{9F026DE8-077E-4590-ADA4-05082A2E8633}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -644,6 +656,9 @@ type
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFORMA_PAGO_FACTURAValue : String;
+ function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_REMESAValue : Integer;
function GetOldREFERENCIA_REMESAValue : String;
function GetOldFECHA_EMISIONValue : DateTime;
@@ -653,26 +668,24 @@ type
function GetOldIMPORTEValue : Currency;
function GetOldOTROS_GASTOSValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldFECHA_FACTURAValue : DateTime;
- function GetOldFORMA_PAGO_FACTURAValue : String;
- function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
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 GetOldNIF_CIFValue : String;
+ function GetOldNOMBREValue : String;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldPROVINCIAValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
- function GetOldCALLE_CLIENTEValue : String;
- function GetOldPOBLACION_CLIENTEValue : String;
- function GetOldCODIGO_POSTAL_CLIENTEValue : String;
- function GetOldPROVINCIA_CLIENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -681,6 +694,9 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
@@ -690,26 +706,24 @@ type
property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
- property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
- property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
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 OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
- 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;
end;
{ TRecibosCompensadosCliBusinessProcessorRules }
@@ -753,6 +767,24 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_FACTURAValue: DateTime; virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ function GetOldFECHA_FACTURAValue: DateTime; virtual;
+ function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_FACTURAValue: Currency; virtual;
+ function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_REMESAValue: Integer; virtual;
function GetID_REMESAIsNull: Boolean; virtual;
function GetOldID_REMESAValue: Integer; virtual;
@@ -807,24 +839,6 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- function GetOldFECHA_FACTURAValue: DateTime; virtual;
- function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetFORMA_PAGO_FACTURAValue: String; virtual;
- function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
- function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
- procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
- procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_FACTURAValue: Currency; virtual;
- function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
- function GetOldIMPORTE_FACTURAValue: Currency; virtual;
- function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
- procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
@@ -843,12 +857,6 @@ type
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIF_CLIENTEValue: String; virtual;
- function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- function GetOldNIF_CIF_CLIENTEValue: String; virtual;
- function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
- procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
- procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual;
@@ -873,6 +881,42 @@ type
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@@ -903,30 +947,6 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(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;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -953,6 +973,18 @@ type
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
property OldID_REMESA : Integer read GetOldID_REMESAValue;
@@ -989,18 +1021,6 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
- property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
- property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
- property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
- property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
- property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
- property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
- property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
- property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
- property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
@@ -1013,10 +1033,6 @@ type
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
- property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
- property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
- property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
- property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
@@ -1033,6 +1049,30 @@ type
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 NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+ property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+ property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+ property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
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;
@@ -1053,22 +1093,6 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
- 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;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1278,6 +1302,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := Null;
end;
+function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := Null;
+end;
+
function TRecibosClienteBusinessProcessorRules.GetID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA];
@@ -1557,99 +1674,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := Null;
end;
-function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := Null;
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := Null;
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := Null;
-end;
-
function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA];
@@ -1743,37 +1767,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := Null;
end;
-function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := Null;
-end;
-
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
@@ -1898,6 +1891,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := Null;
end;
+function TRecibosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA] := Null;
+end;
+
function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA];
@@ -2053,130 +2232,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
end;
-function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := Null;
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := Null;
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := Null;
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
-end;
-
-function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := aValue;
-end;
-
-procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := Null;
-end;
-
{ TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2790,6 +2845,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
end;
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
+end;
+
function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA];
@@ -3069,99 +3217,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := Null;
end;
-function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null;
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
-end;
-
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
@@ -3255,37 +3310,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := Null;
end;
-function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null;
-end;
-
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
@@ -3410,6 +3434,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null;
end;
+function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA] := Null;
+end;
+
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
@@ -3565,130 +3775,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
end;
-function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := Null;
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := Null;
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := Null;
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
-end;
-
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := aValue;
-end;
-
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := Null;
-end;
-
initialization
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
index 4821162a..ed787222 100644
--- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
@@ -153,13 +153,14 @@ begin
ID_CLIENTE := FCliente.ID;
NOMBRE_CLIENTE := FCliente.NOMBRE;
- NIF_CIF_CLIENTE := FCliente.NIF_CIF;
-
-{ CALLE := FCliente.CALLE;
+ //En el caso de cliente en nombre_comercial solo será para localizar y en el
+ //caso de elegir la dirección principal del cliente se cogerá el nombre para los datos fiscales
+ NOMBRE := FCliente.NOMBRE;
+ NIF_CIF := FCliente.NIF_CIF;
+ CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
-}
Post;
if bEnEdicion then
@@ -243,6 +244,7 @@ begin
OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
+ SITUACION := CTE_PENDIENTE;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
index d1190af4..09d04d60 100644
--- a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
+++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
@@ -14,8 +14,18 @@
+
+
+
+
+
+
+
+
+
+
@@ -181,14 +191,104 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index 906f83ae..f4a5ec7a 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
@@ -106,10 +106,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
- item
- DatasetField = 'NIF_CIF_CLIENTE'
- TableField = 'NIF_CIF_CLIENTE'
- end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
@@ -147,20 +143,28 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'TIENDA'
end
item
- DatasetField = 'CALLE_CLIENTE'
- TableField = 'CALLE_CLIENTE'
+ DatasetField = 'NIF_CIF'
+ TableField = 'NIF_CIF'
end
item
- DatasetField = 'POBLACION_CLIENTE'
- TableField = 'POBLACION_CLIENTE'
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
end
item
- DatasetField = 'CODIGO_POSTAL_CLIENTE'
- TableField = 'CODIGO_POSTAL_CLIENTE'
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
end
item
- DatasetField = 'PROVINCIA_CLIENTE'
- TableField = 'PROVINCIA_CLIENTE'
+ DatasetField = 'POBLACION'
+ TableField = 'POBLACION'
+ end
+ item
+ DatasetField = 'CODIGO_POSTAL'
+ TableField = 'CODIGO_POSTAL'
+ end
+ item
+ DatasetField = 'PROVINCIA'
+ TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosCliente'
@@ -176,22 +180,26 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
@@ -199,6 +207,22 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -245,24 +269,9 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
- DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
- end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@@ -277,14 +286,9 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
- item
- Name = 'NIF_CIF_CLIENTE'
- DataType = datString
- Size = 15
- DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
- end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
@@ -309,6 +313,42 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 15
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_NOMBRE'
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_POBLACION'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_PROVINCIA'
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -328,31 +368,15 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_CLIENTE'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_CLIENTE'
- DataType = datString
- Size = 255
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_TIENDA'
end>
end
item
@@ -586,10 +610,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
- item
- DatasetField = 'NIF_CIF_CLIENTE'
- TableField = 'NIF_CIF_CLIENTE'
- end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
@@ -627,20 +647,28 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'TIENDA'
end
item
- DatasetField = 'CALLE_CLIENTE'
- TableField = 'CALLE_CLIENTE'
+ DatasetField = 'NIF_CIF'
+ TableField = 'NIF_CIF'
end
item
- DatasetField = 'POBLACION_CLIENTE'
- TableField = 'POBLACION_CLIENTE'
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
end
item
- DatasetField = 'CODIGO_POSTAL_CLIENTE'
- TableField = 'CODIGO_POSTAL_CLIENTE'
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
end
item
- DatasetField = 'PROVINCIA_CLIENTE'
- TableField = 'PROVINCIA_CLIENTE'
+ DatasetField = 'POBLACION'
+ TableField = 'POBLACION'
+ end
+ item
+ DatasetField = 'CODIGO_POSTAL'
+ TableField = 'CODIGO_POSTAL'
+ end
+ item
+ DatasetField = 'PROVINCIA'
+ TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosCompensadosCli'
@@ -673,6 +701,19 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -711,19 +752,8 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_EMPRESA'
@@ -737,11 +767,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
- end
- item
- Name = 'NIF_CIF_CLIENTE'
- DataType = datString
- Size = 15
+ ServerAutoRefresh = True
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
@@ -763,6 +790,36 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 15
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -784,26 +841,6 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_CLIENTE'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_CLIENTE'
- DataType = datString
- Size = 255
end>
end>
JoinDataTables = <>
@@ -910,6 +947,30 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_TIENDA'
Value = ''
+ end
+ item
+ Name = 'NOMBRE'
+ Value = ''
+ end
+ item
+ Name = 'NIF_CIF'
+ Value = ''
+ end
+ item
+ Name = 'CALLE'
+ Value = ''
+ end
+ item
+ Name = 'POBLACION'
+ Value = ''
+ end
+ item
+ Name = 'PROVINCIA'
+ Value = ''
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ Value = ''
end>
Statements = <
item
@@ -919,9 +980,11 @@ object srvRecibosCliente: TsrvRecibosCliente
'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' +
'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
- 'DA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :R' +
- 'EFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OB' +
- 'SERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10
+ 'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL)' +
+ #10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :REFE' +
+ 'RENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSER' +
+ 'VACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NO' +
+ 'MBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -991,6 +1054,30 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_TIENDA'
Value = ''
end
+ item
+ Name = 'NOMBRE'
+ Value = ''
+ end
+ item
+ Name = 'NIF_CIF'
+ Value = ''
+ end
+ item
+ Name = 'CALLE'
+ Value = ''
+ end
+ item
+ Name = 'POBLACION'
+ Value = ''
+ end
+ item
+ Name = 'PROVINCIA'
+ Value = ''
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1005,8 +1092,10 @@ object srvRecibosCliente: TsrvRecibosCliente
'EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMI' +
'ENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :OBSER' +
'VACIONES,'#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GAST' +
- 'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' ' +
- ' (ID = :OLD_ID)'#10
+ 'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMB' +
+ 'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
+ 'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
+ 'TAL = :CODIGO_POSTAL'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1286,7 +1375,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCliente'
UpdateCommandName = 'Update_RecibosCliente'
ReferencedDataset = 'RecibosCliente'
- ProcessorOptions = [poPrepareCommands]
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
@@ -1306,12 +1395,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
+ ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_SITUACION'
DataType = datString
Size = 9
DisplayLabel = 'SITUACION'
+ ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_ID_FACTURA'
@@ -1363,6 +1454,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 255
DisplayLabel = 'NOMBRE_CLIENTE'
+ ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_NIF_CIF_CLIENTE'
@@ -1493,6 +1585,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify
+ ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_ID_CLIENTE'
@@ -1502,6 +1595,56 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'RecibosCliente_FECHA_EMISION'
DataType = datDateTime
+ end
+ item
+ Name = 'RecibosCliente_ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'RecibosCliente_NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'RecibosCliente_PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_ID_TIENDA'
+ DataType = datInteger
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'RecibosCliente_TIENDA'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
end>
Left = 48
Top = 152
@@ -1523,7 +1666,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCompensadosCli'
UpdateCommandName = 'Update_RecibosCompensadosCli'
ReferencedDataset = 'RecibosCompensadosCli'
- ProcessorOptions = [poPrepareCommands]
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 152
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
index 0d13716a..632f13a7 100644
Binary files a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk and b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk differ
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
index 67990b51..9088e966 100644
--- a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
+++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
@@ -40,19 +40,41 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_view.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_view.dpk
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirRecibosCliente
@@ -73,6 +95,10 @@
TfEditorRecibosCliente
+
+
+ TFrame
+
TFrame
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
index 4e508267..333b20b2 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
@@ -1,18 +1,18 @@
inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente'
- ClientHeight = 528
- ClientWidth = 689
+ ClientHeight = 562
+ ClientWidth = 742
OnClose = CustomEditorClose
- ExplicitWidth = 697
- ExplicitHeight = 562
+ ExplicitWidth = 750
+ ExplicitHeight = 596
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 689
+ Width = 742
Caption = 'Recibo de cliente'
- ExplicitWidth = 689
+ ExplicitWidth = 742
inherited Image1: TImage
- Left = 662
+ Left = 715
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,32 +39,32 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited TBXDock: TTBXDock
- Width = 689
- ExplicitWidth = 689
+ Width = 742
+ ExplicitWidth = 742
inherited tbxMain: TTBXToolbar
ExplicitWidth = 425
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 689
+ ExplicitWidth = 742
end
end
inherited pgPaginas: TPageControl
- Width = 683
- Height = 327
+ Width = 736
+ Height = 361
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
- ExplicitWidth = 683
- ExplicitHeight = 327
+ ExplicitWidth = 736
+ ExplicitHeight = 361
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 675
- ExplicitHeight = 299
+ ExplicitWidth = 728
+ ExplicitHeight = 333
inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0
Top = 0
- Width = 675
+ Width = 728
Height = 335
Align = alTop
Font.Charset = DEFAULT_CHARSET
@@ -75,15 +75,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 675
+ ExplicitWidth = 728
ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl
- Width = 675
+ Width = 728
Height = 335
- ExplicitWidth = 675
+ ExplicitWidth = 728
ExplicitHeight = 335
DesignSize = (
- 675
+ 728
335)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217
@@ -104,57 +104,27 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 293
end
inherited eFechaEmision: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
- ExplicitWidth = 253
- Width = 253
- end
- inherited eFormaPago: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
+ Left = 512
+ ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
end
inherited eImporteTotal: TcxDBCurrencyEdit
- Left = 475
+ Left = 512
Style.IsFontAssigned = True
- ExplicitLeft = 475
+ ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
end
inherited eNombreCliente: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
+ Left = 512
+ ExplicitLeft = 512
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
- ExplicitWidth = 286
- Width = 286
- end
- inherited eEntidad: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
- ExplicitWidth = 84
- Width = 84
- end
- inherited eSucursal: TcxDBTextEdit
- Left = 550
- ExplicitLeft = 550
- ExplicitWidth = 81
- Width = 81
- end
- inherited eDC: TcxDBTextEdit
- Left = 599
- ExplicitLeft = 599
- ExplicitWidth = 37
- Width = 37
- end
- inherited eCuenta: TcxDBTextEdit
- Left = 475
- ExplicitLeft = 475
+ Left = 512
+ ExplicitLeft = 512
ExplicitWidth = 286
Width = 286
end
@@ -171,45 +141,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 191
Width = 191
end
- inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
- Left = 399
- Top = 272
- Width = 350
- ExplicitLeft = 399
- ExplicitTop = 272
- ExplicitWidth = 350
- inherited dxLayoutControl1: TdxLayoutControl
- Width = 350
- inherited edtlNombre: TcxDBTextEdit
- ExplicitWidth = 276
- Width = 276
- end
- inherited edtNIFCIF: TcxDBTextEdit
- ExplicitWidth = 276
- Width = 276
- end
- inherited edtCalle: TcxDBTextEdit
- ExplicitWidth = 276
- Width = 276
- end
- inherited edtPoblacion: TcxDBTextEdit
- ExplicitWidth = 158
- Width = 158
- end
- inherited edtProvincia: TcxDBTextEdit
- ExplicitWidth = 276
- Width = 276
- end
- inherited edtCodigoPostal: TcxDBTextEdit
- Left = 192
- ExplicitLeft = 192
- end
- inherited Button3: TBitBtn
- Left = 82
- ExplicitLeft = 82
- end
- end
- end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 437
Width = 437
@@ -225,6 +156,58 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
end
+ inherited frViewClienteRecibo1: TfrViewClienteRecibo
+ Left = 436
+ Width = 350
+ ExplicitLeft = 436
+ ExplicitWidth = 350
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 350
+ ExplicitWidth = 350
+ inherited Bevel1: TBevel
+ Width = 266
+ ExplicitWidth = 266
+ end
+ inherited edtlNombre: TcxDBTextEdit
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtNIFCIF: TcxDBTextEdit
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtCalle: TcxDBTextEdit
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtPoblacion: TcxDBTextEdit
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitWidth = 158
+ Width = 158
+ end
+ inherited edtProvincia: TcxDBTextEdit
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtCodigoPostal: TcxDBTextEdit
+ Left = 192
+ DataBinding.DataSource = frViewReciboCliente1.DADataSource
+ ExplicitLeft = 192
+ end
+ inherited Button3: TBitBtn
+ Left = 82
+ ExplicitLeft = 82
+ end
+ inherited cxDBTextEdit1: TcxDBTextEdit
+ ExplicitWidth = 283
+ Width = 283
+ end
+ end
+ end
end
end
end
@@ -234,8 +217,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0
Top = 0
- Width = 675
- Height = 299
+ Width = 728
+ Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -245,19 +228,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 675
- ExplicitHeight = 299
+ ExplicitWidth = 728
+ ExplicitHeight = 333
inherited dxLayoutControl1: TdxLayoutControl
- Width = 675
- Height = 299
- ExplicitWidth = 675
- ExplicitHeight = 299
+ Width = 728
+ Height = 333
+ ExplicitWidth = 728
+ ExplicitHeight = 333
end
inherited dxLayoutControl2: TdxLayoutControl
- Width = 675
- Height = 299
- ExplicitWidth = 675
- ExplicitHeight = 299
+ Width = 728
+ Height = 333
+ ExplicitWidth = 728
+ ExplicitHeight = 333
inherited ToolBar1: TToolBar
Width = 666
ExplicitWidth = 666
@@ -296,8 +279,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0
Top = 0
- Width = 675
- Height = 299
+ Width = 728
+ Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -307,13 +290,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 675
- ExplicitHeight = 299
+ ExplicitWidth = 728
+ ExplicitHeight = 333
inherited cxGrid: TcxGrid
- Width = 675
- Height = 274
- ExplicitWidth = 675
- ExplicitHeight = 274
+ Width = 728
+ Height = 308
+ ExplicitWidth = 728
+ ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -325,8 +308,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited ToolBar1: TToolBar
- Width = 675
- ExplicitWidth = 677
+ Width = 728
+ ExplicitWidth = 728
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
@@ -350,19 +333,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited StatusBar: TJvStatusBar
- Top = 509
- Width = 689
+ Top = 543
+ Width = 742
Panels = <
item
Width = 200
end>
- ExplicitTop = 509
- ExplicitWidth = 689
+ ExplicitTop = 543
+ ExplicitWidth = 742
end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0
- Top = 409
- Width = 689
+ Top = 443
+ Width = 742
Height = 100
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -373,11 +356,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
- ExplicitTop = 409
- ExplicitWidth = 689
+ ExplicitTop = 443
+ ExplicitWidth = 742
inherited dxLayoutControl1: TdxLayoutControl
- Width = 689
- ExplicitWidth = 689
+ Width = 742
+ ExplicitWidth = 742
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
index cbbea04f..f7e63211 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
@@ -73,13 +73,15 @@ type
implementation
-uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App;
+uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App,
+uClientesController, uBizDireccionesContacto, uViewClienteRecibo;
{$R *.dfm}
procedure TfEditorReciboCliente.CalcularTotal;
var
ImporteAux: Double;
+ EnEdicion: Boolean;
begin
ImporteAux := 0;
@@ -355,8 +357,37 @@ begin
end;
procedure TfEditorReciboCliente.OnClienteChanged(Sender: TObject);
+var
+ AClientesController : IClientesController;
+ ADireccion : IBizDireccionesContacto;
+
begin
- FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo.Cliente;
+ FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo1.Cliente;
+
+ if not (FRecibo.DataTable.State in dsEditModes) then
+ FRecibo.DataTable.Edit;
+
+ // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para el recibo
+ AClientesController := TClientesController.Create;
+ try
+ case FRecibo.Cliente.Direcciones.RecordCount of
+ 0 : //No hay direcciones secundarias asociadas
+ else ADireccion := AClientesController.ElegirDireccion(FRecibo.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este recibo.');
+ end;
+
+ // Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
+ if Assigned(ADireccion) then
+ begin
+ try
+ FRecibo.Edit;
+ FController.CopiarDireccion(ADireccion, FRecibo);
+ finally
+ ADireccion := NIL;
+ end;
+ end
+ finally
+ AClientesController := Nil;
+ end;
end;
procedure TfEditorReciboCliente.pgPaginasChanging(Sender: TObject;
@@ -415,8 +446,8 @@ begin
if Assigned(FViewRecibo) and Assigned(Recibo) then
begin
FViewRecibo.Recibo := Recibo;
- frViewReciboCliente1.frViewClienteRecibo.Cliente := FRecibo.Cliente;
- frViewReciboCliente1.frViewClienteRecibo.OnClienteChanged := OnClienteChanged;
+ frViewReciboCliente1.frViewClienteRecibo1.Cliente := FRecibo.Cliente;
+ frViewReciboCliente1.frViewClienteRecibo1.OnClienteChanged := OnClienteChanged;
frViewPagosCliente1.Pagos := Recibo.Pagos;
frViewRecibosCliCompensados1.ReciboCliente := FRecibo;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
index 63786894..c81b1ab3 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
@@ -1,20 +1,21 @@
inherited frViewReciboCliente: TfrViewReciboCliente
- Width = 905
+ Width = 854
Height = 509
- ExplicitWidth = 905
+ ExplicitWidth = 854
ExplicitHeight = 509
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 905
+ Width = 854
Height = 509
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitWidth = 905
DesignSize = (
- 905
+ 854
509)
object eReferencia: TcxDBTextEdit
Left = 120
@@ -109,7 +110,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 274
end
object eFechaEmision: TcxDBTextEdit
- Left = 631
+ Left = 551
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@@ -134,35 +135,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 9
Width = 20
end
- object eFormaPago: TcxDBTextEdit
- Left = 631
- Top = 57
- Anchors = [akLeft, akTop, akRight]
- DataBinding.DataField = 'FORMA_PAGO_FACTURA'
- 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
- StyleDisabled.Color = clMenuBar
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleDisabled.TextColor = clWindowText
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 10
- Width = 42
- end
object eImporteTotal: TcxDBCurrencyEdit
- Left = 631
- Top = 84
+ Left = 551
+ Top = 111
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@@ -188,15 +163,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 11
+ TabOrder = 12
Height = 21
Width = 182
end
object eNombreCliente: TcxDBTextEdit
- Left = 631
- Top = 167
+ Left = 551
+ Top = 84
Anchors = [akLeft, akTop, akRight]
- DataBinding.DataField = 'NOMBRE_CLIENTE'
+ DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@@ -215,14 +190,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 13
+ TabOrder = 11
Width = 171
end
object eNifCif: TcxDBTextEdit
- Left = 631
- Top = 140
+ Left = 551
+ Top = 57
Anchors = [akLeft, akTop, akRight]
- DataBinding.DataField = 'NIF_CIF_CLIENTE'
+ DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@@ -241,113 +216,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 12
+ TabOrder = 10
Width = 147
end
- object eEntidad: TcxDBTextEdit
- Left = 631
- 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
- StyleDisabled.Color = clMenuBar
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleDisabled.TextColor = clWindowText
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 14
- Width = 90
- end
- object eSucursal: TcxDBTextEdit
- Left = 759
- 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
- StyleDisabled.Color = clMenuBar
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleDisabled.TextColor = clWindowText
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 15
- Width = 75
- end
- object eDC: TcxDBTextEdit
- Left = 850
- 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
- StyleDisabled.Color = clMenuBar
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleDisabled.TextColor = clWindowText
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 16
- Width = 33
- end
- object eCuenta: TcxDBTextEdit
- Left = 631
- 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
- StyleDisabled.Color = clMenuBar
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleDisabled.TextColor = clWindowText
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 17
- Width = 83
- end
object eRemesa: TcxDBTextEdit
Left = 120
Top = 138
@@ -425,52 +296,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 6
Width = 191
end
- inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
- Left = 555
- Top = 275
- Width = 350
- Height = 212
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 18
- ReadOnly = False
- ExplicitLeft = 555
- ExplicitTop = 275
- inherited dxLayoutControl1: TdxLayoutControl
- inherited edtlNombre: TcxDBTextEdit
- ExplicitWidth = 224
- Width = 224
- end
- inherited edtNIFCIF: TcxDBTextEdit
- ExplicitWidth = 562
- Width = 562
- end
- inherited edtCalle: TcxDBTextEdit
- ExplicitWidth = 562
- Width = 562
- end
- inherited edtPoblacion: TcxDBTextEdit
- ExplicitWidth = 177
- Width = 177
- end
- inherited edtProvincia: TcxDBTextEdit
- ExplicitWidth = 327
- Width = 327
- end
- inherited edtCodigoPostal: TcxDBTextEdit
- Left = 236
- ExplicitLeft = 236
- end
- inherited Button3: TBitBtn
- Left = 126
- ExplicitLeft = 126
- end
- end
- end
object eDescripcion: TcxDBTextEdit
Left = 120
Top = 165
@@ -513,6 +338,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ExplicitLeft = 120
ExplicitTop = 267
inherited dxLayoutControl1: TdxLayoutControl
+ ExplicitWidth = 407
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
@@ -526,6 +352,57 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
end
+ inline frViewClienteRecibo1: TfrViewClienteRecibo
+ Left = 475
+ Top = 162
+ Width = 357
+ Height = 318
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 13
+ ReadOnly = False
+ ExplicitLeft = 475
+ ExplicitTop = 162
+ inherited dxLayoutControl1: TdxLayoutControl
+ ExplicitWidth = 328
+ inherited edtlNombre: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtNIFCIF: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtCalle: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtPoblacion: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ ExplicitWidth = 158
+ Width = 158
+ end
+ inherited edtProvincia: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ ExplicitWidth = 276
+ Width = 276
+ end
+ inherited edtCodigoPostal: TcxDBTextEdit
+ DataBinding.DataSource = DADataSource
+ end
+ inherited cxDBTextEdit1: TcxDBTextEdit
+ ExplicitWidth = 283
+ Width = 283
+ end
+ end
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -609,8 +486,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
@@ -623,24 +498,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item8: TdxLayoutItem
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
- Caption = 'Forma pago:'
- Control = eFormaPago
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item9: TdxLayoutItem
- Caption = 'Total factura:'
- Control = eImporteTotal
- ControlOptions.ShowBorder = False
- end
- end
- object dxLayoutControlCliente: TdxLayoutGroup
- AutoAligns = [aaHorizontal]
- AlignVert = avClient
- Caption = 'Datos del cliente'
- Offsets.Top = 5
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'NIF/CIF:'
Control = eNifCif
@@ -651,44 +508,10 @@ 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
+ object dxLayoutControl1Item9: TdxLayoutItem
+ Caption = 'Total factura:'
+ Control = eImporteTotal
+ ControlOptions.ShowBorder = False
end
end
object dxLayoutControlClienteModif: TdxLayoutGroup
@@ -696,7 +519,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AlignVert = avClient
Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem
- Control = frViewClienteRecibo
+ Control = frViewClienteRecibo1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
index b848bbe8..4c1d82db 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
@@ -8,7 +8,7 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
- uViewTienda;
+ uViewTienda, uViewClienteRecibo;
type
IViewReciboCliente = interface(IViewBase)
@@ -38,8 +38,6 @@ type
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eFechaEmision: TcxDBTextEdit;
- dxLayoutControl1Item8: TdxLayoutItem;
- eFormaPago: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
eImporteTotal: TcxDBCurrencyEdit;
dxLayoutControlFactura: TdxLayoutGroup;
@@ -47,37 +45,26 @@ type
eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eNifCif: TcxDBTextEdit;
- dxLayoutControl1Item12: TdxLayoutItem;
- eEntidad: TcxDBTextEdit;
- dxLayoutControl1Item13: TdxLayoutItem;
- eSucursal: TcxDBTextEdit;
- dxLayoutControl1Item14: TdxLayoutItem;
- eDC: TcxDBTextEdit;
- dxLayoutControl1Item15: TdxLayoutItem;
- eCuenta: TcxDBTextEdit;
- dxLayoutControlCliente: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit;
- dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group7: TdxLayoutGroup;
- dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item19: TdxLayoutItem;
edtFechaEmision: TcxDBDateEdit;
dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
- dxLayoutControl1Item6: TdxLayoutItem;
- frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
dxLayoutControlClienteModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
dxLayoutControl1Item18: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group5: TdxLayoutGroup;
+ dxLayoutControl1Item6: TdxLayoutItem;
+ frViewClienteRecibo1: TfrViewClienteRecibo;
private
FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;
@@ -115,7 +102,7 @@ begin
FController := Value;
if Assigned(FController) then
- frViewClienteRecibo.Controller := FController.ClienteController;
+ frViewClienteRecibo1.Controller := FController.ClienteController;
end;
procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
@@ -124,7 +111,6 @@ begin
//Por defecto
dxLayoutControlFactura.Visible := true;
- dxLayoutControlCliente.Visible := true;
dxLayoutControlClienteModif.Visible := false;
eDescripcion.Enabled := False;
@@ -136,7 +122,6 @@ begin
if FRecibo.SinFactura then
begin
dxLayoutControlFactura.Visible := false;
- dxLayoutControlCliente.Visible := false;
dxLayoutControlClienteModif.Visible := true;
eDescripcion.Enabled := True;
end;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
index e00d67df..65215d60 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
@@ -116,18 +116,22 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Visible = False
BestFitMaxWidth = 150
end
- object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
- Caption = 'NIF/CIF'
- DataBinding.FieldName = 'NIF_CIF_CLIENTE'
- Visible = False
- BestFitMaxWidth = 70
- end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
BestFitMaxWidth = 150
Width = 51
end
+ object cxGridViewNIF_CIF: TcxGridDBColumn
+ Caption = 'NIF/CIF'
+ DataBinding.FieldName = 'NIF_CIF'
+ Visible = False
+ BestFitMaxWidth = 70
+ end
+ object cxGridViewNOMBRE: TcxGridDBColumn
+ Caption = 'Raz'#243'n'
+ DataBinding.FieldName = 'NOMBRE'
+ end
object cxGridViewIMPORTE: TcxGridDBColumn
Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE'
@@ -167,6 +171,26 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
HeaderAlignmentHorz = taRightJustify
Width = 48
end
+ object cxGridViewCALLE: TcxGridDBColumn
+ Caption = 'Calle'
+ DataBinding.FieldName = 'CALLE'
+ Visible = False
+ end
+ object cxGridViewPOBLACION: TcxGridDBColumn
+ Caption = 'Poblaci'#243'n'
+ DataBinding.FieldName = 'POBLACION'
+ Visible = False
+ end
+ object cxGridViewPROVINCIA: TcxGridDBColumn
+ Caption = 'Provincia'
+ DataBinding.FieldName = 'PROVINCIA'
+ Visible = False
+ end
+ object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
+ Caption = 'C'#243'digo postal'
+ DataBinding.FieldName = 'CODIGO_POSTAL'
+ Visible = False
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
@@ -189,17 +213,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 531
ExplicitWidth = 531
- inherited txtFiltroTodo: TcxTextEdit
- ExplicitWidth = 273
- Width = 273
- end
- inherited edtFechaIniFiltro: TcxDateEdit
- ExplicitWidth = 121
- Width = 121
- end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 229
- ExplicitLeft = 229
+ Left = 287
+ ExplicitLeft = 287
ExplicitWidth = 287
Width = 287
end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
index 5bb88f49..3a427c5d 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
@@ -37,7 +37,7 @@ type
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewIMPORTE: TcxGridDBColumn;
cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
- cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn;
+ cxGridViewNIF_CIF: TcxGridDBColumn;
cxGridViewREFERENCIA_REMESA: TcxGridDBColumn;
cxGridDevueltos: TcxGridLevel;
cxGridViewOTROS_GASTOS: TcxGridDBColumn;
@@ -51,6 +51,11 @@ type
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewID_TIENDA: TcxGridDBColumn;
+ cxGridViewNOMBRE: TcxGridDBColumn;
+ cxGridViewCALLE: TcxGridDBColumn;
+ cxGridViewPOBLACION: TcxGridDBColumn;
+ cxGridViewPROVINCIA: TcxGridDBColumn;
+ cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk
index f6273cf7..9890e36b 100644
Binary files a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk and b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk differ
diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
index e2ea6340..4e86aeb9 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
+++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
@@ -40,17 +40,18 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_controller.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_controller.dpk
MainSource
-
-
-
-
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 874caa64..29a6932d 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
@@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase,
- uPagosProveedorController, uProveedoresController,
+ uPagosProveedorController, uProveedoresController, uBizDireccionesContacto,
uBizRecibosProveedor, uIDataModuleRecibosProveedor;
type
@@ -69,6 +69,8 @@ type
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
+ procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
+
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
@@ -134,6 +136,8 @@ type
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
+ procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
+
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
@@ -229,6 +233,44 @@ begin
FiltrarEmpresa(Result);
end;
+procedure TRecibosProveedorController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto;
+ ARecibo: IBizRecibosProveedor);
+var
+ bEnEdicion : Boolean;
+begin
+ if not Assigned(ARecibo) then
+ raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
+
+ if not Assigned(ADireccionEnvio) then
+ raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
+
+ if ARecibo.DataTable.Active then
+ ARecibo.DataTable.Active := True;
+
+ if ADireccionEnvio.DataTable.Active then
+ ADireccionEnvio.DataTable.Active := True;
+
+ bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
+ if not bEnEdicion then
+ ARecibo.Edit;
+
+ ShowHourglassCursor;
+ ARecibo.Edit;
+ try
+ ARecibo.CALLE := ADireccionEnvio.CALLE;
+ ARecibo.POBLACION := ADireccionEnvio.POBLACION;
+ ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
+ ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
+ ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
+ ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
+
+ if not bEnEdicion then
+ ARecibo.Post;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
constructor TRecibosProveedorController.Create;
begin
inherited;
diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
index 3e17d80a..47924284 100644
--- a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
+++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
@@ -42,16 +42,16 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_data.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_data.dpk
MainSource
-
-
-
+
+
+
diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
index 25d5fa71..11f4fce4 100644
--- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
@@ -169,6 +169,24 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'ID_FACTURA'
DataType = datInteger
end
+ item
+ Name = 'REFERENCIA_FACTURA_PROV'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -208,24 +226,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
- item
- Name = 'REFERENCIA_FACTURA_PROV'
- DataType = datString
- Size = 255
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
- end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@@ -239,11 +239,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString
Size = 255
end
- item
- Name = 'NIF_CIF_PROVEEDOR'
- DataType = datString
- Size = 15
- end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@@ -264,6 +259,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString
Size = 15
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -285,26 +310,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_PROVEEDOR'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_PROVEEDOR'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_PROVEEDOR'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_PROVEEDOR'
- DataType = datString
- Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
@@ -373,6 +378,30 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_FACTURA'
end
+ item
+ Name = 'REFERENCIA_FACTURA_PROV'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ref. factura prov.'
+ DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
+ end
item
Name = 'ID_REMESA'
DataType = datInteger
@@ -426,30 +455,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Alignment = taRightJustify
DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
end
- item
- Name = 'REFERENCIA_FACTURA_PROV'
- DataType = datString
- Size = 255
- DisplayLabel = 'Ref. factura prov.'
- DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
- end
- item
- Name = 'FORMA_PAGO_FACTURA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
- end
- item
- Name = 'IMPORTE_FACTURA'
- DataType = datCurrency
- Alignment = taRightJustify
- DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
- end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@@ -468,13 +473,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
end
- item
- Name = 'NIF_CIF_PROVEEDOR'
- DataType = datString
- Size = 15
- DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
- DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
- end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@@ -503,6 +501,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@@ -527,26 +555,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
- end
- item
- Name = 'CALLE_PROVEEDOR'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION_PROVEEDOR'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL_PROVEEDOR'
- DataType = datString
- Size = 10
- end
- item
- Name = 'PROVINCIA_PROVEEDOR'
- DataType = datString
- Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj
index 39b6ae90..c40cd5b8 100644
--- a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj
+++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj
@@ -40,73 +40,32 @@
Delphi.Personality
Package
-
- False
- True
- False
-
-
- True
- False
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- RecibosProveedor_model.dpk
-
-
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_model.dpk
MainSource
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-