diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index e5b3ce6..f49cd11 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 5a2913b..63c07d2 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -2309,54 +2309,53 @@ FROM
GROUP BY ID_FACTURA
;
-
-
/* View: V_FACTURAS_CLIENTE */
CREATE VIEW V_FACTURAS_CLIENTE(
- ID,
- ID_EMPRESA,
- REFERENCIA,
- TIPO,
- ID_COMISION_LIQUIDADA,
- FECHA_FACTURA,
- FECHA_VENCIMIENTO,
- FECHA_RETENCION,
- SITUACION,
- BASE_IMPONIBLE,
- DESCUENTO,
- IMPORTE_DESCUENTO,
- DESCRIPCION_DESCUENTO,
- IVA,
- IMPORTE_IVA,
- RE,
- IMPORTE_RE,
- IMPORTE_TOTAL,
- OBSERVACIONES,
- ID_CLIENTE,
- NIF_CIF,
- NOMBRE,
- ID_DIRECCION,
- CALLE,
- POBLACION,
- PROVINCIA,
- CODIGO_POSTAL,
- DATOS_BANCARIOS,
- CLIENTE_FINAL,
- FECHA_ALTA,
- FECHA_MODIFICACION,
- USUARIO,
- ID_FORMA_PAGO,
- RECARGO_EQUIVALENCIA,
- ID_TIPO_IVA,
- IMPORTE_NETO,
- IMPORTE_PORTE,
- ID_AGENTE,
- REFERENCIA_COMISION,
- RETENCION,
- IMPORTE_RETENCION,
- NUM_COPIAS,
- NUM_CORREOS)
- AS
+ ID,
+ ID_EMPRESA,
+ REFERENCIA,
+ TIPO,
+ ID_COMISION_LIQUIDADA,
+ FECHA_FACTURA,
+ FECHA_VENCIMIENTO,
+ FECHA_RETENCION,
+ SITUACION,
+ BASE_IMPONIBLE,
+ DESCUENTO,
+ IMPORTE_DESCUENTO,
+ DESCRIPCION_DESCUENTO,
+ IVA,
+ IMPORTE_IVA,
+ RE,
+ IMPORTE_RE,
+ IMPORTE_TOTAL,
+ OBSERVACIONES,
+ ID_CLIENTE,
+ NIF_CIF,
+ NOMBRE,
+ ID_DIRECCION,
+ CALLE,
+ POBLACION,
+ PROVINCIA,
+ CODIGO_POSTAL,
+ DATOS_BANCARIOS,
+ CLIENTE_FINAL,
+ FECHA_ALTA,
+ FECHA_MODIFICACION,
+ USUARIO,
+ ID_FORMA_PAGO,
+ RECARGO_EQUIVALENCIA,
+ ID_TIPO_IVA,
+ IMPORTE_NETO,
+ IMPORTE_PORTE,
+ ID_AGENTE,
+ REFERENCIA_COMISION,
+ RETENCION,
+ IMPORTE_RETENCION,
+ NUM_COPIAS,
+ NUM_CORREOS,
+ ID_ALBARAN)
+AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
FACTURAS_CLIENTE.REFERENCIA,
@@ -2399,7 +2398,8 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.RETENCION,
FACTURAS_CLIENTE.IMPORTE_RETENCION,
IMPRESIONES.NUM_COPIAS,
- REGISTRO_CORREOS.NUM_CORREOS
+ REGISTRO_CORREOS.NUM_CORREOS,
+ Null as ID_ALBARAN /*CAMPO FICTICIO QUE SE AÑADE PARA PODER COMPARTIR Clase de negocio IBizFacturaProveedor, el modulo de facturas proveedor y el modulo procesopresupuestocliente*/
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
@@ -2412,7 +2412,125 @@ SELECT FACTURAS_CLIENTE.ID,
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASCLIENTE'))
- ;
+;
+
+CREATE VIEW V_ALBARANES_CLI_FACTURADOS(
+ ID_ALBARAN,
+ ID_FACTURA)
+AS
+select ID, ID_FACTURA
+from albaranes_cliente
+where id_FACTURA is not null
+;
+
+CREATE VIEW V_FACTURAS_CLI_DE_ALBARANES(
+ ID,
+ ID_EMPRESA,
+ REFERENCIA,
+ TIPO,
+ ID_COMISION_LIQUIDADA,
+ FECHA_FACTURA,
+ FECHA_VENCIMIENTO,
+ FECHA_RETENCION,
+ SITUACION,
+ BASE_IMPONIBLE,
+ DESCUENTO,
+ IMPORTE_DESCUENTO,
+ DESCRIPCION_DESCUENTO,
+ IVA,
+ IMPORTE_IVA,
+ RE,
+ IMPORTE_RE,
+ IMPORTE_TOTAL,
+ OBSERVACIONES,
+ ID_CLIENTE,
+ NIF_CIF,
+ NOMBRE,
+ ID_DIRECCION,
+ CALLE,
+ POBLACION,
+ PROVINCIA,
+ CODIGO_POSTAL,
+ DATOS_BANCARIOS,
+ CLIENTE_FINAL,
+ FECHA_ALTA,
+ FECHA_MODIFICACION,
+ USUARIO,
+ ID_FORMA_PAGO,
+ RECARGO_EQUIVALENCIA,
+ ID_TIPO_IVA,
+ IMPORTE_NETO,
+ IMPORTE_PORTE,
+ ID_AGENTE,
+ REFERENCIA_COMISION,
+ RETENCION,
+ IMPORTE_RETENCION,
+ NUM_COPIAS,
+ NUM_CORREOS,
+ ID_ALBARAN)
+AS
+SELECT FACTURAS_CLIENTE.ID,
+ FACTURAS_CLIENTE.ID_EMPRESA,
+ FACTURAS_CLIENTE.REFERENCIA,
+ CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
+ FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
+ FACTURAS_CLIENTE.FECHA_FACTURA,
+ FACTURAS_CLIENTE.FECHA_VENCIMIENTO,
+ FACTURAS_CLIENTE.FECHA_RETENCION,
+ TRIM(V_FAC_CLI_SITUACION.SITUACION),
+ FACTURAS_CLIENTE.BASE_IMPONIBLE,
+ FACTURAS_CLIENTE.DESCUENTO,
+ FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
+ FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
+ FACTURAS_CLIENTE.IVA,
+ FACTURAS_CLIENTE.IMPORTE_IVA,
+ FACTURAS_CLIENTE.RE,
+ FACTURAS_CLIENTE.IMPORTE_RE,
+ FACTURAS_CLIENTE.IMPORTE_TOTAL,
+ FACTURAS_CLIENTE.OBSERVACIONES,
+ FACTURAS_CLIENTE.ID_CLIENTE,
+ FACTURAS_CLIENTE.NIF_CIF,
+ FACTURAS_CLIENTE.NOMBRE,
+ FACTURAS_CLIENTE.ID_DIRECCION,
+ FACTURAS_CLIENTE.CALLE,
+ FACTURAS_CLIENTE.POBLACION,
+ FACTURAS_CLIENTE.PROVINCIA,
+ FACTURAS_CLIENTE.CODIGO_POSTAL,
+ FACTURAS_CLIENTE.DATOS_BANCARIOS,
+ FACTURAS_CLIENTE.CLIENTE_FINAL,
+ FACTURAS_CLIENTE.FECHA_ALTA,
+ FACTURAS_CLIENTE.FECHA_MODIFICACION,
+ FACTURAS_CLIENTE.USUARIO,
+ FACTURAS_CLIENTE.ID_FORMA_PAGO,
+ FACTURAS_CLIENTE.RECARGO_EQUIVALENCIA,
+ FACTURAS_CLIENTE.ID_TIPO_IVA,
+ FACTURAS_CLIENTE.IMPORTE_NETO,
+ FACTURAS_CLIENTE.IMPORTE_PORTE,
+ CLIENTES_DATOS.ID_AGENTE,
+ COMISIONES_LIQUIDADAS.REFERENCIA,
+ FACTURAS_CLIENTE.RETENCION,
+ FACTURAS_CLIENTE.IMPORTE_RETENCION,
+ IMPRESIONES.NUM_COPIAS,
+ REGISTRO_CORREOS.NUM_CORREOS,
+ V_ALBARANES_CLI_FACTURADOS.ID_ALBARAN
+
+ FROM V_FAC_CLI_SITUACION
+ LEFT JOIN FACTURAS_CLIENTE
+ ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
+ LEFT JOIN COMISIONES_LIQUIDADAS
+ ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
+ LEFT JOIN CLIENTES_DATOS
+ ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
+ LEFT JOIN IMPRESIONES
+ ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'))
+ LEFT JOIN REGISTRO_CORREOS
+ ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASCLIENTE'))
+ LEFT JOIN V_ALBARANES_CLI_FACTURADOS
+ ON (V_ALBARANES_CLI_FACTURADOS.ID_FACTURA = FACTURAS_CLIENTE.ID)
+ WHERE V_ALBARANES_CLI_FACTURADOS.ID_ALBARAN IS NOT NULL
+;
+
+
/* View: V_FACTURAS_PROVEEDOR */
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 35ca240..9642e31 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -21,6 +21,7 @@ type
function Buscar(const ID: Integer): IBizFacturaCliente;
function BuscarTodos: IBizFacturaCliente; overload;
+ function BuscarTodosDeAlbaran: IBizFacturaCliente;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente);
@@ -107,6 +108,7 @@ type
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
function Buscar(const ID: Integer): IBizFacturaCliente;
function BuscarTodos: IBizFacturaCliente; overload;
+ function BuscarTodosDeAlbaran: IBizFacturaCliente;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
@@ -505,6 +507,11 @@ begin
end;
end;
+function TFacturasClienteController.BuscarTodosDeAlbaran: IBizFacturaCliente;
+begin
+ Result := FDataModule.GetItemsDeAlbaran;
+end;
+
function TFacturasClienteController.BuscarTodos: IBizFacturaCliente;
begin
Result := FDataModule.GetItems;
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 4d0f275..0da7f77 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -283,6 +283,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datString
+ Size = 1
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -436,4 +441,277 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Left = 240
Top = 176
end
+ object tbl_FacturasClienteDeAlbaran: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
+ Required = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'FacturasCliente_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'FacturasCliente_REFERENCIA'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ DisplayLabel = 'Tipo'
+ DictionaryEntry = 'FacturasCliente_TIPO'
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha de las factura'
+ DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_RETENCION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Situaci'#243'n'
+ DictionaryEntry = 'FacturasCliente_SITUACION'
+ end
+ item
+ Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
+ DisplayLabel = 'Base imponible'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DisplayLabel = 'Dto.'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ DisplayLabel = 'Importe dto.'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
+ end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IVA'
+ DataType = datFloat
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IVA'
+ end
+ item
+ Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ DisplayLabel = 'Importe IVA'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
+ end
+ item
+ Name = 'RE'
+ DataType = datFloat
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_RE'
+ end
+ item
+ Name = 'IMPORTE_RE'
+ DataType = datCurrency
+ DisplayLabel = 'Importe RE'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe total'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ DisplayLabel = 'Observaciones'
+ DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'NIF/CIF'
+ DictionaryEntry = 'FacturasCliente_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 100
+ DisplayLabel = 'Cliente'
+ DictionaryEntry = 'FacturasCliente_NOMBRE'
+ end
+ item
+ Name = 'ID_DIRECCION'
+ DataType = datInteger
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 150
+ DisplayLabel = 'Direcci'#243'n'
+ DictionaryEntry = 'FacturasCliente_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 150
+ DisplayLabel = 'Poblaci'#243'n'
+ DictionaryEntry = 'FacturasCliente_POBLACION'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 30
+ DisplayLabel = 'Provincia'
+ DictionaryEntry = 'FacturasCliente_PROVINCIA'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DisplayLabel = 'C'#243'd. postal'
+ DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Datos bancarios'
+ DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
+ end
+ item
+ Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 100
+ DictionaryEntry = 'FacturasCliente_USUARIO'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
+ DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
+ DisplayLabel = #191'Con R.E.?'
+ DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
+ end
+ item
+ Name = 'IMPORTE_NETO'
+ DataType = datCurrency
+ DisplayLabel = 'Importe neto'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DisplayLabel = 'Importe del porte'
+ Alignment = taRightJustify
+ DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_COMISION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RETENCION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_RETENCION'
+ DataType = datCurrency
+ end
+ item
+ Name = 'NUM_COPIAS'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'NUM_CORREOS'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datInteger
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_FacturasCliente
+ LogicalName = 'FacturasClienteDeAlbaran'
+ IndexDefs = <>
+ Left = 72
+ Top = 248
+ end
+ object ds_FacturasClienteDeAlbaran: TDADataSource
+ DataSet = tbl_FacturasClienteDeAlbaran.Dataset
+ DataTable = tbl_FacturasClienteDeAlbaran
+ Left = 72
+ Top = 208
+ end
end
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
index fba2cc0..4e4915a 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
@@ -23,12 +23,15 @@ type
ds_FacturasCliente_Detalles: TDADataSource;
tbl_ListaAnosFacturas: TDAMemDataTable;
ds_ListaAnosFacturas: TDADataSource;
+ tbl_FacturasClienteDeAlbaran: TDAMemDataTable;
+ ds_FacturasClienteDeAlbaran: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesFacturaCliente;
public
function GetAnosItems : TStringList;
function GetItems : IBizFacturaCliente;
+ function GetItemsDeAlbaran : IBizFacturaCliente;
function GetItem(const ID : Integer) : IBizFacturaCliente;
function NewItem : IBizFacturaCliente;
@@ -180,4 +183,29 @@ begin
end;
+function TDataModuleFacturasCliente.GetItemsDeAlbaran: IBizFacturaCliente;
+var
+ AFactura : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AFactura := CloneDataTable(tbl_FacturasClienteDeAlbaran);
+
+ // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
+ AFactura.FieldByName(fld_FacturasClienteREFERENCIA).ServerAutoRefresh := TRUE;
+
+ AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_CLIENTE;
+
+ with TBizFacturaCliente(AFactura.BusinessEventsObj) do
+ begin
+ Detalles := _GetDetalles;
+ end;
+
+ Result := (AFactura as IBizFacturaCliente);
+ finally
+ HideHourglassCursor;
+ end;
+
+end;
+
end.
diff --git a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasCliente.pas
index 25cf5dd..57dc9fa 100644
--- a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasCliente.pas
@@ -11,6 +11,7 @@ type
['{B0BDC388-E831-4946-B736-E817E3EA4B7C}']
function GetAnosItems : TStringList;
function GetItems: IBizFacturaCliente;
+ function GetItemsDeAlbaran: IBizFacturaCliente;
function GetItem(const ID : Integer) : IBizFacturaCliente;
function NewItem : IBizFacturaCliente;
end;
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 1644ae8..2e04f11 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -3,20 +3,22 @@ unit schFacturasClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosFacturas = '{72AC5E11-A400-4768-BFCD-7CDD2FD8593F}';
- RID_FacturasCliente = '{7FB89523-3D7D-400B-83B4-6B2D1DE2285E}';
- RID_FacturasCliente_Detalles = '{58C861A5-814B-44F5-9F3D-BD207276C275}';
+ RID_ListaAnosFacturas = '{158AF0A8-C3A4-40EB-A097-56E8ECC2C1E9}';
+ RID_FacturasCliente = '{C2F2E897-305A-4B9F-8161-EE9547B005CC}';
+ RID_FacturasCliente_Detalles = '{5BA594FB-120B-4024-B0C2-7F65FDE424AF}';
+ RID_FacturasClienteDeAlbaran = '{FDAE579B-A63B-4212-A664-EC212398429E}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
nme_FacturasCliente = 'FacturasCliente';
nme_FacturasCliente_Detalles = 'FacturasCliente_Detalles';
+ nme_FacturasClienteDeAlbaran = 'FacturasClienteDeAlbaran';
{ ListaAnosFacturas fields }
fld_ListaAnosFacturasANO = 'ANO';
@@ -68,6 +70,7 @@ const
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS';
+ fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@@ -113,6 +116,7 @@ const
idx_FacturasClienteIMPORTE_RETENCION = 40;
idx_FacturasClienteNUM_COPIAS = 41;
idx_FacturasClienteNUM_CORREOS = 42;
+ idx_FacturasClienteID_ALBARAN = 43;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -148,10 +152,102 @@ const
idx_FacturasCliente_DetallesREFERENCIA = 13;
idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 14;
+ { FacturasClienteDeAlbaran fields }
+ fld_FacturasClienteDeAlbaranID = 'ID';
+ fld_FacturasClienteDeAlbaranID_EMPRESA = 'ID_EMPRESA';
+ fld_FacturasClienteDeAlbaranREFERENCIA = 'REFERENCIA';
+ fld_FacturasClienteDeAlbaranTIPO = 'TIPO';
+ fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
+ fld_FacturasClienteDeAlbaranFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+ fld_FacturasClienteDeAlbaranFECHA_RETENCION = 'FECHA_RETENCION';
+ fld_FacturasClienteDeAlbaranSITUACION = 'SITUACION';
+ fld_FacturasClienteDeAlbaranBASE_IMPONIBLE = 'BASE_IMPONIBLE';
+ fld_FacturasClienteDeAlbaranDESCUENTO = 'DESCUENTO';
+ fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
+ fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
+ fld_FacturasClienteDeAlbaranIVA = 'IVA';
+ fld_FacturasClienteDeAlbaranIMPORTE_IVA = 'IMPORTE_IVA';
+ fld_FacturasClienteDeAlbaranRE = 'RE';
+ fld_FacturasClienteDeAlbaranIMPORTE_RE = 'IMPORTE_RE';
+ fld_FacturasClienteDeAlbaranIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_FacturasClienteDeAlbaranOBSERVACIONES = 'OBSERVACIONES';
+ fld_FacturasClienteDeAlbaranID_CLIENTE = 'ID_CLIENTE';
+ fld_FacturasClienteDeAlbaranNIF_CIF = 'NIF_CIF';
+ fld_FacturasClienteDeAlbaranNOMBRE = 'NOMBRE';
+ fld_FacturasClienteDeAlbaranID_DIRECCION = 'ID_DIRECCION';
+ fld_FacturasClienteDeAlbaranCALLE = 'CALLE';
+ fld_FacturasClienteDeAlbaranPOBLACION = 'POBLACION';
+ fld_FacturasClienteDeAlbaranPROVINCIA = 'PROVINCIA';
+ fld_FacturasClienteDeAlbaranCODIGO_POSTAL = 'CODIGO_POSTAL';
+ fld_FacturasClienteDeAlbaranDATOS_BANCARIOS = 'DATOS_BANCARIOS';
+ fld_FacturasClienteDeAlbaranCLIENTE_FINAL = 'CLIENTE_FINAL';
+ fld_FacturasClienteDeAlbaranFECHA_ALTA = 'FECHA_ALTA';
+ fld_FacturasClienteDeAlbaranFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+ fld_FacturasClienteDeAlbaranUSUARIO = 'USUARIO';
+ fld_FacturasClienteDeAlbaranID_FORMA_PAGO = 'ID_FORMA_PAGO';
+ fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
+ fld_FacturasClienteDeAlbaranID_TIPO_IVA = 'ID_TIPO_IVA';
+ fld_FacturasClienteDeAlbaranIMPORTE_NETO = 'IMPORTE_NETO';
+ fld_FacturasClienteDeAlbaranIMPORTE_PORTE = 'IMPORTE_PORTE';
+ fld_FacturasClienteDeAlbaranID_AGENTE = 'ID_AGENTE';
+ fld_FacturasClienteDeAlbaranREFERENCIA_COMISION = 'REFERENCIA_COMISION';
+ fld_FacturasClienteDeAlbaranRETENCION = 'RETENCION';
+ fld_FacturasClienteDeAlbaranIMPORTE_RETENCION = 'IMPORTE_RETENCION';
+ fld_FacturasClienteDeAlbaranNUM_COPIAS = 'NUM_COPIAS';
+ fld_FacturasClienteDeAlbaranNUM_CORREOS = 'NUM_CORREOS';
+ fld_FacturasClienteDeAlbaranID_ALBARAN = 'ID_ALBARAN';
+
+ { FacturasClienteDeAlbaran field indexes }
+ idx_FacturasClienteDeAlbaranID = 0;
+ idx_FacturasClienteDeAlbaranID_EMPRESA = 1;
+ idx_FacturasClienteDeAlbaranREFERENCIA = 2;
+ idx_FacturasClienteDeAlbaranTIPO = 3;
+ idx_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA = 4;
+ idx_FacturasClienteDeAlbaranFECHA_FACTURA = 5;
+ idx_FacturasClienteDeAlbaranFECHA_VENCIMIENTO = 6;
+ idx_FacturasClienteDeAlbaranFECHA_RETENCION = 7;
+ idx_FacturasClienteDeAlbaranSITUACION = 8;
+ idx_FacturasClienteDeAlbaranBASE_IMPONIBLE = 9;
+ idx_FacturasClienteDeAlbaranDESCUENTO = 10;
+ idx_FacturasClienteDeAlbaranIMPORTE_DESCUENTO = 11;
+ idx_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO = 12;
+ idx_FacturasClienteDeAlbaranIVA = 13;
+ idx_FacturasClienteDeAlbaranIMPORTE_IVA = 14;
+ idx_FacturasClienteDeAlbaranRE = 15;
+ idx_FacturasClienteDeAlbaranIMPORTE_RE = 16;
+ idx_FacturasClienteDeAlbaranIMPORTE_TOTAL = 17;
+ idx_FacturasClienteDeAlbaranOBSERVACIONES = 18;
+ idx_FacturasClienteDeAlbaranID_CLIENTE = 19;
+ idx_FacturasClienteDeAlbaranNIF_CIF = 20;
+ idx_FacturasClienteDeAlbaranNOMBRE = 21;
+ idx_FacturasClienteDeAlbaranID_DIRECCION = 22;
+ idx_FacturasClienteDeAlbaranCALLE = 23;
+ idx_FacturasClienteDeAlbaranPOBLACION = 24;
+ idx_FacturasClienteDeAlbaranPROVINCIA = 25;
+ idx_FacturasClienteDeAlbaranCODIGO_POSTAL = 26;
+ idx_FacturasClienteDeAlbaranDATOS_BANCARIOS = 27;
+ idx_FacturasClienteDeAlbaranCLIENTE_FINAL = 28;
+ idx_FacturasClienteDeAlbaranFECHA_ALTA = 29;
+ idx_FacturasClienteDeAlbaranFECHA_MODIFICACION = 30;
+ idx_FacturasClienteDeAlbaranUSUARIO = 31;
+ idx_FacturasClienteDeAlbaranID_FORMA_PAGO = 32;
+ idx_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA = 33;
+ idx_FacturasClienteDeAlbaranID_TIPO_IVA = 34;
+ idx_FacturasClienteDeAlbaranIMPORTE_NETO = 35;
+ idx_FacturasClienteDeAlbaranIMPORTE_PORTE = 36;
+ idx_FacturasClienteDeAlbaranID_AGENTE = 37;
+ idx_FacturasClienteDeAlbaranREFERENCIA_COMISION = 38;
+ idx_FacturasClienteDeAlbaranRETENCION = 39;
+ idx_FacturasClienteDeAlbaranIMPORTE_RETENCION = 40;
+ idx_FacturasClienteDeAlbaranNUM_COPIAS = 41;
+ idx_FacturasClienteDeAlbaranNUM_CORREOS = 42;
+ idx_FacturasClienteDeAlbaranID_ALBARAN = 43;
+
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{D1966795-0438-4F3D-B5A1-3FABEAB20487}']
+ ['{BA4155F6-0B4F-4E7C-ADE7-D433F75CC46D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -165,7 +261,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -186,7 +282,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{2D6A8E2D-6BA4-44F6-BA2A-73C7200F01E1}']
+ ['{DFFD561A-D78E-424E-8764-F596F7292FE7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -359,6 +455,10 @@ type
procedure SetNUM_CORREOSValue(const aValue: SmallInt);
function GetNUM_CORREOSIsNull: Boolean;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
+ function GetID_ALBARANValue: String;
+ procedure SetID_ALBARANValue(const aValue: String);
+ function GetID_ALBARANIsNull: Boolean;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean);
{ Properties }
@@ -448,10 +548,12 @@ type
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+ property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
end;
{ TFacturasClienteDataTableRules }
- TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+ TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -628,6 +730,10 @@ type
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+ function GetID_ALBARANValue: String; virtual;
+ procedure SetID_ALBARANValue(const aValue: String); virtual;
+ function GetID_ALBARANIsNull: Boolean; virtual;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -716,6 +822,8 @@ type
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+ property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -725,7 +833,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{C8059B01-082C-4227-9754-3FADF5F53A22}']
+ ['{585F3BF9-FF9E-4820-B78A-7C26822085AD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -823,7 +931,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
- TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+ TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -926,6 +1034,557 @@ type
end;
+ { IFacturasClienteDeAlbaran }
+ IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
+ ['{B1A3161C-8DDD-48DE-B171-9CC6B57F00C1}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_EMPRESAValue: Integer;
+ procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetTIPOValue: String;
+ procedure SetTIPOValue(const aValue: String);
+ function GetTIPOIsNull: Boolean;
+ procedure SetTIPOIsNull(const aValue: Boolean);
+ function GetID_COMISION_LIQUIDADAValue: Integer;
+ procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+ function GetID_COMISION_LIQUIDADAIsNull: Boolean;
+ procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFECHA_VENCIMIENTOValue: DateTime;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+ function GetFECHA_VENCIMIENTOIsNull: Boolean;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+ function GetFECHA_RETENCIONValue: DateTime;
+ procedure SetFECHA_RETENCIONValue(const aValue: DateTime);
+ function GetFECHA_RETENCIONIsNull: Boolean;
+ procedure SetFECHA_RETENCIONIsNull(const aValue: Boolean);
+ function GetSITUACIONValue: String;
+ procedure SetSITUACIONValue(const aValue: String);
+ function GetSITUACIONIsNull: Boolean;
+ procedure SetSITUACIONIsNull(const aValue: Boolean);
+ function GetBASE_IMPONIBLEValue: Currency;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
+ function GetBASE_IMPONIBLEIsNull: Boolean;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+ function GetDESCUENTOValue: Float;
+ procedure SetDESCUENTOValue(const aValue: Float);
+ function GetDESCUENTOIsNull: Boolean;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean);
+ function GetIMPORTE_DESCUENTOValue: Currency;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+ function GetIMPORTE_DESCUENTOIsNull: Boolean;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+ function GetDESCRIPCION_DESCUENTOValue: String;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+ function GetDESCRIPCION_DESCUENTOIsNull: Boolean;
+ procedure SetDESCRIPCION_DESCUENTOIsNull(const aValue: Boolean);
+ function GetIVAValue: Float;
+ procedure SetIVAValue(const aValue: Float);
+ function GetIVAIsNull: Boolean;
+ procedure SetIVAIsNull(const aValue: Boolean);
+ function GetIMPORTE_IVAValue: Currency;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency);
+ function GetIMPORTE_IVAIsNull: Boolean;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean);
+ function GetREValue: Float;
+ procedure SetREValue(const aValue: Float);
+ function GetREIsNull: Boolean;
+ procedure SetREIsNull(const aValue: Boolean);
+ function GetIMPORTE_REValue: Currency;
+ procedure SetIMPORTE_REValue(const aValue: Currency);
+ function GetIMPORTE_REIsNull: Boolean;
+ procedure SetIMPORTE_REIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetOBSERVACIONESValue: IROStrings;
+ function GetOBSERVACIONESIsNull: Boolean;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
+ function GetID_CLIENTEValue: Integer;
+ procedure SetID_CLIENTEValue(const aValue: Integer);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_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 GetID_DIRECCIONValue: Integer;
+ procedure SetID_DIRECCIONValue(const aValue: Integer);
+ function GetID_DIRECCIONIsNull: Boolean;
+ procedure SetID_DIRECCIONIsNull(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 GetPROVINCIAValue: String;
+ procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
+ function GetCODIGO_POSTALValue: String;
+ procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+ function GetDATOS_BANCARIOSValue: String;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String);
+ function GetDATOS_BANCARIOSIsNull: Boolean;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+ function GetCLIENTE_FINALValue: String;
+ procedure SetCLIENTE_FINALValue(const aValue: String);
+ function GetCLIENTE_FINALIsNull: Boolean;
+ procedure SetCLIENTE_FINALIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+ function GetUSUARIOValue: String;
+ procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
+ function GetID_FORMA_PAGOValue: Integer;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+ function GetID_FORMA_PAGOIsNull: Boolean;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+ function GetID_TIPO_IVAValue: Integer;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer);
+ function GetID_TIPO_IVAIsNull: Boolean;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
+ function GetIMPORTE_NETOValue: Currency;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency);
+ function GetIMPORTE_NETOIsNull: Boolean;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
+ function GetIMPORTE_PORTEValue: Currency;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency);
+ function GetIMPORTE_PORTEIsNull: Boolean;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+ function GetID_AGENTEValue: Integer;
+ procedure SetID_AGENTEValue(const aValue: Integer);
+ function GetID_AGENTEIsNull: Boolean;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean);
+ function GetREFERENCIA_COMISIONValue: String;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String);
+ function GetREFERENCIA_COMISIONIsNull: Boolean;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+ function GetRETENCIONValue: Float;
+ procedure SetRETENCIONValue(const aValue: Float);
+ function GetRETENCIONIsNull: Boolean;
+ procedure SetRETENCIONIsNull(const aValue: Boolean);
+ function GetIMPORTE_RETENCIONValue: Currency;
+ procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
+ function GetIMPORTE_RETENCIONIsNull: Boolean;
+ procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+ function GetNUM_COPIASValue: SmallInt;
+ procedure SetNUM_COPIASValue(const aValue: SmallInt);
+ function GetNUM_COPIASIsNull: Boolean;
+ procedure SetNUM_COPIASIsNull(const aValue: Boolean);
+ function GetNUM_CORREOSValue: SmallInt;
+ procedure SetNUM_CORREOSValue(const aValue: SmallInt);
+ function GetNUM_CORREOSIsNull: Boolean;
+ procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
+ function GetID_ALBARANValue: Integer;
+ procedure SetID_ALBARANValue(const aValue: Integer);
+ function GetID_ALBARANIsNull: Boolean;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+ property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property FECHA_RETENCION: DateTime read GetFECHA_RETENCIONValue write SetFECHA_RETENCIONValue;
+ property FECHA_RETENCIONIsNull: Boolean read GetFECHA_RETENCIONIsNull write SetFECHA_RETENCIONIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTOIsNull: Boolean read GetDESCRIPCION_DESCUENTOIsNull write SetDESCRIPCION_DESCUENTOIsNull;
+ property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
+ property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
+ property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_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 ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+ property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+ 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 PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+ property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
+ property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
+ property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
+ property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+ property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+ property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+ property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+ property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+ end;
+
+ { TFacturasClienteDeAlbaranDataTableRules }
+ TFacturasClienteDeAlbaranDataTableRules = class(TDADataTableRules, IFacturasClienteDeAlbaran)
+ private
+ f_OBSERVACIONES: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetTIPOValue: String; virtual;
+ procedure SetTIPOValue(const aValue: String); virtual;
+ function GetTIPOIsNull: Boolean; virtual;
+ procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+ function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
+ procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
+ function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+ procedure SetID_COMISION_LIQUIDADAIsNull(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 GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+ function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_RETENCIONValue: DateTime; virtual;
+ procedure SetFECHA_RETENCIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_RETENCIONIsNull: Boolean; virtual;
+ procedure SetFECHA_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetSITUACIONValue: String; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetBASE_IMPONIBLEValue: Currency; virtual;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
+ function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
+ function GetDESCRIPCION_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCRIPCION_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetREValue: Float; virtual;
+ procedure SetREValue(const aValue: Float); virtual;
+ function GetREIsNull: Boolean; virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_REValue: Currency; virtual;
+ procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
+ function GetIMPORTE_REIsNull: Boolean; virtual;
+ procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetID_CLIENTEValue: Integer; virtual;
+ procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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 GetID_DIRECCIONValue: Integer; virtual;
+ procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+ function GetID_DIRECCIONIsNull: Boolean; virtual;
+ procedure SetID_DIRECCIONIsNull(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 GetPROVINCIAValue: String; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(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 GetDATOS_BANCARIOSValue: String; virtual;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
+ function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
+ function GetCLIENTE_FINALValue: String; virtual;
+ procedure SetCLIENTE_FINALValue(const aValue: String); virtual;
+ function GetCLIENTE_FINALIsNull: Boolean; virtual;
+ procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetID_AGENTEValue: Integer; virtual;
+ procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+ function GetID_AGENTEIsNull: Boolean; virtual;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_COMISIONValue: String; virtual;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
+ function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetRETENCIONValue: Float; virtual;
+ procedure SetRETENCIONValue(const aValue: Float); virtual;
+ function GetRETENCIONIsNull: Boolean; virtual;
+ procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_RETENCIONValue: Currency; virtual;
+ procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
+ function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
+ procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetNUM_COPIASValue: SmallInt; virtual;
+ procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
+ function GetNUM_COPIASIsNull: Boolean; virtual;
+ procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
+ function GetNUM_CORREOSValue: SmallInt; virtual;
+ procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
+ function GetNUM_CORREOSIsNull: Boolean; virtual;
+ procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+ function GetID_ALBARANValue: Integer; virtual;
+ procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ function GetID_ALBARANIsNull: Boolean; virtual;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+ property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property FECHA_RETENCION: DateTime read GetFECHA_RETENCIONValue write SetFECHA_RETENCIONValue;
+ property FECHA_RETENCIONIsNull: Boolean read GetFECHA_RETENCIONIsNull write SetFECHA_RETENCIONIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTOIsNull: Boolean read GetDESCRIPCION_DESCUENTOIsNull write SetDESCRIPCION_DESCUENTOIsNull;
+ property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
+ property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
+ property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_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 ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+ property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+ 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 PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+ property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
+ property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
+ property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
+ property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+ property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+ property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+ property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+ property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses Variants, uROBinaryHelpers;
@@ -1884,6 +2543,27 @@ begin
DataTable.Fields[idx_FacturasClienteNUM_CORREOS].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetID_ALBARANValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_ALBARANValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetID_ALBARANIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteID_ALBARAN].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsVariant := Null;
+end;
+
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2212,9 +2892,953 @@ begin
end;
+{ TFacturasClienteDeAlbaranDataTableRules }
+constructor TFacturasClienteDeAlbaranDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
+begin
+ inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
+end;
+
+destructor TFacturasClienteDeAlbaranDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_FacturasClienteDeAlbaranOBSERVACIONES].AsVariant := TStringList(Sender).Text;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_EMPRESA].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_EMPRESA].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_EMPRESA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_EMPRESA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetTIPOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranTIPO].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetTIPOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranTIPO].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetTIPOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranTIPO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranTIPO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_FACTURA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_VENCIMIENTO].AsDateTime;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_VENCIMIENTO].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_VENCIMIENTO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_VENCIMIENTO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_RETENCIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_RETENCION].AsDateTime;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_RETENCIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_RETENCION].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_RETENCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_RETENCION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_RETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_RETENCION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetSITUACIONValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranSITUACION].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranSITUACION].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranSITUACION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranSITUACION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranBASE_IMPONIBLE].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranBASE_IMPONIBLE].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranBASE_IMPONIBLE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranBASE_IMPONIBLE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDESCUENTOValue: Float;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDESCUENTO].AsFloat;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDESCUENTO].AsFloat := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDESCUENTO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDESCUENTO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_DESCUENTO].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_DESCUENTO].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_DESCUENTO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_DESCUENTO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDESCRIPCION_DESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDESCRIPCION_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIVAValue: Float;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIVA].AsFloat;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIVAValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIVA].AsFloat := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIVA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIVA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_IVA].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_IVA].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_IVA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_IVA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREValue: Float;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRE].AsFloat;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRE].AsFloat := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_REValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RE].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RE].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_REIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := DataTable.Fields[idx_FacturasClienteDeAlbaranOBSERVACIONES].AsString;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetOBSERVACIONESIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranOBSERVACIONES].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranOBSERVACIONES].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_CLIENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_CLIENTE].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_CLIENTE].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_CLIENTE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_CLIENTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNIF_CIFValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNIF_CIF].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNIF_CIFValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNIF_CIF].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNIF_CIF].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNIF_CIF].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNOMBRE].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNOMBRE].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNOMBRE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNOMBRE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_DIRECCIONValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_DIRECCION].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_DIRECCION].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_DIRECCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_DIRECCION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_DIRECCION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCALLE].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCALLE].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCALLE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCALLE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetPOBLACIONValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranPOBLACION].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetPOBLACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranPOBLACION].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranPOBLACION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranPOBLACION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetPROVINCIAValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranPROVINCIA].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetPROVINCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranPROVINCIA].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranPROVINCIA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranPROVINCIA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCODIGO_POSTALValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCODIGO_POSTAL].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCODIGO_POSTAL].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCODIGO_POSTAL].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCODIGO_POSTAL].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDATOS_BANCARIOSValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDATOS_BANCARIOS].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDATOS_BANCARIOS].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetDATOS_BANCARIOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranDATOS_BANCARIOS].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranDATOS_BANCARIOS].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCLIENTE_FINALValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCLIENTE_FINAL].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCLIENTE_FINALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCLIENTE_FINAL].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetCLIENTE_FINALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranCLIENTE_FINAL].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetCLIENTE_FINALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranCLIENTE_FINAL].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_ALTA].AsDateTime;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_ALTA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_ALTA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetUSUARIOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranUSUARIO].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranUSUARIO].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranUSUARIO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranUSUARIO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_FORMA_PAGO].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_FORMA_PAGO].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_FORMA_PAGO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_FORMA_PAGO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA].AsSmallInt;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_TIPO_IVA].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_TIPO_IVA].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_TIPO_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_TIPO_IVA].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_TIPO_IVA].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_NETO].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_NETO].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_NETOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_NETO].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_NETO].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_PORTE].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_PORTE].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_PORTE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_PORTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_AGENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_AGENTE].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_AGENTE].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_AGENTE].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_AGENTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREFERENCIA_COMISIONValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA_COMISION].AsString;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA_COMISION].AsString := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA_COMISION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranREFERENCIA_COMISION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetRETENCIONValue: Float;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRETENCION].AsFloat;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetRETENCIONValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRETENCION].AsFloat := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetRETENCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranRETENCION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetRETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranRETENCION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_RETENCIONValue: Currency;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RETENCION].AsCurrency;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RETENCION].AsCurrency := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetIMPORTE_RETENCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RETENCION].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranIMPORTE_RETENCION].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNUM_COPIASValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_COPIAS].AsSmallInt;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_COPIAS].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNUM_COPIASIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_COPIAS].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_COPIAS].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNUM_CORREOSValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_CORREOS].AsSmallInt;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_CORREOS].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetNUM_CORREOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_CORREOS].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranNUM_CORREOS].AsVariant := Null;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_ALBARANValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_ALBARAN].AsInteger;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_ALBARANValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_ALBARAN].AsInteger := aValue;
+end;
+
+function TFacturasClienteDeAlbaranDataTableRules.GetID_ALBARANIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDeAlbaranID_ALBARAN].IsNull;
+end;
+
+procedure TFacturasClienteDeAlbaranDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteDeAlbaranID_ALBARAN].AsVariant := Null;
+end;
+
+
initialization
RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
RegisterDataTableRules(RID_FacturasCliente, TFacturasClienteDataTableRules);
RegisterDataTableRules(RID_FacturasCliente_Detalles, TFacturasCliente_DetallesDataTableRules);
+ RegisterDataTableRules(RID_FacturasClienteDeAlbaran, TFacturasClienteDeAlbaranDataTableRules);
end.
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index ba95707..a5a08a6 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,15 @@ 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_ListaAnosFacturasDelta = '{80E08922-7D16-4852-AC18-9501740C5B1B}';
- RID_FacturasClienteDelta = '{9F91B45C-9EB3-4A70-B3F0-0BFDB8413F17}';
- RID_FacturasCliente_DetallesDelta = '{284D9A63-867C-4AA6-83C4-6C7C40B49EF7}';
+ RID_ListaAnosFacturasDelta = '{1D5899EA-EF29-453E-888B-650EBE24A0DE}';
+ RID_FacturasClienteDelta = '{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}';
+ RID_FacturasCliente_DetallesDelta = '{1596313B-2A40-4DAB-8C48-2674F04AE51B}';
+ RID_FacturasClienteDeAlbaranDelta = '{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{80E08922-7D16-4852-AC18-9501740C5B1B}']
+ ['{1D5899EA-EF29-453E-888B-650EBE24A0DE}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +51,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{9F91B45C-9EB3-4A70-B3F0-0BFDB8413F17}']
+ ['{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -95,6 +96,7 @@ type
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt;
+ function GetOldID_ALBARANValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -140,6 +142,7 @@ type
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
+ property OldID_ALBARAN : String read GetOldID_ALBARANValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@@ -406,6 +409,12 @@ type
function GetOldNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+ function GetID_ALBARANValue: String; virtual;
+ function GetID_ALBARANIsNull: Boolean; virtual;
+ function GetOldID_ALBARANValue: String; virtual;
+ function GetOldID_ALBARANIsNull: Boolean; virtual;
+ procedure SetID_ALBARANValue(const aValue: String); virtual;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -580,6 +589,10 @@ type
property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
+ property ID_ALBARAN : String read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+ property OldID_ALBARAN : String read GetOldID_ALBARANValue;
+ property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -589,7 +602,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{284D9A63-867C-4AA6-83C4-6C7C40B49EF7}']
+ ['{1596313B-2A40-4DAB-8C48-2674F04AE51B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -789,6 +802,557 @@ type
end;
+ { IFacturasClienteDeAlbaranDelta }
+ IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
+ ['{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldREFERENCIAValue : String;
+ function GetOldTIPOValue : String;
+ function GetOldID_COMISION_LIQUIDADAValue : Integer;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFECHA_VENCIMIENTOValue : DateTime;
+ function GetOldFECHA_RETENCIONValue : DateTime;
+ function GetOldSITUACIONValue : String;
+ function GetOldBASE_IMPONIBLEValue : Currency;
+ function GetOldDESCUENTOValue : Float;
+ function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldDESCRIPCION_DESCUENTOValue : String;
+ function GetOldIVAValue : Float;
+ function GetOldIMPORTE_IVAValue : Currency;
+ function GetOldREValue : Float;
+ function GetOldIMPORTE_REValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldOBSERVACIONESValue : IROStrings;
+ function GetOldID_CLIENTEValue : Integer;
+ function GetOldNIF_CIFValue : String;
+ function GetOldNOMBREValue : String;
+ function GetOldID_DIRECCIONValue : Integer;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldPROVINCIAValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldDATOS_BANCARIOSValue : String;
+ function GetOldCLIENTE_FINALValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
+ function GetOldID_TIPO_IVAValue : Integer;
+ function GetOldIMPORTE_NETOValue : Currency;
+ function GetOldIMPORTE_PORTEValue : Currency;
+ function GetOldID_AGENTEValue : Integer;
+ function GetOldREFERENCIA_COMISIONValue : String;
+ function GetOldRETENCIONValue : Float;
+ function GetOldIMPORTE_RETENCIONValue : Currency;
+ function GetOldNUM_COPIASValue : SmallInt;
+ function GetOldNUM_CORREOSValue : SmallInt;
+ function GetOldID_ALBARANValue : Integer;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldTIPO : String read GetOldTIPOValue;
+ property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+ property OldFECHA_RETENCION : DateTime read GetOldFECHA_RETENCIONValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldRE : Float read GetOldREValue;
+ property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
+ property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+ property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
+ property OldRETENCION : Float read GetOldRETENCIONValue;
+ property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
+ property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
+ property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
+ property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ end;
+
+ { TFacturasClienteDeAlbaranBusinessProcessorRules }
+ TFacturasClienteDeAlbaranBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasClienteDeAlbaran, IFacturasClienteDeAlbaranDelta)
+ private
+ f_OBSERVACIONES: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetTIPOValue: String; virtual;
+ function GetTIPOIsNull: Boolean; virtual;
+ function GetOldTIPOValue: String; virtual;
+ function GetOldTIPOIsNull: Boolean; virtual;
+ procedure SetTIPOValue(const aValue: String); virtual;
+ procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+ function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
+ function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+ function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
+ function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+ procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
+ procedure SetID_COMISION_LIQUIDADAIsNull(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 GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+ function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+ function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
+ function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_RETENCIONValue: DateTime; virtual;
+ function GetFECHA_RETENCIONIsNull: Boolean; virtual;
+ function GetOldFECHA_RETENCIONValue: DateTime; virtual;
+ function GetOldFECHA_RETENCIONIsNull: Boolean; virtual;
+ procedure SetFECHA_RETENCIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetSITUACIONValue: String; virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ function GetOldSITUACIONValue: String; virtual;
+ function GetOldSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetBASE_IMPONIBLEValue: Currency; virtual;
+ function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
+ function GetOldBASE_IMPONIBLEValue: Currency; virtual;
+ function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ function GetDESCRIPCION_DESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
+ function GetOldDESCRIPCION_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
+ procedure SetDESCRIPCION_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ function GetOldIVAValue: Float; virtual;
+ function GetOldIVAIsNull: Boolean; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_IVAValue: Currency; virtual;
+ function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetREValue: Float; virtual;
+ function GetREIsNull: Boolean; virtual;
+ function GetOldREValue: Float; virtual;
+ function GetOldREIsNull: Boolean; virtual;
+ procedure SetREValue(const aValue: Float); virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_REValue: Currency; virtual;
+ function GetIMPORTE_REIsNull: Boolean; virtual;
+ function GetOldIMPORTE_REValue: Currency; virtual;
+ function GetOldIMPORTE_REIsNull: Boolean; virtual;
+ procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: IROStrings; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetID_CLIENTEValue: Integer; virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ function GetOldID_CLIENTEValue: Integer; virtual;
+ function GetOldID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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 GetID_DIRECCIONValue: Integer; virtual;
+ function GetID_DIRECCIONIsNull: Boolean; virtual;
+ function GetOldID_DIRECCIONValue: Integer; virtual;
+ function GetOldID_DIRECCIONIsNull: Boolean; virtual;
+ procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+ procedure SetID_DIRECCIONIsNull(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 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 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 GetDATOS_BANCARIOSValue: String; virtual;
+ function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
+ function GetOldDATOS_BANCARIOSValue: String; virtual;
+ function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
+ function GetCLIENTE_FINALValue: String; virtual;
+ function GetCLIENTE_FINALIsNull: Boolean; virtual;
+ function GetOldCLIENTE_FINALValue: String; virtual;
+ function GetOldCLIENTE_FINALIsNull: Boolean; virtual;
+ procedure SetCLIENTE_FINALValue(const aValue: String); virtual;
+ procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_NETOValue: Currency; virtual;
+ function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
+ function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetID_AGENTEValue: Integer; virtual;
+ function GetID_AGENTEIsNull: Boolean; virtual;
+ function GetOldID_AGENTEValue: Integer; virtual;
+ function GetOldID_AGENTEIsNull: Boolean; virtual;
+ procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_COMISIONValue: String; virtual;
+ function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_COMISIONValue: String; virtual;
+ function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetRETENCIONValue: Float; virtual;
+ function GetRETENCIONIsNull: Boolean; virtual;
+ function GetOldRETENCIONValue: Float; virtual;
+ function GetOldRETENCIONIsNull: Boolean; virtual;
+ procedure SetRETENCIONValue(const aValue: Float); virtual;
+ procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_RETENCIONValue: Currency; virtual;
+ function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
+ function GetOldIMPORTE_RETENCIONValue: Currency; virtual;
+ function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
+ procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetNUM_COPIASValue: SmallInt; virtual;
+ function GetNUM_COPIASIsNull: Boolean; virtual;
+ function GetOldNUM_COPIASValue: SmallInt; virtual;
+ function GetOldNUM_COPIASIsNull: Boolean; virtual;
+ procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
+ procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
+ function GetNUM_CORREOSValue: SmallInt; virtual;
+ function GetNUM_CORREOSIsNull: Boolean; virtual;
+ function GetOldNUM_CORREOSValue: SmallInt; virtual;
+ function GetOldNUM_CORREOSIsNull: Boolean; virtual;
+ procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
+ procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+ function GetID_ALBARANValue: Integer; virtual;
+ function GetID_ALBARANIsNull: Boolean; virtual;
+ function GetOldID_ALBARANValue: Integer; virtual;
+ function GetOldID_ALBARANIsNull: Boolean; virtual;
+ procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property TIPO : String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property OldTIPO : String read GetOldTIPOValue;
+ property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
+ property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+ property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
+ property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
+ property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
+ 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 FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+ property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
+ property FECHA_RETENCION : DateTime read GetFECHA_RETENCIONValue write SetFECHA_RETENCIONValue;
+ property FECHA_RETENCIONIsNull : Boolean read GetFECHA_RETENCIONIsNull write SetFECHA_RETENCIONIsNull;
+ property OldFECHA_RETENCION : DateTime read GetOldFECHA_RETENCIONValue;
+ property OldFECHA_RETENCIONIsNull : Boolean read GetOldFECHA_RETENCIONIsNull;
+ property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
+ property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTOIsNull : Boolean read GetDESCRIPCION_DESCUENTOIsNull write SetDESCRIPCION_DESCUENTOIsNull;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTOIsNull : Boolean read GetOldDESCRIPCION_DESCUENTOIsNull;
+ property IVA : Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIVAIsNull : Boolean read GetOldIVAIsNull;
+ property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
+ property RE : Float read GetREValue write SetREValue;
+ property REIsNull : Boolean read GetREIsNull write SetREIsNull;
+ property OldRE : Float read GetOldREValue;
+ property OldREIsNull : Boolean read GetOldREIsNull;
+ property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
+ property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
+ property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
+ property 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 ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+ property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
+ 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 PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
+ 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 DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+ property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
+ property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
+ property CLIENTE_FINAL : String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
+ property CLIENTE_FINALIsNull : Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull;
+ property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue;
+ property OldCLIENTE_FINALIsNull : Boolean read GetOldCLIENTE_FINALIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+ property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+ property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+ property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+ property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
+ property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
+ property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
+ property OldRETENCION : Float read GetOldRETENCIONValue;
+ property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
+ property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
+ property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
+ property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
+ property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+ property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+ property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
+ property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull;
+ property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+ property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+ property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
+ property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
+ property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+ property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses
@@ -2189,6 +2753,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNUM_CORREOS] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetID_ALBARANValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetID_ALBARANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_ALBARANValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_ALBARAN];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_ALBARAN]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_ALBARANValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN] := Null;
+end;
+
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2667,9 +3262,1394 @@ begin
end;
+{ TFacturasClienteDeAlbaranBusinessProcessorRules }
+constructor TFacturasClienteDeAlbaranBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
+begin
+ inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
+end;
+
+destructor TFacturasClienteDeAlbaranBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES] := TStringList(Sender).Text;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_EMPRESA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranREFERENCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranREFERENCIA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranTIPO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranTIPO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranTIPO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranTIPO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetTIPOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranTIPO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranTIPO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_COMISION_LIQUIDADA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_FACTURA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_VENCIMIENTO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_RETENCIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_RETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_RETENCIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_RETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_RETENCIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_RETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_RETENCION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranSITUACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranSITUACION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranSITUACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranSITUACION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranSITUACION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranSITUACION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranBASE_IMPONIBLE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCUENTO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDESCUENTO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCUENTO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCUENTO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_DESCUENTO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDESCRIPCION_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDESCRIPCION_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDESCRIPCION_DESCUENTO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIVA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIVA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIVAValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIVA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIVA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_IVA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_REValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_REValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_TOTAL] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranOBSERVACIONES] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_CLIENTE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNIF_CIF];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNIF_CIF]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNIF_CIFValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNIF_CIF];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNIF_CIF]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNIF_CIF] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNIF_CIF] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNOMBRE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNOMBRE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNOMBRE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNOMBRE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNOMBRE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNOMBRE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_DIRECCION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCALLE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCALLE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCALLE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCALLE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCALLE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCALLE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPOBLACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPOBLACION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranPOBLACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranPOBLACION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPOBLACION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPOBLACION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPROVINCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPROVINCIA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranPROVINCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranPROVINCIA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPROVINCIA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranPROVINCIA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCODIGO_POSTAL] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranDATOS_BANCARIOS] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCLIENTE_FINALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetCLIENTE_FINALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCLIENTE_FINALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldCLIENTE_FINALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCLIENTE_FINALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetCLIENTE_FINALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranCLIENTE_FINAL] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_ALTA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranFECHA_MODIFICACION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranUSUARIO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranUSUARIO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranUSUARIO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranUSUARIO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranUSUARIO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranUSUARIO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_FORMA_PAGO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRECARGO_EQUIVALENCIA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_TIPO_IVA] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_NETO] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_PORTE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_AGENTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_AGENTE]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_AGENTE];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_AGENTE]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_AGENTE] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_AGENTE] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranREFERENCIA_COMISION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetRETENCIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetRETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRETENCION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldRETENCIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranRETENCION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRETENCION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetRETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranRETENCION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_RETENCIONValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranIMPORTE_RETENCION] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_COPIAS] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranNUM_CORREOS] := Null;
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_ALBARANValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetID_ALBARANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN]);
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN];
+end;
+
+function TFacturasClienteDeAlbaranBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN]);
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN] := aValue;
+end;
+
+procedure TFacturasClienteDeAlbaranBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDeAlbaranID_ALBARAN] := Null;
+end;
+
+
initialization
RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasClienteDelta, TFacturasClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasCliente_DetallesDelta, TFacturasCliente_DetallesBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_FacturasClienteDeAlbaranDelta, TFacturasClienteDeAlbaranBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index ff54eda..fbbd84a 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -219,6 +219,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'DESCRIPCION_DESCUENTO'
TableField = 'DESCRIPCION_DESCUENTO'
+ end
+ item
+ DatasetField = 'ID_ALBARAN'
+ TableField = 'ID_ALBARAN'
end>
end>
Name = 'FacturasCliente'
@@ -446,6 +450,11 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datString
+ Size = 1
end>
end
item
@@ -615,6 +624,417 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 255
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'V_FACTURAS_CLI_DE_ALBARANES'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'TIPO'
+ TableField = 'TIPO'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'BASE_IMPONIBLE'
+ TableField = 'BASE_IMPONIBLE'
+ end
+ item
+ DatasetField = 'DESCUENTO'
+ TableField = 'DESCUENTO'
+ end
+ item
+ DatasetField = 'IMPORTE_DESCUENTO'
+ TableField = 'IMPORTE_DESCUENTO'
+ end
+ item
+ DatasetField = 'IVA'
+ TableField = 'IVA'
+ end
+ item
+ DatasetField = 'IMPORTE_IVA'
+ TableField = 'IMPORTE_IVA'
+ end
+ item
+ DatasetField = 'RE'
+ TableField = 'RE'
+ end
+ item
+ DatasetField = 'IMPORTE_RE'
+ TableField = 'IMPORTE_RE'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'OBSERVACIONES'
+ TableField = 'OBSERVACIONES'
+ end
+ item
+ DatasetField = 'NIF_CIF'
+ TableField = 'NIF_CIF'
+ end
+ item
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
+ end
+ item
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
+ end
+ item
+ DatasetField = 'POBLACION'
+ TableField = 'POBLACION'
+ end
+ item
+ DatasetField = 'PROVINCIA'
+ TableField = 'PROVINCIA'
+ end
+ item
+ DatasetField = 'CODIGO_POSTAL'
+ TableField = 'CODIGO_POSTAL'
+ end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
+ item
+ DatasetField = 'USUARIO'
+ TableField = 'USUARIO'
+ end
+ item
+ DatasetField = 'ID_FORMA_PAGO'
+ TableField = 'ID_FORMA_PAGO'
+ end
+ item
+ DatasetField = 'RECARGO_EQUIVALENCIA'
+ TableField = 'RECARGO_EQUIVALENCIA'
+ end
+ item
+ DatasetField = 'ID_TIPO_IVA'
+ TableField = 'ID_TIPO_IVA'
+ end
+ item
+ DatasetField = 'IMPORTE_NETO'
+ TableField = 'IMPORTE_NETO'
+ end
+ item
+ DatasetField = 'IMPORTE_PORTE'
+ TableField = 'IMPORTE_PORTE'
+ end
+ item
+ DatasetField = 'DATOS_BANCARIOS'
+ TableField = 'DATOS_BANCARIOS'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'NUM_COPIAS'
+ TableField = 'NUM_COPIAS'
+ end
+ item
+ DatasetField = 'NUM_CORREOS'
+ TableField = 'NUM_CORREOS'
+ end
+ item
+ DatasetField = 'ID_ALBARAN'
+ TableField = 'ID_ALBARAN'
+ end
+ item
+ DatasetField = 'ID_COMISION_LIQUIDADA'
+ TableField = 'ID_COMISION_LIQUIDADA'
+ end
+ item
+ DatasetField = 'FECHA_RETENCION'
+ TableField = 'FECHA_RETENCION'
+ end
+ item
+ DatasetField = 'DESCRIPCION_DESCUENTO'
+ TableField = 'DESCRIPCION_DESCUENTO'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_DIRECCION'
+ TableField = 'ID_DIRECCION'
+ end
+ item
+ DatasetField = 'CLIENTE_FINAL'
+ TableField = 'CLIENTE_FINAL'
+ end
+ item
+ DatasetField = 'ID_AGENTE'
+ TableField = 'ID_AGENTE'
+ end
+ item
+ DatasetField = 'REFERENCIA_COMISION'
+ TableField = 'REFERENCIA_COMISION'
+ end
+ item
+ DatasetField = 'RETENCION'
+ TableField = 'RETENCION'
+ end
+ item
+ DatasetField = 'IMPORTE_RETENCION'
+ TableField = 'IMPORTE_RETENCION'
+ end>
+ end>
+ Name = 'FacturasClienteDeAlbaran'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'FacturasCliente_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'FacturasCliente_REFERENCIA'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ DictionaryEntry = 'FacturasCliente_TIPO'
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_RETENCION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'FacturasCliente_SITUACION'
+ end
+ item
+ Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DictionaryEntry = 'FacturasCliente_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
+ end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IVA'
+ DataType = datFloat
+ DictionaryEntry = 'FacturasCliente_IVA'
+ end
+ item
+ Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
+ end
+ item
+ Name = 'RE'
+ DataType = datFloat
+ DictionaryEntry = 'FacturasCliente_RE'
+ end
+ item
+ Name = 'IMPORTE_RE'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'FacturasCliente_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 100
+ DictionaryEntry = 'FacturasCliente_NOMBRE'
+ end
+ item
+ Name = 'ID_DIRECCION'
+ DataType = datInteger
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 150
+ DictionaryEntry = 'FacturasCliente_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 150
+ DictionaryEntry = 'FacturasCliente_POBLACION'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 30
+ DictionaryEntry = 'FacturasCliente_PROVINCIA'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
+ end
+ item
+ Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 100
+ DictionaryEntry = 'FacturasCliente_USUARIO'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
+ DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
+ end
+ item
+ Name = 'IMPORTE_NETO'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_COMISION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RETENCION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_RETENCION'
+ DataType = datCurrency
+ end
+ item
+ Name = 'NUM_COPIAS'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'NUM_CORREOS'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datInteger
+ end>
end>
JoinDataTables = <>
UnionDataTables = <>
@@ -1271,7 +1691,7 @@ object srvFacturasCliente: TsrvFacturasCliente
RelationShips = <
item
Name = 'FK_FacturasCliente_Detalles'
- MasterDatasetName = 'FacturasCliente'
+ MasterDatasetName = 'FacturasClienteDeAlbaran'
MasterFields = 'ID'
DetailDatasetName = 'FacturasCliente_Detalles'
DetailFields = 'ID_FACTURA'
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index b14ea8f..3737d73 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -251,7 +251,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -495,7 +495,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
- TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
+ TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -831,7 +831,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
- TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
+ TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }
@@ -992,7 +992,7 @@ type
end;
{ TFacturasProveedor_PedidosDataTableRules }
- TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos)
+ TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos)
private
protected
{ Property getters and setters }
@@ -1272,7 +1272,7 @@ type
end;
{ TFacturasProveedorDeAlbaranDataTableRules }
- TFacturasProveedorDeAlbaranDataTableRules = class(TDADataTableRules, IFacturasProveedorDeAlbaran)
+ TFacturasProveedorDeAlbaranDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedorDeAlbaran)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
index 324af0b..dac4730 100644
--- a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
+++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
-/* c:\temp\dtfAF1.tmp */
+/* c:\temp\dtfC3E.tmp */
diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
index 5bebaac..8d6a0d8 100644
--- a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
+++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
-/* c:\temp\dtfAEF.tmp */
+/* c:\temp\dtfC3C.tmp */
diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
index 6eec0af..20c566f 100644
--- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
+++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
@@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
-/* c:\temp\dtfAF5.tmp */
+/* c:\temp\dtfC42.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
index d3e5ed4..8fca4f7 100644
--- a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
+++ b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
-/* c:\temp\dtfAE7.tmp */
+/* c:\temp\dtfC34.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
index bdbb10f..d828882 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
+++ b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
-/* c:\temp\dtfAE5.tmp */
+/* c:\temp\dtfC32.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
index 1bb9721..5db51fb 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
+++ b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
@@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
-/* c:\temp\dtfAEB.tmp */
+/* c:\temp\dtfC38.tmp */
diff --git a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
index 2cc0e91..130e825 100644
--- a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
+++ b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
-/* c:\temp\dtfADB.tmp */
+/* c:\temp\dtfC28.tmp */
diff --git a/Source/Modulos/Informes base/Data/Informes_data.drc b/Source/Modulos/Informes base/Data/Informes_data.drc
index 79f0d88..642d7f8 100644
--- a/Source/Modulos/Informes base/Data/Informes_data.drc
+++ b/Source/Modulos/Informes base/Data/Informes_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
-/* c:\temp\dtfAD5.tmp */
+/* c:\temp\dtfC24.tmp */
diff --git a/Source/Modulos/Informes base/Model/Informes_model.drc b/Source/Modulos/Informes base/Model/Informes_model.drc
index d818340..9278ea7 100644
--- a/Source/Modulos/Informes base/Model/Informes_model.drc
+++ b/Source/Modulos/Informes base/Model/Informes_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
-/* c:\temp\dtfAD3.tmp */
+/* c:\temp\dtfC22.tmp */
diff --git a/Source/Modulos/Informes base/Views/Informes_view.drc b/Source/Modulos/Informes base/Views/Informes_view.drc
index 002def7..3aa7876 100644
--- a/Source/Modulos/Informes base/Views/Informes_view.drc
+++ b/Source/Modulos/Informes base/Views/Informes_view.drc
@@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
-/* c:\temp\dtfADF.tmp */
+/* c:\temp\dtfC2C.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
index 58f94b1..d290489 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
@@ -12,5 +12,5 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
-/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */
+/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
+/* c:\temp\dtfCB6.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
index 7288de2..349b510 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
-/* c:\temp\dtfB19.tmp */
+/* c:\temp\dtfC66.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index 8da784d..6b7d947 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
-/* c:\temp\dtfB17.tmp */
+/* c:\temp\dtfC64.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
index 1d9c4f7..b86f47e 100644
--- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
+++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
-/* c:\temp\dtfB83.tmp */
+/* c:\temp\dtfCD0.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
index 3f0cc1f..82ef509 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
@@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
-/* c:\temp\dtfB81.tmp */
+/* c:\temp\dtfCCE.tmp */
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk
index 57a0804..4dcb4b3 100644
Binary files a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk and b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk differ
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj
index 7d8bbed..bf3775c 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj
@@ -49,10 +49,14 @@
MainSource
+
+
+
+
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc
index e945240..46dbf3f 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */
-/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.drf */
+/* c:\temp\dtfD00.tmp */
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas
index 6fe4863..3cd0327 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas
@@ -4,16 +4,11 @@ interface
uses
uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
- uBizFacturasProveedor;
-//uPedidosClienteController;
+ uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente;
type
IEditorProcesoPresupuestosCliente = interface(IEditorDBItem)
- ['{B927F0A3-EE94-4E9C-A777-4282A78F65D2}']
-// function GetController : IPedidosClienteController;
-// procedure SetController (const Value : IPedidosClienteController);
-// property Controller : IPedidosClienteController read GetController
-// write SetController;
+ ['{C00545A6-A66D-45B2-A7A7-32C11264C30B}']
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
@@ -31,6 +26,14 @@ type
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
+ function GetAlbaranesCliente: IBizAlbaranCliente;
+ procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+ property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
+
+ function GetFacturasCliente: IBizFacturaCliente;
+ procedure SetFacturasCliente(const Value: IBizFacturaCliente);
+ property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
+
end;
implementation
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas b/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas
index e9692f9..ec76cba 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas
@@ -9,7 +9,9 @@ uses
uBizPedidosCliente, uPedidosClienteController,
uBizPedidosProveedor, uPedidosProveedorController,
uBizAlbaranesProveedor, uAlbaranesProveedorController,
- uBizFacturasProveedor, uFacturasProveedorController;
+ uBizFacturasProveedor, uFacturasProveedorController,
+ uBizAlbaranesCliente, uAlbaranesClienteController,
+ uBizFacturasCliente, uFacturasClienteController;
type
IProcesoPresupuestosClienteController = interface(IControllerBase)
@@ -23,6 +25,8 @@ type
FPedidosProveedorController : IPedidosProveedorController;
FAlbaranesProveedorController : IAlbaranesProveedorController;
FFacturasProveedorController : IFacturasProveedorController;
+ FAlbaranesClienteController : IAlbaranesClienteController;
+ FFacturasClienteController : IFacturasClienteController;
public
constructor Create; override;
@@ -32,6 +36,8 @@ type
function BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor;
function BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
function BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
+ function BuscarAlbaranesCliente(APedidosCliente: IBizPedidoCliente): IBizAlbaranCliente;
+ function BuscarFacturasCliente(AAlbaranesCliente: IBizAlbaranCliente): IBizFacturaCliente;
procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray);
end;
@@ -53,6 +59,8 @@ begin
FPedidosProveedorController := TPedidosProveedorController.Create;
FAlbaranesProveedorController := TAlbaranesProveedorController.Create;
FFacturasProveedorController := TFacturasProveedorController.Create;
+ FAlbaranesClienteController := TAlbaranesClienteController.Create;
+ FFacturasClienteController := TFacturasClienteController.Create;
end;
destructor TProcesoPresupuestosClienteController.Destroy;
@@ -61,9 +69,51 @@ begin
FPedidosProveedorController := Nil;
FAlbaranesProveedorController := Nil;
FFacturasProveedorController := Nil;
+ FAlbaranesClienteController := Nil;
+ FFacturasClienteController := Nil;
inherited;
end;
+function TProcesoPresupuestosClienteController.BuscarAlbaranesCliente(APedidosCliente: IBizPedidoCliente): IBizAlbaranCliente;
+var
+ Condicion: TDAWhereExpression;
+ AArray : Array of TDAWhereExpression;
+ i: Integer;
+
+begin
+ Result := FAlbaranesClienteController.BuscarTodos;
+ //Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa?
+ Result.DataTable.DynamicWhere.Clear;
+
+ if Assigned(Result) then
+ begin
+ //Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
+ // Filtrar los Presupuestos pendientes de recepcion
+ with Result.DataTable.DynamicWhere do
+ begin
+ APedidosCliente.Open;
+ SetLength(AArray, APedidosCliente.RecordCount);
+ APedidosCliente.First;
+ i:=0;
+ while not APedidosCliente.EOF do
+ begin
+ AArray[i] := NewConstant(APedidosCliente.ID, datInteger);
+ Inc(i);
+ APedidosCliente.Next;
+ end;
+
+ // (ID_PEDIDO in lista IDs)
+ Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO'), NewList(AArray), dboIn);
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+
+ APedidosCliente.Close;
+ end;
+ end;
+end;
+
function TProcesoPresupuestosClienteController.BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
var
Condicion: TDAWhereExpression;
@@ -104,6 +154,47 @@ begin
end;
end;
+function TProcesoPresupuestosClienteController.BuscarFacturasCliente(AAlbaranesCliente: IBizAlbaranCliente): IBizFacturaCliente;
+var
+ Condicion: TDAWhereExpression;
+ AArray : Array of TDAWhereExpression;
+ i: Integer;
+
+begin
+ Result := FFacturasClienteController.BuscarTodosDeAlbaran;
+
+ if Assigned(Result) then
+ begin
+ // Filtrar los Presupuestos pendientes de recepcion
+ with Result.DataTable.DynamicWhere do
+ begin
+ //Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
+ AAlbaranesCliente.Open;
+ SetLength(AArray, AAlbaranesCliente.RecordCount);
+ AAlbaranesCliente.First;
+ i:=0;
+ while not AAlbaranesCliente.EOF do
+ begin
+ if not AAlbaranesCliente.ID_FACTURAIsNull then
+ begin
+ AArray[i] := NewConstant(AAlbaranesCliente.ID, datInteger);
+ Inc(i);
+ end;
+ AAlbaranesCliente.Next;
+ end;
+
+ // (ID in lista de IDs)
+ Condicion := NewBinaryExpression(NewField('', 'ID_ALBARAN'), NewList(AArray), dboIn);
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboOr);
+
+ AAlbaranesCliente.Close;
+ end;
+ end;
+end;
+
function TProcesoPresupuestosClienteController.BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
var
Condicion: TDAWhereExpression;
@@ -216,6 +307,8 @@ var
APedidosProveedor: IBizPedidoProveedor;
AAlbaranesProveedor: IBizAlbaranProveedor;
AFacturasProveedor: IBizFacturaProveedor;
+ AAlbaranesCliente: IBizAlbaranCliente;
+ AFacturasCliente: IBizFacturaCliente;
begin
AEditor := NIL;
@@ -224,6 +317,8 @@ begin
APedidosProveedor := BuscarPedidosProveedor(ListaIDPresupuestosCliente);
AAlbaranesProveedor := BuscarAlbaranesProveedor(APedidosProveedor);
AFacturasProveedor := BuscarFacturasProveedor(AAlbaranesProveedor);
+ AAlbaranesCliente := BuscarAlbaranesCliente(APedidosCliente);
+ AFacturasCliente := BuscarFacturasCliente(AAlbaranesCliente);
CreateEditor('EditorProcesoPresupuestosCLiente', IEditorProcesoPresupuestosCliente, AEditor);
if Assigned(AEditor) then
@@ -233,6 +328,8 @@ begin
AEditor.PedidosProveedor := APedidosProveedor;
AEditor.AlbaranesProveedor := AAlbaranesProveedor;
AEditor.FacturasProveedor := AFacturasProveedor;
+ AEditor.AlbaranesCliente := AAlbaranesCliente;
+ AEditor.FacturasCliente := AFacturasCliente;
AEditor.ShowModal;
finally
AEditor.Release;
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc
index a1bdde4..ba5ab22 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */
-/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.drf */
+/* c:\temp\dtfD04.tmp */
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk
index 6c830ec..5bbe441 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk
@@ -29,7 +29,10 @@ requires
PedidosProveedor_model,
PedidosCliente_model,
ProcesoPresupuestosCliente_controller,
- AlbaranesProveedor_model;
+ AlbaranesProveedor_model,
+ AlbaranesCliente_model,
+ FacturasCliente_model,
+ FacturasProveedor_model;
contains
uProcesoPresupuestosClienteViewRegister in 'uProcesoPresupuestosClienteViewRegister.pas',
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj
index 86a1f3d..646e2a7 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj
@@ -49,8 +49,11 @@
MainSource
+
+
+
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm
index b53c140..7e78a1b 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm
@@ -52,6 +52,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 272
+ Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 391
@@ -60,6 +62,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 391
+ ExplicitWidth = 221
+ Width = 221
end
inherited eLista: TcxComboBox
Left = 659
@@ -68,6 +72,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 659
+ ExplicitWidth = 215
+ Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas
index 348bc80..7d06c05 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas
@@ -11,17 +11,20 @@ uses
JvExControls, JvNavigationPane, uIEditorProcesoPresupuestosCLiente,
uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewProcesoPresupuestosCliente, uBizPedidosCliente, uBizPedidosProveedor,
- uBizAlbaranesProveedor, uBizFacturasProveedor;
+ uBizAlbaranesProveedor, uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente;
type
TfEditorProcesoPresupuestosCliente = class(TfEditorGridBase, IEditorProcesoPresupuestosCliente)
frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente;
procedure FormShow(Sender: TObject);
+
protected
FPedidosCliente: IBizPedidoCliente;
FPedidosProveedor: IBizPedidoProveedor;
FAlbaranesProveedor: IBizAlbaranProveedor;
FFacturasProveedor: IBizFacturaProveedor;
+ FAlbaranesCliente: IBizAlbaranCliente;
+ FFacturasCliente: IBizFacturaCliente;
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
@@ -31,12 +34,18 @@ type
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
+ function GetAlbaranesCliente: IBizAlbaranCliente;
+ procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+ function GetFacturasCliente: IBizFacturaCliente;
+ procedure SetFacturasCliente(const Value: IBizFacturaCliente);
public
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
+ property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
+ property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@@ -61,6 +70,8 @@ begin
FPedidosProveedor := Nil;
FAlbaranesProveedor := Nil;
FFacturasProveedor := Nil;
+ FAlbaranesCliente := Nil;
+ FFacturasCliente := Nil;
inherited;
end;
@@ -87,14 +98,32 @@ begin
raise Exception.Create('No hay ninguna factura de proveedor asignado');
FacturasProveedor.DataTable.Active := True;
+ if not Assigned(AlbaranesCliente) then
+ raise Exception.Create('No hay ningun albarán de cliente asignado');
+ AlbaranesCliente.DataTable.Active := True;
+
+ if not Assigned(FacturasCliente) then
+ raise Exception.Create('No hay ninguna factura de cliente asignado');
+ FacturasCliente.DataTable.Active := True;
+
ViewGrid.GotoFirst;
end;
+function TfEditorProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;
+begin
+ Result := FAlbaranesCliente;
+end;
+
function TfEditorProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
begin
Result := FAlbaranesProveedor;
end;
+function TfEditorProcesoPresupuestosCliente.GetFacturasCliente: IBizFacturaCliente;
+begin
+ Result := FFacturasCliente;
+end;
+
function TfEditorProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
begin
Result := FFacturasProveedor;
@@ -110,6 +139,16 @@ begin
Result := FPedidosProveedor;
end;
+procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+begin
+ FAlbaranesCliente := Value;
+ if Assigned(FAlbaranesCliente) then
+ begin
+ if Assigned(ViewGrid) then
+ (ViewGrid as IViewListadoProcesoPedidoCliente).AlbaranesCliente := AlbaranesCliente;
+ end;
+end;
+
procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
begin
FAlbaranesProveedor := Value;
@@ -120,6 +159,16 @@ begin
end;
end;
+procedure TfEditorProcesoPresupuestosCliente.SetFacturasCliente(const Value: IBizFacturaCliente);
+begin
+ FFacturasCliente := Value;
+ if Assigned(FFacturasCliente) then
+ begin
+ if Assigned(ViewGrid) then
+ (ViewGrid as IViewListadoProcesoPedidoCliente).FacturasCliente := FacturasCliente;
+ end;
+end;
+
procedure TfEditorProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
begin
FFacturasProveedor := Value;
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm
index 10b69b9..0fcf323 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm
@@ -101,6 +101,7 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True
object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn
+ Caption = 'Ref. Alb. Proveedor'
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn
@@ -138,11 +139,87 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True
object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn
+ Caption = 'Ref. Fac. Proveedor'
+ DataBinding.FieldName = 'REFERENCIA'
+ end
+ object cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn
+ DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
+ end
+ object cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn
+ DataBinding.FieldName = 'SITUACION'
+ end
+ object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn
+ DataBinding.FieldName = 'FECHA_FACTURA'
+ end
+ end
+ object cxGridViewAlbaranesCliente: TcxGridDBTableView [4]
+ NavigatorButtons.ConfirmDelete = False
+ DataController.DataSource = dsAlbaranesCliente
+ DataController.DetailKeyFieldNames = 'ID_PEDIDO'
+ DataController.KeyFieldNames = 'ID'
+ DataController.MasterKeyFieldNames = 'ID'
+ DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Deleting = False
+ OptionsData.DeletingConfirmation = False
+ OptionsData.Editing = False
+ OptionsData.Inserting = False
+ OptionsSelection.CellSelect = False
+ OptionsSelection.UnselectFocusedRecordOnExit = False
+ OptionsView.CellEndEllipsis = True
+ OptionsView.NoDataToDisplayInfoText = ''
+ OptionsView.CellAutoHeight = True
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GridLineColor = cl3DLight
+ OptionsView.GridLines = glHorizontal
+ OptionsView.GroupByBox = False
+ OptionsView.GroupRowStyle = grsOffice11
+ OptionsView.HeaderEndEllipsis = True
+ object cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn
+ Caption = 'Ref. Alb. Cliente'
+ DataBinding.FieldName = 'REFERENCIA'
+ end
+ end
+ object cxGridViewFacturasCliente: TcxGridDBTableView [5]
+ NavigatorButtons.ConfirmDelete = False
+ DataController.DataSource = dsFacturasCliente
+ DataController.DetailKeyFieldNames = 'ID_ALBARAN'
+ DataController.KeyFieldNames = 'ID'
+ DataController.MasterKeyFieldNames = 'ID'
+ DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsData.Deleting = False
+ OptionsData.DeletingConfirmation = False
+ OptionsData.Editing = False
+ OptionsData.Inserting = False
+ OptionsSelection.CellSelect = False
+ OptionsSelection.UnselectFocusedRecordOnExit = False
+ OptionsView.CellEndEllipsis = True
+ OptionsView.NoDataToDisplayInfoText = ''
+ OptionsView.CellAutoHeight = True
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GridLineColor = cl3DLight
+ OptionsView.GridLines = glHorizontal
+ OptionsView.GroupByBox = False
+ OptionsView.GroupRowStyle = grsOffice11
+ OptionsView.HeaderEndEllipsis = True
+ object cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn
+ Caption = 'Ref. fac. Cliente'
DataBinding.FieldName = 'REFERENCIA'
end
end
inherited cxGridLevel: TcxGridLevel
+ Options.DetailTabsPosition = dtpTop
object cxGridLevelPedidosProveedor: TcxGridLevel
+ Caption = 'Documentos de Proveedor'
GridView = cxGridViewPedidosProveedor
object cxGridLevelAlbaranesProveedor: TcxGridLevel
GridView = cxGridViewAlbaranesProveedor
@@ -151,6 +228,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
end
end
end
+ object cxGridAlbaranesCliente: TcxGridLevel
+ Caption = 'Documentos de Cliente'
+ GridView = cxGridViewAlbaranesCliente
+ object cxGridFacturasCliente: TcxGridLevel
+ GridView = cxGridViewFacturasCliente
+ end
+ end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
@@ -207,4 +291,12 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
Left = 8
Top = 152
end
+ object dsAlbaranesCliente: TDADataSource
+ Left = 8
+ Top = 192
+ end
+ object dsFacturasCliente: TDADataSource
+ Left = 8
+ Top = 240
+ end
end
diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas
index 3172ea6..8823104 100644
--- a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas
+++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas
@@ -13,7 +13,7 @@ uses
uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
- uBizFacturasProveedor, Grids, DBGrids;
+ uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente, Grids, DBGrids;
type
IViewListadoProcesoPedidoCliente = interface(IViewGrid)
@@ -34,6 +34,13 @@ type
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
+ function GetAlbaranesCliente: IBizAlbaranCliente;
+ procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+ property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
+
+ function GetFacturasCliente: IBizFacturaCliente;
+ procedure SetFacturasCliente(const Value: IBizFacturaCliente);
+ property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
end;
TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
@@ -59,12 +66,26 @@ type
cxGridLevelFacturasProveedor: TcxGridLevel;
cxGridViewFacturasProveedor: TcxGridDBTableView;
cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn;
+ cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn;
+ cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn;
+ cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn;
+ cxGridAlbaranesCliente: TcxGridLevel;
+ cxGridFacturasCliente: TcxGridLevel;
+ cxGridViewAlbaranesCliente: TcxGridDBTableView;
+ cxGridViewFacturasCliente: TcxGridDBTableView;
+ cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn;
+ cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn;
+ dsAlbaranesCliente: TDADataSource;
+ dsFacturasCliente: TDADataSource;
procedure CustomViewShow(Sender: TObject);
+
protected
FPedidosCliente: IBizPedidoCliente;
FPedidosProveedor: IBizPedidoProveedor;
FAlbaranesProveedor: IBizAlbaranProveedor;
FFacturasProveedor: IBizFacturaProveedor;
+ FAlbaranesCliente: IBizAlbaranCliente;
+ FFacturasCliente: IBizFacturaCliente;
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
@@ -78,11 +99,19 @@ type
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
+ function GetAlbaranesCliente: IBizAlbaranCliente;
+ procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+
+ function GetFacturasCliente: IBizFacturaCliente;
+ procedure SetFacturasCliente(const Value: IBizFacturaCliente);
+
public
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
+ property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
+ property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
destructor Destroy; override;
end;
@@ -104,15 +133,27 @@ begin
FPedidosCliente:= Nil;
FPedidosProveedor:= Nil;
FAlbaranesProveedor:= Nil;
- FFacturasProveedor:= Nil;
+ FFacturasProveedor:= Nil;
+ FAlbaranesCliente:= Nil;
+ FFacturasCliente:= Nil;
inherited;
end;
+function TfrViewProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;
+begin
+ Result := FAlbaranesCliente;
+end;
+
function TfrViewProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
begin
REsult := FAlbaranesProveedor;
end;
+function TfrViewProcesoPresupuestosCliente.GetFacturasCliente: IBizFacturaCliente;
+begin
+ Result := FFacturasCliente;
+end;
+
function TfrViewProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
begin
Result := FFacturasProveedor;
@@ -128,6 +169,15 @@ begin
Result := FPedidosProveedor;
end;
+procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
+begin
+ FAlbaranesCliente := Value;
+ if Assigned(FAlbaranesCliente) then
+ dsAlbaranesCliente.DataTable := FAlbaranesCliente.DataTable
+ else
+ dsAlbaranesCliente.DataTable := Nil;
+end;
+
procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
begin
FAlbaranesProveedor := Value;
@@ -137,6 +187,15 @@ begin
dsAlbaranesProveedor.DataTable := Nil;
end;
+procedure TfrViewProcesoPresupuestosCliente.SetFacturasCliente(const Value: IBizFacturaCliente);
+begin
+ FFacturasCliente := Value;
+ if Assigned(FFacturasCliente) then
+ dsFacturasCliente.DataTable := FFacturasCliente.DataTable
+ else
+ dsFacturasCliente.DataTable := Nil;
+end;
+
procedure TfrViewProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
begin
FFacturasProveedor := Value;
diff --git a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
index e59d825..08d6106 100644
--- a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
+++ b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
-/* c:\temp\dtfB2F.tmp */
+/* c:\temp\dtfC7C.tmp */
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index fcc30cc..d601e69 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 9d085fe..f6d485d 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -121,8 +121,6 @@ uses
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
@@ -163,7 +161,9 @@ uses
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
- schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index f5c34df..69cf9f5 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "4.3.2.0\0"
VALUE "ProductVersion", "4.3.2.0\0"
- VALUE "CompileDate", "viernes, 30 de agosto de 2013 13:10\0"
+ VALUE "CompileDate", "jueves, 05 de septiembre de 2013 18:20\0"
END
END
BLOCK "VarFileInfo"