diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj
new file mode 100644
index 00000000..fd46ae6a
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.bdsproj
@@ -0,0 +1,492 @@
+
+
+
+
+
+
+
+
+
+
+
+ RecibosCliente_controller.dpk
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+ True
+ True
+ True
+
+
+
+ 0
+ 0
+ False
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ True
+ False
+
+
+
+ $00000000
+
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk
new file mode 100644
index 00000000..84163101
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk
@@ -0,0 +1,43 @@
+package RecibosCliente_controller;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+ Base,
+ RecibosCliente_model,
+ RecibosCliente_data,
+ Contactos_controller;
+
+contains
+ uRecibosClienteController in 'uRecibosClienteController.pas',
+ uIEditorRecibosCliente in 'View\uIEditorRecibosCliente.pas',
+ uIEditorReciboCliente in 'View\uIEditorReciboCliente.pas',
+ uPagosClienteController in 'uPagosClienteController.pas',
+ uIEditorElegirRecibosCliente in 'View\uIEditorElegirRecibosCliente.pas',
+ uIEditorRecibosClientePreview in 'View\uIEditorRecibosClientePreview.pas',
+ uRecibosClienteReportController in 'uRecibosClienteReportController.pas',
+ uIEditorFechaPago in 'View\uIEditorFechaPago.pas';
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
new file mode 100644
index 00000000..3b3b1a74
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
@@ -0,0 +1,586 @@
+
+
+ {c8b2fb9a-0367-4fd0-b836-4b594c06bcab}
+ RecibosCliente_controller.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\RecibosCliente_controller.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ True
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ RecibosCliente_controller.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.rc b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.rc
new file mode 100644
index 00000000..e69de29b
diff --git a/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.res b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.res
new file mode 100644
index 00000000..36f26e23
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.res differ
diff --git a/Source/Modulos/Recibos de cliente/Controller/View/uIEditorElegirRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorElegirRecibosCliente.pas
new file mode 100644
index 00000000..8b28d60d
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorElegirRecibosCliente.pas
@@ -0,0 +1,27 @@
+unit uIEditorElegirRecibosCliente;
+
+interface
+
+uses
+ uIEditorRecibosCliente, uBizRecibosCliente, uGUIBase;
+
+type
+ IEditorElegirRecibosCliente = interface(IEditorRecibosCliente)
+ ['{ACCA545C-3D0C-4FD1-9472-A41AD3C2AF9E}']
+ function GetRecibosClienteSeleccionados: IBizRecibosCliente;
+ property RecibosClienteSeleccionados: IBizRecibosCliente read GetRecibosClienteSeleccionados;
+
+ procedure SetMultiSelect (AValue : Boolean);
+ function GetMultiSelect : Boolean;
+ property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ property Mensaje : String read GetMensaje write SetMensaje;
+
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/View/uIEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorFechaPago.pas
new file mode 100644
index 00000000..b349b811
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorFechaPago.pas
@@ -0,0 +1,18 @@
+unit uIEditorFechaPago;
+
+interface
+
+uses
+ uEditorBasico;
+
+type
+ IEditorFechaPago = interface(IEditorBasico)
+ ['{977246EB-0801-4CEC-B37F-ABE2D2C9AFF4}']
+ function GetFechaPago: TDateTime;
+ procedure SetFechaPago(const Value: TDateTime);
+ property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/View/uIEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorReciboCliente.pas
new file mode 100644
index 00000000..ea4098cb
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorReciboCliente.pas
@@ -0,0 +1,22 @@
+unit uIEditorReciboCliente;
+
+interface
+
+uses
+ uEditorDBItem, uBizRecibosCliente, uRecibosClienteController;
+
+type
+ IEditorReciboCliente = interface(IEditorDBItem)
+ ['{3260C102-192B-4797-A390-30C818ECBEA5}']
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController);
+ property Controller : IRecibosClienteController read GetController write SetController;
+
+ function GetRecibo: IBizRecibosCliente;
+ procedure SetRecibo(const Value: IBizRecibosCliente);
+ property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosCliente.pas
new file mode 100644
index 00000000..fadcd629
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosCliente.pas
@@ -0,0 +1,46 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uIEditorRecibosCliente;
+
+interface
+
+uses
+ uEditorGridBase, uBizRecibosCliente, uRecibosClienteController;
+
+type
+ IEditorRecibosCliente = interface(IEditorGridBase)
+ ['{77CB33C2-8547-4666-8F4F-F65C3DB1EBBF}']
+ function GetRecibosCliente: IBizRecibosCliente;
+ procedure SetRecibosCliente(const Value: IBizRecibosCliente);
+ property RecibosCliente: IBizRecibosCliente read GetRecibosCliente write SetRecibosCliente;
+
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController);
+ property Controller : IRecibosClienteController read GetController write SetController;
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosClientePreview.pas b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosClientePreview.pas
new file mode 100644
index 00000000..21a71652
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/View/uIEditorRecibosClientePreview.pas
@@ -0,0 +1,16 @@
+unit uIEditorRecibosClientePreview;
+
+interface
+
+uses
+ uEditorPreview;
+
+type
+ IEditorRecibosClientePreview = interface(IEditorPreview)
+ ['{F7A242CF-6631-4F50-BFE1-AC490C8348EB}']
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
new file mode 100644
index 00000000..b029ae66
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
@@ -0,0 +1,146 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uPagosClienteController;
+
+interface
+
+uses
+ Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosCliente,
+ uBizPagosCliente;
+
+type
+ IPagosClienteController = interface(ISujeto)
+ ['{1864471E-74FA-4E96-BA8D-21357DA38B0F}']
+ function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''): Boolean;
+ procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String);
+ function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
+ function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean;
+ end;
+
+ TPagosClienteController = class(TSujeto, IPagosClienteController)
+ protected
+ FDataModule : IDataModuleRecibosCliente;
+
+ procedure AsignarDataModule;
+
+ public
+ constructor Create; virtual;
+ destructor Destroy; override;
+ function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''): Boolean;
+ procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String);
+ function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
+ function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean;
+ end;
+
+implementation
+
+uses
+ cxControls, DB, uEditorRegistryUtils,Dialogs,
+ uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
+ uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
+ schRecibosClienteClient_Intf, uDataModuleRecibosCliente;
+
+{ TPagosClienteController }
+
+function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''): Boolean;
+{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
+una devolución devolvemos false}
+begin
+ APagosCliente.Append;
+ if Length(Fecha) = 0 then
+ APagosCliente.FECHA_PAGO := Date
+ else
+ APagosCliente.FECHA_PAGO := StrToDate(Fecha);
+
+ if (APagosCliente.DataTable.RecordCount = 0)
+ or ((APagosCliente.DataTable.RecordCount mod 2) = 0) then
+ APagosCliente.TIPO := CTE_PAGO
+ else
+ APagosCliente.TIPO := CTE_DEVOLUCION;
+
+ Result := (APagosCliente.TIPO = CTE_PAGO);
+ APagosCliente.Post;
+end;
+
+procedure TPagosClienteController.AsignarDataModule;
+begin
+ FDataModule := TDataModuleRecibosCliente.Create(Nil);
+end;
+
+constructor TPagosClienteController.Create;
+begin
+ AsignarDataModule;
+end;
+
+destructor TPagosClienteController.Destroy;
+begin
+ FDataModule := NIL;
+ inherited;
+end;
+
+function TPagosClienteController.Eliminar(APagoCliente: IBizPagosCliente): Boolean;
+{ En el caso de eliminar un cobro del recibo devuelve true, mientras que si lo que
+se borra es una devolución devuelve false}
+begin
+ Result := False;
+
+ if not Assigned(APagoCliente) then
+ raise Exception.Create ('IBizPagosCliente no asignado');
+
+ ShowHourglassCursor;
+ try
+ if (APagoCliente.State in dsEditModes) then
+ APagoCliente.Cancel;
+
+ APagoCliente.Last;
+ Result := (APagoCliente.TIPO = CTE_PAGO);
+ APagoCliente.Delete;
+ //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
+ //APagosCliente.DataTable.ApplyUpdates;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TPagosClienteController.EliminarTodo(APagosCliente: IBizPagosCliente): Boolean;
+begin
+ if Assigned(APagosCliente) then
+ begin
+ if not APagosCliente.DataTable.Active then
+ APagosCliente.DataTable.Active := True;
+ APagosCliente.DataTable.ClearRows;
+ //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
+ //APagosCliente.DataTable.ApplyUpdates;
+ Result := True;
+ end;
+end;
+
+procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String);
+begin
+ APagosCliente.DataTable.Edit;
+ APagosCliente.FECHA_PAGO := StrToDate(Fecha);
+ APagosCliente.DataTable.Post;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
new file mode 100644
index 00000000..f9a29cf2
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
@@ -0,0 +1,854 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uRecibosClienteController;
+
+interface
+
+uses
+ Classes, SysUtils, uDADataTable, uControllerBase,
+ uPagosClienteController, uClientesController,
+ uBizRecibosCliente, uIDataModuleRecibosCliente;
+
+type
+ IRecibosClienteController = interface(IObservador)
+ ['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}']
+
+ function GetPagosController: IPagosClienteController;
+ procedure SetPagosController(const Value: IPagosClienteController);
+ property PagosController: IPagosClienteController read GetPagosController write SetPagosController;
+
+ procedure Anadir(ARecibosCliente : IBizRecibosCliente);
+ function Eliminar(ARecibosCliente : IBizRecibosCliente): Boolean;
+
+ function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
+ procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
+ function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
+ function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
+
+ function Guardar(ARecibosCliente : IBizRecibosCliente): Boolean;
+ procedure DescartarCambios(ARecibosCliente : IBizRecibosCliente);
+ function Duplicar(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
+ function Nuevo : IBizRecibosCliente;
+
+ procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
+
+ function Buscar(const ID: Integer): IBizRecibosCliente;
+ function BuscarTodos: IBizRecibosCliente;
+
+ function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
+ function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
+ function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
+ function BuscarRecibosARemesar: IBizRecibosCliente;
+
+ procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
+ procedure Ver(ARecibosCliente: IBizRecibosCliente);
+
+ function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
+ function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
+
+ procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
+ procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
+ procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
+
+ function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
+ procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
+
+ procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+ procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+ end;
+
+ TRecibosClienteController = class(TObservador, IRecibosClienteController)
+ private
+ function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente;
+ var ImporteRestante: Currency): Boolean;
+ protected
+ FDataModule : IDataModuleRecibosCliente;
+ FPagosController : IPagosClienteController;
+ FClienteController : IClientesController;
+
+ function GetPagosController: IPagosClienteController;
+ procedure SetPagosController(const Value: IPagosClienteController);
+
+ function _Vacio : IBizRecibosCliente;
+
+ function ValidarReciboCliente(ARecibosCliente: IBizRecibosCliente): Boolean;
+ procedure AsignarDataModule;
+ function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
+
+ public
+ property PagosController: IPagosClienteController read GetPagosController write SetPagosController;
+ constructor Create; virtual;
+ destructor Destroy; override;
+
+ procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
+ procedure Anadir(ARecibosCliente : IBizRecibosCliente);
+ function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
+ procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
+ function Eliminar(ARecibosCliente : IBizRecibosCliente): Boolean;
+ function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
+ function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
+ function Guardar(ARecibosCliente : IBizRecibosCliente): Boolean;
+ procedure DescartarCambios(ARecibosCliente : IBizRecibosCliente);
+ function Duplicar(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
+ function Nuevo : IBizRecibosCliente;
+
+ function Buscar(const ID: Integer): IBizRecibosCliente;
+ function BuscarTodos: IBizRecibosCliente;
+
+ function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
+ function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
+ function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
+ function BuscarRecibosARemesar: IBizRecibosCliente;
+
+ procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
+ procedure Ver(ARecibosCliente: IBizRecibosCliente);
+
+ function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
+ function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
+ function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
+
+ procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
+ procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
+ procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
+
+ procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
+
+ procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+ procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
+ end;
+
+implementation
+
+uses
+ Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
+ uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
+ uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
+ uRecibosClienteReportController, uBizContactos,
+ schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
+ uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago;
+
+{ TRecibosClienteController }
+
+procedure TRecibosClienteController.Anadir(ARecibosCliente: IBizRecibosCliente);
+begin
+ ARecibosCliente.Insert;
+end;
+
+function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''): Boolean;
+var
+ AEditor : IEditorFechaPago;
+begin
+ Result := False;
+
+ if (Length(ARecibosCliente.REFERENCIA_REMESA) = 0) or
+ (Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + ARecibosCliente.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
+ begin
+ //Pedimos la fecha del pago
+ if (Length(FechaPago) = 0) then
+ begin
+ CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
+ if Assigned(AEditor) then
+ try
+ if (AEditor.ShowModal = mrOk) then
+ FechaPago := DateToStr(AEditor.FechaPago);
+ AEditor.Release;
+ finally
+ AEditor := NIL;
+ end;
+ end;
+
+ // Se cancela la operación
+ if Length(FechaPago) = 0 then
+ Exit;
+
+ //Liberamos el recibo aunque ya este libre
+ if not ARecibosCliente.DataTable.Editing then
+ ARecibosCliente.DataTable.Edit;
+
+ ARecibosCliente.ID_REMESA := 0;
+ ARecibosCliente.REFERENCIA_REMESA := '';
+ ARecibosCliente.DataTable.Post;
+ end
+ // Se cancela la operación
+ else
+ Exit;
+
+ //Finalmente añadimos el pago (cobro o devolucion)
+ if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago) then
+ begin
+ ARecibosCliente.Edit;
+ ARecibosCliente.SITUACION := CTE_COBRADO;
+ Result := True;
+ end
+ //Podremos modificar si anulamos el cobro mediante una devolución
+ else
+ begin
+ ARecibosCliente.Edit;
+ ARecibosCliente.SITUACION := CTE_DEVUELTO;
+ Result := False;
+ end;
+end;
+
+procedure TRecibosClienteController.AsignarDataModule;
+begin
+ FDataModule := TDataModuleRecibosCliente.Create(Nil);
+end;
+
+procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer);
+begin
+ if Assigned(ARecibos) then
+ begin
+ With ARecibos.DataTable do
+ begin
+ First;
+ While not EOF do
+ begin
+ if (ARecibos.ID_REMESA <> ID_REMESA) then
+ begin
+ ARecibos.Edit;
+ //Añadimos el cobro automatico por la remesa y volvemos a asignar ID
+ //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
+ AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante
+ ARecibos.ID_REMESA := ID_REMESA;
+ end;
+ Next;
+ end;
+ end;
+ end;
+end;
+
+function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
+begin
+ Result := FDataModule.GetItems;
+end;
+
+function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
+begin
+ if not Assigned(Recibo) then
+ raise Exception.Create ('IBizReciboCliente no asignado (BuscarRecibosACompensar)');
+
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+
+ //No podrá compensarse un recibo a si mismo
+ OpenBraket;
+ AddText(fld_RecibosClienteID + ' <> ' + IntToStr(Recibo.ID));
+ CloseBraket;
+
+ AddOperator(opAND);
+
+ //Solo podrá compensar recibos del mismo cliente
+ OpenBraket;
+ AddText(fld_RecibosClienteID_CLIENTE + ' = ' + IntToStr(Recibo.ID_CLIENTE));
+ CloseBraket;
+
+ AddOperator(opAND);
+
+ //Omitimos los recibos compensados
+ OpenBraket;
+ AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
+ CloseBraket;
+
+ AddOperator(opAND);
+
+ //No podrá compensarse recibos que estan cobrados
+ OpenBraket;
+ AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+constructor TRecibosClienteController.Create;
+begin
+ inherited;
+ AsignarDataModule;
+ FPagosController := TPagosClienteController.Create;
+ FClienteController := TClientesController.Create;
+// FPagosController.addObservador(Self); //PETA NO SE PORQUE
+end;
+
+function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
+begin
+ Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
+end;
+
+function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ OpenBraket;
+ AddText(fld_RecibosClienteID_FACTURA + ' = ' + IntToStr(ID_FACTURA));
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TRecibosClienteController.BuscarRecibosARemesar: IBizRecibosCliente;
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+
+ //Omitimos los recibos compensados
+ OpenBraket;
+ AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
+ CloseBraket;
+ AddOperator(opAND);
+ //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos)
+ OpenBraket;
+ AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ OpenBraket;
+ AddText(fld_RecibosClienteID_REMESA + ' = ' + IntToStr(ID_REMESA));
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TRecibosClienteController._Vacio: IBizRecibosCliente;
+begin
+ Result := Buscar(ID_NULO);
+end;
+
+function TRecibosClienteController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String;
+var
+ ARecibosCliente: IBizRecibosCliente;
+ NumReferencia : Integer;
+ Cadena : String;
+begin
+ try
+ ARecibosCliente := BuscarRecibosFactura(ID_FACTURA);
+ ARecibosCliente.DataTable.Active := True;
+ NumReferencia := ARecibosCliente.DataTable.RecordCount;
+ Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA));
+ Result := Cadena + ' ' + IntToStr((NumReferencia + 1));
+ finally
+ ARecibosCliente := Nil;
+ end;
+end;
+
+procedure TRecibosClienteController.DescartarCambios(ARecibosCliente: IBizRecibosCliente);
+begin
+ if not Assigned(ARecibosCliente) then
+ raise Exception.Create ('IBizRecibosCliente no asignado');
+
+ ShowHourglassCursor;
+ try
+ if (ARecibosCliente.State in dsEditModes) then
+ ARecibosCliente.Cancel;
+
+ ARecibosCliente.DataTable.CancelUpdates;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+destructor TRecibosClienteController.Destroy;
+begin
+ FDataModule := NIL;
+ FPagosController := NIL;
+ FClienteController := NIL;
+ inherited;
+end;
+
+
+function TRecibosClienteController.Duplicar(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
+begin
+ Result := Self._Vacio;
+ ShowHourglassCursor;
+ try
+ DuplicarRegistros(ARecibosCliente.DataTable, Result.DataTable, mdrActual);
+
+ // Descomentar esto si hay detalles
+ // (EN ESTE CASO NO NOS INTERESA COPIAR LOS PAGOS DEL RECIBO DUPLIACDO)
+ // DuplicarRegistros(ARecibosCliente.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos);
+
+ // ¡CUIDADO! Hay que dejar algunos campos como si fuera todo nuevo
+ Result.Edit;
+ with Result do
+ begin
+ // Ejemplos
+ // ID_EMPRESA := dmUsuarios.IDEmpresaActual;
+ // USUARIO := dmUsuarios.LoginInfo.Usuario;
+ // REFERENCIA := ''; //Para que se asigne una nueva
+ // FECHA_FACTURA := DateOf(Now);
+ // SITUACION := SITUACION_PENDIENTE;
+ end;
+
+ Result.Post;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+
+function TRecibosClienteController.ValidarReciboCliente(ARecibosCliente: IBizRecibosCliente): Boolean;
+var
+ ImporteRestante: Double;
+
+begin
+ Result := False;
+
+ if not Assigned(ARecibosCliente) then
+ raise Exception.Create ('IBizRecibosCliente no asignado');
+
+ if (ARecibosCliente.DataTable.State in dsEditModes) then
+ ARecibosCliente.DataTable.Post;
+
+ // Tambien hacemos post de sus tablas hija
+ if (ARecibosCliente.Pagos.DataTable.State in dsEditModes) then
+ ARecibosCliente.Pagos.DataTable.Post;
+
+ if ARecibosCliente.DataTable.FieldByName(fld_RecibosClienteFECHA_EMISION).IsNull then
+ raise Exception.Create('Debe indicar la fecha de emisión del recibo.');
+
+ if ARecibosCliente.DataTable.FieldByName(fld_RecibosClienteFECHA_VENCIMIENTO).IsNull then
+ raise Exception.Create('Debe indicar la fecha de vencimiento del recibo.');
+
+
+ { Asegurarse de valores en campos "automáticos" tanto
+ en MODIFICACIÓN como en INSERCIÓN. }
+ ARecibosCliente.Edit;
+ try
+// ARecibosCliente.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ Result := True;
+ finally
+ ARecibosCliente.Post;
+ end;
+
+ Result := True;
+end;
+
+procedure TRecibosClienteController.Ver(ARecibosCliente: IBizRecibosCliente);
+var
+ AEditor : IEditorReciboCliente;
+begin
+ AEditor := NIL;
+ ShowHourglassCursor;
+ try
+ RecuperarCliente(ARecibosCliente);
+ CreateEditor('EditorReciboCliente', IEditorReciboCliente, AEditor);
+ with AEditor do
+ begin
+ Controller := Self; //OJO ORDEN MUY IMPORTANTE
+ Recibo := ARecibosCliente;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+
+ if Assigned(AEditor) then
+ try
+ AEditor.ShowModal;
+ AEditor.Release;
+ finally
+ AEditor := NIL;
+ end;
+end;
+
+procedure TRecibosClienteController.VerTodos(ARecibosCliente: IBizRecibosCliente);
+var
+ AEditor : IEditorRecibosCliente;
+begin
+ AEditor := NIL;
+ ShowHourglassCursor;
+ try
+ CreateEditor('EditorRecibosCliente', IEditorRecibosCliente, AEditor);
+ if Assigned(AEditor) then
+ with AEditor do
+ begin
+ RecibosCliente := ARecibosCliente;
+ MultiSelect := True;
+ ShowEmbedded;
+ end;
+ finally
+ AEditor := NIL;
+ HideHourglassCursor;
+ end;
+end;
+
+function TRecibosClienteController.ElegirRecibos(ARecibos: IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
+var
+ AEditor : IEditorElegirRecibosCliente;
+begin
+ Result := NIL;
+ CreateEditor('EditorElegirRecibosCliente', IEditorElegirRecibosCliente, AEditor);
+ try
+ with AEditor do
+ begin
+ Controller := Self;
+ RecibosCliente := ARecibos;
+ MultiSelect := AMultiSelect;
+ Mensaje := AMensaje;
+ if IsPositiveResult(ShowModal) then
+ Result := RecibosClienteSeleccionados;
+ Release;
+ end;
+ finally
+ AEditor := NIL;
+ end;
+end;
+
+function TRecibosClienteController.ElegirRecibosCompensados(ARecibo: IBizRecibosCliente): Boolean;
+var
+ ARecibosACompensar: IBizRecibosCliente;
+begin
+ ARecibosACompensar := Self.ElegirRecibos(BuscarRecibosACompensar(ARecibo), 'Elija los recibos que desea compensar', True);
+
+ if Assigned(ARecibosACompensar) then
+ begin
+ ShowHourglassCursor;
+ try
+ DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, False);
+ Result := True;
+ finally
+ HideHourglassCursor;
+ ARecibosACompensar := Nil;
+ end;
+ end;
+end;
+
+function TRecibosClienteController.Eliminar(ARecibosCliente: IBizRecibosCliente): Boolean;
+begin
+ Result := False;
+
+ if not Assigned(ARecibosCliente) then
+ raise Exception.Create ('IBizRecibosCliente no asignado');
+
+ ShowHourglassCursor;
+ try
+ if (ARecibosCliente.State in dsEditModes) then
+ ARecibosCliente.Cancel;
+
+ ARecibosCliente.Delete;
+ ARecibosCliente.DataTable.ApplyUpdates;
+ HideHourglassCursor;
+ Result := True;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TRecibosClienteController.EliminarPago(ARecibosCliente: IBizRecibosCliente): Boolean;
+begin
+ Result := PagosController.Eliminar(ARecibosCliente.Pagos);
+end;
+
+function TRecibosClienteController.EliminarTodo(ARecibosCliente: IBizRecibosCliente): Boolean;
+begin
+ if Assigned(ARecibosCliente) then
+ begin
+ if not ARecibosCliente.DataTable.Active then
+ ARecibosCliente.DataTable.Active := True;
+ ARecibosCliente.DataTable.ClearRows;
+ ARecibosCliente.DataTable.ApplyUpdates;
+ Result := True;
+ end;
+end;
+
+procedure TRecibosClienteController.RecuperarCliente(AReciboCliente: IBizRecibosCliente);
+begin
+ AReciboCliente._Cliente := (FClienteController.Buscar(AReciboCliente.ID_Cliente) as IBizCliente);
+end;
+
+function TRecibosClienteController.GetPagosController: IPagosClienteController;
+begin
+ Result := FPagosController;
+end;
+
+procedure TRecibosClienteController.SetPagosController(const Value: IPagosClienteController);
+begin
+ FPagosController := Value;
+end;
+
+procedure TRecibosClienteController.SetSituacionCobrados(ARecibos: IBizRecibosCliente; WithDeltas: Boolean);
+begin
+ if Assigned(ARecibos) then
+ begin
+ ARecibos.DataTable.DisableControls;
+ try
+ DesconectarTabla(ARecibos.DataTable);
+ with ARecibos.DataTable do
+ begin
+ First;
+ while not Eof do
+ begin
+ if not Editing then Edit;
+ ARecibos.SITUACION := CTE_COBRADO;
+ Post;
+ Next;
+ end;
+ First;
+ end;
+ finally
+ ConectarTabla(ARecibos.DataTable);
+ ARecibos.DataTable.EnableControls;
+ end;
+ end;
+end;
+
+function TRecibosClienteController.ImporteTotalModificado(ARecibosCliente : IBizRecibosCliente; var ImporteRestante: Currency) : Boolean;
+//var
+// HayCambio: TDADeltaChange;
+begin
+ Result := False;
+{
+ ImporteRestante := 0;
+ HayCambio := ARecibosCliente.DataTable.Delta.FindChange(ARecibosCliente.RecNo);
+ if (Assigned(HayCambio)) and
+ (HayCambio.OldValueByName[fld_RecibosClienteIMPORTE] <> 0) then
+ begin
+ ImporteRestante := HayCambio.OldValueByName[fld_RecibosClienteIMPORTE] - ARecibosCliente.IMPORTE;
+ if ImporteRestante <> 0 then
+ Result := True;
+ end;
+}
+end;
+
+function TRecibosClienteController.Guardar(ARecibosCliente: IBizRecibosCliente): Boolean;
+var
+ NuevoID : Integer;
+ ANuevoReciboCliente : IBizRecibosCliente;
+ ImporteRestante : Currency;
+begin
+ Result := False;
+
+ ANuevoReciboCliente := NIL;
+ ImporteRestante := 0;
+
+ if ValidarReciboCliente(ARecibosCliente) then
+ begin
+ ShowHourglassCursor;
+ try
+// if ARecibosCliente.EsNuevo then
+// NuevoID := FDataModule.GetNextID(ARecibosCliente.DataTable.LogicalName)
+// else
+// NuevoID := ARecibosCliente.ID;
+
+ //Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante
+ if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then
+ begin
+ ANuevoReciboCliente := Duplicar(ARecibosCliente);
+ ANuevoReciboCliente.Edit;
+ ANuevoReciboCliente.REFERENCIA := DarNuevaReferencia(ARecibosCliente.ID_FACTURA, ARecibosCliente.REFERENCIA);
+// ANuevoReciboCliente.ID := FDataModule.GetNextID(ARecibosCliente.DataTable.LogicalName);
+ ANuevoReciboCliente.IMPORTE := ImporteRestante;
+ ANuevoReciboCliente.DESCRIPCION := 'RECIBO ' + ANuevoReciboCliente.REFERENCIA + ' - ' + CifraToLetras(ImporteRestante);
+ ANuevoReciboCliente.Post;
+ end;
+
+ //Primero debemos hacer el ApplyUpdates del recibo inicial por si fallase
+ //Así no se haría el nuevo
+// AsignarID(ARecibosCliente, NuevoID);
+ ARecibosCliente.DataTable.ApplyUpdates;
+
+ if Assigned(ANuevoReciboCliente) then
+ ANuevoReciboCliente.DataTable.ApplyUpdates;
+
+ Result := True;
+ finally
+ ANuevoReciboCliente := NIL;
+ HideHourglassCursor;
+ end;
+ end;
+end;
+
+procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
+var
+ AEditor : IEditorFechaPago;
+ FechaPago: String;
+begin
+ //Pedimos la fecha del pago
+ CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
+ if Assigned(AEditor) then
+ try
+ FechaPago:= '';
+ if (AEditor.ShowModal = mrOk) then
+ FechaPago := DateToStr(AEditor.FechaPago);
+ AEditor.Release;
+ finally
+ AEditor := NIL;
+ end;
+
+ if Length(FechaPago) > 0 then
+ PagosController.Modificar(ARecibosCliente.Pagos, FechaPago);
+end;
+
+function TRecibosClienteController.Nuevo: IBizRecibosCliente;
+var
+ ARecibo : IBizRecibosCliente;
+begin
+ ARecibo := Buscar(ID_NULO);
+ ARecibo.DataTable.Active := True;
+ Anadir(ARecibo);
+ Result := ARecibo;
+end;
+
+procedure TRecibosClienteController.QuitarReciboCompensado(ARecibo: IBizRecibosCliente);
+var
+ IdRecibo: Variant;
+begin
+ IdRecibo := ARecibo.RecibosCompensados.ID;
+
+ ARecibo.RecibosCompensados.DataTable.First;
+ while ARecibo.RecibosCompensados.DataTable.Locate('ID', IdRecibo,[]) do
+ begin
+ ARecibo.RecibosCompensados.DataTable.Delete;
+ ARecibo.RecibosCompensados.DataTable.First;
+ end;
+end;
+
+procedure TRecibosClienteController.QuitarRemesa(ARecibos: IBizRecibosCliente);
+begin
+ if Assigned(ARecibos) then
+ begin
+ if ARecibos.Pagos.DataTable.RecordCount = 0 then
+ Exit;
+
+ //Eliminamos el cobro generado por la remesa y quitamos el ID_REMESA del recibo
+ ARecibos.Pagos.DataTable.Last;
+ ARecibos.Pagos.Delete;
+
+ ARecibos.DataTable.Edit;
+ ARecibos.ID_REMESA := 0;
+ ARecibos.DataTable.Post;
+ end;
+end;
+
+function TRecibosClienteController.ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
+var
+ ASeleccionados : IBizRecibosCliente;
+begin
+ ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
+ CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
+ Result := ASeleccionados;
+end;
+
+procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
+var
+ AReportController : IRecibosClienteReportController;
+ ID_Recibos: TStringList;
+
+begin
+ AReportController := TRecibosClienteReportController.Create;
+ try
+ ID_Recibos := TStringList.Create;
+
+ //Si deseamos previsualizar todos los items del objeto albaran
+ if AllItems then
+ begin
+ with ARecibosCliente.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+ Next;
+ end;
+ end;
+ end
+ //Solo previsualizamos el item seleccionado
+ else
+ ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+
+ AReportController.Preview(ID_Recibos.CommaText);
+
+ finally
+ AReportController := NIL;
+ ID_Recibos.Free;
+ end;
+end;
+
+procedure TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
+var
+ AReportController : IRecibosClienteReportController;
+ ID_Recibos: TStringList;
+
+begin
+ AReportController := TRecibosClienteReportController.Create;
+ try
+ ID_Recibos := TStringList.Create;
+
+ //Si deseamos previsualizar todos los items del objeto albaran
+ if AllItems then
+ begin
+ with ARecibosCliente.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+ Next;
+ end;
+ end;
+ end
+ //Solo previsualizamos el item seleccionado
+ else
+ ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+
+ AReportController.Print(ID_Recibos.CommaText);
+
+ finally
+ AReportController := NIL;
+ ID_Recibos.Free;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
new file mode 100644
index 00000000..71b3a97f
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
@@ -0,0 +1,103 @@
+unit uRecibosClienteReportController;
+
+interface
+
+uses
+ Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosClienteReport,
+ uBizRecibosCliente;
+
+type
+ IRecibosClienteReportController = interface
+ ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}']
+ procedure Preview(const ID : String);
+ procedure Print(const ID : String);
+ end;
+
+ TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController)
+ private
+ FDataModule : IDataModuleRecibosClienteReport;
+ function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+ public
+ constructor Create;
+ destructor Destroy; override;
+
+ procedure Preview(const ID : String);
+ procedure Print(const ID : String);
+ end;
+
+
+implementation
+
+uses
+ uROTypes, uEditorRegistryUtils, uIEditorRecibosClientePreview,
+ uEditorPreview, uDataModuleRecibosCliente, uEditorBase, cxControls;
+
+{ TRecibosClienteReportController }
+
+constructor TRecibosClienteReportController.Create;
+begin
+ FDataModule := TDataModuleRecibosCliente.Create(Nil);
+end;
+
+function TRecibosClienteReportController.CreateEditor(const AName: String;
+ const IID: TGUID; out Intf): Boolean;
+begin
+ Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+
+destructor TRecibosClienteReportController.Destroy;
+begin
+ FDataModule := NIL;
+ inherited;
+end;
+
+procedure TRecibosClienteReportController.Preview(const ID : String);
+var
+ AStream: Binary;
+ AEditor : IEditorRecibosClientePreview;
+begin
+ AEditor := NIL;
+
+ ShowHourglassCursor;
+ try
+ AStream := FDataModule.GetReport(ID);
+ try
+ CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
+ AEditor.LoadFromStream(AStream);
+ finally
+ AStream.Free;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+
+ if Assigned(AEditor) then
+ AEditor.Preview;
+end;
+
+procedure TRecibosClienteReportController.Print(const ID : String);
+var
+ AStream: Binary;
+ AEditor : IEditorRecibosClientePreview;
+begin
+ AEditor := NIL;
+
+ ShowHourglassCursor;
+ try
+ AStream := FDataModule.GetReport(ID);
+ try
+ CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
+ AEditor.LoadFromStream(AStream);
+ finally
+ AStream.Free;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+
+ if Assigned(AEditor) then
+ AEditor.Print
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.bdsproj b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.bdsproj
new file mode 100644
index 00000000..e1d71b11
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.bdsproj
@@ -0,0 +1,492 @@
+
+
+
+
+
+
+
+
+
+
+
+ RecibosCliente_data.dpk
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+ True
+ True
+ True
+
+
+
+ 3
+ 0
+ False
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ True
+ False
+
+
+
+ $00000000
+
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dpk b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dpk
new file mode 100644
index 00000000..2fb87529
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dpk
@@ -0,0 +1,34 @@
+package RecibosCliente_data;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+ ApplicationBase,
+ RecibosCliente_model;
+
+contains
+ uDataModuleRecibosCliente in 'uDataModuleRecibosCliente.pas' {DataModuleRecibosCliente: TDAClientDataModule};
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj
new file mode 100644
index 00000000..527ef0b3
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj
@@ -0,0 +1,540 @@
+
+
+ {f10782d8-a2a3-45bb-9ae0-98f0b23968fc}
+ RecibosCliente_data.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\RecibosCliente_data.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ 3
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_data.dpk
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
new file mode 100644
index 00000000..282ea529
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
@@ -0,0 +1,17 @@
+/* VER185
+ Generated by the CodeGear Delphi Pascal Compiler
+ because -GD or --drc was supplied to the compiler.
+
+ This file contains compiler-generated resources that
+ were bound to the executable.
+ If this file is empty, then no compiler-generated
+ resources were bound to the produced executable.
+*/
+
+STRINGTABLE
+BEGIN
+END
+
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.rc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.rc
new file mode 100644
index 00000000..153736af
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res
new file mode 100644
index 00000000..8b251f31
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res differ
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
new file mode 100644
index 00000000..38312f5b
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
@@ -0,0 +1,422 @@
+inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
+ OnCreate = DAClientDataModuleCreate
+ Height = 223
+ Width = 525
+ object RORemoteService: TRORemoteService
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
+ ServiceName = 'srvRecibosCliente'
+ Left = 56
+ Top = 24
+ end
+ object rda_RecibosCliente: TDARemoteDataAdapter
+ GetSchemaCall.RemoteService = RORemoteService
+ GetDataCall.RemoteService = RORemoteService
+ UpdateDataCall.RemoteService = RORemoteService
+ GetScriptsCall.RemoteService = RORemoteService
+ RemoteService = RORemoteService
+ DataStreamer = Bin2DataStreamer
+ Left = 59
+ Top = 151
+ end
+ object Bin2DataStreamer: TDABin2DataStreamer
+ Left = 56
+ Top = 84
+ end
+ object tbl_PagosCliente: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'PagosCliente_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_RECIBO'
+ DataType = datInteger
+ DisplayLabel = 'PagosCliente_ID_RECIBO'
+ DictionaryEntry = 'PagosCliente_ID_RECIBO'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'PagosCliente_TIPO'
+ DictionaryEntry = 'PagosCliente_TIPO'
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ DisplayLabel = 'PagosCliente_FECHA_PAGO'
+ DictionaryEntry = 'PagosCliente_FECHA_PAGO'
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'PagosCliente_TITULAR'
+ DictionaryEntry = 'PagosCliente_TITULAR'
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'PagosCliente_ENTIDAD'
+ DictionaryEntry = 'PagosCliente_ENTIDAD'
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'PagosCliente_SUCURSAL'
+ DictionaryEntry = 'PagosCliente_SUCURSAL'
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'PagosCliente_DC'
+ DictionaryEntry = 'PagosCliente_DC'
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'PagosCliente_CUENTA'
+ DictionaryEntry = 'PagosCliente_CUENTA'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DisplayLabel = 'PagosCliente_FECHA_ALTA'
+ DictionaryEntry = 'PagosCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DisplayLabel = 'PagosCliente_FECHA_MODIFICACION'
+ DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'PagosCliente_USUARIO'
+ DictionaryEntry = 'PagosCliente_USUARIO'
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_RecibosCliente
+ MasterSource = ds_RecibosCliente
+ MasterFields = 'ID'
+ DetailFields = 'ID_RECIBO'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'PagosCliente'
+ Left = 272
+ Top = 80
+ end
+ object ds_PagosCliente: TDADataSource
+ DataSet = tbl_PagosCliente.Dataset
+ DataTable = tbl_PagosCliente
+ Left = 272
+ Top = 24
+ end
+ object tbl_RecibosCliente: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID'
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ end
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ DisplayLabel = 'RecibosCliente_ID_REMESA'
+ DictionaryEntry = 'RecibosCliente_ID_REMESA'
+ end
+ item
+ Name = 'REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'RecibosCliente_REFERENCIA_REMESA'
+ DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ DisplayLabel = 'RecibosCliente_FECHA_EMISION'
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_DESCRIPCION'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
+ end
+ item
+ Name = 'SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
+ end
+ item
+ Name = 'DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'RecibosCliente_USUARIO'
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_RecibosCliente
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'RecibosCliente'
+ Left = 168
+ Top = 80
+ end
+ object ds_RecibosCliente: TDADataSource
+ DataSet = tbl_RecibosCliente.Dataset
+ DataTable = tbl_RecibosCliente
+ Left = 168
+ Top = 24
+ end
+ object tbl_RecibosCompensadosCli: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ DisplayLabel = 'RecibosCliente_FECHA_EMISION'
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_RecibosCliente
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'RecibosCompensadosCli'
+ Left = 392
+ Top = 80
+ end
+ object ds_RecibosCompensadosCli: TDADataSource
+ DataSet = tbl_RecibosCompensadosCli.Dataset
+ DataTable = tbl_RecibosCompensadosCli
+ Left = 392
+ Top = 24
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm.bak b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm.bak
new file mode 100644
index 00000000..cc0a1ed2
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm.bak
@@ -0,0 +1,1114 @@
+object DataModuleRecibosCliente: TDataModuleRecibosCliente
+ OldCreateOrder = True
+ OnCreate = DAClientDataModuleCreate
+ RemoteService = RORemoteService
+ Adapter = DABinAdapter
+ SchemaCall.MethodName = 'GetSchemaAsXML'
+ SchemaCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtString
+ end>
+ Height = 414
+ Width = 518
+ object RORemoteService: TRORemoteService
+ ServiceName = 'srvRecibosCliente'
+ Message = ROBinMessage1
+ Channel = ROWinInetHTTPChannel1
+ Left = 48
+ Top = 24
+ end
+ object DABinAdapter: TDABINAdapter
+ Left = 48
+ Top = 80
+ end
+ object DADesigntimeCall1: TDADesigntimeCall
+ RemoteRequest.MethodName = 'Login'
+ RemoteRequest.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBoolean
+ end
+ item
+ Name = 'User'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'Administrador'
+ end
+ item
+ Name = 'Password'
+ ParamType = fIn
+ DataType = rtString
+ Value = '1'
+ end
+ item
+ Name = 'LoginInfo'
+ ParamType = fOut
+ DataType = rtUserDefined
+ UserClassName = 'TRdxLoginInfo'
+ end>
+ RemoteService = LoginRemoteService
+ Left = 48
+ Top = 160
+ end
+ object LoginRemoteService: TRORemoteService
+ ServiceName = 'srvLogin'
+ Message = ROBinMessage1
+ Channel = ROWinInetHTTPChannel1
+ Left = 48
+ Top = 216
+ end
+ object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+ ServerLocators = <>
+ DispatchOptions = []
+ ProbeServers = False
+ ProbeFrequency = 60000
+ UserAgent = 'RemObjects SDK'
+ TargetURL = 'http://localhost:8090/bin'
+ Left = 48
+ Top = 272
+ end
+ object ROBinMessage1: TROBinMessage
+ Left = 48
+ Top = 324
+ end
+ object tbl_RecibosCliente: TDACDSDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_ID_REMESA'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_REMESA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_REFERENCIA_REMESA'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_FECHA_EMISION'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_DESCRIPCION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_USUARIO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ Params = <>
+ MasterMappingMode = mmDataRequest
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ SchemaCall.MethodName = 'GetDatasetSchema'
+ SchemaCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'aDatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCliente'
+ end>
+ DataRequestCall.MethodName = 'GetDatasetDataEx'
+ DataRequestCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'DatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCliente'
+ end
+ item
+ Name = 'Params'
+ ParamType = fIn
+ DataType = rtUserDefined
+ UserClassName = 'TDADatasetParamArray'
+ end
+ item
+ Name = 'UserFilter'
+ ParamType = fIn
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'IncludeSchema'
+ ParamType = fIn
+ DataType = rtBoolean
+ Value = False
+ end
+ item
+ Name = 'MaxRecords'
+ ParamType = fIn
+ DataType = rtInteger
+ Value = -1
+ end>
+ DataUpdateCall.MethodName = 'UpdateData'
+ DataUpdateCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'Delta'
+ ParamType = fIn
+ DataType = rtBinary
+ end>
+ ScriptCall.MethodName = 'GetDatasetScripts'
+ ScriptCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'DatasetNames'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCliente'
+ end>
+ ReadOnly = False
+ RemoteService = RORemoteService
+ Adapter = DABinAdapter
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'RecibosCliente'
+ IndexDefs = <>
+ Left = 272
+ Top = 168
+ end
+ object ds_RecibosCliente: TDADataSource
+ DataTable = tbl_RecibosCliente
+ Left = 272
+ Top = 112
+ end
+ object tbl_PagosCliente: TDACDSDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_ID'
+ InPrimaryKey = True
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_RECIBO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_ID_RECIBO'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_ID_RECIBO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_TIPO'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_TIPO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_FECHA_PAGO'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_FECHA_PAGO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_TITULAR'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_TITULAR'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_ENTIDAD'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_ENTIDAD'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_SUCURSAL'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_SUCURSAL'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_DC'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_DC'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_CUENTA'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_CUENTA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_FECHA_ALTA'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_FECHA_ALTA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_FECHA_MODIFICACION'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'PagosCliente_USUARIO'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'PagosCliente_USUARIO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = 77
+ ParamType = daptInput
+ end>
+ MasterMappingMode = mmParams
+ MasterParamsMappings.Strings = (
+ 'ID=ID')
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ SchemaCall.MethodName = 'GetDatasetSchema'
+ SchemaCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'aDatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'PagosCliente'
+ end>
+ DataRequestCall.MethodName = 'GetDatasetDataEx'
+ DataRequestCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'DatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'PagosCliente'
+ end
+ item
+ Name = 'Params'
+ ParamType = fIn
+ DataType = rtUserDefined
+ UserClassName = 'TDADatasetParamArray'
+ end
+ item
+ Name = 'UserFilter'
+ ParamType = fIn
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'IncludeSchema'
+ ParamType = fIn
+ DataType = rtBoolean
+ Value = False
+ end
+ item
+ Name = 'MaxRecords'
+ ParamType = fIn
+ DataType = rtInteger
+ Value = -1
+ end>
+ DataUpdateCall.MethodName = 'UpdateData'
+ DataUpdateCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'Delta'
+ ParamType = fIn
+ DataType = rtBinary
+ end>
+ ScriptCall.MethodName = 'GetDatasetScripts'
+ ScriptCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'DatasetNames'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'PagosCliente'
+ end>
+ ReadOnly = False
+ RemoteService = RORemoteService
+ Adapter = DABinAdapter
+ MasterSource = ds_RecibosCliente
+ MasterFields = 'ID'
+ DetailFields = 'ID_RECIBO'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'PagosCliente'
+ IndexDefs = <>
+ Left = 384
+ Top = 168
+ end
+ object ds_PagosCliente: TDADataSource
+ DataTable = tbl_PagosCliente
+ Left = 384
+ Top = 112
+ end
+ object tbl_RecibosCompensadosCli: TDACDSDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_FECHA_EMISION'
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taRightJustify
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end>
+ MasterMappingMode = mmParams
+ MasterParamsMappings.Strings = (
+ 'ID=ID')
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ SchemaCall.MethodName = 'GetDatasetSchema'
+ SchemaCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'aDatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCompensadosCli'
+ end>
+ DataRequestCall.MethodName = 'GetDatasetDataEx'
+ DataRequestCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'DatasetName'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCompensadosCli'
+ end
+ item
+ Name = 'Params'
+ ParamType = fIn
+ DataType = rtUserDefined
+ UserClassName = 'TDADatasetParamArray'
+ end
+ item
+ Name = 'UserFilter'
+ ParamType = fIn
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'IncludeSchema'
+ ParamType = fIn
+ DataType = rtBoolean
+ Value = False
+ end
+ item
+ Name = 'MaxRecords'
+ ParamType = fIn
+ DataType = rtInteger
+ Value = -1
+ end>
+ DataUpdateCall.MethodName = 'UpdateData'
+ DataUpdateCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtBinary
+ end
+ item
+ Name = 'Delta'
+ ParamType = fIn
+ DataType = rtBinary
+ end>
+ ScriptCall.MethodName = 'GetDatasetScripts'
+ ScriptCall.Params = <
+ item
+ Name = 'Result'
+ ParamType = fResult
+ DataType = rtString
+ Value = ''
+ end
+ item
+ Name = 'DatasetNames'
+ ParamType = fIn
+ DataType = rtString
+ Value = 'RecibosCompensadosCli'
+ end>
+ ReadOnly = False
+ RemoteService = RORemoteService
+ Adapter = DABinAdapter
+ MasterSource = ds_RecibosCliente
+ MasterFields = 'ID'
+ DetailFields = 'ID_RECIBO_COMPENSADO'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'RecibosCompensadosCli'
+ IndexDefs = <>
+ Left = 328
+ Top = 312
+ end
+ object ds_RecibosCompensadosCli: TDADataSource
+ DataTable = tbl_RecibosCompensadosCli
+ Left = 328
+ Top = 248
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
new file mode 100644
index 00000000..e243426f
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
@@ -0,0 +1,164 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uDataModuleRecibosCliente;
+
+interface
+
+uses
+ SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
+ uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+ uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
+ uDADesigntimeCall, uDataModuleBase,
+
+ uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport,
+ uBizRecibosCliente, uBizPagosCliente, uDAInterfaces, uDAMemDataTable,
+ uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter;
+
+type
+ TDataModuleRecibosCliente = class(TDataModuleBase, IDataModuleRecibosCliente, IDataModuleRecibosClienteReport)
+ RORemoteService: TRORemoteService;
+ rda_RecibosCliente: TDARemoteDataAdapter;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ tbl_PagosCliente: TDAMemDataTable;
+ ds_PagosCliente: TDADataSource;
+ tbl_RecibosCliente: TDAMemDataTable;
+ ds_RecibosCliente: TDADataSource;
+ tbl_RecibosCompensadosCli: TDAMemDataTable;
+ ds_RecibosCompensadosCli: TDADataSource;
+ procedure DAClientDataModuleCreate(Sender: TObject);
+ protected
+ function _GetPagos: IBizPagosCliente;
+ function _GetRecibosCompensados : IBizRecibosCompensadosCli;
+ public
+ function GetItems: IBizRecibosCliente;
+ function GetItem(const ID : Integer) : IBizRecibosCliente;
+ function NewItem : IBizRecibosCliente;
+ function GetReport(const ID: String): Binary;
+
+ end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+ FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
+ schRecibosClienteClient_Intf;
+
+{ TDataModuleRecibosCliente }
+
+
+function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
+begin
+ Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
+end;
+
+procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
+begin
+ RORemoteService.Channel := dmConexion.Channel;
+ RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleRecibosCliente._GetPagos: IBizPagosCliente;
+var
+ APagos : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ APagos := CloneDataTable(tbl_PagosCliente);
+ with APagos do
+ begin
+ BusinessRulesID := BIZ_CLIENT_IBIZPAGOSCLIENTE;
+ DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (APagos as IBizPagosCliente);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensadosCli;
+var
+ ARecibosCompensados : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli);
+ with ARecibosCompensados do
+ begin
+ BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
+ DetailOptions := DetailOptions -
+ [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
+var
+ AIBizRecibosCliente : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AIBizRecibosCliente := CloneDataTable(tbl_RecibosCliente);
+ AIBizRecibosCliente.BusinessRulesID := BIZ_CLIENT_IBizRecibosCliente;
+
+ with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
+ Pagos := _GetPagos;
+
+// with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
+// RecibosCompensados := _GetRecibosCompensados;
+
+ Result := (AIBizRecibosCliente as IBizRecibosCliente);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente.NewItem: IBizRecibosCliente;
+begin
+ Result := GetItem(ID_NULO)
+end;
+
+function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente;
+begin
+ ShowHourglassCursor;
+ try
+ Result := Self.GetItems;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ OpenBraket;
+ AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID));
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas.bak b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas.bak
new file mode 100644
index 00000000..33e239d8
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas.bak
@@ -0,0 +1,198 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uDataModuleRecibosCliente;
+
+interface
+
+uses
+ SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
+ uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+ uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
+ uDADesigntimeCall,
+
+ uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport,
+ uBizRecibosCliente, uBizPagosCliente;
+
+type
+ TDataModuleRecibosCliente = class(TDAClientDataModule, IDataModuleRecibosCliente, IDataModuleRecibosClienteReport)
+ RORemoteService: TRORemoteService;
+ DABinAdapter: TDABINAdapter;
+ DADesigntimeCall1: TDADesigntimeCall;
+ LoginRemoteService: TRORemoteService;
+ ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+ ROBinMessage1: TROBinMessage;
+ tbl_RecibosCliente: TDACDSDataTable;
+ ds_RecibosCliente: TDADataSource;
+ tbl_PagosCliente: TDACDSDataTable;
+ ds_PagosCliente: TDADataSource;
+ tbl_RecibosCompensadosCli: TDACDSDataTable;
+ ds_RecibosCompensadosCli: TDADataSource;
+ procedure DAClientDataModuleCreate(Sender: TObject);
+ protected
+ function DarNombreGenerador(DataSetName: String): String; virtual;
+ function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
+ function _GetPagos: IBizPagosCliente;
+ function _GetRecibosCompensados : IBizRecibosCompensadosCli;
+ public
+ function GetNextID(const DataSetName : String) : Integer;
+ function GetItems: IBizRecibosCliente;
+ function GetItem(const ID : Integer) : IBizRecibosCliente;
+ function NewItem : IBizRecibosCliente;
+ function GetReport(const ID: String): Binary;
+
+ end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+ FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
+ schRecibosClienteClient_Intf;
+
+{ TDataModuleRecibosCliente }
+
+
+function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
+begin
+ Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
+end;
+
+procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
+begin
+ RORemoteService.Channel := dmConexion.Channel;
+ RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleRecibosCliente.DarNombreGenerador(DataSetName: String): String;
+begin
+ Result := '';
+ if DataSetName = nme_RecibosCliente then
+ Result := 'GEN_RECIBOS_CLIENTE_ID';
+ if DataSetName = nme_PagosCliente then
+ Result := 'GEN_PAGOS_CLIENTE_ID'
+end;
+
+function TDataModuleRecibosCliente.GetNextID(const DataSetName: String): Integer;
+var
+ aGeneratorName : String;
+begin
+ aGeneratorName := DarNombreGenerador(DataSetName);
+ Result := (RORemoteService as IsrvRecibosCliente).GetNextAutoInc(aGeneratorName)
+end;
+
+function TDataModuleRecibosCliente._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
+begin
+ Result := NIL;
+
+ if not Assigned(ADataTable) then
+ raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
+
+ Result := TDACDSDataTable.Create(NIL);
+ CloneDataTable(ADataTable, Result);
+end;
+
+function TDataModuleRecibosCliente._GetPagos: IBizPagosCliente;
+var
+ APagos : TDACDSDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ APagos := _CloneDataTable(tbl_PagosCliente);
+ with APagos do
+ begin
+ BusinessRulesID := BIZ_CLIENT_IBIZPAGOSCLIENTE;
+ DetailOptions := DetailOptions -
+ [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (APagos as IBizPagosCliente);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensadosCli;
+var
+ ARecibosCompensados : TDACDSDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosCli);
+ with ARecibosCompensados do
+ begin
+ BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
+ DetailOptions := DetailOptions -
+ [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
+var
+ AIBizRecibosCliente : TDACDSDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AIBizRecibosCliente := _CloneDataTable(tbl_RecibosCliente);
+ AIBizRecibosCliente.BusinessRulesID := BIZ_CLIENT_IBizRecibosCliente;
+
+ with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
+ Pagos := _GetPagos;
+
+ with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
+ RecibosCompensados := _GetRecibosCompensados;
+
+ Result := (AIBizRecibosCliente as IBizRecibosCliente);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleRecibosCliente.NewItem: IBizRecibosCliente;
+begin
+ Result := GetItem(ID_NULO)
+end;
+
+function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente;
+begin
+ ShowHourglassCursor;
+ try
+ Result := Self.GetItems;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ OpenBraket;
+ AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID));
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosCliente.pas
new file mode 100644
index 00000000..b20e1628
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosCliente.pas
@@ -0,0 +1,41 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uIDataModuleRecibosCliente;
+
+interface
+
+uses
+ uBizRecibosCliente;
+
+type
+ IDataModuleRecibosCliente = interface
+ ['{F4F02C9E-E861-4938-8A2D-FE971A41EE92}']
+ function GetItems: IBizRecibosCliente;
+ function GetItem(const ID : Integer) : IBizRecibosCliente;
+ function NewItem : IBizRecibosCliente;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas
new file mode 100644
index 00000000..71d7a21e
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas
@@ -0,0 +1,16 @@
+unit uIDataModuleRecibosClienteReport;
+
+interface
+
+uses
+ SysUtils, Classes, uROTypes;
+
+type
+ IDataModuleRecibosClienteReport = interface
+ ['{FBADD967-0008-4ED5-9CCD-5BFE4F527D52}']
+ function GetReport(const ID: String): Binary;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.bdsproj b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.bdsproj
new file mode 100644
index 00000000..bd24eb45
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.bdsproj
@@ -0,0 +1,492 @@
+
+
+
+
+
+
+
+
+
+
+
+ RecibosCliente_model.dpk
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+ True
+ True
+ True
+
+
+
+ 0
+ 0
+ False
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ True
+ False
+
+
+
+ $00000000
+
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk
new file mode 100644
index 00000000..60780918
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk
@@ -0,0 +1,39 @@
+package RecibosCliente_model;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+ Base,
+ Contactos_model;
+
+contains
+ uIDataModuleRecibosCliente in 'Data\uIDataModuleRecibosCliente.pas',
+ uBizRecibosCliente in 'uBizRecibosCliente.pas',
+ uBizPagosCliente in 'uBizPagosCliente.pas',
+ uIDataModuleRecibosClienteReport in 'Data\uIDataModuleRecibosClienteReport.pas',
+ schRecibosClienteClient_Intf in 'schRecibosClienteClient_Intf.pas',
+ schRecibosClienteServer_Intf in 'schRecibosClienteServer_Intf.pas';
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj
new file mode 100644
index 00000000..c37904bc
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj
@@ -0,0 +1,582 @@
+
+
+ {e2f6ada6-f893-403e-8ebc-dd36413017f6}
+ RecibosCliente_model.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\RecibosCliente_model.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ True
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ RecibosCliente_model.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.rc b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.rc
new file mode 100644
index 00000000..e69de29b
diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.res b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.res
new file mode 100644
index 00000000..36f26e23
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.res differ
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
new file mode 100644
index 00000000..74f7d55d
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
@@ -0,0 +1,3200 @@
+unit schRecibosClienteClient_Intf;
+
+interface
+
+uses
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+
+const
+ { Data table rules ids
+ Feel free to change them to something more human readable
+ but make sure they are unique in the context of your application }
+ RID_RecibosCliente = '{C45C8AE2-4838-451C-9B22-5ECF1462811F}';
+ RID_RecibosCliente_Refresh = '{B39AD438-0F34-4953-9277-1CBF633864A7}';
+ RID_PagosCliente = '{30992EC0-F83A-4DE3-A765-699E027648FB}';
+ RID_RecibosCompensadosCli = '{FE1565E9-8B01-47B5-9D2B-BBED6173D85E}';
+
+ { Data table names }
+ nme_RecibosCliente = 'RecibosCliente';
+ nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh';
+ nme_PagosCliente = 'PagosCliente';
+ nme_RecibosCompensadosCli = 'RecibosCompensadosCli';
+
+ { RecibosCliente fields }
+ fld_RecibosClienteID = 'ID';
+ fld_RecibosClienteID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+ fld_RecibosClienteREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
+ fld_RecibosClienteREFERENCIA = 'REFERENCIA';
+ fld_RecibosClienteSITUACION = 'SITUACION';
+ fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
+ fld_RecibosClienteID_REMESA = 'ID_REMESA';
+ fld_RecibosClienteREFERENCIA_REMESA = 'REFERENCIA_REMESA';
+ fld_RecibosClienteFECHA_EMISION = 'FECHA_EMISION';
+ fld_RecibosClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+ fld_RecibosClienteDESCRIPCION = 'DESCRIPCION';
+ fld_RecibosClienteOBSERVACIONES = 'OBSERVACIONES';
+ fld_RecibosClienteIMPORTE = 'IMPORTE';
+ fld_RecibosClienteOTROS_GASTOS = 'OTROS_GASTOS';
+ fld_RecibosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_RecibosClienteFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
+ fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+ fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
+ fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE';
+ fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+ fld_RecibosClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
+ fld_RecibosClienteENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
+ fld_RecibosClienteSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
+ fld_RecibosClienteDC_CLIENTE = 'DC_CLIENTE';
+ fld_RecibosClienteCUENTA_CLIENTE = 'CUENTA_CLIENTE';
+ fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
+ fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+ fld_RecibosClienteUSUARIO = 'USUARIO';
+
+ { RecibosCliente field indexes }
+ idx_RecibosClienteID = 0;
+ idx_RecibosClienteID_RECIBO_COMPENSADO = 1;
+ idx_RecibosClienteREFERENCIA_REC_COMPENSADO = 2;
+ idx_RecibosClienteREFERENCIA = 3;
+ idx_RecibosClienteSITUACION = 4;
+ idx_RecibosClienteID_FACTURA = 5;
+ idx_RecibosClienteID_REMESA = 6;
+ idx_RecibosClienteREFERENCIA_REMESA = 7;
+ idx_RecibosClienteFECHA_EMISION = 8;
+ idx_RecibosClienteFECHA_VENCIMIENTO = 9;
+ idx_RecibosClienteDESCRIPCION = 10;
+ idx_RecibosClienteOBSERVACIONES = 11;
+ idx_RecibosClienteIMPORTE = 12;
+ idx_RecibosClienteOTROS_GASTOS = 13;
+ idx_RecibosClienteIMPORTE_TOTAL = 14;
+ idx_RecibosClienteFECHA_FACTURA = 15;
+ idx_RecibosClienteFORMA_PAGO_FACTURA = 16;
+ idx_RecibosClienteIMPORTE_FACTURA = 17;
+ idx_RecibosClienteID_EMPRESA = 18;
+ idx_RecibosClienteID_CLIENTE = 19;
+ idx_RecibosClienteNOMBRE_CLIENTE = 20;
+ idx_RecibosClienteNIF_CIF_CLIENTE = 21;
+ idx_RecibosClienteENTIDAD_CLIENTE = 22;
+ idx_RecibosClienteSUCURSAL_CLIENTE = 23;
+ idx_RecibosClienteDC_CLIENTE = 24;
+ idx_RecibosClienteCUENTA_CLIENTE = 25;
+ idx_RecibosClienteFECHA_ALTA = 26;
+ idx_RecibosClienteFECHA_MODIFICACION = 27;
+ idx_RecibosClienteUSUARIO = 28;
+
+ { RecibosCliente_Refresh fields }
+ fld_RecibosCliente_RefreshID = 'ID';
+ fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+ fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
+ fld_RecibosCliente_RefreshREFERENCIA = 'REFERENCIA';
+ fld_RecibosCliente_RefreshSITUACION = 'SITUACION';
+ fld_RecibosCliente_RefreshID_FACTURA = 'ID_FACTURA';
+ fld_RecibosCliente_RefreshID_REMESA = 'ID_REMESA';
+ fld_RecibosCliente_RefreshREFERENCIA_REMESA = 'REFERENCIA_REMESA';
+ fld_RecibosCliente_RefreshFECHA_EMISION = 'FECHA_EMISION';
+ fld_RecibosCliente_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+ fld_RecibosCliente_RefreshDESCRIPCION = 'DESCRIPCION';
+ fld_RecibosCliente_RefreshOBSERVACIONES = 'OBSERVACIONES';
+ fld_RecibosCliente_RefreshIMPORTE = 'IMPORTE';
+ fld_RecibosCliente_RefreshOTROS_GASTOS = 'OTROS_GASTOS';
+ fld_RecibosCliente_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_RecibosCliente_RefreshFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
+ fld_RecibosCliente_RefreshIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+ fld_RecibosCliente_RefreshID_CLIENTE = 'ID_CLIENTE';
+ fld_RecibosCliente_RefreshNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+ fld_RecibosCliente_RefreshNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
+ fld_RecibosCliente_RefreshENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
+ fld_RecibosCliente_RefreshSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
+ fld_RecibosCliente_RefreshDC_CLIENTE = 'DC_CLIENTE';
+ fld_RecibosCliente_RefreshCUENTA_CLIENTE = 'CUENTA_CLIENTE';
+ fld_RecibosCliente_RefreshID_EMPRESA = 'ID_EMPRESA';
+ fld_RecibosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA';
+ fld_RecibosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+ fld_RecibosCliente_RefreshUSUARIO = 'USUARIO';
+
+ { RecibosCliente_Refresh field indexes }
+ idx_RecibosCliente_RefreshID = 0;
+ idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 1;
+ idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 2;
+ idx_RecibosCliente_RefreshREFERENCIA = 3;
+ idx_RecibosCliente_RefreshSITUACION = 4;
+ idx_RecibosCliente_RefreshID_FACTURA = 5;
+ idx_RecibosCliente_RefreshID_REMESA = 6;
+ idx_RecibosCliente_RefreshREFERENCIA_REMESA = 7;
+ idx_RecibosCliente_RefreshFECHA_EMISION = 8;
+ idx_RecibosCliente_RefreshFECHA_VENCIMIENTO = 9;
+ idx_RecibosCliente_RefreshDESCRIPCION = 10;
+ idx_RecibosCliente_RefreshOBSERVACIONES = 11;
+ idx_RecibosCliente_RefreshIMPORTE = 12;
+ idx_RecibosCliente_RefreshOTROS_GASTOS = 13;
+ idx_RecibosCliente_RefreshIMPORTE_TOTAL = 14;
+ idx_RecibosCliente_RefreshFECHA_FACTURA = 15;
+ idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 16;
+ idx_RecibosCliente_RefreshIMPORTE_FACTURA = 17;
+ idx_RecibosCliente_RefreshID_CLIENTE = 18;
+ idx_RecibosCliente_RefreshNOMBRE_CLIENTE = 19;
+ idx_RecibosCliente_RefreshNIF_CIF_CLIENTE = 20;
+ idx_RecibosCliente_RefreshENTIDAD_CLIENTE = 21;
+ idx_RecibosCliente_RefreshSUCURSAL_CLIENTE = 22;
+ idx_RecibosCliente_RefreshDC_CLIENTE = 23;
+ idx_RecibosCliente_RefreshCUENTA_CLIENTE = 24;
+ idx_RecibosCliente_RefreshID_EMPRESA = 25;
+ idx_RecibosCliente_RefreshFECHA_ALTA = 26;
+ idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27;
+ idx_RecibosCliente_RefreshUSUARIO = 28;
+
+ { PagosCliente fields }
+ fld_PagosClienteID = 'ID';
+ fld_PagosClienteID_RECIBO = 'ID_RECIBO';
+ fld_PagosClienteTIPO = 'TIPO';
+ fld_PagosClienteFECHA_PAGO = 'FECHA_PAGO';
+ fld_PagosClienteTITULAR = 'TITULAR';
+ fld_PagosClienteENTIDAD = 'ENTIDAD';
+ fld_PagosClienteSUCURSAL = 'SUCURSAL';
+ fld_PagosClienteDC = 'DC';
+ fld_PagosClienteCUENTA = 'CUENTA';
+ fld_PagosClienteFECHA_ALTA = 'FECHA_ALTA';
+ fld_PagosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+ fld_PagosClienteUSUARIO = 'USUARIO';
+
+ { PagosCliente field indexes }
+ idx_PagosClienteID = 0;
+ idx_PagosClienteID_RECIBO = 1;
+ idx_PagosClienteTIPO = 2;
+ idx_PagosClienteFECHA_PAGO = 3;
+ idx_PagosClienteTITULAR = 4;
+ idx_PagosClienteENTIDAD = 5;
+ idx_PagosClienteSUCURSAL = 6;
+ idx_PagosClienteDC = 7;
+ idx_PagosClienteCUENTA = 8;
+ idx_PagosClienteFECHA_ALTA = 9;
+ idx_PagosClienteFECHA_MODIFICACION = 10;
+ idx_PagosClienteUSUARIO = 11;
+
+ { RecibosCompensadosCli fields }
+ fld_RecibosCompensadosCliID = 'ID';
+ fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+ fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
+ fld_RecibosCompensadosCliSITUACION = 'SITUACION';
+ fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
+ fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION';
+ fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+ fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
+ fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
+ fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+ fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
+ fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+ fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
+ fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
+
+ { RecibosCompensadosCli field indexes }
+ idx_RecibosCompensadosCliID = 0;
+ idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1;
+ idx_RecibosCompensadosCliREFERENCIA = 2;
+ idx_RecibosCompensadosCliSITUACION = 3;
+ idx_RecibosCompensadosCliID_FACTURA = 4;
+ idx_RecibosCompensadosCliFECHA_EMISION = 5;
+ idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6;
+ idx_RecibosCompensadosCliIMPORTE = 7;
+ idx_RecibosCompensadosCliOTROS_GASTOS = 8;
+ idx_RecibosCompensadosCliIMPORTE_TOTAL = 9;
+ idx_RecibosCompensadosCliFECHA_FACTURA = 10;
+ idx_RecibosCompensadosCliIMPORTE_FACTURA = 11;
+ idx_RecibosCompensadosCliID_CLIENTE = 12;
+ idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13;
+ idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14;
+ idx_RecibosCompensadosCliID_EMPRESA = 15;
+
+type
+ { IRecibosCliente }
+ IRecibosCliente = interface(IDAStronglyTypedDataTable)
+ ['{CA324EA4-321F-4D01-B7A9-F04B0929DE7B}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_RECIBO_COMPENSADOValue: Integer;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+ function GetREFERENCIA_REC_COMPENSADOValue: String;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetSITUACIONValue: String;
+ procedure SetSITUACIONValue(const aValue: String);
+ function GetSITUACIONIsNull: Boolean;
+ procedure SetSITUACIONIsNull(const aValue: Boolean);
+ function GetID_FACTURAValue: Integer;
+ procedure SetID_FACTURAValue(const aValue: Integer);
+ function GetID_FACTURAIsNull: Boolean;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetID_REMESAValue: Integer;
+ procedure SetID_REMESAValue(const aValue: Integer);
+ function GetID_REMESAIsNull: Boolean;
+ procedure SetID_REMESAIsNull(const aValue: Boolean);
+ function GetREFERENCIA_REMESAValue: String;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String);
+ function GetREFERENCIA_REMESAIsNull: Boolean;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+ function GetFECHA_EMISIONValue: DateTime;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime);
+ function GetFECHA_EMISIONIsNull: Boolean;
+ procedure SetFECHA_EMISIONIsNull(const aValue: Boolean);
+ function GetFECHA_VENCIMIENTOValue: DateTime;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+ function GetFECHA_VENCIMIENTOIsNull: Boolean;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+ function GetDESCRIPCIONValue: String;
+ procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+ function GetOBSERVACIONESValue: String;
+ procedure SetOBSERVACIONESValue(const aValue: String);
+ function GetOBSERVACIONESIsNull: Boolean;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
+ function GetIMPORTEValue: Currency;
+ procedure SetIMPORTEValue(const aValue: Currency);
+ function GetIMPORTEIsNull: Boolean;
+ procedure SetIMPORTEIsNull(const aValue: Boolean);
+ function GetOTROS_GASTOSValue: Currency;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency);
+ function GetOTROS_GASTOSIsNull: Boolean;
+ procedure SetOTROS_GASTOSIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFORMA_PAGO_FACTURAValue: String;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+ function GetIMPORTE_FACTURAValue: Currency;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
+ function GetIMPORTE_FACTURAIsNull: Boolean;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+ function GetID_EMPRESAValue: Integer;
+ procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+ function GetID_CLIENTEValue: Integer;
+ procedure SetID_CLIENTEValue(const aValue: Integer);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+ function GetNOMBRE_CLIENTEValue: String;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+ function GetNOMBRE_CLIENTEIsNull: Boolean;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+ function GetNIF_CIF_CLIENTEValue: String;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
+ function GetNIF_CIF_CLIENTEIsNull: Boolean;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+ function GetENTIDAD_CLIENTEValue: String;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String);
+ function GetENTIDAD_CLIENTEIsNull: Boolean;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+ function GetSUCURSAL_CLIENTEValue: String;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String);
+ function GetSUCURSAL_CLIENTEIsNull: Boolean;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+ function GetDC_CLIENTEValue: String;
+ procedure SetDC_CLIENTEValue(const aValue: String);
+ function GetDC_CLIENTEIsNull: Boolean;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean);
+ function GetCUENTA_CLIENTEValue: String;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String);
+ function GetCUENTA_CLIENTEIsNull: Boolean;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+ function 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);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property 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;
+ end;
+
+ { TRecibosClienteDataTableRules }
+ TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 GetSITUACIONValue: String; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetID_FACTURAValue: Integer; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_REMESAValue: Integer; virtual;
+ procedure SetID_REMESAValue(const aValue: Integer); virtual;
+ function GetID_REMESAIsNull: Boolean; virtual;
+ procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REMESAValue: String; virtual;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+ function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetDESCRIPCIONValue: String; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: String; virtual;
+ procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTEValue: Currency; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(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 GetNOMBRE_CLIENTEValue: String; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetENTIDAD_CLIENTEValue: String; virtual;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
+ function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSAL_CLIENTEValue: String; virtual;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+ function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetDC_CLIENTEValue: String; virtual;
+ procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+ function GetDC_CLIENTEIsNull: Boolean; virtual;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetCUENTA_CLIENTEValue: String; virtual;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+ function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property 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;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IRecibosCliente_Refresh }
+ IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
+ ['{D0E5C19C-1BCA-4F1E-BF22-4DA5954B148C}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_RECIBO_COMPENSADOValue: Integer;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+ function GetREFERENCIA_REC_COMPENSADOValue: String;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetSITUACIONValue: String;
+ procedure SetSITUACIONValue(const aValue: String);
+ function GetSITUACIONIsNull: Boolean;
+ procedure SetSITUACIONIsNull(const aValue: Boolean);
+ function GetID_FACTURAValue: Integer;
+ procedure SetID_FACTURAValue(const aValue: Integer);
+ function GetID_FACTURAIsNull: Boolean;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetID_REMESAValue: Integer;
+ procedure SetID_REMESAValue(const aValue: Integer);
+ function GetID_REMESAIsNull: Boolean;
+ procedure SetID_REMESAIsNull(const aValue: Boolean);
+ function GetREFERENCIA_REMESAValue: String;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String);
+ function GetREFERENCIA_REMESAIsNull: Boolean;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+ function GetFECHA_EMISIONValue: DateTime;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime);
+ function GetFECHA_EMISIONIsNull: Boolean;
+ procedure SetFECHA_EMISIONIsNull(const aValue: Boolean);
+ function GetFECHA_VENCIMIENTOValue: DateTime;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+ function GetFECHA_VENCIMIENTOIsNull: Boolean;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+ function GetDESCRIPCIONValue: String;
+ procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+ function GetOBSERVACIONESValue: String;
+ procedure SetOBSERVACIONESValue(const aValue: String);
+ function GetOBSERVACIONESIsNull: Boolean;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
+ function GetIMPORTEValue: Currency;
+ procedure SetIMPORTEValue(const aValue: Currency);
+ function GetIMPORTEIsNull: Boolean;
+ procedure SetIMPORTEIsNull(const aValue: Boolean);
+ function GetOTROS_GASTOSValue: Currency;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency);
+ function GetOTROS_GASTOSIsNull: Boolean;
+ procedure SetOTROS_GASTOSIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFORMA_PAGO_FACTURAValue: String;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+ function GetIMPORTE_FACTURAValue: Currency;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
+ function GetIMPORTE_FACTURAIsNull: Boolean;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+ function GetID_CLIENTEValue: Integer;
+ procedure SetID_CLIENTEValue(const aValue: Integer);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+ function GetNOMBRE_CLIENTEValue: String;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+ function GetNOMBRE_CLIENTEIsNull: Boolean;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+ function GetNIF_CIF_CLIENTEValue: String;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
+ function GetNIF_CIF_CLIENTEIsNull: Boolean;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+ function GetENTIDAD_CLIENTEValue: String;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String);
+ function GetENTIDAD_CLIENTEIsNull: Boolean;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+ function GetSUCURSAL_CLIENTEValue: String;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String);
+ function GetSUCURSAL_CLIENTEIsNull: Boolean;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+ function GetDC_CLIENTEValue: String;
+ procedure SetDC_CLIENTEValue(const aValue: String);
+ function GetDC_CLIENTEIsNull: Boolean;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean);
+ function GetCUENTA_CLIENTEValue: String;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String);
+ function GetCUENTA_CLIENTEIsNull: Boolean;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+ function GetID_EMPRESAValue: Integer;
+ procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(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);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ 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;
+ end;
+
+ { TRecibosCliente_RefreshDataTableRules }
+ TRecibosCliente_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente_Refresh)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 GetSITUACIONValue: String; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetID_FACTURAValue: Integer; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_REMESAValue: Integer; virtual;
+ procedure SetID_REMESAValue(const aValue: Integer); virtual;
+ function GetID_REMESAIsNull: Boolean; virtual;
+ procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REMESAValue: String; virtual;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+ function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetDESCRIPCIONValue: String; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: String; virtual;
+ procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTEValue: Currency; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_CLIENTEValue: Integer; virtual;
+ procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetENTIDAD_CLIENTEValue: String; virtual;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
+ function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSAL_CLIENTEValue: String; virtual;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+ function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetDC_CLIENTEValue: String; virtual;
+ procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+ function GetDC_CLIENTEIsNull: Boolean; virtual;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetCUENTA_CLIENTEValue: String; virtual;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+ function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(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;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ 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;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPagosCliente }
+ IPagosCliente = interface(IDAStronglyTypedDataTable)
+ ['{5F9EDB68-CE2E-4908-87F6-FFE6D51400BF}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_RECIBOValue: Integer;
+ procedure SetID_RECIBOValue(const aValue: Integer);
+ function GetID_RECIBOIsNull: Boolean;
+ procedure SetID_RECIBOIsNull(const aValue: Boolean);
+ function GetTIPOValue: String;
+ procedure SetTIPOValue(const aValue: String);
+ function GetTIPOIsNull: Boolean;
+ procedure SetTIPOIsNull(const aValue: Boolean);
+ function GetFECHA_PAGOValue: DateTime;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime);
+ function GetFECHA_PAGOIsNull: Boolean;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean);
+ function GetTITULARValue: String;
+ procedure SetTITULARValue(const aValue: String);
+ function GetTITULARIsNull: Boolean;
+ procedure SetTITULARIsNull(const aValue: Boolean);
+ function GetENTIDADValue: String;
+ procedure SetENTIDADValue(const aValue: String);
+ function GetENTIDADIsNull: Boolean;
+ procedure SetENTIDADIsNull(const aValue: Boolean);
+ function GetSUCURSALValue: String;
+ procedure SetSUCURSALValue(const aValue: String);
+ function GetSUCURSALIsNull: Boolean;
+ procedure SetSUCURSALIsNull(const aValue: Boolean);
+ function GetDCValue: String;
+ procedure SetDCValue(const aValue: String);
+ function GetDCIsNull: Boolean;
+ procedure SetDCIsNull(const aValue: Boolean);
+ function GetCUENTAValue: String;
+ procedure SetCUENTAValue(const aValue: String);
+ function GetCUENTAIsNull: Boolean;
+ procedure SetCUENTAIsNull(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);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue;
+ property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
+ property TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property TITULAR: String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull;
+ property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
+ property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
+ property DC: String read GetDCValue write SetDCValue;
+ property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
+ property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
+ 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;
+ end;
+
+ { TPagosClienteDataTableRules }
+ TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+ private
+ 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_RECIBOValue: Integer; virtual;
+ procedure SetID_RECIBOValue(const aValue: Integer); virtual;
+ function GetID_RECIBOIsNull: Boolean; virtual;
+ procedure SetID_RECIBOIsNull(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 GetFECHA_PAGOValue: DateTime; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTITULARValue: String; virtual;
+ procedure SetTITULARValue(const aValue: String); virtual;
+ function GetTITULARIsNull: Boolean; virtual;
+ procedure SetTITULARIsNull(const aValue: Boolean); virtual;
+ function GetENTIDADValue: String; virtual;
+ procedure SetENTIDADValue(const aValue: String); virtual;
+ function GetENTIDADIsNull: Boolean; virtual;
+ procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSALValue: String; virtual;
+ procedure SetSUCURSALValue(const aValue: String); virtual;
+ function GetSUCURSALIsNull: Boolean; virtual;
+ procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
+ function GetDCValue: String; virtual;
+ procedure SetDCValue(const aValue: String); virtual;
+ function GetDCIsNull: Boolean; virtual;
+ procedure SetDCIsNull(const aValue: Boolean); virtual;
+ function GetCUENTAValue: String; virtual;
+ procedure SetCUENTAValue(const aValue: String); virtual;
+ function GetCUENTAIsNull: Boolean; virtual;
+ procedure SetCUENTAIsNull(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;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue;
+ property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
+ property TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property TITULAR: String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull;
+ property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
+ property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
+ property DC: String read GetDCValue write SetDCValue;
+ property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
+ property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
+ 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;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IRecibosCompensadosCli }
+ IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
+ ['{D750D258-1625-4272-8D13-36211B9AFB6A}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_RECIBO_COMPENSADOValue: Integer;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetSITUACIONValue: String;
+ procedure SetSITUACIONValue(const aValue: String);
+ function GetSITUACIONIsNull: Boolean;
+ procedure SetSITUACIONIsNull(const aValue: Boolean);
+ function GetID_FACTURAValue: Integer;
+ procedure SetID_FACTURAValue(const aValue: Integer);
+ function GetID_FACTURAIsNull: Boolean;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetFECHA_EMISIONValue: DateTime;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime);
+ function GetFECHA_EMISIONIsNull: Boolean;
+ procedure SetFECHA_EMISIONIsNull(const aValue: Boolean);
+ function GetFECHA_VENCIMIENTOValue: DateTime;
+ procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+ function GetFECHA_VENCIMIENTOIsNull: Boolean;
+ procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+ function GetIMPORTEValue: Currency;
+ procedure SetIMPORTEValue(const aValue: Currency);
+ function GetIMPORTEIsNull: Boolean;
+ procedure SetIMPORTEIsNull(const aValue: Boolean);
+ function GetOTROS_GASTOSValue: Currency;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency);
+ function GetOTROS_GASTOSIsNull: Boolean;
+ procedure SetOTROS_GASTOSIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetIMPORTE_FACTURAValue: Currency;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
+ function GetIMPORTE_FACTURAIsNull: Boolean;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+ function GetID_CLIENTEValue: Integer;
+ procedure SetID_CLIENTEValue(const aValue: Integer);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+ function GetNOMBRE_CLIENTEValue: String;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+ function GetNOMBRE_CLIENTEIsNull: Boolean;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+ function GetNIF_CIF_CLIENTEValue: String;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
+ function GetNIF_CIF_CLIENTEIsNull: Boolean;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+ function GetID_EMPRESAValue: Integer;
+ procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ end;
+
+ { TRecibosCompensadosCliDataTableRules }
+ TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(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 GetSITUACIONValue: String; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetID_FACTURAValue: Integer; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetIMPORTEValue: Currency; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_CLIENTEValue: Integer; virtual;
+ procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+ property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+ property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
+implementation
+
+uses Variants, uROBinaryHelpers;
+
+{ TRecibosClienteDataTableRules }
+constructor TRecibosClienteDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TRecibosClienteDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosClienteDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteREFERENCIA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteREFERENCIA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetSITUACIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSITUACION].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteSITUACION].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSITUACION].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteSITUACION].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetID_FACTURAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_FACTURA].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID_FACTURA].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetID_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetID_REMESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_REMESA].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_REMESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID_REMESA].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetID_REMESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_REMESA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID_REMESA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_REMESAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_REMESA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_REMESA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_REMESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_REMESA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_REMESA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_EMISION].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_EMISION].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_EMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_EMISION].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_EMISION].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_VENCIMIENTO].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_VENCIMIENTO].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_VENCIMIENTO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_VENCIMIENTO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetDESCRIPCIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteDESCRIPCION].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteDESCRIPCION].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteDESCRIPCION].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteDESCRIPCION].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetOBSERVACIONESValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteOBSERVACIONES].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteOBSERVACIONES].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetOBSERVACIONESIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteOBSERVACIONES].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteOBSERVACIONES].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTEValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosClienteIMPORTE].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteIMPORTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosClienteOTROS_GASTOS].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosClienteOTROS_GASTOS].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetOTROS_GASTOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteOTROS_GASTOS].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteOTROS_GASTOS].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFORMA_PAGO_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteIMPORTE_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_EMPRESA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetID_CLIENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsInteger;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsInteger := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetID_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteID_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteNIF_CIF_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteENTIDAD_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteSUCURSAL_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetDC_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetDC_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteDC_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteDC_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCUENTA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteCUENTA_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_ALTA].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_ALTA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_ALTA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetUSUARIOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteUSUARIO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteUSUARIO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteUSUARIO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteUSUARIO].AsVariant := Null;
+end;
+
+
+{ TRecibosCliente_RefreshDataTableRules }
+constructor TRecibosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TRecibosCliente_RefreshDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetSITUACIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshSITUACION].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_FACTURAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_REMESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_REMESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_REMESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID_REMESA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REMESAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REMESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REMESA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsDateTime;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsDateTime := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_EMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_EMISION].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsDateTime;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsDateTime := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_VENCIMIENTO].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetDESCRIPCIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshDESCRIPCION].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetOBSERVACIONESValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetOBSERVACIONESIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshOBSERVACIONES].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTEValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsCurrency;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsCurrency := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsCurrency;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsCurrency := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetOTROS_GASTOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshOTROS_GASTOS].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsCurrency;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsCurrency := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshIMPORTE_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_CLIENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshNOMBRE_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshNIF_CIF_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetENTIDAD_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshENTIDAD_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshSUCURSAL_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetDC_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetDC_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshDC_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetCUENTA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetCUENTA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshCUENTA_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsInteger;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshID_EMPRESA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsDateTime;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_ALTA].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetUSUARIOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString := aValue;
+end;
+
+function TRecibosCliente_RefreshDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].IsNull;
+end;
+
+procedure TRecibosCliente_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsVariant := Null;
+end;
+
+
+{ TPagosClienteDataTableRules }
+constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TPagosClienteDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPagosClienteDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_PagosClienteID].AsInteger;
+end;
+
+procedure TPagosClienteDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PagosClienteID].AsInteger := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteID].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteID].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetID_RECIBOValue: Integer;
+begin
+ result := DataTable.Fields[idx_PagosClienteID_RECIBO].AsInteger;
+end;
+
+procedure TPagosClienteDataTableRules.SetID_RECIBOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PagosClienteID_RECIBO].AsInteger := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetID_RECIBOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteID_RECIBO].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetID_RECIBOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteID_RECIBO].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetTIPOValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteTIPO].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetTIPOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteTIPO].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetTIPOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteTIPO].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteTIPO].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_PAGO].AsDateTime;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_PagosClienteFECHA_PAGO].AsDateTime := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_PAGO].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteFECHA_PAGO].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetTITULARValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteTITULAR].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetTITULARValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteTITULAR].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetTITULARIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteTITULAR].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetTITULARIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteTITULAR].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetENTIDADValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteENTIDAD].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetENTIDADValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteENTIDAD].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetENTIDADIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteENTIDAD].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteENTIDAD].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetSUCURSALValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteSUCURSAL].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetSUCURSALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteSUCURSAL].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetSUCURSALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteSUCURSAL].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteSUCURSAL].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetDCValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteDC].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetDCValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteDC].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetDCIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteDC].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetDCIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteDC].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetCUENTAValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteCUENTA].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetCUENTAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteCUENTA].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteCUENTA].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteCUENTA].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_ALTA].AsDateTime;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_PagosClienteFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_ALTA].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteFECHA_ALTA].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_PagosClienteFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TPagosClienteDataTableRules.GetUSUARIOValue: String;
+begin
+ result := DataTable.Fields[idx_PagosClienteUSUARIO].AsString;
+end;
+
+procedure TPagosClienteDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PagosClienteUSUARIO].AsString := aValue;
+end;
+
+function TPagosClienteDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PagosClienteUSUARIO].IsNull;
+end;
+
+procedure TPagosClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PagosClienteUSUARIO].AsVariant := Null;
+end;
+
+
+{ TRecibosCompensadosCliDataTableRules }
+constructor TRecibosCompensadosCliDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TRecibosCompensadosCliDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliID].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetSITUACIONValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliSITUACION].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_FACTURAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetOTROS_GASTOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
+end;
+
+
+initialization
+ RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
+ RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules);
+ RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules);
+ RegisterDataTableRules(RID_RecibosCompensadosCli, TRecibosCompensadosCliDataTableRules);
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
new file mode 100644
index 00000000..cfb1068a
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
@@ -0,0 +1,3863 @@
+unit schRecibosClienteServer_Intf;
+
+interface
+
+uses
+ Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRecibosClienteClient_Intf;
+
+const
+ { Delta rules ids
+ Feel free to change them to something more human readable
+ but make sure they are unique in the context of your application }
+ RID_RecibosClienteDelta = '{620E956A-4FE0-49E0-9137-4C256258EAAC}';
+ RID_RecibosCliente_RefreshDelta = '{7BC75401-792B-4405-9AAC-7AD088D5873D}';
+ RID_PagosClienteDelta = '{C1592064-7E8B-4BF8-AA15-D3440A659561}';
+ RID_RecibosCompensadosCliDelta = '{C4091E2E-DAF8-461F-881E-E50A1E93713C}';
+
+type
+ { IRecibosClienteDelta }
+ IRecibosClienteDelta = interface(IRecibosCliente)
+ ['{620E956A-4FE0-49E0-9137-4C256258EAAC}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_RECIBO_COMPENSADOValue : Integer;
+ function GetOldREFERENCIA_REC_COMPENSADOValue : String;
+ function GetOldREFERENCIAValue : String;
+ function GetOldSITUACIONValue : String;
+ function GetOldID_FACTURAValue : Integer;
+ function GetOldID_REMESAValue : Integer;
+ function GetOldREFERENCIA_REMESAValue : String;
+ function GetOldFECHA_EMISIONValue : DateTime;
+ function GetOldFECHA_VENCIMIENTOValue : DateTime;
+ function GetOldDESCRIPCIONValue : String;
+ function GetOldOBSERVACIONESValue : String;
+ function GetOldIMPORTEValue : Currency;
+ function GetOldOTROS_GASTOSValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFORMA_PAGO_FACTURAValue : String;
+ function GetOldIMPORTE_FACTURAValue : Currency;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldID_CLIENTEValue : Integer;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldNIF_CIF_CLIENTEValue : String;
+ function GetOldENTIDAD_CLIENTEValue : String;
+ function GetOldSUCURSAL_CLIENTEValue : String;
+ function GetOldDC_CLIENTEValue : String;
+ function GetOldCUENTA_CLIENTEValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_REMESA : Integer read GetOldID_REMESAValue;
+ property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
+ property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+ property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+ property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ end;
+
+ { TRecibosClienteBusinessProcessorRules }
+ TRecibosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente, IRecibosClienteDelta)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 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 GetID_FACTURAValue: Integer; virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ function GetOldID_FACTURAValue: Integer; virtual;
+ function GetOldID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_REMESAValue: Integer; virtual;
+ function GetID_REMESAIsNull: Boolean; virtual;
+ function GetOldID_REMESAValue: Integer; virtual;
+ function GetOldID_REMESAIsNull: Boolean; virtual;
+ procedure SetID_REMESAValue(const aValue: Integer); virtual;
+ procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REMESAValue: String; virtual;
+ function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_REMESAValue: String; virtual;
+ function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ function GetOldFECHA_EMISIONValue: DateTime; virtual;
+ function GetOldFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: String; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: String; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTEValue: Currency; virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTEValue: Currency; virtual;
+ function GetOldIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ function GetOldOTROS_GASTOSValue: Currency; virtual;
+ function GetOldOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ procedure SetOTROS_GASTOSIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ function GetOldFECHA_FACTURAValue: DateTime; virtual;
+ function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_FACTURAValue: Currency; virtual;
+ function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(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 GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNIF_CIF_CLIENTEValue: String; virtual;
+ function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetENTIDAD_CLIENTEValue: String; virtual;
+ function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ function GetOldENTIDAD_CLIENTEValue: String; virtual;
+ function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSAL_CLIENTEValue: String; virtual;
+ function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ function GetOldSUCURSAL_CLIENTEValue: String; virtual;
+ function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetDC_CLIENTEValue: String; virtual;
+ function GetDC_CLIENTEIsNull: Boolean; virtual;
+ function GetOldDC_CLIENTEValue: String; virtual;
+ function GetOldDC_CLIENTEIsNull: Boolean; virtual;
+ procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetCUENTA_CLIENTEValue: String; virtual;
+ function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldCUENTA_CLIENTEValue: String; virtual;
+ function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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;
+
+ { 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_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
+ property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
+ 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 SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property OldID_REMESA : Integer read GetOldID_REMESAValue;
+ property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
+ property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
+ property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull;
+ 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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+ property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
+ property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
+ property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull;
+ 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 FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
+ property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ 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 NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
+ property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+ property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+ property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+ property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
+ property 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;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IRecibosCliente_RefreshDelta }
+ IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
+ ['{7BC75401-792B-4405-9AAC-7AD088D5873D}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_RECIBO_COMPENSADOValue : Integer;
+ function GetOldREFERENCIA_REC_COMPENSADOValue : String;
+ function GetOldREFERENCIAValue : String;
+ function GetOldSITUACIONValue : String;
+ function GetOldID_FACTURAValue : Integer;
+ function GetOldID_REMESAValue : Integer;
+ function GetOldREFERENCIA_REMESAValue : String;
+ function GetOldFECHA_EMISIONValue : DateTime;
+ function GetOldFECHA_VENCIMIENTOValue : DateTime;
+ function GetOldDESCRIPCIONValue : String;
+ function GetOldOBSERVACIONESValue : String;
+ function GetOldIMPORTEValue : Currency;
+ function GetOldOTROS_GASTOSValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFORMA_PAGO_FACTURAValue : String;
+ function GetOldIMPORTE_FACTURAValue : Currency;
+ function GetOldID_CLIENTEValue : Integer;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldNIF_CIF_CLIENTEValue : String;
+ function GetOldENTIDAD_CLIENTEValue : String;
+ function GetOldSUCURSAL_CLIENTEValue : String;
+ function GetOldDC_CLIENTEValue : String;
+ function GetOldCUENTA_CLIENTEValue : String;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_REMESA : Integer read GetOldID_REMESAValue;
+ property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
+ property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+ property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+ property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ end;
+
+ { TRecibosCliente_RefreshBusinessProcessorRules }
+ TRecibosCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente_Refresh, IRecibosCliente_RefreshDelta)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
+ function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 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 GetID_FACTURAValue: Integer; virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ function GetOldID_FACTURAValue: Integer; virtual;
+ function GetOldID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_REMESAValue: Integer; virtual;
+ function GetID_REMESAIsNull: Boolean; virtual;
+ function GetOldID_REMESAValue: Integer; virtual;
+ function GetOldID_REMESAIsNull: Boolean; virtual;
+ procedure SetID_REMESAValue(const aValue: Integer); virtual;
+ procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_REMESAValue: String; virtual;
+ function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_REMESAValue: String; virtual;
+ function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ function GetOldFECHA_EMISIONValue: DateTime; virtual;
+ function GetOldFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: String; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: String; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTEValue: Currency; virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTEValue: Currency; virtual;
+ function GetOldIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ function GetOldOTROS_GASTOSValue: Currency; virtual;
+ function GetOldOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ procedure SetOTROS_GASTOSIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ function GetOldFECHA_FACTURAValue: DateTime; virtual;
+ function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
+ function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_FACTURAValue: Currency; virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_FACTURAValue: Currency; virtual;
+ function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_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 GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNIF_CIF_CLIENTEValue: String; virtual;
+ function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetENTIDAD_CLIENTEValue: String; virtual;
+ function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ function GetOldENTIDAD_CLIENTEValue: String; virtual;
+ function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
+ procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
+ procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSAL_CLIENTEValue: String; virtual;
+ function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ function GetOldSUCURSAL_CLIENTEValue: String; virtual;
+ function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+ procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetDC_CLIENTEValue: String; virtual;
+ function GetDC_CLIENTEIsNull: Boolean; virtual;
+ function GetOldDC_CLIENTEValue: String; virtual;
+ function GetOldDC_CLIENTEIsNull: Boolean; virtual;
+ procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+ procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetCUENTA_CLIENTEValue: String; virtual;
+ function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldCUENTA_CLIENTEValue: String; virtual;
+ function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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 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;
+
+ { 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_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
+ property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+ property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+ property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
+ property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
+ 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 SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
+ property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+ property OldID_REMESA : Integer read GetOldID_REMESAValue;
+ property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
+ property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+ property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+ property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
+ property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
+ property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull;
+ 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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+ property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
+ property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
+ property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull;
+ 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 FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+ property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+ property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+ property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+ property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
+ property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
+ property ID_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 NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
+ property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
+ property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+ property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
+ property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
+ property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+ property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+ property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+ property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
+ property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+ property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+ property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+ property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
+ property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+ property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+ property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+ property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
+ property 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 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;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPagosClienteDelta }
+ IPagosClienteDelta = interface(IPagosCliente)
+ ['{C1592064-7E8B-4BF8-AA15-D3440A659561}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_RECIBOValue : Integer;
+ function GetOldTIPOValue : String;
+ function GetOldFECHA_PAGOValue : DateTime;
+ function GetOldTITULARValue : String;
+ function GetOldENTIDADValue : String;
+ function GetOldSUCURSALValue : String;
+ function GetOldDCValue : String;
+ function GetOldCUENTAValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
+ property OldTIPO : String read GetOldTIPOValue;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldTITULAR : String read GetOldTITULARValue;
+ property OldENTIDAD : String read GetOldENTIDADValue;
+ property OldSUCURSAL : String read GetOldSUCURSALValue;
+ property OldDC : String read GetOldDCValue;
+ property OldCUENTA : String read GetOldCUENTAValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ end;
+
+ { TPagosClienteBusinessProcessorRules }
+ TPagosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosCliente, IPagosClienteDelta)
+ private
+ 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_RECIBOValue: Integer; virtual;
+ function GetID_RECIBOIsNull: Boolean; virtual;
+ function GetOldID_RECIBOValue: Integer; virtual;
+ function GetOldID_RECIBOIsNull: Boolean; virtual;
+ procedure SetID_RECIBOValue(const aValue: Integer); virtual;
+ procedure SetID_RECIBOIsNull(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 GetFECHA_PAGOValue: DateTime; virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ function GetOldFECHA_PAGOValue: DateTime; virtual;
+ function GetOldFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTITULARValue: String; virtual;
+ function GetTITULARIsNull: Boolean; virtual;
+ function GetOldTITULARValue: String; virtual;
+ function GetOldTITULARIsNull: Boolean; virtual;
+ procedure SetTITULARValue(const aValue: String); virtual;
+ procedure SetTITULARIsNull(const aValue: Boolean); virtual;
+ function GetENTIDADValue: String; virtual;
+ function GetENTIDADIsNull: Boolean; virtual;
+ function GetOldENTIDADValue: String; virtual;
+ function GetOldENTIDADIsNull: Boolean; virtual;
+ procedure SetENTIDADValue(const aValue: String); virtual;
+ procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
+ function GetSUCURSALValue: String; virtual;
+ function GetSUCURSALIsNull: Boolean; virtual;
+ function GetOldSUCURSALValue: String; virtual;
+ function GetOldSUCURSALIsNull: Boolean; virtual;
+ procedure SetSUCURSALValue(const aValue: String); virtual;
+ procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
+ function GetDCValue: String; virtual;
+ function GetDCIsNull: Boolean; virtual;
+ function GetOldDCValue: String; virtual;
+ function GetOldDCIsNull: Boolean; virtual;
+ procedure SetDCValue(const aValue: String); virtual;
+ procedure SetDCIsNull(const aValue: Boolean); virtual;
+ function GetCUENTAValue: String; virtual;
+ function GetCUENTAIsNull: Boolean; virtual;
+ function GetOldCUENTAValue: String; virtual;
+ function GetOldCUENTAIsNull: Boolean; virtual;
+ procedure SetCUENTAValue(const aValue: String); virtual;
+ procedure SetCUENTAIsNull(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;
+
+ { 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_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue;
+ property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
+ property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
+ property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull;
+ 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 FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull : Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldFECHA_PAGOIsNull : Boolean read GetOldFECHA_PAGOIsNull;
+ property TITULAR : String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull;
+ property OldTITULAR : String read GetOldTITULARValue;
+ property OldTITULARIsNull : Boolean read GetOldTITULARIsNull;
+ property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
+ property OldENTIDAD : String read GetOldENTIDADValue;
+ property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
+ property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
+ property OldSUCURSAL : String read GetOldSUCURSALValue;
+ property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
+ property DC : String read GetDCValue write SetDCValue;
+ property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
+ property OldDC : String read GetOldDCValue;
+ property OldDCIsNull : Boolean read GetOldDCIsNull;
+ property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
+ property OldCUENTA : String read GetOldCUENTAValue;
+ property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
+ 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;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IRecibosCompensadosCliDelta }
+ IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
+ ['{C4091E2E-DAF8-461F-881E-E50A1E93713C}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_RECIBO_COMPENSADOValue : Integer;
+ function GetOldREFERENCIAValue : String;
+ function GetOldSITUACIONValue : String;
+ function GetOldID_FACTURAValue : Integer;
+ function GetOldFECHA_EMISIONValue : DateTime;
+ function GetOldFECHA_VENCIMIENTOValue : DateTime;
+ function GetOldIMPORTEValue : Currency;
+ function GetOldOTROS_GASTOSValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldIMPORTE_FACTURAValue : Currency;
+ function GetOldID_CLIENTEValue : Integer;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldNIF_CIF_CLIENTEValue : String;
+ function GetOldID_EMPRESAValue : Integer;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ end;
+
+ { TRecibosCompensadosCliBusinessProcessorRules }
+ TRecibosCompensadosCliBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosCli, IRecibosCompensadosCliDelta)
+ private
+ 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_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+ function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
+ procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+ procedure SetID_RECIBO_COMPENSADOIsNull(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 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 GetID_FACTURAValue: Integer; virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ function GetOldID_FACTURAValue: Integer; virtual;
+ function GetOldID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_EMISIONValue: DateTime; virtual;
+ function GetFECHA_EMISIONIsNull: Boolean; virtual;
+ function GetOldFECHA_EMISIONValue: DateTime; virtual;
+ function GetOldFECHA_EMISIONIsNull: Boolean; virtual;
+ procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_EMISIONIsNull(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 GetIMPORTEValue: Currency; virtual;
+ function GetIMPORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTEValue: Currency; virtual;
+ function GetOldIMPORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+ function GetOTROS_GASTOSValue: Currency; virtual;
+ function GetOTROS_GASTOSIsNull: Boolean; virtual;
+ function GetOldOTROS_GASTOSValue: Currency; virtual;
+ function GetOldOTROS_GASTOSIsNull: Boolean; virtual;
+ procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
+ procedure SetOTROS_GASTOSIsNull(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 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 GetIMPORTE_FACTURAValue: Currency; virtual;
+ function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_FACTURAValue: Currency; virtual;
+ function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetID_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 GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIF_CLIENTEValue: String; virtual;
+ function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNIF_CIF_CLIENTEValue: String; virtual;
+ function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function 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;
+
+ { 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_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+ property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+ property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+ property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
+ 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 SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+ property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
+ property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+ property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull;
+ 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 IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
+ property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+ property OldIMPORTE : Currency read GetOldIMPORTEValue;
+ property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
+ property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+ property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
+ property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
+ property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull;
+ 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 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 IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+ property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+ property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+ property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
+ property ID_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 NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
+ property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
+ property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
+ property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
+ property 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;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+implementation
+
+uses
+ Variants, uROBinaryHelpers, uDAInterfaces;
+
+{ TRecibosClienteBusinessProcessorRules }
+constructor TRecibosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TRecibosClienteBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_REMESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := Null;
+end;
+
+
+{ TRecibosCliente_RefreshBusinessProcessorRules }
+constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TRecibosCliente_RefreshBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSITUACION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSITUACION]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_FACTURA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_REMESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_REMESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_REMESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_REMESA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_EMISION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_EMISION]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDESCRIPCION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDESCRIPCION]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOBSERVACIONES];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOBSERVACIONES]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetDC_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDC_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDC_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_EMPRESA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_EMPRESA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_ALTA];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_ALTA]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION] := Null;
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO]);
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshUSUARIO];
+end;
+
+function TRecibosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshUSUARIO]);
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue;
+end;
+
+procedure TRecibosCliente_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := Null;
+end;
+
+
+{ TPagosClienteBusinessProcessorRules }
+constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TPagosClienteBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetID_RECIBOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetID_RECIBOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetTITULARValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetTITULARIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldTITULARValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetTITULARValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetENTIDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetENTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldENTIDADValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetSUCURSALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldSUCURSALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetDCValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetDCIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldDCValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldDCIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetDCValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION] := Null;
+end;
+
+function TPagosClienteBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO]);
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO];
+end;
+
+function TPagosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO]);
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO] := aValue;
+end;
+
+procedure TPagosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO] := Null;
+end;
+
+
+{ TRecibosCompensadosCliBusinessProcessorRules }
+constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TRecibosCompensadosCliBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
+end;
+
+
+initialization
+ RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules);
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas
new file mode 100644
index 00000000..51ff3dee
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas
@@ -0,0 +1,77 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uBizPagosCliente;
+
+interface
+
+uses
+ uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf;
+
+const
+ BIZ_CLIENT_IBIZPAGOSCLIENTE = 'Client.IBizPagosCliente';
+
+ CTE_PAGO = 'Pago';
+ CTE_DEVOLUCION = 'Devolución';
+
+type
+ IBizPagosCliente = interface(IPagosCliente)
+ ['{F53F105E-83B5-4EB8-94CA-EA7E470D26F7}']
+ end;
+
+ TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente)
+ private
+ ContIdAux: Integer;
+ protected
+ procedure OnNewRecord(Sender: TDADataTable); override;
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ end;
+
+implementation
+
+uses
+ SysUtils, uDataTableUtils;
+
+{ TBizPagosCliente }
+
+constructor TBizPagosCliente.Create(aDataTable: TDADataTable);
+begin
+ inherited Create(aDataTable);
+ ContIdAux := -1;
+end;
+
+procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable);
+begin
+ inherited;
+ ID := ContIdAux; // -1, -2, -3...
+ Dec(ContIdAux);
+end;
+
+initialization
+ RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSCLIENTE, TBizPagosCliente);
+
+finalization
+
+end.
+
diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
new file mode 100644
index 00000000..f64ac8d0
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
@@ -0,0 +1,220 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uBizRecibosCliente;
+
+interface
+
+uses
+ uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf,
+ uBizPagosCliente, uBizContactos;
+
+const
+ BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
+ BIZ_CLIENT_RECIBOS_COMPENSADOSCLI = 'Client.RecibosCompensadosCli';
+
+ CTE_PENDIENTE = 'PENDIENTE';
+ CTE_COBRADO = 'COBRADO';
+ CTE_DEVUELTO = 'DEVUELTO';
+
+type
+ IBizRecibosCompensadosCli = interface(IRecibosCompensadosCli)
+ ['{F9C18EAC-6769-428C-ABFB-AD6639F413D9}']
+ end;
+
+ IBizRecibosCliente = interface(IRecibosCliente)
+ ['{93758493-260C-450D-9018-E5339C2E09B2}']
+ function EsNuevo : Boolean;
+
+ // No se puede cambiar el cliente por que depende de la factura
+ function GetCliente : IBizCliente;
+ property Cliente : IBizCliente read GetCliente;
+
+ // Esta propidad es para que el controlador pueda acceder directamente
+ // a la propiedad Cliente
+ procedure _SetCliente(AValue : IBizCliente);
+ function _GetCliente : IBizCliente;
+ property _Cliente : IBizCliente read _GetCliente write _SetCliente;
+
+ procedure SetPagos(AValue : IBizPagosCliente);
+ function GetPagos : IBizPagosCliente;
+ property Pagos : IBizPagosCliente read GetPagos write SetPagos;
+
+ function GetRecibosCompensados: IBizRecibosCompensadosCli;
+ procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
+ property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
+ end;
+
+ TBizRecibosCompensadosCli = class(TRecibosCompensadosCliDataTableRules, IBizRecibosCompensadosCli)
+ end;
+
+ TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable)
+ protected
+ FPagos : IBizPagosCliente;
+ FPagosLink : TDADataSource;
+ FRecibosCompensados: IBizRecibosCompensadosCli;
+ FRecibosCompensadosLink : TDADataSource;
+ FCliente : IBizCliente;
+ FSeleccionableInterface : ISeleccionable;
+
+ // No se puede cambiar el cliente por que depende de la factura
+ function GetCliente : IBizCliente;
+ property Cliente : IBizCliente read GetCliente;
+
+ // Esta propidad es para que el controlador pueda acceder directamente
+ // a la propiedad Cliente
+ procedure _SetCliente(AValue : IBizCliente);
+ function _GetCliente : IBizCliente;
+ property _Cliente : IBizCliente read _GetCliente write _SetCliente;
+
+ procedure SetPagos(AValue : IBizPagosCliente);
+ function GetPagos : IBizPagosCliente;
+
+ function GetRecibosCompensados: IBizRecibosCompensadosCli;
+ procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
+
+ procedure OnNewRecord(Sender: TDADataTable); override;
+ procedure SetID_REMESAValue(const aValue: Integer); override;
+
+ public
+ property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
+ property Pagos : IBizPagosCliente read GetPagos write SetPagos;
+ property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+ write FSeleccionableInterface
+ implements ISeleccionable;
+
+ procedure IniciarValoresIBizRecibosClienteNuevo;
+ function EsNuevo : Boolean;
+
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+ end;
+
+implementation
+
+{ TBizRecibosCliente }
+
+uses
+ SysUtils, uDataTableUtils, schContactosClient_Intf;
+
+ function TBizRecibosCliente.GetCliente: IBizCliente;
+begin
+ Result := FCliente;
+end;
+
+function TBizRecibosCliente.GetPagos: IBizPagosCliente;
+begin
+ Result := FPagos;
+end;
+
+function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensadosCli;
+begin
+ Result := FRecibosCompensados;
+end;
+
+procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer);
+begin
+ if (aValue = 0) then
+ SetFieldNull(DataTable, fld_RecibosClienteID_REMESA)
+ else
+ inherited;
+end;
+
+procedure TBizRecibosCliente.SetPagos(AValue: IBizPagosCliente);
+ begin
+ FPagos := AValue;
+ EnlazarMaestroDetalle(FPagosLink, FPagos);
+ end;
+
+procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
+begin
+ FRecibosCompensados := Value;
+ EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
+
+ if Assigned(FRecibosCompensados) then
+ if not FRecibosCompensados.DataTable.Active then
+ FRecibosCompensados.DataTable.Active := True;
+end;
+
+function TBizRecibosCliente._GetCliente: IBizCliente;
+begin
+ Result := FCliente;
+end;
+
+procedure TBizRecibosCliente._SetCliente(AValue: IBizCliente);
+begin
+ FCliente := AValue;
+end;
+
+constructor TBizRecibosCliente.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+ FCliente := Nil;
+ FPagos := Nil;
+ FRecibosCompensados := Nil;
+
+ FPagosLink := TDADataSource.Create(NIL);
+ FPagosLink.DataTable := aDataTable;
+ FRecibosCompensadosLink := TDADataSource.Create(NIL);
+ FRecibosCompensadosLink.DataTable := aDataTable;
+
+ FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizRecibosCliente.Destroy;
+begin
+ FPagos := NIL;
+ FRecibosCompensados := Nil;
+ FreeAndNIL(FPagosLink);
+ FreeAndNIL(FRecibosCompensadosLink);
+ FSeleccionableInterface := NIL;
+ inherited;
+end;
+
+function TBizRecibosCliente.EsNuevo: Boolean;
+begin
+ Result := (ID < 0);
+end;
+
+procedure TBizRecibosCliente.IniciarValoresIBizRecibosClienteNuevo;
+begin
+ FECHA_EMISION := Date;
+ IMPORTE := 0;
+ OTROS_GASTOS := 0;
+end;
+
+procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);
+begin
+ inherited;
+ ID := GetRecNo; // -1, -2, -3...
+ IniciarValoresIBizRecibosClienteNuevo;
+end;
+
+initialization
+ RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente);
+ RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSCLI, TBizRecibosCompensadosCli);
+
+finalization
+
+end.
+
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.bdsproj b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.bdsproj
new file mode 100644
index 00000000..0ec9931f
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.bdsproj
@@ -0,0 +1,495 @@
+
+
+
+
+
+
+
+
+
+
+
+ RecibosCliente_plugin.dpk
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+ True
+ True
+ True
+
+
+
+ 3
+ 0
+ False
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ True
+ False
+
+
+
+ $00000000
+
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+ RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+ EurekaLog 5.1.9
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dpk b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dpk
new file mode 100644
index 00000000..33f2ac09
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dpk
@@ -0,0 +1,35 @@
+package RecibosCliente_plugin;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+ ApplicationBase,
+ RecibosCliente_controller,
+ RecibosCliente_view;
+
+contains
+ uPluginRecibosCliente in 'uPluginRecibosCliente.pas' {PluginRecibosCliente};
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dproj b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dproj
new file mode 100644
index 00000000..105a4826
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.dproj
@@ -0,0 +1,594 @@
+
+
+ {e7d762a1-3a15-46b2-bd5b-3821d13b8347}
+ RecibosCliente_plugin.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\RecibosCliente_plugin.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ 3
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ True
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+ RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+ EurekaLog 5.1.9
+
+
+ RecibosCliente_plugin.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
new file mode 100644
index 00000000..d98ad194
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
@@ -0,0 +1,17 @@
+/* VER185
+ Generated by the CodeGear Delphi Pascal Compiler
+ because -GD or --drc was supplied to the compiler.
+
+ This file contains compiler-generated resources that
+ were bound to the executable.
+ If this file is empty, then no compiler-generated
+ resources were bound to the produced executable.
+*/
+
+STRINGTABLE
+BEGIN
+END
+
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
+/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.rc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.rc
new file mode 100644
index 00000000..e69de29b
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.res b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.res
new file mode 100644
index 00000000..36f26e23
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.res differ
diff --git a/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.dfm
new file mode 100644
index 00000000..8e497423
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.dfm
@@ -0,0 +1,124 @@
+object PluginRecibosCliente: TPluginRecibosCliente
+ OldCreateOrder = True
+ DefaultAction = actRecibosCliente
+ Description = 'Ventas'
+ ModuleMenu = MainMenu
+ ModuleName = 'Recibos de cliente'
+ SmallImages = SmallImages
+ LargeImages = LargeImages
+ Author = 'Rodax Software'
+ Version = '1.0.0'
+ Height = 252
+ Width = 401
+ object LargeImages: TPngImageList
+ Height = 24
+ Width = 24
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000022E4944415478DA
+ 63FCFFFF3F032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFD
+ CFF0F7EF3F869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE77484
+ 0589270D091AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF
+ 9633CC5BBA09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE1
+ 23CF03B0E197025E3028AD14045B52F17715A605AAAB85196E87BE051B006283
+ C0CD903760FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E10
+ 58CE0F56F33F1D12958C33191926736D47B58056910CB6106601AD221AC5025A
+ 44348605D48E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B562
+ 8BB919EA18D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CD
+ C0F059E70B03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD8
+ 2D400F1AE6E5400B2281162C668218BECC98E16C14909E65CCF021E22383C016
+ 7E86172E2F19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301
+ EC83B76AEF18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F2
+ 17A8E132CB25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE2
+ 02A458F1831F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC
+ 16C0003C6D03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E
+ 50EE1F420E9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7
+ AAE13030F42B7D0062D74EABC521DC370000000049454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end>
+ Left = 232
+ Top = 16
+ Bitmap = {}
+ end
+ object ModuleActionList: TActionList
+ Images = LargeImages
+ Left = 40
+ Top = 72
+ object actRecibosCliente: TAction
+ Category = 'Ventas'
+ Caption = 'Recibos de cliente'
+ ImageIndex = 0
+ OnExecute = actRecibosClienteExecute
+ end
+ end
+ object MainMenu: TMainMenu
+ Images = LargeImages
+ Left = 40
+ Top = 16
+ object Compras1: TMenuItem
+ Caption = 'Ventas'
+ object RecibosdeCliente1: TMenuItem
+ Tag = 106
+ Action = actRecibosCliente
+ end
+ end
+ end
+ object SmallImages: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000CE4944415478DA
+ 63FCFFFF3F03258071E00D58B6E514D92644F99831820D50F76666987C3219AB
+ A2DF7FFF327CFFF387E1DBEFDF0C1F7FFC00B3E7FA6F6548F198C3707EE77484
+ 0120003364AED9390C836CB6C9C13583008A0154090372BD81620039DE801BB0
+ 4B240DAE10A699F9141344E02A03C3DFC47F60A6E65A5186EF4097805C23B72C
+ 810803AE42C4600628AC10006B06618DD5A90C8C20419021C8068024975B5FC6
+ F002B26690570CD767220C8005225812AA08A6109BD8D9F4B390308019D03D79
+ 3E79D138E0990900FC7AC6454D6D985F0000000049454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end>
+ PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
+ Left = 308
+ Top = 16
+ Bitmap = {}
+ end
+ object ExtraImages: TPngImageList
+ Height = 28
+ Width = 28
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
+ 940000000970485973000017120000171201679FD252000002364944415478DA
+ EDD6CF4B14611807F0EF685094522674298C540C2D08199AED1C1D0A2DA488D5
+ 090429F07FF0D021C14BC70E91878404C14B102CD882122D25B830EC6604E6A6
+ 1BF823977564FD518E3A33DBF3BED36C3BEE4CE8E2CE251F7879DF79DFD9F7C3
+ 33EF33C30AD96C167E8670081E3838148AFA26CAAD92C0C18E96AB456DA01B59
+ 188649BDC97B3E36F3C6BCA77B682ED8FD18B1F0F3BF60D744F39E21838E61DB
+ 30B0ADEB56BFBB1160AF8F48D348CE2DA0A7AFBF101C08C41CF059B5054F6EF5
+ 7AC2266D6CF28C0CB4BEBE8ED58AEF1C9B6C5B42ED701547C35202738B3FBC41
+ 166CEC86C58518C40911F84A17170125A0A0516BE2206B774337B1703481A97B
+ 697EFF99C1131895BE61319572827E150D8B1CE857E138403F0AA7002C75E1B8
+ 82A52C1CCF0CF3B1F2681990A4C71834AD31614AA702F125C19780F5CB1BA87C
+ 5301D401E9FA6504C3B731268FA3FAD5719E6124308BD472DA1D747B94E5C384
+ 980476103858666143221499FA7E1199F6559C0A9DE4F72EDD48411E6D435C8F
+ E7CEF3C3B524D415751F20CB2A41E0833F197EA1C963D434F00CD58615548F9C
+ E619CE9F9B47E7FBFB886E2939F0A394C4DA7AE6DFA05BC1B033FA7C64D23AC3
+ 4F3471C53AC31AF53C5FD377760A30161171063F7FAD59209BF0FABCB11F5CC8
+ DCE1A85D14ACD955997FAD6D6EE2E1B89CC3B61EE9105EF0EDF1AE39014DDB70
+ 07ED707DB7F6D1F2C3132CE6EBA13BE6768D69DD0E57F06D245ED4E76DAFE100
+ 9F3E1B282966C77FF027EA103CE8F80DA807BCA3E9817F640000000049454E44
+ AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end>
+ Left = 232
+ Top = 80
+ Bitmap = {}
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.pas
new file mode 100644
index 00000000..a1e7097d
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Plugin/uPluginRecibosCliente.pas
@@ -0,0 +1,74 @@
+unit uPluginRecibosCliente;
+
+interface
+
+uses
+ uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
+ ImgList, Controls, PngImageList;
+
+type
+ IMCRecibosCliente = interface(IInterface)
+ ['{9078C6E6-6733-4CD8-BCBF-DEC48A322CF7}']
+ end;
+
+ TPluginRecibosCliente = class(TModuleController, IMCRecibosCliente)
+ actRecibosCliente: TAction;
+ ExtraImages: TPngImageList;
+ LargeImages: TPngImageList;
+ MainMenu: TMainMenu;
+ ModuleActionList: TActionList;
+ SmallImages: TPngImageList;
+ Compras1: TMenuItem;
+ RecibosdeCliente1: TMenuItem;
+ procedure actRecibosClienteExecute(Sender: TObject);
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+ Forms, Dialogs, SysUtils,
+ uRecibosClienteController, uBizRecibosCliente, uRecibosClienteViewRegister;
+
+function GetModule : TModuleController;
+begin
+ Result := TPluginRecibosCliente.Create(NIL);
+end;
+
+exports
+ GetModule name GET_MODULE_FUNC;
+
+procedure TPluginRecibosCliente.actRecibosClienteExecute(Sender: TObject);
+var
+ ARecibosClienteController : IRecibosClienteController;
+ ARecibosCliente : IBizRecibosCliente;
+
+begin
+ ARecibosClienteController := TRecibosClienteController.Create;
+ ARecibosCliente := (ARecibosClienteController.BuscarTodos as IBizRecibosCliente);
+ ARecibosClienteController.VerTodos(ARecibosCliente);
+end;
+
+constructor TPluginRecibosCliente.Create(AOwner: TComponent);
+begin
+ inherited;
+ uRecibosClienteViewRegister.RegisterViews;
+end;
+
+destructor TPluginRecibosCliente.Destroy;
+begin
+ uRecibosClienteViewRegister.UnregisterViews;
+ inherited;
+end;
+
+initialization
+ RegisterModuleClass(TPluginRecibosCliente);
+
+finalization
+ UnRegisterModuleClass(TPluginRecibosCliente);
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
new file mode 100644
index 00000000..32efb038
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
@@ -0,0 +1,124 @@
+
+
+ {9e374daa-b130-47db-a2de-c184f072bea0}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Default.Personality
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
new file mode 100644
index 00000000..0e6b65c9
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
@@ -0,0 +1,904 @@
+object RptRecibosCliente: TRptRecibosCliente
+ OldCreateOrder = True
+ OnCreate = DataModuleCreate
+ Height = 405
+ Width = 447
+ object DADataCabecera: TDADataSource
+ DataTable = tbl_Cabecera
+ Left = 264
+ Top = 72
+ end
+ object tbl_Cabecera: TDACDSDataTable
+ RemoteUpdatesOptions = []
+ Fields = <>
+ Params = <>
+ MasterMappingMode = mmDataRequest
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ SchemaCall.Params = <>
+ DataRequestCall.Params = <>
+ DataUpdateCall.Params = <>
+ ScriptCall.Params = <>
+ ReadOnly = False
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ IndexDefs = <>
+ Left = 264
+ Top = 128
+ end
+ object DABINAdapter: TDABINAdapter
+ Left = 48
+ Top = 80
+ end
+ object frxRichObject1: TfrxRichObject
+ Left = 48
+ Top = 296
+ end
+ object frxBarCodeObject1: TfrxBarCodeObject
+ Left = 144
+ Top = 296
+ end
+ object frxOLEObject1: TfrxOLEObject
+ Left = 48
+ Top = 344
+ end
+ object frxCrossObject1: TfrxCrossObject
+ Left = 144
+ Top = 344
+ end
+ object frxCheckBoxObject1: TfrxCheckBoxObject
+ Left = 256
+ Top = 296
+ end
+ object frxGradientObject1: TfrxGradientObject
+ Left = 360
+ Top = 296
+ end
+ object frxChartObject1: TfrxChartObject
+ Left = 256
+ Top = 344
+ end
+ object schReport: TDASchema
+ ConnectionManager = dmServer.ConnectionManager
+ DataDictionary = DataDictionary
+ Datasets = <
+ item
+ Params = <
+ item
+ Name = 'ID_RECIBO'
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ SQL =
+ 'SELECT'#10' V_RECIBOS_CLIENTE.REFERENCIA, V_RECIBOS_CLIENTE.DESCR' +
+ 'IPCION, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'W' +
+ 'HERE V_RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO = :ID_RECIBO'
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end>
+ end>
+ Name = 'Informe_Compensados'
+ Fields = <
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ BusinessRulesClient.ScriptLanguage = rslPascalScript
+ BusinessRulesServer.ScriptLanguage = rslPascalScript
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'REMESAS_CLIENTE'
+ SQL =
+ 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_RECIBO' +
+ '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' +
+ ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' +
+ ','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' +
+ 'URA,'#10' V_RECIBOS_CLIENTE.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFE' +
+ 'RENCIA_REMESA,'#10' V_RECIBOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBO' +
+ 'S_CLIENTE.FECHA_VENCIMIENTO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10 +
+ ' V_RECIBOS_CLIENTE.OBSERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPOR' +
+ 'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' +
+ 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' +
+ 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' +
+ 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' +
+ 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_REC' +
+ 'IBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,' +
+ #10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as ' +
+ 'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' +
+ 'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' +
+ 'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' +
+ 'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' +
+ 'SAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS' +
+ '.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE' +
+ #10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.' +
+ 'ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'ID_REMESA'
+ TableField = 'ID_REMESA'
+ end
+ item
+ DatasetField = 'REFERENCIA_REMESA'
+ TableField = 'REFERENCIA_REMESA'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'OBSERVACIONES'
+ TableField = 'OBSERVACIONES'
+ end
+ item
+ DatasetField = 'IMPORTE'
+ TableField = 'IMPORTE'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'FORMA_PAGO_FACTURA'
+ TableField = 'FORMA_PAGO_FACTURA'
+ end
+ item
+ DatasetField = 'IMPORTE_FACTURA'
+ TableField = 'IMPORTE_FACTURA'
+ end
+ item
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NIF_CIF_CLIENTE'
+ TableField = 'NIF_CIF_CLIENTE'
+ end
+ item
+ DatasetField = 'ENTIDAD_CLIENTE'
+ TableField = 'ENTIDAD_CLIENTE'
+ end
+ item
+ DatasetField = 'SUCURSAL_CLIENTE'
+ TableField = 'SUCURSAL_CLIENTE'
+ end
+ item
+ DatasetField = 'DC_CLIENTE'
+ TableField = 'DC_CLIENTE'
+ end
+ item
+ DatasetField = 'CUENTA_CLIENTE'
+ TableField = 'CUENTA_CLIENTE'
+ end
+ item
+ DatasetField = 'NIF_CIF_EMPRESA'
+ TableField = 'NIF_CIF_EMPRESA'
+ end
+ item
+ DatasetField = 'RAZON_SOCIAL'
+ TableField = 'RAZON_SOCIAL'
+ end
+ item
+ DatasetField = 'CALLE_EMPRESA'
+ TableField = 'CALLE_EMPRESA'
+ end
+ item
+ DatasetField = 'POBLACION_EMPRESA'
+ TableField = 'POBLACION_EMPRESA'
+ end
+ item
+ DatasetField = 'PROVINCIA_EMPRESA'
+ TableField = 'PROVINCIA_EMPRESA'
+ end
+ item
+ DatasetField = 'CODIGO_POSTAL_EMPRESA'
+ TableField = 'CODIGO_POSTAL_EMPRESA'
+ end
+ item
+ DatasetField = 'TELEFONO_1'
+ TableField = 'TELEFONO_1'
+ end
+ item
+ DatasetField = 'FAX'
+ TableField = 'FAX'
+ end
+ item
+ DatasetField = 'MOVIL_1'
+ TableField = 'MOVIL_1'
+ end
+ item
+ DatasetField = 'EMAIL_1'
+ TableField = 'EMAIL_1'
+ end
+ item
+ DatasetField = 'PAGINA_WEB'
+ TableField = 'PAGINA_WEB'
+ end
+ item
+ DatasetField = 'REGISTRO_MERCANTIL'
+ TableField = 'REGISTRO_MERCANTIL'
+ end
+ item
+ DatasetField = 'LOGOTIPO'
+ TableField = 'LOGOTIPO'
+ end
+ item
+ DatasetField = 'OTROS_GASTOS'
+ TableField = 'OTROS_GASTOS'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'FECHA_EMISION'
+ TableField = 'FECHA_EMISION'
+ end
+ item
+ DatasetField = 'ID_RECIBO_COMPENSADO'
+ TableField = 'ID_RECIBO_COMPENSADO'
+ end
+ item
+ DatasetField = 'REFERENCIA_REC_COMPENSADO'
+ TableField = 'REFERENCIA_REC_COMPENSADO'
+ end>
+ end>
+ Name = 'Informe_Cabecera'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'NIF_CIF_EMPRESA'
+ DataType = datString
+ Size = 15
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'RAZON_SOCIAL'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'CALLE_EMPRESA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POBLACION_EMPRESA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'PROVINCIA_EMPRESA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'CODIGO_POSTAL_EMPRESA'
+ DataType = datString
+ Size = 10
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'TELEFONO_1'
+ DataType = datString
+ Size = 25
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FAX'
+ DataType = datString
+ Size = 25
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'MOVIL_1'
+ DataType = datString
+ Size = 25
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'EMAIL_1'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'PAGINA_WEB'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REGISTRO_MERCANTIL'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'LOGOTIPO'
+ DataType = datBlob
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ BusinessRulesClient.ScriptLanguage = rslPascalScript
+ BusinessRulesServer.ScriptLanguage = rslPascalScript
+ end>
+ Commands = <>
+ RelationShips = <>
+ UpdateRules = <>
+ Left = 48
+ Top = 16
+ end
+ object DataDictionary: TDADataDictionary
+ Fields = <>
+ Left = 46
+ Top = 158
+ end
+ object frxReport: TfrxReport
+ Version = '3.23.7'
+ DotMatrixReport = False
+ EngineOptions.DoublePass = True
+ IniFile = '\Software\Fast Reports'
+ PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
+ PreviewOptions.OutlineWidth = 180
+ PreviewOptions.Zoom = 1.000000000000000000
+ PrintOptions.Printer = 'Default'
+ ReportOptions.CreateDate = 37871.995398692100000000
+ ReportOptions.Description.Strings = (
+ 'Demonstrates how to create simple list report.')
+ ReportOptions.LastChange = 39276.413526655100000000
+ ReportOptions.VersionBuild = '1'
+ ReportOptions.VersionMajor = '12'
+ ReportOptions.VersionMinor = '13'
+ ReportOptions.VersionRelease = '1'
+ ScriptLanguage = 'PascalScript'
+ ScriptText.Strings = (
+ 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+ ' Cadena: String;'
+ 'begin'
+ ' DatosEmpresa.Lines.Clear;'
+ ' DatosEmpresa.Lines.Add();'
+ ' DatosEmpresa.Lines.Add();'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := '#39'TLF: '#39' + ;'
+ ' if ( <> '#39#39') then'
+ ' Cadena := Cadena + '#39' FAX: '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := ;'
+ ' if ( <> '#39#39') then'
+
+ ' Cadena := Cadena + '#39' '#39' + ;'
+ ' if ( <> '#39#39') then'
+
+ ' Cadena := Cadena + '#39' - '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ 'end;'
+ ''
+ 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if ( <> '#39#39') then'
+ ' Memo54.Text := '#39'Recibos compensados'#39';'
+ 'end;'
+ ''
+ 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if ( = '#39#39') then'
+ ' EtiCompensado.Visible := False;'
+ 'end;'
+ ''
+ 'begin'
+ ''
+ 'end.')
+ ShowProgress = False
+ StoreInDFM = False
+ Left = 169
+ Top = 16
+ Datasets = <
+ item
+ DataSet = frxDBCabecera
+ DataSetName = 'frxDBCabecera'
+ end
+ item
+ DataSet = frxDBCompensados
+ DataSetName = 'frxDBCompensados'
+ end>
+ Variables = <>
+ Style = <>
+ end
+ object frxDBCabecera: TfrxDBDataset
+ UserName = 'frxDBCabecera'
+ CloseDataSource = False
+ DataSource = DADataCabecera
+ Left = 264
+ Top = 16
+ end
+ object DADataCompensados: TDADataSource
+ DataTable = tbl_Compensados
+ Left = 360
+ Top = 72
+ end
+ object frxDBCompensados: TfrxDBDataset
+ UserName = 'frxDBCompensados'
+ CloseDataSource = True
+ DataSource = DADataCompensados
+ Left = 360
+ Top = 16
+ end
+ object tbl_Compensados: TDACDSDataTable
+ RemoteUpdatesOptions = []
+ Fields = <>
+ Params = <>
+ MasterMappingMode = mmDataRequest
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ SchemaCall.Params = <>
+ DataRequestCall.Params = <>
+ DataUpdateCall.Params = <>
+ ScriptCall.Params = <>
+ ReadOnly = False
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ IndexDefs = <>
+ Left = 360
+ Top = 128
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
new file mode 100644
index 00000000..de45331b
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
@@ -0,0 +1,118 @@
+unit uRptRecibosCliente_Server;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
+ uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
+ frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
+ uDAInterfaces;
+
+type
+ TRptRecibosCliente = class(TDataModule)
+ DADataCabecera: TDADataSource;
+ tbl_Cabecera: TDACDSDataTable;
+ DABINAdapter: TDABINAdapter;
+ frxRichObject1: TfrxRichObject;
+ frxBarCodeObject1: TfrxBarCodeObject;
+ frxOLEObject1: TfrxOLEObject;
+ frxCrossObject1: TfrxCrossObject;
+ frxCheckBoxObject1: TfrxCheckBoxObject;
+ frxGradientObject1: TfrxGradientObject;
+ frxChartObject1: TfrxChartObject;
+ frxDBCabecera: TfrxDBDataset;
+ DADataCompensados: TDADataSource;
+ frxDBCompensados: TfrxDBDataset;
+ tbl_Compensados: TDACDSDataTable;
+ schReport: TDASchema;
+ DataDictionary: TDADataDictionary;
+ frxReport: TfrxReport;
+ procedure DataModuleCreate(Sender: TObject);
+ private
+ FConnection: IDAConnection;
+ procedure GenerarRecibo(const ID : Integer); overload;
+ public
+ function GenerarRecibo(const ID : String): Binary; overload;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+ uDataModuleServer;
+
+const
+ rptInforme = 'InfReciboCliente.fr3';
+
+ { Dataset names for schReport }
+ ds_InformeCabecera = 'Informe_Cabecera';
+ ds_InformeCompensados = 'Informe_Compensados';
+
+{ TRptReciboCliente }
+
+
+procedure TRptRecibosCliente.DataModuleCreate(Sender: TObject);
+begin
+ schReport.ConnectionManager := dmServer.ConnectionManager;
+ FConnection := dmServer.DarNuevaConexion;
+ frxReport.EngineOptions.NewSilentMode := simReThrow;
+end;
+
+function TRptRecibosCliente.GenerarRecibo(const ID: String): Binary;
+var
+ ID_Recibos: TStringList;
+ i: Integer;
+
+begin
+ Result := Binary.Create;
+ FConnection.BeginTransaction;
+
+ try
+ ID_Recibos := TStringList.Create;
+ ID_Recibos.CommaText := ID;
+
+ //Vamos generando todos y cada uno de los albaranes recibidos
+ for i := 0 to ID_Recibos.Count - 1 do
+ GenerarRecibo(StrToInt(ID_Recibos.Strings[i]));
+
+ frxReport.PreviewPages.SaveToStream(Result);
+
+ finally
+ FConnection.RollbackTransaction;
+ end;
+end;
+
+procedure TRptRecibosCliente.GenerarRecibo(const ID: Integer);
+var
+ dsMaster: IDADataset;
+ dsCompensados : IDADataset;
+ AStream: TMemoryStream;
+
+begin
+ AStream := TMemoryStream.Create;
+
+ try
+ dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
+ dsCompensados := schReport.NewDataset(FConnection, ds_InformeCompensados, ['ID_RECIBO'], [ID], False);
+
+ AStream.Clear;
+ DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
+ DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
+
+ AStream.Clear;
+ DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
+ DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
+
+ frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
+ frxReport.PrepareReport(False);
+
+ finally
+ AStream.Free;
+ dsMaster := Nil;
+ dsCompensados := Nil;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
new file mode 100644
index 00000000..1e37eecb
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
@@ -0,0 +1,1782 @@
+object srvRecibosCliente: TsrvRecibosCliente
+ OldCreateOrder = True
+ OnCreate = DARemoteServiceCreate
+ RequiresSession = True
+ SessionManager = dmServer.SessionManager
+ ConnectionName = 'IBX'
+ ServiceSchema = schRecibosCliente
+ ServiceDataStreamer = Bin2DataStreamer
+ ExportedDataTables = <>
+ BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+ Height = 247
+ Width = 347
+ object schRecibosCliente: TDASchema
+ ConnectionManager = dmServer.ConnectionManager
+ DataDictionary = DADataDictionary
+ Datasets = <
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'V_RECIBOS_CLIENTE'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'OBSERVACIONES'
+ TableField = 'OBSERVACIONES'
+ end
+ item
+ DatasetField = 'IMPORTE'
+ TableField = 'IMPORTE'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'FORMA_PAGO_FACTURA'
+ TableField = 'FORMA_PAGO_FACTURA'
+ end
+ item
+ DatasetField = 'IMPORTE_FACTURA'
+ TableField = 'IMPORTE_FACTURA'
+ end
+ item
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NIF_CIF_CLIENTE'
+ TableField = 'NIF_CIF_CLIENTE'
+ end
+ item
+ DatasetField = 'ENTIDAD_CLIENTE'
+ TableField = 'ENTIDAD_CLIENTE'
+ end
+ item
+ DatasetField = 'SUCURSAL_CLIENTE'
+ TableField = 'SUCURSAL_CLIENTE'
+ end
+ item
+ DatasetField = 'DC_CLIENTE'
+ TableField = 'DC_CLIENTE'
+ end
+ item
+ DatasetField = 'CUENTA_CLIENTE'
+ TableField = 'CUENTA_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ 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_REMESA'
+ TableField = 'ID_REMESA'
+ end
+ item
+ DatasetField = 'REFERENCIA_REMESA'
+ TableField = 'REFERENCIA_REMESA'
+ end
+ item
+ DatasetField = 'OTROS_GASTOS'
+ TableField = 'OTROS_GASTOS'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'FECHA_EMISION'
+ TableField = 'FECHA_EMISION'
+ end
+ item
+ DatasetField = 'ID_RECIBO_COMPENSADO'
+ TableField = 'ID_RECIBO_COMPENSADO'
+ end
+ item
+ DatasetField = 'REFERENCIA_REC_COMPENSADO'
+ TableField = 'REFERENCIA_REC_COMPENSADO'
+ end>
+ end>
+ Name = 'RecibosCliente'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID'
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ end
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_REMESA'
+ end
+ item
+ Name = 'REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_DESCRIPCION'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
+ end
+ item
+ Name = 'SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
+ end
+ item
+ Name = 'DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'RecibosCliente_USUARIO'
+ end>
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'V_RECIBOS_CLIENTE'
+ SQL =
+ 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' +
+ 'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' +
+ ','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' +
+ 'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' +
+ 'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' +
+ 'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' +
+ 'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' +
+ '_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' +
+ ' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
+ ' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
+ '_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID'
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'OBSERVACIONES'
+ TableField = 'OBSERVACIONES'
+ end
+ item
+ DatasetField = 'IMPORTE'
+ TableField = 'IMPORTE'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'FORMA_PAGO_FACTURA'
+ TableField = 'FORMA_PAGO_FACTURA'
+ end
+ item
+ DatasetField = 'IMPORTE_FACTURA'
+ TableField = 'IMPORTE_FACTURA'
+ end
+ item
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NIF_CIF_CLIENTE'
+ TableField = 'NIF_CIF_CLIENTE'
+ end
+ item
+ DatasetField = 'ENTIDAD_CLIENTE'
+ TableField = 'ENTIDAD_CLIENTE'
+ end
+ item
+ DatasetField = 'SUCURSAL_CLIENTE'
+ TableField = 'SUCURSAL_CLIENTE'
+ end
+ item
+ DatasetField = 'DC_CLIENTE'
+ TableField = 'DC_CLIENTE'
+ end
+ item
+ DatasetField = 'CUENTA_CLIENTE'
+ TableField = 'CUENTA_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ 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_REMESA'
+ TableField = 'ID_REMESA'
+ end
+ item
+ DatasetField = 'REFERENCIA_REMESA'
+ TableField = 'REFERENCIA_REMESA'
+ end
+ item
+ DatasetField = 'OTROS_GASTOS'
+ TableField = 'OTROS_GASTOS'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'FECHA_EMISION'
+ TableField = 'FECHA_EMISION'
+ end
+ item
+ DatasetField = 'ID_RECIBO_COMPENSADO'
+ TableField = 'ID_RECIBO_COMPENSADO'
+ end
+ item
+ DatasetField = 'REFERENCIA_REC_COMPENSADO'
+ TableField = 'REFERENCIA_REC_COMPENSADO'
+ end>
+ end>
+ Name = 'RecibosCliente_Refresh'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_Refresh_ID'
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_REC_COMPENSADO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ DictionaryEntry = 'RecibosCliente_Refresh_SITUACION'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_Refresh_ID_FACTURA'
+ end
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_Refresh_ID_REMESA'
+ end
+ item
+ Name = 'REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_DESCRIPCION'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_OBSERVACIONES'
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE'
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_Refresh_OTROS_GASTOS'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_Refresh_FECHA_FACTURA'
+ end
+ item
+ Name = 'FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_Refresh_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
+ end
+ item
+ Name = 'SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
+ end
+ item
+ Name = 'DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_Refresh_DC_CLIENTE'
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_Refresh_ID_EMPRESA'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_Refresh_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'RecibosCliente_Refresh_USUARIO'
+ end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PAGOS_CLIENTE'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_RECIBO'
+ TableField = 'ID_RECIBO'
+ end
+ item
+ DatasetField = 'TIPO'
+ TableField = 'TIPO'
+ end
+ item
+ DatasetField = 'FECHA_PAGO'
+ TableField = 'FECHA_PAGO'
+ end
+ item
+ DatasetField = 'TITULAR'
+ TableField = 'TITULAR'
+ end
+ item
+ DatasetField = 'ENTIDAD'
+ TableField = 'ENTIDAD'
+ end
+ item
+ DatasetField = 'SUCURSAL'
+ TableField = 'SUCURSAL'
+ end
+ item
+ DatasetField = 'DC'
+ TableField = 'DC'
+ end
+ item
+ DatasetField = 'CUENTA'
+ TableField = 'CUENTA'
+ end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
+ item
+ DatasetField = 'USUARIO'
+ TableField = 'USUARIO'
+ end>
+ end>
+ Name = 'PagosCliente'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'PagosCliente_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_RECIBO'
+ DataType = datInteger
+ DictionaryEntry = 'PagosCliente_ID_RECIBO'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'PagosCliente_TIPO'
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ DictionaryEntry = 'PagosCliente_FECHA_PAGO'
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'PagosCliente_TITULAR'
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'PagosCliente_ENTIDAD'
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'PagosCliente_SUCURSAL'
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'PagosCliente_DC'
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'PagosCliente_CUENTA'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'PagosCliente_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'PagosCliente_USUARIO'
+ end>
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'V_RECIBOS_CLIENTE'
+ SQL =
+ 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' +
+ ' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' +
+ 'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' +
+ 'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
+ 'ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF_CIF_CLIENTE,'#10' ' +
+ ' ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' +
+ '= :ID'
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'IMPORTE'
+ TableField = 'IMPORTE'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'IMPORTE_FACTURA'
+ TableField = 'IMPORTE_FACTURA'
+ end
+ item
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NIF_CIF_CLIENTE'
+ TableField = 'NIF_CIF_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'OTROS_GASTOS'
+ TableField = 'OTROS_GASTOS'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'FECHA_EMISION'
+ TableField = 'FECHA_EMISION'
+ end
+ item
+ DatasetField = 'ID_RECIBO_COMPENSADO'
+ TableField = 'ID_RECIBO_COMPENSADO'
+ end
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end>
+ end>
+ Name = 'RecibosCompensadosCli'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_REFERENCIA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 9
+ DictionaryEntry = 'RecibosCliente_SITUACION'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE'
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+ end
+ item
+ Name = 'IMPORTE_FACTURA'
+ DataType = datCurrency
+ DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+ end>
+ end>
+ JoinDataTables = <>
+ UnionDataTables = <>
+ Commands = <
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datFloat
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datFloat
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL =
+ 'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_FACTURA, REFERENCIA, F' +
+ 'ECHA_EMISION, FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10' ' +
+ ' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUES'#10' (:ID, :ID_FACTURA,' +
+ ' :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
+ ':OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Insert_RecibosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL = 'DELETE '#10' FROM'#10' RECIBOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_RecibosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID_REMESA'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_EMISION'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'IMPORTE'
+ DataType = datFloat
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OTROS_GASTOS'
+ DataType = datFloat
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL =
+ 'UPDATE Recibos_CLIENTE'#10' SET '#10' ID_REMESA = :ID_REMESA,'#10' FE' +
+ 'CHA_EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VEN' +
+ 'CIMIENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :O' +
+ 'BSERVACIONES,'#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_' +
+ 'GASTOS,'#10' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Update_RecibosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ID_RECIBO'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PAGOS_CLIENTE'
+ SQL =
+ 'INSERT'#10' INTO PAGOS_CLIENTE'#10' (ID, ID_RECIBO, TIPO, FECHA_PAGO' +
+ ', TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO)'#10' VALUE' +
+ 'S'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD, ' +
+ #10' :SUCURSAL, :DC, :CUENTA, :USUARIO)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Insert_PagosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PAGOS_CLIENTE'
+ SQL = 'DELETE '#10' FROM'#10' PAGOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_PagosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ID_RECIBO'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PAGOS_CLIENTE'
+ SQL =
+ 'UPDATE PAGOS_CLIENTE'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID_R' +
+ 'ECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' TI' +
+ 'TULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SUCU' +
+ 'RSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' (ID = :OL' +
+ 'D_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Update_PagosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL =
+ 'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
+ 'PENSADO'#10'WHERE (ID = :ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Insert_RecibosCompensadosCli'
+ end
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL =
+ 'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = Null'#10'WHERE (ID' +
+ ' = :OLD_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_RecibosCompensadosCli'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID_RECIBO_COMPENSADO'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'RECIBOS_CLIENTE'
+ SQL =
+ 'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
+ 'PENSADO'#10'WHERE (ID = :OLD_ID)'
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Update_RecibosCompensadosCli'
+ end>
+ RelationShips = <
+ item
+ Name = 'FK_PagosCliente'
+ MasterDatasetName = 'RecibosCliente'
+ MasterFields = 'ID'
+ DetailDatasetName = 'PagosCliente'
+ DetailFields = 'ID_RECIBO'
+ RelationshipType = rtForeignKey
+ end>
+ UpdateRules = <
+ item
+ Name = 'Insert RecibosCliente'
+ DoUpdate = False
+ DoDelete = False
+ DatasetName = 'RecibosCliente'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Insert PagosCliente'
+ DoUpdate = False
+ DoDelete = False
+ DatasetName = 'PagosCliente'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Update RecibosCliente'
+ DoInsert = False
+ DoDelete = False
+ DatasetName = 'RecibosCliente'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Update PagosCliente'
+ DoInsert = False
+ DoDelete = False
+ DatasetName = 'PagosCliente'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Delete PagosCliente'
+ DoUpdate = False
+ DoInsert = False
+ DatasetName = 'PagosCliente'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Delete RecibosCliente'
+ DoUpdate = False
+ DoInsert = False
+ DatasetName = 'RecibosCliente'
+ FailureBehavior = fbRaiseException
+ end>
+ Version = 0
+ Left = 48
+ Top = 24
+ end
+ object bpRecibosCliente: TDABusinessProcessor
+ Schema = schRecibosCliente
+ InsertCommandName = 'Insert_RecibosCliente'
+ DeleteCommandName = 'Delete_RecibosCliente'
+ UpdateCommandName = 'Update_RecibosCliente'
+ ReferencedDataset = 'RecibosCliente'
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 192
+ Top = 24
+ end
+ object DADataDictionary: TDADataDictionary
+ Fields = <
+ item
+ Name = 'RecibosCliente_ID'
+ DataType = datInteger
+ DisplayLabel = 'ID'
+ end
+ item
+ Name = 'RecibosCliente_REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'REFERENCIA'
+ end
+ item
+ Name = 'RecibosCliente_SITUACION'
+ DataType = datString
+ Size = 9
+ DisplayLabel = 'SITUACION'
+ end
+ item
+ Name = 'RecibosCliente_ID_FACTURA'
+ DataType = datInteger
+ DisplayLabel = 'ID_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'RecibosCliente_DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'DESCRIPCION'
+ end
+ item
+ Name = 'RecibosCliente_OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'OBSERVACIONES'
+ end
+ item
+ Name = 'RecibosCliente_IMPORTE'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_FECHA_FACTURA'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_IMPORTE_FACTURA'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE_FACTURA'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'ENTIDAD_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'SUCURSAL_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'DC_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'CUENTA_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_ID_EMPRESA'
+ DataType = datInteger
+ DisplayLabel = 'ID_EMPRESA'
+ end
+ item
+ Name = 'RecibosCliente_FECHA_ALTA'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_ALTA'
+ end
+ item
+ Name = 'RecibosCliente_FECHA_MODIFICACION'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_MODIFICACION'
+ end
+ item
+ Name = 'RecibosCliente_USUARIO'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'USUARIO'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ID'
+ DataType = datInteger
+ DisplayLabel = 'ID'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'REFERENCIA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_SITUACION'
+ DataType = datString
+ Size = 9
+ DisplayLabel = 'SITUACION'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ID_FACTURA'
+ DataType = datInteger
+ DisplayLabel = 'ID_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_VENCIMIENTO'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'DESCRIPCION'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_OBSERVACIONES'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'OBSERVACIONES'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_IMPORTE'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_Refresh_FECHA_FACTURA'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'FORMA_PAGO_FACTURA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE_FACTURA'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'NIF_CIF_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'ENTIDAD_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'SUCURSAL_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_DC_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'DC_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'CUENTA_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ID_EMPRESA'
+ DataType = datInteger
+ DisplayLabel = 'ID_EMPRESA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_FECHA_ALTA'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_ALTA'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
+ DataType = datDateTime
+ DisplayLabel = 'FECHA_MODIFICACION'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_USUARIO'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'USUARIO'
+ end
+ item
+ Name = 'PagosCliente_ID'
+ DataType = datInteger
+ DisplayLabel = 'ID'
+ end
+ item
+ Name = 'PagosCliente_ID_RECIBO'
+ DataType = datInteger
+ end
+ item
+ Name = 'PagosCliente_TIPO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'PagosCliente_FECHA_PAGO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'PagosCliente_TITULAR'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'PagosCliente_ENTIDAD'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'PagosCliente_SUCURSAL'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'PagosCliente_DC'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'PagosCliente_CUENTA'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'PagosCliente_FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'PagosCliente_FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'PagosCliente_USUARIO'
+ DataType = datString
+ Size = 20
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ID_REMESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'RecibosCliente_ID_REMESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'RecibosCliente_REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'RecibosCliente_OTROS_GASTOS'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_Refresh_OTROS_GASTOS'
+ DataType = datCurrency
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE_TOTAL'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_ID_CLIENTE'
+ DataType = datInteger
+ DisplayLabel = 'ID_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'IMPORTE_TOTAL'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'RecibosCliente_Refresh_ID_CLIENTE'
+ DataType = datInteger
+ DisplayLabel = 'ID_CLIENTE'
+ end
+ item
+ Name = 'RecibosCliente_FECHA_EMISION'
+ DataType = datDateTime
+ end>
+ Left = 48
+ Top = 152
+ end
+ object bpPagosCliente: TDABusinessProcessor
+ Schema = schRecibosCliente
+ InsertCommandName = 'Insert_PagosCliente'
+ DeleteCommandName = 'Delete_PagosCliente'
+ UpdateCommandName = 'Update_PagosCliente'
+ ReferencedDataset = 'PagosCliente'
+ ProcessorOptions = [poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 192
+ Top = 88
+ end
+ object bpRecibosCompensados: TDABusinessProcessor
+ Schema = schRecibosCliente
+ InsertCommandName = 'Insert_RecibosCompensadosCli'
+ DeleteCommandName = 'Delete_RecibosCompensadosCli'
+ UpdateCommandName = 'Update_RecibosCompensadosCli'
+ ReferencedDataset = 'RecibosCompensadosCli'
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 192
+ Top = 152
+ end
+ object Bin2DataStreamer: TDABin2DataStreamer
+ Left = 48
+ Top = 88
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
new file mode 100644
index 00000000..c3460645
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
@@ -0,0 +1,104 @@
+unit srvRecibosCliente_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading }
+{ the RODL file associated with this project . }
+{ }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+ {vcl:} Classes, SysUtils,
+ {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+ {Ancestor Implementation:} DataAbstractService_Impl,
+ {Used RODLs:} DataAbstract4_Intf,
+ {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+ uDAInterfaces, uDAScriptingProvider,
+ uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+
+{
+ uDACDSDataTable, uDAInterfaces, DB,
+ frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
+ frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
+}
+
+type
+ { TsrvRecibosProveedor }
+ TsrvRecibosCliente = class(TDataAbstractService, IsrvRecibosCliente)
+ bpRecibosCliente: TDABusinessProcessor;
+ bpPagosCliente: TDABusinessProcessor;
+ bpRecibosCompensados: TDABusinessProcessor;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ schRecibosCliente: TDASchema;
+ DADataDictionary: TDADataDictionary;
+ procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
+ const IncludeSchema: Boolean; const MaxRecords: Integer);
+ procedure DARemoteServiceCreate(Sender: TObject);
+ procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
+ private
+ protected
+ { IsrvRecibosProveedor methods }
+ function GenerateReport(const ID: String): Binary;
+ end;
+
+implementation
+
+{$R *.dfm}
+uses
+ Dialogs,
+ {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
+ schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils;
+// uRptRecibosCliente_Server;
+ //, uBizRecibosClienteServer;
+
+procedure Create_srvRecibosCliente(out anInstance : IUnknown);
+begin
+ anInstance := TsrvRecibosCliente.Create(NIL);
+end;
+
+{ srvRecibosProveedor }
+
+procedure TsrvRecibosCliente.DARemoteServiceBeforeGetDatasetData(
+ const Dataset: IDADataset; const IncludeSchema: Boolean;
+ const MaxRecords: Integer);
+begin
+ if DataSet.Name = nme_RecibosCliente then
+ begin
+ { Aquí se asegura que el usuario sólo accede a Recibos
+ de las empresas a las que tiene permiso para acceder
+ filtrando DataSet por ID_EMPRESA. }
+ FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
+ end;
+end;
+
+procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
+begin
+ SessionManager := dmServer.SessionManager;
+end;
+
+procedure TsrvRecibosCliente.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
+begin
+ ConnectionName := dmServer.ConnectionName;
+end;
+
+function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
+//var
+// AReportGenerator : TRptRecibosCliente;
+begin
+{ AReportGenerator := TRptRecibosCliente.Create(nil);
+ try
+ Result := AReportGenerator.GenerarRecibo(ID);
+ finally
+ FreeAndNIL(AReportGenerator);
+ end;
+}
+end;
+
+initialization
+ TROClassFactory.Create('srvRecibosCliente', Create_srvRecibosCliente, TsrvRecibosCliente_Invoker);
+
+finalization
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas.bak b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas.bak
new file mode 100644
index 00000000..ad4dce62
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas.bak
@@ -0,0 +1,106 @@
+unit srvRecibosCliente_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading }
+{ the RODL file associated with this project . }
+{ }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+ {vcl:} Classes, SysUtils,
+ {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+ {Ancestor Implementation:} DARemoteService_Impl,
+ {Used RODLs:} DataAbstract_Intf,
+ {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
+ uDAClasses, uDADataTable, uDABINAdapter,
+
+ uDACDSDataTable, uDAInterfaces, DB,
+ frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
+ frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
+
+type
+ { TsrvRecibosProveedor }
+ TsrvRecibosCliente = class(TDARemoteService, IsrvRecibosCliente)
+ DABINAdapter: TDABINAdapter;
+ bpRecibosCliente: TDABusinessProcessor;
+ bpPagosCliente: TDABusinessProcessor;
+ bpRecibosCompensados: TDABusinessProcessor;
+ schRecibosCliente: TDASchema;
+ DADataDictionary: TDADataDictionary;
+ procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
+ var ConnectionName: string);
+ procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
+ const IncludeSchema: Boolean; const MaxRecords: Integer);
+ procedure DARemoteServiceCreate(Sender: TObject);
+ private
+ protected
+ { IsrvRecibosProveedor methods }
+ function GetNextAutoInc(const GeneratorName: String): Integer;
+ function GenerateReport(const ID: String): Binary;
+ end;
+
+implementation
+
+{$R *.dfm}
+uses
+ Dialogs,
+ {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
+ schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils,
+ uRptRecibosCliente_Server; //, uBizRecibosClienteServer;
+
+procedure Create_srvRecibosCliente(out anInstance : IUnknown);
+begin
+ anInstance := TsrvRecibosCliente.Create(NIL);
+end;
+
+{ srvRecibosProveedor }
+procedure TsrvRecibosCliente.DARemoteServiceBeforeAcquireConnection(
+ Sender: TDARemoteService; var ConnectionName: string);
+begin
+ ConnectionName := dmServer.ConnectionName;
+end;
+
+procedure TsrvRecibosCliente.DARemoteServiceBeforeGetDatasetData(
+ const Dataset: IDADataset; const IncludeSchema: Boolean;
+ const MaxRecords: Integer);
+begin
+ if DataSet.Name = nme_RecibosCliente then
+ begin
+ { Aquí se asegura que el usuario sólo accede a Recibos
+ de las empresas a las que tiene permiso para acceder
+ filtrando DataSet por ID_EMPRESA. }
+ FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
+ end;
+end;
+
+procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
+begin
+ SessionManager := dmServer.SessionManager;
+end;
+
+function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
+var
+ AReportGenerator : TRptRecibosCliente;
+begin
+ AReportGenerator := TRptRecibosCliente.Create(nil);
+ try
+ Result := AReportGenerator.GenerarRecibo(ID);
+ finally
+ FreeAndNIL(AReportGenerator);
+ end;
+end;
+
+function TsrvRecibosCliente.GetNextAutoInc(const GeneratorName: String): Integer;
+begin
+ Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
+end;
+
+initialization
+ TROClassFactory.Create('srvRecibosCliente', Create_srvRecibosCliente, TsrvRecibosCliente_Invoker);
+
+finalization
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.bdsproj b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.bdsproj
new file mode 100644
index 00000000..c256e839
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.bdsproj
@@ -0,0 +1,492 @@
+
+
+
+
+
+
+
+
+
+
+
+ RecibosCliente_view.dpk
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+ True
+ True
+ True
+
+
+
+ 0
+ 0
+ False
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ True
+ False
+
+
+
+ $00000000
+
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
new file mode 100644
index 00000000..f33b777c
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
@@ -0,0 +1,46 @@
+package RecibosCliente_view;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+ GUIBase,
+ RecibosCliente_model,
+ RecibosCliente_controller,
+ JvGlobusD11R;
+
+contains
+ uRecibosClienteViewRegister in 'uRecibosClienteViewRegister.pas',
+ uEditorRecibosCliente in 'uEditorRecibosCliente.pas' {fEditorRecibosCliente: TfEditorRecibosCliente},
+ uViewRecibosCliente in 'uViewRecibosCliente.pas' {frViewRecibosCliente: TFrame},
+ uViewReciboCliente in 'uViewReciboCliente.pas' {frViewReciboCliente: TFrame},
+ uEditorReciboCliente in 'uEditorReciboCliente.pas' {fEditorReciboCliente: TfEditorReciboCliente},
+ uViewPagosCliente in 'uViewPagosCliente.pas' {frViewPagosCliente: TFrame},
+ uEditorElegirRecibosCliente in 'uEditorElegirRecibosCliente.pas' {fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente},
+ uEditorFechaPago in 'uEditorFechaPago.pas' {fEditorFechaPago},
+ uEditorReciboClienteReport in 'uEditorReciboClienteReport.pas' {fEditorReciboClienteReport: TfEditorReciboClienteReport},
+ uViewRecibosCliCompensados in 'uViewRecibosCliCompensados.pas' {frViewRecibosCliCompensados: TFrame},
+ uViewReciboCliImportes in 'uViewReciboCliImportes.pas' {frViewReciboCliImportes: TFrame};
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
new file mode 100644
index 00000000..f2a24e19
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
@@ -0,0 +1,609 @@
+
+
+ {74e7da8d-38a8-404c-b92c-c3a913b30982}
+ RecibosCliente_view.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\RecibosCliente_view.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ True
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ RecibosCliente_view.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.rc b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.rc
new file mode 100644
index 00000000..e69de29b
diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
new file mode 100644
index 00000000..36f26e23
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res differ
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm
new file mode 100644
index 00000000..c8faa588
Binary files /dev/null and b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm differ
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas
new file mode 100644
index 00000000..8666912c
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas
@@ -0,0 +1,211 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorElegirRecibosCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+ JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+ ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+ JvExComCtrls, JvStatusBar,
+ ComCtrls, TB2ExtItems, TBXExtItems, TBX,
+ TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
+ JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+
+ uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente,
+ Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
+ cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog;
+
+
+type
+ TfEditorElegirRecibosCliente = class(TfEditorRecibosCliente, IEditorElegirRecibosCliente)
+ frViewBarraSeleccion1: TfrViewBarraSeleccion;
+ JvgWizardHeader1: TJvgWizardHeader;
+ EditorSeleccionActionList: TActionList;
+ actBuscar2: TAction;
+ actQuitarFiltro2: TAction;
+ actAnchoAuto2: TAction;
+ pnlFiltrar: TTBXDockablePanel;
+ Label1: TLabel;
+ txtFiltroTodo: TcxTextEdit;
+ edtFechaFiltro1: TcxDateEdit;
+ edtFechaFiltro2: TcxDateEdit;
+ rbTodo: TcxRadioButton;
+ rbFechas: TcxRadioButton;
+ Button1: TBitBtn;
+ procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+ procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+ procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure actAnchoAuto2Execute(Sender: TObject);
+ procedure actQuitarFiltro2Execute(Sender: TObject);
+ procedure txtFiltroTodoPropertiesChange(Sender: TObject);
+ procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
+ procedure rbTodoClick(Sender: TObject);
+ protected
+ procedure SetMultiSelect (AValue : Boolean);
+ function GetMultiSelect : Boolean;
+ function GetRecibosClienteSeleccionados: IBizRecibosCliente;
+ procedure SetViewGrid(const Value: IViewGridBase); override;
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ public
+ property Mensaje : String read GetMensaje write SetMensaje;
+ property RecibosClienteSeleccionados: IBizRecibosCliente read GetRecibosClienteSeleccionados;
+ property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+ end;
+
+implementation
+
+uses
+ uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+ uGridUtils, uDialogUtils, uEditorBase, uRecibosClienteController;
+
+{$R *.dfm}
+
+{ TfEditorElegirRecibosCliente }
+
+procedure TfEditorElegirRecibosCliente.actAnchoAuto2Execute(Sender: TObject);
+begin
+ inherited;
+ actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirRecibosCliente.actQuitarFiltro2Execute(Sender: TObject);
+begin
+// inherited;
+
+ if Assigned(ViewGrid) then
+ begin
+ txtFiltroTodo.Clear;
+ edtFechaFiltro1.Clear;
+ edtFechaFiltro2.Clear;
+ (ViewGrid as IViewRecibosCliente).FiltrarPorFechas(null, null);
+ inherited;
+ end;
+
+// actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirRecibosCliente.edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
+begin
+ if not VarIsNull(edtFechaFiltro1.EditValue) and not VarIsNull(edtFechaFiltro2.EditValue) then
+ begin
+ if (edtFechaFiltro1.EditValue > edtFechaFiltro2.EditValue) then
+ begin
+ ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final');
+ edtFechaFiltro1.SetFocus;
+ end
+ else
+ (ViewGrid as IViewRecibosCliente).FiltrarPorFechas(edtFechaFiltro1.EditValue, edtFechaFiltro2.EditValue);
+ end;
+end;
+
+procedure TfEditorElegirRecibosCliente.FormShow(Sender: TObject);
+begin
+ inherited;
+ EditorActionList.State := asSuspended;
+ frViewRecibosCliente1.cxViewGridPopupMenu.PopupMenus.Items[0].HitTypes := [];
+end;
+
+procedure TfEditorElegirRecibosCliente.frViewBarraSeleccion1actCancelarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ Close;
+end;
+
+procedure TfEditorElegirRecibosCliente.frViewBarraSeleccion1actSeleccionarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirRecibosCliente.frViewBarraSeleccion1actSeleccionarUpdate(
+ Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirRecibosCliente.GetRecibosClienteSeleccionados: IBizRecibosCliente;
+begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
+ // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+ Result := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+end;
+
+procedure TfEditorElegirRecibosCliente.rbTodoClick(Sender: TObject);
+begin
+ actQuitarFiltro.Execute;
+
+ if rbTodo.Checked then
+ begin
+ edtFechaFiltro1.Enabled := False;
+ edtFechaFiltro2.Enabled := False;
+ txtFiltroTodo.Enabled := True;
+ end
+ else begin
+ edtFechaFiltro1.Enabled := True;
+ edtFechaFiltro2.Enabled := True;
+ txtFiltroTodo.Enabled := False;
+ end;
+end;
+
+function TfEditorElegirRecibosCliente.GetMensaje: String;
+begin
+ Result := JvgWizardHeader1.Comments.Text;
+end;
+
+function TfEditorElegirRecibosCliente.GetMultiSelect: Boolean;
+begin
+ Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirRecibosCliente.SetMensaje(const AValue: String);
+begin
+ JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+procedure TfEditorElegirRecibosCliente.SetMultiSelect(AValue: Boolean);
+begin
+ ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirRecibosCliente.SetViewGrid(const Value: IViewGridBase);
+begin
+ inherited;
+ ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+procedure TfEditorElegirRecibosCliente.txtFiltroTodoPropertiesChange(Sender: TObject);
+begin
+ if Assigned(ViewGrid) then
+ ViewGrid.Filter := txtFiltroTodo.Text;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
new file mode 100644
index 00000000..b4b83e15
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
@@ -0,0 +1,78 @@
+object fEditorFechaPago: TfEditorFechaPago
+ Left = 0
+ Top = 0
+ BorderStyle = bsDialog
+ Caption = 'Fecha del cobro / devoluci'#243'n'
+ ClientHeight = 167
+ ClientWidth = 283
+ Color = clWindow
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 21
+ Top = 16
+ Width = 246
+ Height = 26
+ Caption =
+ 'Introduzca la fecha en la que se ha hecho efectivo '#13#10'el cobro o ' +
+ 'la devoluci'#243'n:'
+ end
+ object Label2: TLabel
+ Left = 38
+ Top = 67
+ Width = 33
+ Height = 13
+ Alignment = taRightJustify
+ Caption = 'Fecha:'
+ FocusControl = eFechaPago
+ end
+ object eFechaPago: TcxDateEdit
+ Left = 77
+ Top = 64
+ Properties.OnChange = eFechaPagoPropertiesChange
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 0
+ Width = 132
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 126
+ Width = 283
+ Height = 41
+ Align = alBottom
+ TabOrder = 1
+ object bAceptar: TButton
+ Left = 119
+ Top = 8
+ Width = 75
+ Height = 25
+ Caption = 'Aceptar'
+ ModalResult = 1
+ TabOrder = 0
+ end
+ object bCancelar: TButton
+ Left = 200
+ Top = 8
+ Width = 75
+ Height = 25
+ Caption = 'Cancelar'
+ ModalResult = 2
+ TabOrder = 1
+ end
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
new file mode 100644
index 00000000..722b27cc
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
@@ -0,0 +1,55 @@
+unit uEditorFechaPago;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+ cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago;
+
+type
+ TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
+ Label1: TLabel;
+ eFechaPago: TcxDateEdit;
+ bAceptar: TButton;
+ bCancelar: TButton;
+ Label2: TLabel;
+ Panel1: TPanel;
+ procedure FormShow(Sender: TObject);
+ procedure eFechaPagoPropertiesChange(Sender: TObject);
+ private
+ FFechaPago : TDateTime;
+ function GetFechaPago: TDateTime;
+ procedure SetFechaPago(const Value: TDateTime);
+ public
+ property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
+ end;
+
+var
+ fEditorFechaPago: TfEditorFechaPago;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
+begin
+ FechaPago := eFechaPago.Date;
+end;
+
+procedure TfEditorFechaPago.FormShow(Sender: TObject);
+begin
+ eFechaPago.Date := Date;
+end;
+
+function TfEditorFechaPago.GetFechaPago: TDateTime;
+begin
+ Result := FFechaPago;
+end;
+
+procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
+begin
+ FFechaPago := Value;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
new file mode 100644
index 00000000..44a52704
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
@@ -0,0 +1,362 @@
+inherited fEditorReciboCliente: TfEditorReciboCliente
+ Caption = 'Recibo de cliente'
+ ClientHeight = 530
+ ClientWidth = 691
+ OnClose = CustomEditorClose
+ ExplicitTop = -110
+ ExplicitWidth = 699
+ ExplicitHeight = 564
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 691
+ Caption = 'Recibo de cliente'
+ ExplicitWidth = 691
+ inherited Image1: TImage
+ Left = 664
+ Picture.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
+ 0000180806000000E0773DF80000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB51930000022E4944415478DA63FCFFFF3F
+ 032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFDCFF0F7EF3F
+ 869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE774840589270D09
+ 1AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF9633CC5BBA
+ 09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE123CF03B0E1
+ 97025E3028AD14045B52F17715A605AAAB85196E87BE051B006283C0CD903760
+ FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E1058CE0F56F3
+ 3F1D12958C33191926736D47B58056910CB6106601AD221AC5025A44348605D4
+ 8E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B5628BB919EA18
+ D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CDC0F059E70B
+ 03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD82D400F1AE6
+ E5400B2281162C668218BECC98E16C14909E65CCF021E22383C0167E86172E2F
+ 19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301EC83B76AEF
+ 18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F217A8E132CB
+ 25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE202A458F183
+ 1F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC16C0003C6D
+ 03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E50EE1F420E
+ 9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7AAE13030F4
+ 2B7D0062D74EABC521DC370000000049454E44AE426082}
+ ExplicitLeft = 574
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Width = 691
+ ExplicitWidth = 691
+ inherited tbxMain: TTBXToolbar
+ ExplicitWidth = 425
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 691
+ end
+ end
+ inherited pgPaginas: TPageControl
+ Width = 691
+ Height = 335
+ ExplicitWidth = 691
+ ExplicitHeight = 335
+ inherited pagGeneral: TTabSheet
+ ExplicitLeft = 4
+ ExplicitTop = 24
+ ExplicitWidth = 683
+ ExplicitHeight = 307
+ inline frViewReciboCliente1: TfrViewReciboCliente
+ Left = 0
+ Top = 0
+ Width = 683
+ Height = 335
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 683
+ ExplicitHeight = 335
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 683
+ Height = 335
+ ExplicitWidth = 683
+ ExplicitHeight = 335
+ DesignSize = (
+ 683
+ 335)
+ inherited eReferencia: TcxDBTextEdit
+ ExplicitWidth = 217
+ Width = 217
+ end
+ inherited eSituacion: TcxDBTextEdit
+ ExplicitWidth = 217
+ Width = 217
+ end
+ inherited edtFechaVencimiento: TcxDBDateEdit
+ ExplicitWidth = 217
+ Width = 217
+ end
+ inherited memObservaciones: TcxDBMemo
+ ExplicitWidth = 293
+ ExplicitHeight = 44
+ Height = 44
+ Width = 293
+ end
+ inherited eFechaEmision: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 253
+ Width = 253
+ end
+ inherited eFormaPago: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 253
+ Width = 253
+ end
+ inherited eImporteTotal: TcxDBCurrencyEdit
+ Left = 441
+ Style.IsFontAssigned = True
+ ExplicitLeft = 441
+ ExplicitWidth = 253
+ Width = 253
+ end
+ inherited eNombreCliente: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 286
+ Width = 286
+ end
+ inherited eNifCif: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 286
+ Width = 286
+ end
+ inherited eEntidad: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 84
+ Width = 84
+ end
+ inherited eSucursal: TcxDBTextEdit
+ Left = 544
+ ExplicitLeft = 544
+ ExplicitWidth = 81
+ Width = 81
+ end
+ inherited eDC: TcxDBTextEdit
+ Left = 624
+ ExplicitLeft = 624
+ ExplicitWidth = 37
+ Width = 37
+ end
+ inherited eCuenta: TcxDBTextEdit
+ Left = 441
+ ExplicitLeft = 441
+ ExplicitWidth = 286
+ Width = 286
+ end
+ inherited eRemesa: TcxDBTextEdit
+ ExplicitWidth = 217
+ Width = 217
+ end
+ inherited edtFechaEmision: TcxDBDateEdit
+ DataBinding.DataField = 'FECHA_EMISION'
+ ExplicitWidth = 217
+ Width = 217
+ end
+ inherited rRefReciboCompensado: TcxDBTextEdit
+ ExplicitWidth = 191
+ Width = 191
+ end
+ end
+ end
+ end
+ object pagPagos: TTabSheet
+ Caption = 'Pagos'
+ ImageIndex = 2
+ inline frViewPagosCliente1: TfrViewPagosCliente
+ Left = 0
+ Top = 0
+ Width = 683
+ Height = 307
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 683
+ ExplicitHeight = 307
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 683
+ Height = 307
+ ExplicitWidth = 683
+ ExplicitHeight = 307
+ end
+ inherited dxLayoutControl2: TdxLayoutControl
+ Width = 683
+ Height = 307
+ ExplicitWidth = 683
+ ExplicitHeight = 307
+ inherited ToolBar1: TToolBar
+ Width = 666
+ ExplicitWidth = 666
+ end
+ inherited ListaPagosCliente: TcxGrid
+ Width = 605
+ Height = 262
+ ExplicitWidth = 605
+ ExplicitHeight = 262
+ inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
+ inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
+ end
+ end
+ end
+ inherited ActionListContenido: TActionList
+ inherited actAnadir: TAction
+ OnExecute = frViewPagosCliente1actAnadirExecute
+ OnUpdate = frViewPagosCliente1actAnadirUpdate
+ end
+ inherited actModificar: TAction
+ OnExecute = frViewPagosCliente1actModificarExecute
+ OnUpdate = frViewPagosCliente1actModificarUpdate
+ end
+ inherited actEliminar: TAction
+ OnExecute = frViewPagosCliente1actEliminarExecute
+ OnUpdate = frViewPagosCliente1actEliminarUpdate
+ end
+ end
+ end
+ end
+ object pagCompensados: TTabSheet
+ Caption = 'Recibos compensados'
+ ImageIndex = 1
+ inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
+ Left = 0
+ Top = 0
+ Width = 683
+ Height = 307
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 683
+ ExplicitHeight = 307
+ inherited cxGrid: TcxGrid
+ Width = 683
+ Height = 282
+ ExplicitWidth = 683
+ ExplicitHeight = 282
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewRecibosCliCompensados1.cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.OnAfterSummary = frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary
+ end
+ end
+ inherited ToolBar1: TToolBar
+ Width = 683
+ ExplicitWidth = 683
+ inherited ToolButton3: TToolButton
+ ExplicitWidth = 98
+ end
+ inherited ToolButton8: TToolButton
+ ExplicitWidth = 99
+ end
+ end
+ end
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 511
+ Width = 691
+ Panels = <
+ item
+ Width = 200
+ end>
+ ExplicitTop = 511
+ ExplicitWidth = 691
+ end
+ inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
+ Left = 0
+ Top = 411
+ Width = 691
+ Height = 100
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 4
+ ReadOnly = False
+ ExplicitTop = 411
+ ExplicitWidth = 691
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 691
+ ExplicitWidth = 691
+ inherited eImporte: TcxDBCurrencyEdit
+ DataBinding.DataSource = dsDataTable
+ Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
+ ExplicitWidth = 150
+ Width = 150
+ end
+ inherited eOtrosGastos: TcxDBCurrencyEdit
+ DataBinding.DataSource = dsDataTable
+ end
+ inherited eImporteTotalRecibo: TcxCurrencyEdit
+ ExplicitWidth = 183
+ Width = 183
+ end
+ end
+ end
+ inherited EditorActionList: TActionList [5]
+ Top = 96
+ inherited actNuevo: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actModificar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actEliminar: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited SmallImages: TPngImageList [6]
+ end
+ inherited LargeImages: TPngImageList [7]
+ end
+ inherited JvFormStorage: TJvFormStorage [8]
+ OnSavePlacement = JvFormStorageSavePlacement
+ OnRestorePlacement = JvFormStorageRestorePlacement
+ end
+ inherited dsDataTable: TDADataSource [9]
+ Left = 8
+ Top = 168
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
+ end
+ object DADataSource1: TDADataSource
+ OnDataChange = dsDataTableDataChange
+ Left = 80
+ Top = 112
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
new file mode 100644
index 00000000..84e34ca3
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
@@ -0,0 +1,343 @@
+unit uEditorReciboCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDADataTable,
+ JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList,
+ ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar,
+ pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente,
+ uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
+ uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
+ uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados;
+
+type
+ TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
+ DADataSource1: TDADataSource;
+ frViewReciboCliente1: TfrViewReciboCliente;
+ pagCompensados: TTabSheet;
+ pagPagos: TTabSheet;
+ frViewPagosCliente1: TfrViewPagosCliente;
+ frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados;
+ frViewReciboCliImportes1: TfrViewReciboCliImportes;
+ procedure FormShow(Sender: TObject);
+ procedure dsDataTableDataChange(Sender: TObject; Field: TField);
+ procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+ procedure frViewReciboCliente1eImportePropertiesValidate(Sender: TObject;
+ var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+
+ procedure frViewPagosCliente1actAnadirExecute(Sender: TObject);
+ procedure frViewPagosCliente1actEliminarExecute(Sender: TObject);
+ procedure frViewPagosCliente1actEliminarUpdate(Sender: TObject);
+ procedure frViewPagosCliente1actModificarUpdate(Sender: TObject);
+ procedure frViewPagosCliente1actModificarExecute(Sender: TObject);
+
+ procedure HabilitarRecibo;
+ procedure DeshabilitarRecibo;
+ procedure JvFormStorageRestorePlacement(Sender: TObject);
+ procedure JvFormStorageSavePlacement(Sender: TObject);
+ procedure frViewReciboCliImportes1eImportePropertiesEditValueChanged(Sender: TObject);
+ procedure frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
+ procedure frViewPagosCliente1actAnadirUpdate(Sender: TObject);
+
+ private
+ FController : IRecibosClienteController;
+ FRecibo: IBizRecibosCliente;
+ FViewRecibo : IViewReciboCliente;
+ FImporteRestante : Double;
+
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController); virtual;
+ function GetRecibo: IBizRecibosCliente;
+ procedure SetRecibo(const Value: IBizRecibosCliente);
+ function GetViewRecibo: IViewReciboCliente;
+ procedure SetViewRecibo(const Value: IViewReciboCliente);
+ property ViewRecibo: IViewReciboCliente read GetViewRecibo write SetViewRecibo;
+ procedure CalcularTotal;
+
+ protected
+ procedure PrevisualizarInterno; override;
+ procedure ImprimirInterno; override;
+ procedure GuardarInterno; override;
+
+ procedure PonerTitulos(const ATitulo: string = ''); override;
+
+ public
+ property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
+ constructor Create(AOwner: TComponent); override;
+ end;
+
+implementation
+
+uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase;
+
+{$R *.dfm}
+
+procedure TfEditorReciboCliente.CalcularTotal;
+var
+ ImporteAux: Double;
+begin
+
+ ImporteAux := 0;
+ if not VarIsNull(frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then
+ ImporteAux := frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0];
+
+ frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value + ImporteAux;
+end;
+
+constructor TfEditorReciboCliente.Create(AOwner: TComponent);
+begin
+ inherited;
+ FImporteRestante := 0;
+ pgPaginas.ActivePageIndex := 0;
+ ViewRecibo := frViewReciboCliente1;
+end;
+
+procedure TfEditorReciboCliente.CustomEditorClose(Sender: TObject;
+ var Action: TCloseAction);
+begin
+ inherited;
+ dsDataTable.DataTable := NIL;
+ FViewRecibo := NIL;
+ FRecibo := NIL;
+end;
+
+procedure TfEditorReciboCliente.DeshabilitarRecibo;
+begin
+ frViewReciboCliente1.edtFechaVencimiento.Enabled := False;
+ frViewReciboCliImportes1.eImporte.Enabled := False;
+ frViewReciboCliImportes1.eOtrosGastos.Enabled := False;
+end;
+
+procedure TfEditorReciboCliente.dsDataTableDataChange(Sender: TObject; Field: TField);
+begin
+ inherited;
+
+ if Assigned(FRecibo) and (not (FRecibo.DataTable.Fetching) or
+ not (FRecibo.DataTable.Opening) or not (FRecibo.DataTable.Closing)) then
+ PonerTitulos;
+end;
+
+procedure TfEditorReciboCliente.FormShow(Sender: TObject);
+begin
+ inherited;
+
+ if not Assigned(FViewRecibo) then
+ raise Exception.Create('No hay ninguna vista asignada');
+
+ if not Assigned(Recibo) then
+ raise Exception.Create('No hay ningún almacén asignado');
+
+ Recibo.DataTable.Active := True;
+ CalcularTotal;
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject);
+begin
+ inherited;
+
+ FController.AnadirPago(Recibo);
+
+ //Solo podremos modificar el recibo si esta pendiente o devuelto
+ if (Recibo.SITUACION = CTE_COBRADO) then
+ DeshabilitarRecibo
+ else
+ HabilitarRecibo;
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := not (Recibo.ID_RECIBO_COMPENSADO > 0);
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarExecute(Sender: TObject);
+begin
+ inherited;
+ //En el caso de eliminar un pago el recibo queda como devuelto o pendiente y por tanto se puede modificar
+ if (FController.EliminarPago(Recibo)) then
+ begin
+ FRecibo.Edit;
+ if FRecibo.Pagos.DataTable.RecordCount > 0 then
+ FRecibo.SITUACION := CTE_DEVUELTO
+ else
+ FRecibo.SITUACION := CTE_PENDIENTE;
+ HabilitarRecibo;
+ end
+ //No podremos modificar si anulamos una devolución porque el recibo queda cobrado
+ else
+ begin
+ FRecibo.Edit;
+ FRecibo.SITUACION := CTE_COBRADO;
+ DeshabilitarRecibo;
+ end;
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarUpdate(Sender: TObject);
+begin
+ if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
+ begin
+ //Si el recibo tiene una remesa asociada, el cobro generado por la remesa no se podrá eliminar
+ if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
+ frViewPagosCliente1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
+ else
+ //En el caso de que el recibo este remesado no se podrán eliminar pagos,
+ //solo será posible en el caso de ser un recibo libre de remesa
+ frViewPagosCliente1.actEliminar .Enabled := False;
+ end;
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actModificarExecute(Sender: TObject);
+begin
+ inherited;
+ FController.ModificarPago(Recibo);
+end;
+
+procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);
+begin
+ inherited;
+ if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
+ frViewPagosCliente1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0);
+end;
+
+procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate(
+ Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+begin
+ inherited;
+
+ if (DisplayValue > frViewReciboCliImportes1.eImporte.DataBinding.Field.Value) then
+ begin
+ DisplayValue := frViewReciboCliImportes1.eImporte.DataBinding.Field.Value;
+ ErrorText := 'El importe debe ser menor o igual que el actual';
+ Error := True;
+ end;
+end;
+
+procedure TfEditorReciboCliente.frViewReciboCliImportes1eImportePropertiesEditValueChanged(
+ Sender: TObject);
+begin
+ inherited;
+ CalcularTotal;
+end;
+
+procedure TfEditorReciboCliente.frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
+begin
+ inherited;
+ CalcularTotal;
+end;
+
+function TfEditorReciboCliente.GetController: IRecibosClienteController;
+begin
+ Result := FController;
+end;
+
+function TfEditorReciboCliente.GetRecibo: IBizRecibosCliente;
+begin
+ Result := FRecibo;
+end;
+
+function TfEditorReciboCliente.GetViewRecibo: IViewReciboCliente;
+begin
+ Result := FViewRecibo;
+end;
+
+procedure TfEditorReciboCliente.GuardarInterno;
+begin
+ inherited;
+ FController.Guardar(FRecibo);
+ Modified := False;
+end;
+
+procedure TfEditorReciboCliente.HabilitarRecibo;
+begin
+ //Si el recibo tiene sociado una remesa no se podrá cambiar nada
+ if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
+ begin
+ frViewReciboCliente1.edtFechaVencimiento.Enabled := True;
+ frViewReciboCliImportes1.eImporte.Enabled := True;
+ frViewReciboCliImportes1.eOtrosGastos.Enabled := True;
+ end;
+end;
+
+procedure TfEditorReciboCliente.ImprimirInterno;
+begin
+ inherited;
+ FController.Print(FRecibo);
+end;
+
+procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject);
+begin
+ inherited;
+ frViewPagosCliente1.ListaPagosCliente.ActiveView.RestoreFromRegistry(JvAppRegistryStorage.Root);
+end;
+
+procedure TfEditorReciboCliente.JvFormStorageSavePlacement(Sender: TObject);
+begin
+ inherited;
+ frViewPagosCliente1.ListaPagosCliente.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root);
+end;
+
+procedure TfEditorReciboCliente.PonerTitulos(const ATitulo: string);
+var
+ FTitulo : String;
+begin
+ if Assigned(Recibo) then
+ begin
+ if Recibo.EsNuevo then
+ FTitulo := 'Nuevo recibo de cliente'
+ else
+ FTitulo := 'Recibo de cliente';
+
+ if (Recibo.ID_RECIBO_COMPENSADO > 0) then
+ FTitulo := FTitulo + ' (compensado)';
+
+ if Length(Recibo.NOMBRE_CLIENTE) > 0 then
+ FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_CLIENTE;
+ end;
+
+ inherited PonerTitulos(FTitulo);
+end;
+
+procedure TfEditorReciboCliente.PrevisualizarInterno;
+begin
+ inherited;
+ FController.Preview(FRecibo);
+end;
+
+procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);
+begin
+ FController := Value;
+ if Assigned(FController) then
+ frViewRecibosCliCompensados1.Controller := FController;
+// (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
+end;
+
+procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
+begin
+ FRecibo := Value;
+ dsDataTable.DataTable := FRecibo.DataTable;
+
+ if Assigned(FViewRecibo) and Assigned(Recibo) then
+ begin
+ FViewRecibo.Recibo := Recibo;
+ frViewPagosCliente1.Pagos := Recibo.Pagos;
+ frViewRecibosCliCompensados1.ReciboCliente := FRecibo;
+
+ if (FRecibo.SITUACION = CTE_COBRADO) then
+ DeshabilitarRecibo
+ else
+ HabilitarRecibo;
+ end;
+end;
+
+procedure TfEditorReciboCliente.SetViewRecibo(const Value: IViewReciboCliente);
+begin
+ FViewRecibo := Value;
+
+ if Assigned(FViewRecibo) and Assigned(Recibo) then
+ FViewRecibo.Recibo := Recibo;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.dfm
new file mode 100644
index 00000000..bc264513
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.dfm
@@ -0,0 +1,10 @@
+inherited fEditorReciboClientePreview: TfEditorReciboClientePreview
+ Caption = 'Previsualizar el recibo'
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited frxReport1: TfrxReport
+ Datasets = <>
+ Variables = <>
+ Style = <>
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.pas
new file mode 100644
index 00000000..729935ba
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboClienteReport.pas
@@ -0,0 +1,27 @@
+unit uEditorReciboClienteReport;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorPreview,
+{
+ frxExportImage, frxExportPDF, frxDCtrl, frxClass, frxDMPExport, frxGradient,
+ frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode,
+}
+ JvAppStorage, JvAppRegistryStorage, JvComponentBase,
+ JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
+ TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
+ ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRecibosClientePreview,
+ JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
+ frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode;
+
+type
+ TfEditorReciboClientePreview = class(TfEditorPreview, IEditorRecibosClientePreview)
+ end;
+
+
+implementation
+{$R *.dfm}
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
new file mode 100644
index 00000000..0594d9d0
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
@@ -0,0 +1,2163 @@
+inherited fEditorRecibosCliente: TfEditorRecibosCliente
+ Caption = 'Lista de recibos de cliente'
+ ClientHeight = 561
+ ClientWidth = 645
+ ExplicitWidth = 653
+ ExplicitHeight = 595
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 645
+ Caption = 'Lista de recibos de cliente'
+ ExplicitWidth = 645
+ inherited Image1: TImage
+ Left = 618
+ Picture.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
+ 0000180806000000E0773DF80000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB51930000022E4944415478DA63FCFFFF3F
+ 032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFDCFF0F7EF3F
+ 869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE774840589270D09
+ 1AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF9633CC5BBA
+ 09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE123CF03B0E1
+ 97025E3028AD14045B52F17715A605AAAB85196E87BE051B006283C0CD903760
+ FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E1058CE0F56F3
+ 3F1D12958C33191926736D47B58056910CB6106601AD221AC5025A44348605D4
+ 8E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B5628BB919EA18
+ D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CDC0F059E70B
+ 03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD82D400F1AE6
+ E5400B2281162C668218BECC98E16C14909E65CCF021E22383C0167E86172E2F
+ 19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301EC83B76AEF
+ 18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F217A8E132CB
+ 25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE202A458F183
+ 1F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC16C0003C6D
+ 03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E50EE1F420E
+ 9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7AAE13030F4
+ 2B7D0062D74EABC521DC370000000049454E44AE426082}
+ ExplicitLeft = 613
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Width = 645
+ ExplicitWidth = 645
+ inherited tbxMain: TTBXToolbar
+ ExplicitWidth = 434
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 645
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 542
+ Width = 645
+ ExplicitTop = 542
+ ExplicitWidth = 645
+ end
+ inline frViewRecibosCliente1: TfrViewRecibosCliente [3]
+ Left = 0
+ Top = 102
+ Width = 645
+ Height = 440
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitTop = 102
+ ExplicitWidth = 645
+ ExplicitHeight = 440
+ inherited cxGrid: TcxGrid
+ Width = 645
+ Height = 312
+ ExplicitWidth = 645
+ ExplicitHeight = 312
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = '0 recibos'
+ Kind = skCount
+ Column = frViewRecibosCliente1.cxGridViewREFERENCIA
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewRecibosCliente1.cxGridViewIMPORTE
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS
+ end>
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 645
+ ExplicitWidth = 645
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 645
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 645
+ ExplicitWidth = 645
+ inherited txtFiltroTodo: TcxTextEdit
+ ExplicitWidth = 273
+ ExplicitHeight = 24
+ Width = 273
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ ExplicitWidth = 121
+ ExplicitHeight = 24
+ Width = 121
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 298
+ ExplicitLeft = 298
+ ExplicitWidth = 244
+ ExplicitHeight = 24
+ Width = 244
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 645
+ ExplicitWidth = 645
+ inherited tbxBotones: TTBXToolbar
+ Width = 635
+ ExplicitWidth = 635
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 414
+ ExplicitTop = 414
+ ExplicitWidth = 645
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 645
+ ExplicitWidth = 645
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 635
+ ExplicitWidth = 635
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ ReportDocument.CreationDate = 39211.776488344920000000
+ BuiltInReportLink = True
+ end
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewRecibosCliente1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
+ inherited dxPrintStyleManager1: TdxPrintStyleManager
+ inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+ BuiltInStyle = True
+ end
+ end
+ end
+ inherited EditorActionList: TActionList [4]
+ Left = 136
+ Top = 176
+ inherited actNuevo: TAction
+ Enabled = False
+ ImageIndex = 22
+ Visible = False
+ end
+ inherited actEliminar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actPrevisualizar: TAction
+ Visible = True
+ end
+ inherited actImprimir: TAction
+ Visible = True
+ end
+ inherited actDuplicar: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited SmallImages: TPngImageList [5]
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
+ 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
+ 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
+ E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
+ 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
+ FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
+ E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
+ C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
+ 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
+ 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
+ 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
+ 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
+ 000005100EB8572466A60000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001074944415478DA
+ 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A
+ C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211
+ AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643
+ 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601
+ C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4
+ CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346
+ B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501
+ 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08
+ 0029AC32F01825AACD0000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001514944415478DA
+ 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319
+ CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000
+ 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802
+ 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D
+ F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4
+ C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18
+ 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801
+ 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB
+ FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E
+ 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED
+ 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA
+ 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF
+ 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17
+ 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8
+ E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42
+ BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0
+ 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F
+ E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D
+ CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C
+ 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98
+ B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941
+ 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF
+ DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7
+ 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F
+ D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE
+ D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583
+ CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8
+ FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED
+ 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0
+ EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E
+ 44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+ A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+ 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+ 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+ 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+ 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+ 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+ 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+ 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+ E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+ 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+ 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+ 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+ 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+ 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+ E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+ D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+ 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+ A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+ AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+ 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+ 5538F0EAB25B380000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001934944415478DA
+ 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98
+ 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6
+ 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F
+ FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F
+ B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9
+ 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491
+ 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC
+ 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5
+ 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF
+ 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E
+ C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506
+ 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4
+ 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260
+ 82}
+ Name = 'PngImage6'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD
+ D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958
+ 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF
+ DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C
+ 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B
+ B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD
+ D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6
+ AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895
+ 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608
+ DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1
+ 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9
+ D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252
+ 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29
+ 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4
+ F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A
+ A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F
+ AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537
+ 19FE00839434866373C4BA0000000049454E44AE426082}
+ Name = 'PngImage7'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
+ E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
+ 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
+ CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
+ D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
+ AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
+ 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
+ D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
+ 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
+ C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
+ E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
+ 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
+ 16FA1194E3DBC30000000049454E44AE426082}
+ Name = 'PngImage8'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5
+ 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA
+ 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8
+ 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B
+ A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78
+ B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE
+ 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58
+ 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E
+ 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D
+ 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE
+ F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744
+ E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082}
+ Name = 'PngImage9'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000016A4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA
+ 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA
+ 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30
+ F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911
+ FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD
+ D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5
+ 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C
+ E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3
+ FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B
+ CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907
+ BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4
+ 0090010087546EF0ACB0C7920000000049454E44AE426082}
+ Name = 'PngImage10'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001024944415478DA
+ 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
+ C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999
+ FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8
+ 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7
+ 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5
+ B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719
+ 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B
+ 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1
+ CDA578040000000049454E44AE426082}
+ Name = 'PngImage11'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001C04944415478DA
+ 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440
+ 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F
+ 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8
+ 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF
+ 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E
+ 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F
+ 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB
+ 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1
+ CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1
+ 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4
+ F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C
+ 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0
+ F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78
+ 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C
+ 80060000000049454E44AE426082}
+ Name = 'PngImage12'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA
+ 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF
+ CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B
+ 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E
+ 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3
+ B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0
+ 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7
+ EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567
+ 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41
+ 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB
+ 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060
+ A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A
+ 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA
+ E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C
+ EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149
+ D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E
+ 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65
+ 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3
+ 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082}
+ Name = 'PngImage13'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA
+ 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414
+ A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D
+ 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF
+ 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008
+ EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5
+ 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050
+ 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85
+ CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15
+ 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7
+ F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D
+ B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D
+ 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02
+ 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE
+ 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0
+ 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D
+ 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747
+ 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7
+ FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386
+ 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790
+ E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6
+ 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74
+ 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD
+ BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03
+ 503A4EA60D6AAC070000000049454E44AE426082}
+ Name = 'PngImage14'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA
+ 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251
+ 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E
+ C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC
+ 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910
+ 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537
+ BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0
+ 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB
+ B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048
+ 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5
+ E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676
+ 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8
+ 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002
+ 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29
+ 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF
+ 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF
+ 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5
+ 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF
+ AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632
+ 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4
+ E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384
+ 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72
+ CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD
+ DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8
+ 3FA68502A9830000000049454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA
+ 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD
+ 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4
+ 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383
+ E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF
+ 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6
+ 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5
+ EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77
+ EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7
+ 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF
+ 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813
+ BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902
+ 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636
+ EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4
+ 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022
+ 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212
+ 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9
+ 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160
+ FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300
+ D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05
+ 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB
+ EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F
+ A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE
+ CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3
+ D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF
+ EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265
+ EA71FE0D330BBCF031BDB9A60000000049454E44AE426082}
+ Name = 'PngImage15'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA
+ 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B
+ 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB
+ 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720
+ F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED
+ AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F
+ 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB
+ C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF
+ A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C
+ 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C
+ CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A
+ 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A
+ 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF
+ 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5
+ FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43
+ 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020
+ 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807
+ F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB
+ 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C
+ B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631
+ 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83
+ F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C
+ E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F
+ CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E
+ 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548
+ 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000
+ 000049454E44AE426082}
+ Name = 'PngImage16'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000019E4944415478DA
+ 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F
+ FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA
+ 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01
+ D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3
+ 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9
+ 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40
+ DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C
+ 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9
+ 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9
+ ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44
+ 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34
+ 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1
+ 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA
+ 0000000049454E44AE426082}
+ Name = 'PngImage17'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000015D4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+ 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+ 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+ E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+ 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+ 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+ 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+ BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+ 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+ E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+ 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+ 00000049454E44AE426082}
+ Name = 'PngImage18'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001B04944415478DA
+ 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
+ C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999
+ FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7
+ 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E
+ 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840
+ 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3
+ CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657
+ 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28
+ 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34
+ 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9
+ F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296
+ D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801
+ 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A
+ 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082}
+ Name = 'PngImage19'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001034944415478DA
+ 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520
+ 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D
+ 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A
+ 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60
+ 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800
+ 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE
+ B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3
+ F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A
+ 7A68BA98860000000049454E44AE426082}
+ Name = 'PngImage20'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001124944415478DA
+ 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
+ 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
+ 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
+ 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
+ 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
+ E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
+ 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
+ CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
+ 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
+ Name = 'PngImage21'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001684944415478DA
+ 63FCFFFF3FC394C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F
+ 19ACFDF319CEED98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC
+ 5BBA09D3007CE0D7EFBF609B4178C98683D80D40770136B0AED69461E59623B8
+ 0D80391B04FE01E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D
+ 760CCEE587E03607359F66585A6AC0B069CF49FC06A0DB0CC2207E58FB598685
+ 85BA0CDB0E9CC16DC0C15E0706FBE203605B37375A809D0D02209BA3BB2F30CC
+ C9D566D87DE41C6E0340CE46B7F9E7AF3F6076D2C42B0C53D2D4180E9FBE8C69
+ 4046941B8363E94194105F5E6EC810D9791ECC9E99A5C9903EED3A437F920AC3
+ 89F357310D480E7386DB08A2435ACF302C2ED687B8049A067266DD62E88A5364
+ 387BF906A60171410E280107B3191DB446C9315CBA7E1BD380283F3B147F23DB
+ FC1BC9E07FFFFE335CB97907D380502F6B86D5DB8E129D13310C0009900A4006
+ 00004B6D80F047EC10D30000000049454E44AE426082}
+ Name = 'PngImage22'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
+ inherited LargeImages: TPngImageList [6]
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315
+ 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F
+ 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499
+ B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9
+ A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6
+ EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4
+ 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2
+ 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696
+ F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0
+ CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A
+ C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138
+ 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1
+ B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008
+ 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42
+ F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3
+ 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329
+ 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9
+ 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59
+ 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429
+ BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6
+ 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5
+ C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315
+ 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422
+ C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61
+ C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F
+ 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E
+ A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76
+ 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA
+ 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8
+ 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735
+ F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175
+ 682F0000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000032A4944415478DA
+ BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1
+ 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C
+ 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D
+ 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC
+ 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4
+ EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F
+ 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55
+ 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0
+ AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C
+ AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80
+ F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D
+ ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213
+ 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43
+ 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95
+ 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F
+ F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020
+ C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48
+ FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C
+ C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2
+ E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147
+ E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603
+ A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D
+ 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD
+ AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A
+ 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4
+ B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000022C4944415478DA
+ 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF
+ 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2
+ 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0
+ 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1
+ 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141
+ 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06
+ D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022
+ 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020
+ 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679
+ 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8
+ F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907
+ 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F
+ 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8
+ FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE
+ 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC
+ 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430
+ 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4
+ 02140B6805009C1383EFACA508270000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA
+ B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989
+ 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E
+ 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4
+ 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2
+ E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4
+ 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA
+ BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04
+ 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096
+ 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F
+ 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935
+ 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588
+ D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130
+ EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7
+ 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D
+ 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D
+ 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43
+ 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA
+ 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1
+ 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9
+ 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E
+ 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422
+ BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438
+ 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413
+ A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239
+ 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831
+ 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA
+ 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170
+ C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832
+ 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C
+ 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D
+ 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37
+ 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22
+ F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36
+ 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71
+ 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381
+ BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355
+ 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D
+ 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C
+ 4A0000000049454E44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA
+ B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B
+ 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828
+ 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736
+ B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE
+ A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56
+ 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15
+ 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C
+ 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0
+ D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E
+ A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C
+ EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A
+ 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2
+ BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC
+ 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E
+ 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F
+ BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08
+ 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83
+ D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683
+ 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868
+ 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12
+ C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3
+ 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E
+ 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3
+ 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446
+ FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119
+ 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C
+ 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1
+ DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45
+ 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826
+ BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240
+ A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C
+ A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32
+ C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C
+ 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300
+ 00000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000027F4944415478DA
+ 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9
+ 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67
+ F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970
+ 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D
+ 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F
+ E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100
+ 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21
+ 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA
+ 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B
+ C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62
+ F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF
+ 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F
+ C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4
+ 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D
+ 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486
+ C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19
+ 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4
+ 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB
+ 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5
+ 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2
+ FA0000000049454E44AE426082}
+ Name = 'PngImage6'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000037C4944415478DA
+ B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36
+ 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94
+ 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393
+ 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F
+ 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784
+ FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2
+ E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4
+ CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124
+ 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB
+ 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7
+ C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1
+ 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72
+ 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24
+ C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3
+ 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE
+ 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255
+ 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B
+ 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB
+ B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022
+ F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833
+ B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F
+ E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989
+ 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C
+ 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C
+ E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E
+ 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8
+ 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99
+ 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000
+ 000049454E44AE426082}
+ Name = 'PngImage7'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA
+ 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731
+ 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67
+ E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D
+ 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72
+ 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3
+ D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965
+ 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF
+ C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8
+ CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880
+ AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F
+ 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31
+ 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6
+ A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621
+ DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5
+ 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9
+ F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2
+ 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066
+ 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24
+ 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621
+ 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082}
+ Name = 'PngImage8'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA
+ B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058
+ D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60
+ 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F
+ EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1
+ B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE
+ 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6
+ CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71
+ 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C
+ 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12
+ 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E
+ 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59
+ 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED
+ 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8
+ 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D
+ CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182
+ D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382
+ 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A
+ B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3
+ 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5
+ 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6
+ 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE
+ 426082}
+ Name = 'PngImage9'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000029E4944415478DA
+ 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382
+ 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58
+ F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30
+ 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7
+ C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12
+ 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD
+ D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA
+ 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287
+ CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341
+ 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14
+ 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511
+ 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B
+ E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC
+ DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6
+ 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10
+ E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84
+ EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17
+ AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02
+ 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187
+ 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B
+ 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090
+ 0000000049454E44AE426082}
+ Name = 'PngImage10'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA
+ ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589
+ F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435
+ F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF
+ CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B
+ 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D
+ 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD
+ 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1
+ A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE
+ 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075
+ F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2
+ 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF
+ A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C
+ D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892
+ 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806
+ 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F
+ EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E
+ 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3
+ 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5
+ DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C
+ A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA
+ F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196
+ 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E
+ 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC
+ BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D
+ 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68
+ 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986
+ F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000
+ 49454E44AE426082}
+ Name = 'PngImage11'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD252000003784944415478DA
+ B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61
+ AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A
+ BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39
+ 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A
+ 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965
+ 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4
+ 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0
+ E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63
+ 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1
+ 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A
+ B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36
+ FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424
+ 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45
+ DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1
+ 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50
+ 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC
+ 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46
+ FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0
+ 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4
+ 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F
+ 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B
+ 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2
+ D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA
+ 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F
+ 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3
+ EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92
+ 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F
+ 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945
+ 4E44AE426082}
+ Name = 'PngImage12'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA
+ BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93
+ 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88
+ 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C
+ 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004
+ A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F
+ 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47
+ E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA
+ 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F
+ 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE
+ 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A
+ B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0
+ 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06
+ 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027
+ 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7
+ 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F
+ 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090
+ B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE
+ AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927
+ E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627
+ 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA
+ 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD
+ E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4
+ E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779
+ 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82
+ 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9
+ 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C
+ 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3
+ 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE
+ 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85
+ 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C
+ 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000
+ 000049454E44AE426082}
+ Name = 'PngImage13'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA
+ AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4
+ 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3
+ A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3
+ 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117
+ CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671
+ 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7
+ B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E
+ 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3
+ 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37
+ 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8
+ 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F
+ 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D
+ F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D
+ AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480
+ 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E
+ C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56
+ 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5
+ CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A
+ 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6
+ 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020
+ D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D
+ D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA
+ 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50
+ C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6
+ 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152
+ D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1
+ 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11
+ 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242
+ 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE
+ 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3
+ B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7
+ 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130
+ 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7
+ 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981
+ 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0
+ 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877
+ 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB
+ 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366
+ 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF
+ 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688
+ F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811
+ F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000
+ 49454E44AE426082}
+ Name = 'PngImage14'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA
+ AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED
+ C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B
+ 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24
+ 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4
+ 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5
+ B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB
+ 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191
+ 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5
+ 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262
+ 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56
+ 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0
+ A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36
+ E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A
+ EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098
+ 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7
+ 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0
+ 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A
+ 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715
+ 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC
+ 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1
+ F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9
+ 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407
+ B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A
+ 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0
+ 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E
+ 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F
+ 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC
+ 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536
+ D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D
+ 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B
+ D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC
+ F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134
+ 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA
+ 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4
+ C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF
+ BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25
+ 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F
+ 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707
+ 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4
+ 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16
+ 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855
+ 88E7298D620000000049454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA
+ 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E
+ 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18
+ D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767
+ F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B
+ 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8
+ C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB
+ B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A
+ 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD
+ 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0
+ 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6
+ 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C
+ 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418
+ 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06
+ 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E
+ 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2
+ 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402
+ 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F
+ 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440
+ 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA
+ 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698
+ 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080
+ 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0
+ 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47
+ 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC
+ 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4
+ 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74
+ D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4
+ 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766
+ 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05
+ F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8
+ 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8
+ FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125
+ 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B
+ FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42
+ 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9
+ 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67
+ E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF
+ 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6
+ 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F
+ 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322
+ 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303
+ 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51
+ 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549
+ 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3
+ 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4
+ FE66E507F40000000049454E44AE426082}
+ Name = 'PngImage16'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA
+ 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3
+ F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958
+ 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77
+ F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC
+ AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8
+ 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0
+ ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA
+ A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6
+ E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99
+ 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193
+ 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1
+ 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068
+ BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13
+ C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76
+ E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96
+ 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF
+ 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF
+ 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B
+ C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500
+ 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723
+ C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B
+ 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426
+ 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B
+ 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808
+ A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9
+ 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587
+ EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5
+ DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3
+ 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F
+ 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D
+ F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D
+ 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641
+ 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8
+ A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515
+ E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3
+ 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3
+ 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A
+ 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8
+ 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6
+ 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58
+ AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195
+ 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB
+ 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4
+ 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C
+ 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88
+ 2F15D20000000049454E44AE426082}
+ Name = 'PngImage15'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD252000002814944415478DA
+ 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF
+ 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3
+ EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A
+ 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC
+ 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395
+ E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1
+ 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517
+ 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1
+ 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F
+ 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138
+ BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A
+ 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605
+ 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A
+ 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3
+ 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5
+ 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F
+ C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450
+ 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2
+ 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07
+ CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85
+ 5838D40000000049454E44AE426082}
+ Name = 'PngImage17'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000026D4944415478DA
+ B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806
+ 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775
+ ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C
+ F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB
+ 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB
+ 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3
+ E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A
+ 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D
+ 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7
+ 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B
+ 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3
+ 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4
+ D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922
+ C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C
+ 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556
+ 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F
+ 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9
+ CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69
+ 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0
+ 3F84F988A8E02F75743575B8E251160000000049454E44AE426082}
+ Name = 'PngImage18'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F8000000097048597300004E2000004E2001167D99DE000004124944415478DA
+ ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983
+ 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10
+ 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A
+ 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070
+ 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB
+ A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4
+ 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6
+ 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289
+ 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494
+ E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B
+ 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F
+ BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26
+ 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD
+ 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A
+ 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0
+ D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57
+ 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1
+ 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117
+ BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C
+ 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260
+ E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D
+ B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94
+ F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40
+ D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6
+ D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB
+ 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763
+ D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23
+ 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593
+ BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27
+ 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF
+ 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC
+ 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A
+ 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082}
+ Name = 'PngImage19'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD252000001B74944415478DA
+ B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434
+ BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31
+ 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47
+ 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60
+ F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B
+ 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284
+ C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D
+ 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4
+ 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C
+ B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5
+ D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3
+ 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555
+ 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE
+ F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E
+ 44AE426082}
+ Name = 'PngImage20'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD2520000018C4944415478DA
+ 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E
+ 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F
+ C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1
+ 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414
+ 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB
+ FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE
+ 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3
+ FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F
+ 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397
+ FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD
+ BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5
+ EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01
+ 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082}
+ Name = 'PngImage21'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+ F80000000970485973000017120000171201679FD252000001BE4944415478DA
+ 63FCFFFF3F032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80
+ F83F980601EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3
+ C275FB19E62DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD978
+ 90B005D87C802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9
+ E0FF3F605803F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F1
+ 8E70860DBB4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A850
+ 8F61EB81D3C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7
+ E839DAF96046A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3
+ 838929AA0CC7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988
+ C1ADFA08591674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F70
+ 7E820D0BD882B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275F
+ C1881F18BF394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5
+ 164EC3411667CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F
+ 322068818D912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE42
+ 0000000049454E44AE426082}
+ Name = 'PngImage22'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
+ inherited JvFormStorage: TJvFormStorage [7]
+ end
+ inherited dsDataTable: TDADataSource [8]
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
+ end
+ inherited StatusBarImages: TPngImageList [10]
+ end
+ object JsPrevisualizarDialog: TJSDialog
+ Content.Strings = (
+ 'Elija una opci'#243'n:')
+ DialogOptions = [doCommandLinks, doModal]
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Previsualizar...'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ CustomButtons = <
+ item
+ Caption = 'Previsualizar el recibo/s seleccionado/s'
+ Value = 100
+ Default = True
+ end
+ item
+ Caption = 'Previsualizar la lista de recibos actual'
+ Value = 200
+ end>
+ ButtonBar.Buttons = [cbCancel]
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 296
+ Top = 144
+ end
+ object JsImprimirDialog: TJSDialog
+ Content.Strings = (
+ 'Elija una opci'#243'n:')
+ DialogOptions = [doCommandLinks, doModal]
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Imprimir...'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ CustomButtons = <
+ item
+ Caption = 'Imprimir el recibo/s seleccionado/s'
+ Value = 100
+ Default = True
+ end
+ item
+ Caption = 'Imprimir la lista de recibos actual'
+ Value = 200
+ end>
+ ButtonBar.Buttons = [cbCancel]
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 328
+ Top = 144
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
new file mode 100644
index 00000000..92d50f8b
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
@@ -0,0 +1,248 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorRecibosCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, Menus, DB, uDADataTable, JvAppStorage,
+ JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
+ PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
+ TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
+ JvNavigationPane, uViewGrid, pngimage, JvComponentBase,
+ JvExComCtrls, JvStatusBar, uViewBase, uViewBarraSeleccion, uViewGridBase,
+ uEditorGridBase, uCustomView,
+
+ uBizRecibosCliente, uIEditorRecibosCliente, uRecibosClienteController,
+ uViewRecibosCliente, JSDialog, uDAInterfaces;
+
+type
+
+ TfEditorRecibosCliente = class(TfEditorGridBase, IEditorRecibosCliente)
+ frViewRecibosCliente1: TfrViewRecibosCliente;
+ JsPrevisualizarDialog: TJSDialog;
+ JsImprimirDialog: TJSDialog;
+ procedure FormShow(Sender: TObject);
+ private
+ FRecibosCliente: IBizRecibosCliente;
+ FController : IRecibosClienteController;
+ protected
+ function GetRecibosCliente: IBizRecibosCliente;
+ procedure SetRecibosCliente(const Value: IBizRecibosCliente);
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController);
+
+ procedure NuevoInterno; override;
+ procedure EliminarInterno; override;
+ procedure ModificarInterno; override;
+ procedure DuplicarInterno; override;
+ procedure ImprimirInterno; override;
+ procedure PrevisualizarInterno; override;
+ public
+ procedure PonerTitulos(const ATitulo: string = ''); override;
+ property RecibosCliente: IBizRecibosCliente read GetRecibosCliente write SetRecibosCliente;
+ property Controller : IRecibosClienteController read GetController write SetController;
+
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ end;
+
+
+implementation
+
+uses
+ uDataModuleRecibosCliente, uDataModuleUsuarios, uGridUtils, uDBSelectionListUtils;
+
+{$R *.dfm}
+
+{
+*************************** TfEditorRecibosCliente ***************************
+}
+constructor TfEditorRecibosCliente.Create(AOwner: TComponent);
+begin
+ inherited;
+ FController := TRecibosClienteController.Create;
+ ViewGrid := frViewRecibosCliente1; // CreateView(TfrViewRecibosCliente) as IViewRecibosCliente;
+end;
+
+destructor TfEditorRecibosCliente.Destroy;
+begin
+ FRecibosCliente := NIL;
+ FController := NIL;
+ inherited;
+end;
+
+procedure TfEditorRecibosCliente.DuplicarInterno;
+begin
+// No se pueden duplicar recibos
+end;
+
+procedure TfEditorRecibosCliente.EliminarInterno;
+begin
+//
+//No se pueden eliminar recibos
+end;
+
+procedure TfEditorRecibosCliente.FormShow(Sender: TObject);
+begin
+ inherited;
+
+ if not Assigned(ViewGrid) then
+ raise Exception.Create('No hay ninguna vista asignada');
+
+ if not Assigned(FRecibosCliente) then
+ raise Exception.Create('No hay ningún objeto asignado');
+
+ FRecibosCliente.DataTable.Active := True;
+ ViewGrid.GotoFirst;
+end;
+
+function TfEditorRecibosCliente.GetController: IRecibosClienteController;
+begin
+ Result := FController;
+end;
+
+function TfEditorRecibosCliente.GetRecibosCliente: IBizRecibosCliente;
+begin
+ Result := FRecibosCliente;
+end;
+
+procedure TfEditorRecibosCliente.ImprimirInterno;
+var
+ Respuesta : Integer;
+ ARecibosCliente: IBizRecibosCliente;
+ AllItems: Boolean;
+begin
+ ARecibosCliente := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ //Si esta agrupado solo podré imprimir la lista de elementos visibles
+ if not ViewGrid.esSeleccionCeldaDatos then
+ inherited
+ else
+ begin
+ Respuesta := JsPrevisualizarDialog.Execute;
+ if Respuesta <> IDCANCEL then
+ begin
+ case JsPrevisualizarDialog.CustomButtonResult of
+ 200 : begin // Lista de elementos visibles
+ inherited;
+ end;
+ 100 : begin // Elemento Seleccionado
+ if AllItems then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
+ ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+ end
+ else
+ ARecibosCliente := RecibosCliente;
+
+ if Assigned(ARecibosCliente) then
+ FController.Preview(ARecibosCliente, AllItems);
+ end;
+ end;
+ end;
+ end;
+end;
+
+procedure TfEditorRecibosCliente.ModificarInterno;
+begin
+ inherited;
+ FController.Ver(FRecibosCliente);
+ RefrescarInterno;
+end;
+
+procedure TfEditorRecibosCliente.NuevoInterno;
+begin
+// inherited;
+//No se pueden añadir recibos nuevos
+end;
+
+procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
+var
+ FTitulo : String;
+begin
+// FTitulo := 'Lista de recibos de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ inherited PonerTitulos(FTitulo);
+end;
+
+procedure TfEditorRecibosCliente.PrevisualizarInterno;
+var
+ Respuesta : Integer;
+ ARecibosCliente: IBizRecibosCliente;
+ AllItems: Boolean;
+begin
+ ARecibosCliente := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ //Si esta agrupado solo podré imprimir la lista de elementos visibles
+ if not ViewGrid.esSeleccionCeldaDatos then
+ inherited
+ else
+ begin
+ Respuesta := JsPrevisualizarDialog.Execute;
+ if Respuesta <> IDCANCEL then
+ begin
+ case JsPrevisualizarDialog.CustomButtonResult of
+ 200 : begin // Lista de elementos visibles
+ inherited;
+ end;
+ 100 : begin // Elemento Seleccionado
+ if AllItems then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
+ ARecibosCliente := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+ end
+ else
+ ARecibosCliente := RecibosCliente;
+
+ if Assigned(ARecibosCliente) then
+ FController.Preview(ARecibosCliente, AllItems);
+ end;
+ end;
+ end;
+ end;
+end;
+
+procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController);
+begin
+ FController := Value;
+end;
+
+procedure TfEditorRecibosCliente.SetRecibosCliente(const Value: IBizRecibosCliente);
+begin
+ FRecibosCliente := Value;
+ dsDataTable.DataTable := FRecibosCliente.DataTable;
+ if Assigned(ViewGrid) then
+ (ViewGrid as IViewRecibosCliente).Recibos := FRecibosCliente;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uRecibosClienteViewRegister.pas b/Source/Modulos/Recibos de cliente/Views/uRecibosClienteViewRegister.pas
new file mode 100644
index 00000000..24213806
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uRecibosClienteViewRegister.pas
@@ -0,0 +1,55 @@
+{
+===============================================================================
+ Copyright (©) 2007. Rodax Software.
+===============================================================================
+ Los contenidos de este fichero son propiedad de Rodax Software titular del
+ copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+ en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+ acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+ bajo el que se suministra.
+ -----------------------------------------------------------------------------
+ Web: www.rodax-software.com
+===============================================================================
+ Fecha primera versión:
+ Versión actual: 1.0.0
+ Fecha versión actual:
+===============================================================================
+ Modificaciones:
+
+ Fecha Comentarios
+ ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uRecibosClienteViewRegister;
+
+interface
+
+procedure RegisterViews;
+procedure UnregisterViews;
+
+implementation
+
+uses
+ uEditorRegistryUtils, uEditorRecibosCliente, uEditorReciboCliente, uEditorElegirRecibosCliente,
+ uEditorReciboClienteReport, uEditorFechaPago;
+
+procedure RegisterViews;
+begin
+ EditorRegistry.RegisterClass(TfEditorFechaPago, 'EditorFechaPago');
+ EditorRegistry.RegisterClass(TfEditorRecibosCliente, 'EditorRecibosCliente');
+ EditorRegistry.RegisterClass(TfEditorReciboCliente, 'EditorReciboCliente');
+ EditorRegistry.RegisterClass(TfEditorElegirRecibosCliente, 'EditorElegirRecibosCliente');
+ EditorRegistry.RegisterClass(TfEditorReciboClientePreview, 'EditorRecibosClientePreview');
+end;
+
+procedure UnregisterViews;
+begin
+ EditorRegistry.UnRegisterClass(TfEditorFechaPago);
+ EditorRegistry.UnRegisterClass(TfEditorRecibosCliente);
+ EditorRegistry.UnRegisterClass(TfEditorReciboCliente);
+ EditorRegistry.UnRegisterClass(TfEditorElegirRecibosCliente);
+ EditorRegistry.UnRegisterClass(TfEditorReciboClientePreview);
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
new file mode 100644
index 00000000..92b4ba8d
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
@@ -0,0 +1,336 @@
+inherited frViewPagosCliente: TfrViewPagosCliente
+ Width = 666
+ Height = 401
+ ExplicitWidth = 666
+ ExplicitHeight = 401
+ object dxLayoutControl1: TdxLayoutControl
+ Left = 0
+ Top = 0
+ Width = 666
+ Height = 401
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 0
+ Align = alClient
+ ParentBackground = True
+ TabOrder = 0
+ AutoContentSizes = [acsWidth, acsHeight]
+ LookAndFeel = dxLayoutOfficeLookAndFeel1
+ object dxLayoutGroup1: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ end
+ end
+ object dxLayoutControl2: TdxLayoutControl
+ Left = 0
+ Top = 0
+ Width = 666
+ Height = 401
+ Align = alClient
+ ParentBackground = True
+ TabOrder = 1
+ AutoContentSizes = [acsWidth, acsHeight]
+ LookAndFeel = dxLayoutOfficeLookAndFeel1
+ object ToolBar1: TToolBar
+ Left = 22
+ Top = 30
+ Width = 666
+ Height = 25
+ ButtonWidth = 70
+ Caption = 'ToolBar1'
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Flat = False
+ Images = ContenidoImageList
+ List = True
+ ParentShowHint = False
+ ShowCaptions = True
+ ShowHint = True
+ TabOrder = 0
+ Transparent = True
+ object ToolButton1: TToolButton
+ Left = 0
+ Top = 2
+ Action = actAnadir
+ AutoSize = True
+ end
+ object ToolButton4: TToolButton
+ Left = 62
+ Top = 2
+ Action = actModificar
+ AutoSize = True
+ end
+ object ToolButton5: TToolButton
+ Left = 136
+ Top = 2
+ Width = 8
+ Caption = 'ToolButton5'
+ ImageIndex = 2
+ Style = tbsSeparator
+ end
+ object ToolButton2: TToolButton
+ Left = 144
+ Top = 2
+ Action = actEliminar
+ AutoSize = True
+ end
+ end
+ object ListaPagosCliente: TcxGrid
+ Left = 22
+ Top = 61
+ Width = 605
+ Height = 262
+ Align = alClient
+ TabOrder = 1
+ LookAndFeel.Kind = lfStandard
+ LookAndFeel.NativeStyle = True
+ object ListaPagosClienteDBTableView1: TcxGridDBTableView
+ NavigatorButtons.ConfirmDelete = False
+ OnCellDblClick = ListaPagosClienteDBTableView1CellDblClick
+ DataController.DataSource = DADataSource
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsCustomize.ColumnGrouping = False
+ OptionsCustomize.ColumnHidingOnGrouping = False
+ OptionsCustomize.ColumnMoving = False
+ OptionsCustomize.ColumnSorting = False
+ OptionsData.Deleting = False
+ OptionsData.DeletingConfirmation = False
+ OptionsData.Inserting = False
+ OptionsSelection.CellSelect = False
+ OptionsSelection.HideFocusRectOnExit = False
+ OptionsSelection.InvertSelect = False
+ OptionsSelection.UnselectFocusedRecordOnExit = False
+ OptionsView.CellEndEllipsis = True
+ OptionsView.FocusRect = False
+ OptionsView.ColumnAutoWidth = True
+ OptionsView.GroupByBox = False
+ object ListaPagosClienteDBTableView1RecID: TcxGridDBColumn
+ DataBinding.FieldName = 'RecID'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1ID: TcxGridDBColumn
+ DataBinding.FieldName = 'ID'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1ID_RECIBO: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_RECIBO'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
+ DataBinding.FieldName = 'TIPO'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Items = <
+ item
+ Description = 'Cobro'
+ ImageIndex = 0
+ Value = 'Pago'
+ end
+ item
+ Description = 'Devoluci'#243'n'
+ Value = 'Devoluci'#243'n'
+ end>
+ Options.Focusing = False
+ Width = 389
+ IsCaptionAssigned = True
+ end
+ object ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn
+ Caption = 'Fecha'
+ DataBinding.FieldName = 'FECHA_PAGO'
+ PropertiesClassName = 'TcxDateEditProperties'
+ Options.Focusing = False
+ Width = 231
+ end
+ object ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn
+ DataBinding.FieldName = 'TITULAR'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn
+ DataBinding.FieldName = 'ENTIDAD'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn
+ DataBinding.FieldName = 'SUCURSAL'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1DC: TcxGridDBColumn
+ DataBinding.FieldName = 'DC'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn
+ DataBinding.FieldName = 'CUENTA'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1FECHA_ALTA: TcxGridDBColumn
+ DataBinding.FieldName = 'FECHA_ALTA'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1FECHA_MODIFICACION: TcxGridDBColumn
+ DataBinding.FieldName = 'FECHA_MODIFICACION'
+ Visible = False
+ end
+ object ListaPagosClienteDBTableView1USUARIO: TcxGridDBColumn
+ DataBinding.FieldName = 'USUARIO'
+ Visible = False
+ end
+ end
+ object ListaPagosClienteLevel1: TcxGridLevel
+ GridView = ListaPagosClienteDBTableView1
+ end
+ end
+ object dxLayoutControl2Group_Root: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl2Group1: TdxLayoutGroup
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
+ Caption = 'Pagos y devoluciones del recibo'
+ object dxLayoutControl2Item1: TdxLayoutItem
+ Caption = 'New Item'
+ ShowCaption = False
+ Control = ToolBar1
+ ControlOptions.AutoColor = True
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl2Item2: TdxLayoutItem
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
+ Caption = 'New Item'
+ ShowCaption = False
+ Control = ListaPagosCliente
+ ControlOptions.ShowBorder = False
+ end
+ end
+ end
+ end
+ object DADataSource: TDADataSource
+ DataTable = DataModuleRecibosCliente.tbl_PagosCliente
+ Left = 8
+ Top = 8
+ end
+ object ActionListContenido: TActionList
+ Images = ContenidoImageList
+ Left = 8
+ Top = 40
+ object actAnadir: TAction
+ Category = 'Operaciones'
+ Caption = 'A'#241'adir'
+ ImageIndex = 0
+ ShortCut = 45
+ end
+ object actModificar: TAction
+ Category = 'Operaciones'
+ Caption = 'Modificar'
+ ImageIndex = 2
+ end
+ object actEliminar: TAction
+ Category = 'Operaciones'
+ Caption = 'Eliminar'
+ ImageIndex = 1
+ ShortCut = 16430
+ end
+ end
+ object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ Left = 320
+ Top = 248
+ object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
+ GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+ GroupOptions.CaptionOptions.Font.Color = clWindowText
+ GroupOptions.CaptionOptions.Font.Height = -11
+ GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
+ GroupOptions.CaptionOptions.Font.Style = [fsBold]
+ GroupOptions.CaptionOptions.TextColor = clHighlight
+ GroupOptions.CaptionOptions.UseDefaultFont = False
+ end
+ end
+ object ContenidoImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000F84944415478DA
+ 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
+ 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
+ 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
+ FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
+ 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
+ BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
+ 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
+ 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
+ 4E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+ A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+ 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+ 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+ 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+ 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+ 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+ 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+ 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+ E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+ 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+ 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+ 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+ 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+ 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+ E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+ D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+ 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+ A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+ AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+ 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+ 5538F0EAB25B380000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000015D4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+ 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+ 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+ E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+ 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+ 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+ 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+ BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+ 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+ E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+ 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+ 00000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001124944415478DA
+ 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
+ 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
+ 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
+ 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
+ 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
+ E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
+ 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
+ CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
+ 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end>
+ Left = 8
+ Top = 72
+ Bitmap = {}
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
new file mode 100644
index 00000000..fb2d23b6
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
@@ -0,0 +1,101 @@
+unit uViewPagosCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewBase, DB, uDADataTable, dxLayoutControl,
+ cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
+ cxCalendar, cxContainer, cxEdit, cxTextEdit, cxStyles, cxCustomData,
+ cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxSpinEdit,
+ cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
+ TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
+ PngImageList, ComCtrls, ToolWin;
+
+type
+ IViewPagosCliente = interface(IViewBase)
+ ['{3DBF38F1-35AF-445C-967C-E429570B1AE5}']
+ function GetPagos: IBizPagosCliente;
+ procedure SetPagos(const Value: IBizPagosCliente);
+ property Pagos: IBizPagosCliente read GetPagos write SetPagos;
+ end;
+
+
+ TfrViewPagosCliente = class(TfrViewBase, IViewPagosCliente)
+ DADataSource: TDADataSource;
+ ListaPagosCliente: TcxGrid;
+ ListaPagosClienteDBTableView1: TcxGridDBTableView;
+ ListaPagosClienteLevel1: TcxGridLevel;
+ ListaPagosClienteDBTableView1RecID: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1ID: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1ID_RECIBO: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1DC: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1FECHA_ALTA: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1FECHA_MODIFICACION: TcxGridDBColumn;
+ ListaPagosClienteDBTableView1USUARIO: TcxGridDBColumn;
+ ActionListContenido: TActionList;
+ actAnadir: TAction;
+ actEliminar: TAction;
+ actModificar: TAction;
+ dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+ dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
+ dxLayoutControl1: TdxLayoutControl;
+ ToolBar1: TToolBar;
+ ToolButton1: TToolButton;
+ ToolButton4: TToolButton;
+ ToolButton5: TToolButton;
+ ToolButton2: TToolButton;
+ dxLayoutGroup1: TdxLayoutGroup;
+ ContenidoImageList: TPngImageList;
+ dxLayoutControl2Group_Root: TdxLayoutGroup;
+ dxLayoutControl2: TdxLayoutControl;
+ dxLayoutControl2Group1: TdxLayoutGroup;
+ dxLayoutControl2Item1: TdxLayoutItem;
+ dxLayoutControl2Item2: TdxLayoutItem;
+ procedure ListaPagosClienteDBTableView1CellDblClick(
+ Sender: TcxCustomGridTableView;
+ ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+ AShift: TShiftState; var AHandled: Boolean);
+ private
+ FPagos : IBizPagosCliente;
+ function GetPagos: IBizPagosCliente;
+ procedure SetPagos(const Value: IBizPagosCliente);
+ public
+ property Pagos: IBizPagosCliente read GetPagos write SetPagos;
+ end;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewPagosCliente }
+
+function TfrViewPagosCliente.GetPagos: IBizPagosCliente;
+begin
+ Result := FPagos;
+end;
+
+procedure TfrViewPagosCliente.ListaPagosClienteDBTableView1CellDblClick(
+ Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
+ AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ inherited;
+ actModificar.Execute;
+end;
+
+procedure TfrViewPagosCliente.SetPagos(const Value: IBizPagosCliente);
+begin
+ FPagos := Value;
+ if Assigned(FPagos) then
+ DADataSource.DataTable := FPagos.DataTable
+ else
+ DADataSource.DataTable := NIL;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
new file mode 100644
index 00000000..445cafba
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
@@ -0,0 +1,129 @@
+inherited frViewReciboCliImportes: TfrViewReciboCliImportes
+ Width = 451
+ Height = 100
+ Align = alBottom
+ ExplicitWidth = 451
+ ExplicitHeight = 100
+ object dxLayoutControl1: TdxLayoutControl
+ AlignWithMargins = True
+ Left = 0
+ Top = 0
+ Width = 451
+ Height = 217
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 0
+ Align = alTop
+ ParentBackground = True
+ TabOrder = 0
+ AutoContentSizes = [acsWidth, acsHeight]
+ object eImporte: TcxDBCurrencyEdit
+ Left = 93
+ Top = 28
+ AutoSize = False
+ DataBinding.DataField = 'IMPORTE'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.ReadOnly = False
+ Properties.UseLeftAlignmentOnEditing = False
+ Properties.UseThousandSeparator = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.TextColor = clWindowText
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 0
+ Height = 21
+ Width = 150
+ end
+ object eOtrosGastos: TcxDBCurrencyEdit
+ Left = 93
+ Top = 55
+ AutoSize = False
+ DataBinding.DataField = 'OTROS_GASTOS'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.ReadOnly = False
+ Properties.UseLeftAlignmentOnEditing = False
+ Properties.UseThousandSeparator = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clWindow
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.TextColor = clWindowText
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 1
+ Height = 21
+ Width = 183
+ end
+ object eImporteTotalRecibo: TcxCurrencyEdit
+ Left = 354
+ Top = 28
+ Enabled = False
+ Properties.Alignment.Horz = taRightJustify
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.TextStyle = [fsBold]
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 2
+ Width = 183
+ end
+ object dxLayoutControl1Group_Root: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl1Group1: TdxLayoutGroup
+ Caption = 'Importes recibo'
+ LayoutDirection = ldHorizontal
+ object dxLayoutControl1Group3: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl1Item1: TdxLayoutItem
+ Caption = 'Importe:'
+ Control = eImporte
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item2: TdxLayoutItem
+ Caption = 'Otros gastos:'
+ Control = eOtrosGastos
+ ControlOptions.ShowBorder = False
+ end
+ end
+ object dxLayoutControl1Item3: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Importe total:'
+ Control = eImporteTotalRecibo
+ ControlOptions.ShowBorder = False
+ end
+ end
+ end
+ object dxLayoutControl1Group4: TdxLayoutGroup
+ end
+ end
+ object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ Left = 40
+ Top = 8
+ object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel
+ ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+ ItemOptions.CaptionOptions.Font.Color = clWindowText
+ ItemOptions.CaptionOptions.Font.Height = -12
+ ItemOptions.CaptionOptions.Font.Name = 'Tahoma'
+ ItemOptions.CaptionOptions.Font.Style = [fsBold]
+ ItemOptions.CaptionOptions.UseDefaultFont = False
+ end
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
new file mode 100644
index 00000000..ce1327a5
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
@@ -0,0 +1,37 @@
+unit uViewReciboCliImportes;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
+ cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
+ cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
+ ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
+ cxDBLookupComboBox, cxCheckBox;
+
+type
+ TfrViewReciboCliImportes = class(TfrViewBase)
+ dxLayoutControl1Group_Root: TdxLayoutGroup;
+ dxLayoutControl1: TdxLayoutControl;
+ dxLayoutControl1Group1: TdxLayoutGroup;
+ dxLayoutControl1Group4: TdxLayoutGroup;
+ dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+ LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel;
+ dxLayoutControl1Item1: TdxLayoutItem;
+ eImporte: TcxDBCurrencyEdit;
+ dxLayoutControl1Item2: TdxLayoutItem;
+ eOtrosGastos: TcxDBCurrencyEdit;
+ dxLayoutControl1Item3: TdxLayoutItem;
+ eImporteTotalRecibo: TcxCurrencyEdit;
+ dxLayoutControl1Group3: TdxLayoutGroup;
+ public
+ { Public declarations }
+ end;
+
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
new file mode 100644
index 00000000..a7bb7656
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
@@ -0,0 +1,597 @@
+inherited frViewReciboCliente: TfrViewReciboCliente
+ Width = 690
+ Height = 307
+ ExplicitWidth = 690
+ ExplicitHeight = 307
+ object dxLayoutControl1: TdxLayoutControl
+ Left = 0
+ Top = 0
+ Width = 690
+ Height = 307
+ Align = alClient
+ ParentBackground = True
+ TabOrder = 0
+ AutoContentSizes = [acsWidth, acsHeight]
+ LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitHeight = 259
+ DesignSize = (
+ 690
+ 307)
+ object eReferencia: TcxDBTextEdit
+ Left = 120
+ Top = 30
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'REFERENCIA'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 0
+ Width = 129
+ end
+ object eSituacion: TcxDBTextEdit
+ Left = 120
+ Top = 111
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'SITUACION'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 3
+ Width = 216
+ end
+ object edtFechaVencimiento: TcxDBDateEdit
+ Left = 120
+ Top = 84
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'FECHA_VENCIMIENTO'
+ DataBinding.DataSource = DADataSource
+ Properties.ImmediatePost = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.Shadow = False
+ Style.ButtonStyle = bts3D
+ Style.ButtonTransparency = ebtNone
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 2
+ Width = 129
+ end
+ object memObservaciones: TcxDBMemo
+ Left = 22
+ Top = 240
+ Anchors = [akLeft, akTop, akRight, akBottom]
+ DataBinding.DataField = 'OBSERVACIONES'
+ DataBinding.DataSource = DADataSource
+ Properties.ScrollBars = ssVertical
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 6
+ Height = 49
+ Width = 274
+ end
+ object eFechaEmision: TcxDBTextEdit
+ Left = 440
+ Top = 30
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'FECHA_FACTURA'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 7
+ Width = 20
+ end
+ object eFormaPago: TcxDBTextEdit
+ Left = 440
+ Top = 57
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'FORMA_PAGO_FACTURA'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 8
+ Width = 42
+ end
+ object eImporteTotal: TcxDBCurrencyEdit
+ Left = 440
+ Top = 84
+ AutoSize = False
+ DataBinding.DataField = 'IMPORTE_FACTURA'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ ParentFont = False
+ Properties.Alignment.Horz = taRightJustify
+ Properties.ReadOnly = True
+ Properties.UseLeftAlignmentOnEditing = False
+ Properties.UseThousandSeparator = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.Font.Charset = DEFAULT_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -11
+ Style.Font.Name = 'Tahoma'
+ Style.Font.Style = [fsBold]
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.TextColor = clWindowText
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 9
+ Height = 21
+ Width = 182
+ end
+ object eNombreCliente: TcxDBTextEdit
+ Left = 440
+ Top = 167
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'NOMBRE_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 11
+ Width = 171
+ end
+ object eNifCif: TcxDBTextEdit
+ Left = 440
+ Top = 140
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'NIF_CIF_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 10
+ Width = 147
+ end
+ object eEntidad: TcxDBTextEdit
+ Left = 440
+ Top = 194
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'ENTIDAD_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 12
+ Width = 90
+ end
+ object eSucursal: TcxDBTextEdit
+ Left = 554
+ Top = 194
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'SUCURSAL_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 13
+ Width = 75
+ end
+ object eDC: TcxDBTextEdit
+ Left = 635
+ Top = 194
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'DC_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 14
+ Width = 33
+ end
+ object eCuenta: TcxDBTextEdit
+ Left = 440
+ Top = 221
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'CUENTA_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 15
+ Width = 83
+ end
+ object eRemesa: TcxDBTextEdit
+ Left = 120
+ Top = 138
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'REFERENCIA_REMESA'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 4
+ Width = 113
+ end
+ object edtFechaEmision: TcxDBDateEdit
+ Left = 120
+ Top = 57
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'FECHA_VENCIMIENTO'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ImmediatePost = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.Shadow = False
+ Style.ButtonStyle = bts3D
+ Style.ButtonTransparency = ebtNone
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 1
+ Width = 113
+ end
+ object rRefReciboCompensado: TcxDBTextEdit
+ Left = 120
+ Top = 189
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
+ DataBinding.DataSource = DADataSource
+ Enabled = False
+ Properties.ReadOnly = False
+ Properties.ValidateOnEnter = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 5
+ Width = 191
+ end
+ object dxLayoutControl1Group_Root: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Group3: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl1Group1: TdxLayoutGroup
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Datos del recibo'
+ object dxLayoutControl1Item1: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Referencia:'
+ Control = eReferencia
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item19: TdxLayoutItem
+ Caption = 'Fecha emisi'#243'n:'
+ Control = edtFechaEmision
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item3: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Fecha vencimiento:'
+ Control = edtFechaVencimiento
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item2: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Situaci'#243'n:'
+ Control = eSituacion
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item16: TdxLayoutItem
+ Caption = 'Ref. remesa:'
+ Control = eRemesa
+ ControlOptions.ShowBorder = False
+ end
+ end
+ object dxLayoutControl1Group2: TdxLayoutGroup
+ Caption = 'Compensado en recibo'
+ object dxLayoutControl1Item4: TdxLayoutItem
+ Caption = 'Ref. recibo:'
+ Control = rRefReciboCompensado
+ ControlOptions.ShowBorder = False
+ end
+ end
+ object dxLayoutControl1Group7: TdxLayoutGroup
+ Caption = 'Observaciones'
+ object dxLayoutControl1Item5: TdxLayoutItem
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
+ Caption = 'Observaciones:'
+ ShowCaption = False
+ Control = memObservaciones
+ ControlOptions.ShowBorder = False
+ end
+ end
+ end
+ object dxLayoutControl1Group8: TdxLayoutGroup
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'New Group'
+ ShowCaption = False
+ ShowBorder = False
+ object dxLayoutControl1Group5: TdxLayoutGroup
+ Caption = 'Datos de la factura'
+ object dxLayoutControl1Item7: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Fecha emisi'#243'n:'
+ Control = eFechaEmision
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item8: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Forma pago:'
+ Control = eFormaPago
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item9: TdxLayoutItem
+ Caption = 'Total factura:'
+ Control = eImporteTotal
+ ControlOptions.ShowBorder = False
+ end
+ end
+ object dxLayoutControl1Group6: TdxLayoutGroup
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
+ Caption = 'Datos del cliente'
+ Offsets.Top = 5
+ object dxLayoutControl1Item11: TdxLayoutItem
+ Caption = 'NIF/CIF:'
+ Control = eNifCif
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item10: TdxLayoutItem
+ Caption = 'Nombre:'
+ Control = eNombreCliente
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Group4: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl1Group11: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item12: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Entidad:'
+ Control = eEntidad
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item13: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Sucursal:'
+ Control = eSucursal
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item14: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahRight
+ Caption = 'DC:'
+ Control = eDC
+ ControlOptions.ShowBorder = False
+ end
+ end
+ object dxLayoutControl1Item15: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'C'#243'd. cuenta:'
+ Control = eCuenta
+ ControlOptions.ShowBorder = False
+ end
+ end
+ end
+ end
+ end
+ end
+ object DADataSource: TDADataSource
+ Left = 56
+ Top = 16
+ end
+ object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ Left = 24
+ Top = 16
+ object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
+ GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+ GroupOptions.CaptionOptions.Font.Color = clWindowText
+ GroupOptions.CaptionOptions.Font.Height = -11
+ GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
+ GroupOptions.CaptionOptions.Font.Style = [fsBold]
+ GroupOptions.CaptionOptions.TextColor = clHighlight
+ GroupOptions.CaptionOptions.UseDefaultFont = False
+ end
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
new file mode 100644
index 00000000..43826745
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
@@ -0,0 +1,98 @@
+unit uViewReciboCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
+ cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
+ cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls;
+
+type
+ IViewReciboCliente = interface(IViewBase)
+ ['{5DDA0CF0-1A57-492E-B7AE-614E6A7236B5}']
+ function GetRecibo: IBizRecibosCliente;
+ procedure SetRecibo(const Value: IBizRecibosCliente);
+ property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
+ end;
+
+
+ TfrViewReciboCliente = class(TfrViewBase, IViewReciboCliente)
+ DADataSource: TDADataSource;
+ dxLayoutControl1Group_Root: TdxLayoutGroup;
+ dxLayoutControl1: TdxLayoutControl;
+ dxLayoutControl1Item1: TdxLayoutItem;
+ eReferencia: TcxDBTextEdit;
+ dxLayoutControl1Item2: TdxLayoutItem;
+ eSituacion: TcxDBTextEdit;
+ dxLayoutControl1Item3: TdxLayoutItem;
+ edtFechaVencimiento: TcxDBDateEdit;
+ dxLayoutControl1Item5: TdxLayoutItem;
+ memObservaciones: TcxDBMemo;
+ dxLayoutControl1Group1: TdxLayoutGroup;
+ dxLayoutControl1Item7: TdxLayoutItem;
+ eFechaEmision: TcxDBTextEdit;
+ dxLayoutControl1Item8: TdxLayoutItem;
+ eFormaPago: TcxDBTextEdit;
+ dxLayoutControl1Item9: TdxLayoutItem;
+ eImporteTotal: TcxDBCurrencyEdit;
+ dxLayoutControl1Group5: TdxLayoutGroup;
+ dxLayoutControl1Item10: TdxLayoutItem;
+ eNombreCliente: TcxDBTextEdit;
+ dxLayoutControl1Item11: TdxLayoutItem;
+ eNifCif: TcxDBTextEdit;
+ dxLayoutControl1Item12: TdxLayoutItem;
+ eEntidad: TcxDBTextEdit;
+ dxLayoutControl1Item13: TdxLayoutItem;
+ eSucursal: TcxDBTextEdit;
+ dxLayoutControl1Item14: TdxLayoutItem;
+ eDC: TcxDBTextEdit;
+ dxLayoutControl1Item15: TdxLayoutItem;
+ eCuenta: TcxDBTextEdit;
+ dxLayoutControl1Group6: TdxLayoutGroup;
+ dxLayoutControl1Group8: TdxLayoutGroup;
+ dxLayoutControl1Item16: TdxLayoutItem;
+ eRemesa: TcxDBTextEdit;
+ dxLayoutControl1Group4: TdxLayoutGroup;
+ dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+ dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
+ dxLayoutControl1Group7: TdxLayoutGroup;
+ dxLayoutControl1Group11: TdxLayoutGroup;
+ dxLayoutControl1Item19: TdxLayoutItem;
+ edtFechaEmision: TcxDBDateEdit;
+ dxLayoutControl1Item4: TdxLayoutItem;
+ rRefReciboCompensado: TcxDBTextEdit;
+ dxLayoutControl1Group2: TdxLayoutGroup;
+ dxLayoutControl1Group3: TdxLayoutGroup;
+ private
+ FRecibo : IBizRecibosCliente;
+ function GetRecibo: IBizRecibosCliente;
+ procedure SetRecibo(const Value: IBizRecibosCliente);
+ public
+ property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo;
+ end;
+
+var
+ frViewReciboCliente: TfrViewReciboCliente;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrViewReciboCliente }
+
+function TfrViewReciboCliente.GetRecibo: IBizRecibosCliente;
+begin
+ Result := FRecibo;
+end;
+
+procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
+begin
+ FRecibo := Value;
+ if Assigned(FRecibo) then
+ DADataSource.DataTable := FRecibo.DataTable
+ else
+ DADataSource.DataTable := NIL;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
new file mode 100644
index 00000000..ae5d984a
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
@@ -0,0 +1,237 @@
+inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
+ Width = 549
+ Height = 376
+ OnShow = CustomViewShow
+ ExplicitWidth = 549
+ ExplicitHeight = 376
+ inherited cxGrid: TcxGrid
+ Width = 549
+ Height = 351
+ ExplicitWidth = 549
+ ExplicitHeight = 351
+ inherited cxGridView: TcxGridDBTableView
+ DataController.KeyFieldNames = 'RecID'
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_TOTAL
+ end>
+ OptionsCustomize.ColumnMoving = True
+ OptionsData.Appending = False
+ OptionsData.CancelOnExit = True
+ OptionsData.Deleting = False
+ OptionsData.Editing = False
+ OptionsData.Inserting = False
+ OptionsView.Footer = True
+ OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewRecId: TcxGridDBColumn [0]
+ DataBinding.FieldName = 'RecId'
+ Visible = False
+ end
+ object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+ Visible = False
+ end
+ object cxGridViewREFERENCIA: TcxGridDBColumn
+ Caption = 'Referencia'
+ DataBinding.FieldName = 'REFERENCIA'
+ end
+ object cxGridViewSITUACION: TcxGridDBColumn
+ Caption = 'Situaci'#243'n'
+ DataBinding.FieldName = 'SITUACION'
+ end
+ object cxGridViewFECHA_EMISION: TcxGridDBColumn
+ Caption = 'Fecha emisi'#243'n'
+ DataBinding.FieldName = 'FECHA_EMISION'
+ end
+ object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+ Caption = 'Fecha vencimiento'
+ DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+ end
+ object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
+ Caption = 'NIF/CIF'
+ DataBinding.FieldName = 'NIF_CLIF_CLIENTE'
+ end
+ object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
+ Caption = 'Cliente'
+ DataBinding.FieldName = 'NOMBRE_CLIENTE'
+ end
+ object cxGridViewIMPORTE: TcxGridDBColumn
+ Caption = 'Importe'
+ DataBinding.FieldName = 'IMPORTE'
+ end
+ object cxGridViewOTROS_GASTOS: TcxGridDBColumn
+ Caption = 'Otros gastos'
+ DataBinding.FieldName = 'OTROS_GASTOS'
+ end
+ object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+ Caption = 'Importe total'
+ DataBinding.FieldName = 'IMPORTE_TOTAL'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
+ end
+ end
+ inherited ToolBar1: TToolBar
+ Width = 549
+ ExplicitWidth = 549
+ inherited ToolButton1: TToolButton
+ ExplicitWidth = 62
+ end
+ inherited ToolButton4: TToolButton
+ ExplicitWidth = 74
+ end
+ inherited ToolButton2: TToolButton
+ ExplicitWidth = 67
+ end
+ inherited ToolButton7: TToolButton
+ ExplicitWidth = 117
+ end
+ object ToolButton3: TToolButton
+ Left = 336
+ Top = 2
+ Action = actExpandir
+ AutoSize = True
+ end
+ object ToolButton8: TToolButton
+ Left = 434
+ Top = 2
+ Action = actContraer
+ AutoSize = True
+ end
+ end
+ inherited ContenidoImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000F84944415478DA
+ 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
+ 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
+ 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
+ FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
+ 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
+ BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
+ 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
+ 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
+ 4E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+ A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+ 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+ 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+ 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+ 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+ 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+ 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+ 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+ E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+ 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+ 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+ 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+ 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+ 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+ E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+ D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+ 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+ A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+ AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+ 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+ 5538F0EAB25B380000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000015D4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+ 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+ 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+ E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+ 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+ 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+ 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+ BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+ 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+ E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+ 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+ 00000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001124944415478DA
+ 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
+ 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
+ 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
+ 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
+ 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
+ E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
+ 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
+ CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
+ 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000DF4944415478DA
+ 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B
+ 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA
+ CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0
+ 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501
+ F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9
+ 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF
+ FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1
+ 6B0000000049454E44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000914944415478DA
+ 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312
+ FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB
+ EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE
+ 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8
+ 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
+ inherited ActionListContenido: TActionList
+ inherited actModificar: TAction
+ Enabled = False
+ Visible = False
+ end
+ object actExpandir: TAction
+ Category = 'Operaciones'
+ Caption = 'Expandir todo'
+ ImageIndex = 4
+ Visible = False
+ OnExecute = actExpandirExecute
+ OnUpdate = actExpandirUpdate
+ end
+ object actContraer: TAction
+ Category = 'Operaciones'
+ Caption = 'Contraer todo'
+ ImageIndex = 5
+ Visible = False
+ OnExecute = actContraerExecute
+ OnUpdate = actContraerUpdate
+ end
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
new file mode 100644
index 00000000..5505638a
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
@@ -0,0 +1,193 @@
+unit uViewRecibosCliCompensados;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
+ cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
+ uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
+ cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+ cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
+ uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
+ dxLayoutControl;
+
+type
+ IViewRecibosCompensados = interface
+ ['{C683669A-002A-432D-BC20-3FA50BEA8721}']
+ function GetReciboCliente: IBizRecibosCliente;
+ procedure SetReciboCliente(const Value: IBizRecibosCliente);
+ property ReciboCliente: IBizRecibosCliente read GetReciboCliente write SetReciboCliente;
+
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController);
+ property Controller : IRecibosClienteController read GetController write SetController;
+ end;
+
+ TfrViewRecibosCliCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados)
+ actExpandir: TAction;
+ actContraer: TAction;
+ ToolButton3: TToolButton;
+ ToolButton8: TToolButton;
+ cxGridViewREFERENCIA: TcxGridDBColumn;
+ cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+ cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
+ cxGridViewSITUACION: TcxGridDBColumn;
+ cxGridViewFECHA_EMISION: TcxGridDBColumn;
+ cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
+ cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn;
+ cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
+ cxGridViewIMPORTE: TcxGridDBColumn;
+ cxGridViewOTROS_GASTOS: TcxGridDBColumn;
+ cxGridViewRecId: TcxGridDBColumn;
+ procedure actExpandirExecute(Sender: TObject);
+ procedure actContraerExecute(Sender: TObject);
+ procedure CustomViewShow(Sender: TObject);
+ procedure actEliminarUpdate(Sender: TObject);
+ procedure actExpandirUpdate(Sender: TObject);
+ procedure actContraerUpdate(Sender: TObject);
+ procedure actAnadirUpdate(Sender: TObject);
+ protected
+ FHayCambios : Boolean;
+ FReciboCliente : IBizRecibosCliente;
+ FController : IRecibosClienteController;
+
+ procedure AnadirInterno; override;
+ procedure EliminarInterno; override;
+
+ function GetReciboCliente: IBizRecibosCliente;
+ procedure SetReciboCliente(const Value: IBizRecibosCliente);
+
+ function GetModified: Boolean; override;
+ procedure SetModified(const Value: Boolean); override;
+
+ function GetController : IRecibosClienteController;
+ procedure SetController (const Value : IRecibosClienteController);
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ property ReciboCliente: IBizRecibosCliente read GetReciboCliente write SetReciboCliente;
+ property Controller : IRecibosClienteController read GetController write SetController;
+ end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+ uCustomView;
+
+{ TfrViewFacturasReciboCliente }
+
+procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := (ReciboCliente.SITUACION <> CTE_COBRADO);
+end;
+
+procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject);
+begin
+ inherited;
+ cxGridView.ViewData.Collapse(True);
+end;
+
+procedure TfrViewRecibosCliCompensados.actContraerUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewRecibosCliCompensados.actEliminarUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
+ and (cxGridView.Controller.SelectedRows[0].HasCells)
+ and (ReciboCliente.SITUACION <> CTE_COBRADO));
+end;
+
+procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject);
+begin
+ inherited;
+ cxGridView.ViewData.Expand(True);
+end;
+
+procedure TfrViewRecibosCliCompensados.actExpandirUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewRecibosCliCompensados.AnadirInterno;
+begin
+ //inherited; // No hacer el comportamiento normal
+ if FController.ElegirRecibosCompensados(ReciboCliente) then
+ Modified := True;
+end;
+
+constructor TfrViewRecibosCliCompensados.Create(AOwner: TComponent);
+begin
+ inherited;
+ FHayCambios := False;
+end;
+
+procedure TfrViewRecibosCliCompensados.CustomViewShow(Sender: TObject);
+begin
+ inherited;
+ cxGridView.OptionsSelection.MultiSelect := False;
+end;
+
+destructor TfrViewRecibosCliCompensados.Destroy;
+begin
+ inherited;
+end;
+
+procedure TfrViewRecibosCliCompensados.EliminarInterno;
+begin
+ if cxGridView.Controller.SelectedRowCount > 0 then
+ if cxGridView.Controller.SelectedRows[0].HasCells then
+// ViewGrid._FocusedView.Controller.SelectedRecordCount
+ FController.QuitarReciboCompensado(ReciboCliente);
+ Modified := True;
+end;
+
+function TfrViewRecibosCliCompensados.GetController: IRecibosClienteController;
+begin
+ Result := FController;
+end;
+
+function TfrViewRecibosCliCompensados.GetModified: Boolean;
+begin
+ Result := FHayCambios or inherited GetModified;
+end;
+
+function TfrViewRecibosCliCompensados.GetReciboCliente: IBizRecibosCliente;
+begin
+ Result := FReciboCliente;
+end;
+
+procedure TfrViewRecibosCliCompensados.SetController(
+ const Value: IRecibosClienteController);
+begin
+ FController := Value;
+end;
+
+procedure TfrViewRecibosCliCompensados.SetModified(const Value: Boolean);
+begin
+ FHayCambios := Value;
+ inherited;
+end;
+
+procedure TfrViewRecibosCliCompensados.SetReciboCliente(const Value: IBizRecibosCliente);
+begin
+ FReciboCliente := Value;
+ FHayCambios := False;
+ if Assigned(FReciboCliente) then
+ dsDetalles.DataTable := FReciboCliente.RecibosCompensados.DataTable
+ else
+ dsDetalles.DataTable := NIL;
+
+ actAnchoAutomatico.Execute;
+end;
+
+end.
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
new file mode 100644
index 00000000..00cdeb71
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
@@ -0,0 +1,316 @@
+inherited frViewRecibosCliente: TfrViewRecibosCliente
+ Width = 531
+ Height = 387
+ ExplicitWidth = 531
+ ExplicitHeight = 387
+ inherited cxGrid: TcxGrid
+ Width = 531
+ Height = 259
+ RootLevelOptions.DetailTabsPosition = dtpTop
+ OnActiveTabChanged = cxGridActiveTabChanged
+ ExplicitWidth = 531
+ ExplicitHeight = 259
+ inherited cxGridView: TcxGridDBTableView
+ DataController.KeyFieldNames = 'ID'
+ DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = '0 recibos'
+ Kind = skCount
+ Column = cxGridViewREFERENCIA
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewOTROS_GASTOS
+ end>
+ OptionsCustomize.ColumnHidingOnGrouping = False
+ OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewREFERENCIA: TcxGridDBColumn
+ Caption = 'Referencia'
+ DataBinding.FieldName = 'REFERENCIA'
+ Width = 64
+ end
+ object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
+ Caption = 'Compensado'
+ DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+ OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
+ end
+ object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
+ Caption = 'Ref. recibo compensado'
+ DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
+ end
+ object cxGridViewSITUACION: TcxGridDBColumn
+ Caption = 'Situaci'#243'n'
+ DataBinding.FieldName = 'SITUACION'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = PngImageList
+ Properties.Items = <
+ item
+ Description = 'Pendiente'
+ Value = 'PENDIENTE'
+ end
+ item
+ Description = 'Cobrado'
+ ImageIndex = 0
+ Value = 'COBRADO'
+ end
+ item
+ Description = 'Devuelto'
+ ImageIndex = 1
+ Value = 'DEVUELTO'
+ end>
+ Width = 50
+ end
+ object cxGridViewFECHA_EMISION: TcxGridDBColumn
+ Caption = 'Fecha emisi'#243'n'
+ DataBinding.FieldName = 'FECHA_EMISION'
+ Width = 36
+ end
+ object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+ Caption = 'Fecha vencimiento'
+ DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+ Width = 40
+ end
+ object cxGridViewDESCRIPCION: TcxGridDBColumn
+ Caption = 'Descripci'#243'n'
+ DataBinding.FieldName = 'DESCRIPCION'
+ Visible = False
+ end
+ object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
+ Caption = 'NIF/CIF'
+ DataBinding.FieldName = 'NIF_CIF_CLIENTE'
+ Visible = False
+ end
+ object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
+ Caption = 'Cliente'
+ DataBinding.FieldName = 'NOMBRE_CLIENTE'
+ Width = 51
+ end
+ object cxGridViewIMPORTE: TcxGridDBColumn
+ Caption = 'Importe'
+ DataBinding.FieldName = 'IMPORTE'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ Width = 56
+ end
+ object cxGridViewOTROS_GASTOS: TcxGridDBColumn
+ Caption = 'Otros gastos'
+ DataBinding.FieldName = 'OTROS_GASTOS'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ Width = 55
+ end
+ object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+ Caption = 'Importe total'
+ DataBinding.FieldName = 'IMPORTE_TOTAL'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ Width = 117
+ end
+ object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn
+ Caption = 'Ref. remesa'
+ DataBinding.FieldName = 'REFERENCIA_REMESA'
+ Width = 48
+ end
+ end
+ inherited cxGridLevel: TcxGridLevel
+ Caption = 'Todos'
+ end
+ object cxGridPendientes: TcxGridLevel
+ Caption = 'Pendientes'
+ end
+ object cxGridPagados: TcxGridLevel
+ Caption = 'Cobrados'
+ end
+ object cxGridDevueltos: TcxGridLevel
+ Caption = 'Devueltos'
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 531
+ ExplicitWidth = 531
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 531
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 531
+ ExplicitWidth = 531
+ inherited edtFechaFinFiltro: TcxDateEdit
+ ExplicitWidth = 287
+ Width = 287
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 531
+ ExplicitWidth = 531
+ inherited tbxBotones: TTBXToolbar
+ Width = 521
+ ExplicitWidth = 521
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 361
+ Visible = True
+ ExplicitTop = 361
+ ExplicitWidth = 531
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 531
+ ExplicitWidth = 531
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 521
+ ExplicitWidth = 521
+ object TBXSeparatorItem1: TTBXSeparatorItem
+ end
+ object TBXItem2: TTBXItem
+ Action = actCliente
+ end
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ Top = 152
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ ReportDocument.CreationDate = 38673.741107951390000000
+ BuiltInReportLink = True
+ end
+ end
+ inherited dxPSEngineController1: TdxPSEngineController
+ Top = 152
+ end
+ inherited cxStyleRepository1: TcxStyleRepository
+ Top = 144
+ object cxStylePendientes: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clGreen
+ end
+ object cxStylePagados: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clBlack
+ end
+ object cxStyleDevueltos: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clRed
+ end
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ Top = 144
+ end
+ inherited ActionList1: TActionList
+ object actCliente: TAction
+ Caption = 'Cliente'
+ OnExecute = actClienteExecute
+ OnUpdate = actClienteUpdate
+ end
+ end
+ inherited cxStyleRepositoryInforme: TcxStyleRepository
+ Top = 184
+ end
+ inherited dxPrintStyleManager1: TdxPrintStyleManager
+ Top = 184
+ inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+ BuiltInStyle = True
+ end
+ end
+ object PngImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
+ 63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
+ CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
+ 7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
+ EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
+ B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
+ FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
+ 3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
+ 9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
+ E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
+ C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
+ CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
+ 4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
+ 86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
+ A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
+ 413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
+ 49454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000029B4944415478DA
+ A5936B48536118C7FFE79CB5CD332F639B9A379C683051B232CDEA835D14BB40
+ A444501FACCC254811F529858811519411917D705A5041D04D30A34F82214118
+ D8B0455E2A755E6665BA9DCDED6C3BDBDE76365C9A981F7AE0BDF0C2FFF7FE9F
+ E7E1A10821F89FA0C27B7E8B8ED526D731085A9DAFAA6EFC4B1053FAA844AA8A
+ 377053B64ED27BAC99C2E6FB4574667A4F5676B23C5ECE9091FE2F97B98ECA4B
+ CB9405B794AAEC9CAB5E307A97C3ED8383AB26BD35CF29EC7ED68AA4A45A0483
+ 4852B1484D64C9A8E9EB15AEB3F2E282962D7BBC5FA651B73A5C424AC0E59E05
+ 673B88BEBAB762FA14726EC7639DB60BB1B145083DC4C824D0A62790E901CB75
+ FB4B53A362EF060351B08D6E978706CF4F807356C0A41F10C1118018BA3B6A68
+ 33DE8065F345080D82B4940432373933E863A43AC1E3A5E0E68730E72883F9D4
+ E482B33F003136B6A52251DD831879B60811530A2FF1CEF31670F3DB60AAB52E
+ 2ECB528018EB8D5948D6F442264D8C8A03018299D94321DBED7FD775194051FE
+ E49C54A36CB2715E3AEA423CBD9E09CCD977C05C3FB222407DA0FD4A467E6643
+ FF472B450221A15F2010FCF39048E222109F052E5B294CA72DCB008A8AA7E775
+ 25B94DC343D394D3EE167F2670380CA1DCDBC02A8CA194F685213EE11B387E17
+ 3ED78D4701CCF687E559C579AF79DE2B991AFB19B1EC703EC0BBEAE351AF85F7
+ 4E42B6E626683A0182300CDFFC4E98CE58C300CDD1EEC9B8B5AAB4B1C13184AD
+ BBDD668CFB8A6139E15952B1BCBB19A10E192161F6840A3B04DE594ACC677F50
+ CAC35D2F78BFBFCAEBE211A20BB0FFDA8A0FF57D2B0E4381510F09DD0412EC20
+ 7DFA6A0A9B8C25502ABBC1307270DC35BCAF69587504739B3341532CF9543F10
+ E94261CB16486417F07DF4082C06CFAA80455DF80DE5433FF01720E9DB000000
+ 0049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
+ 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
+ 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
+ E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
+ 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
+ FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
+ E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
+ C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
+ 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
+ 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
+ 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
+ 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
+ 000005100EB8572466A60000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end>
+ Left = 56
+ Top = 48
+ Bitmap = {}
+ end
+end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
new file mode 100644
index 00000000..2a72aef5
--- /dev/null
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
@@ -0,0 +1,285 @@
+unit uViewRecibosCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewGrid, uViewPreview, cxStyles, cxCustomData, cxGraphics,
+ cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
+ dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
+ dxPSFillPatterns, dxPSEdgePatterns, cxImageComboBox, cxTextEdit, ImgList,
+ PngImageList, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ dxPSCore, dxPScxCommon, dxPScxGridLnk, ActnList, uDADataTable,
+ cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
+ cxImage, Grids, DBGrids, uBizRecibosCliente, cxGridCustomPopupMenu,
+ cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
+ TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+
+type
+ IViewRecibosCliente = interface(IViewGrid)
+ ['{27D0229A-6340-4F03-B97A-7776E9166F2F}']
+ function GetRecibos: IBizRecibosCliente;
+ procedure SetRecibos(const Value: IBizRecibosCliente);
+ property Recibos: IBizRecibosCliente read GetRecibos write SetRecibos;
+
+ procedure FiltrarPorFechas(const Fecha1, Fecha2: Variant);
+ end;
+
+ TfrViewRecibosCliente = class(TfrViewGrid, IViewRecibosCliente)
+ PngImageList: TPngImageList;
+ cxStylePendientes: TcxStyle;
+ cxGridPendientes: TcxGridLevel;
+ cxGridPagados: TcxGridLevel;
+ cxStylePagados: TcxStyle;
+ cxGridViewREFERENCIA: TcxGridDBColumn;
+ cxGridViewSITUACION: TcxGridDBColumn;
+ cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
+ cxGridViewDESCRIPCION: TcxGridDBColumn;
+ cxGridViewIMPORTE: TcxGridDBColumn;
+ cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
+ cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn;
+ cxGridViewREFERENCIA_REMESA: TcxGridDBColumn;
+ cxGridDevueltos: TcxGridLevel;
+ cxGridViewOTROS_GASTOS: TcxGridDBColumn;
+ cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+ cxGridViewFECHA_EMISION: TcxGridDBColumn;
+ cxStyleDevueltos: TcxStyle;
+ actCliente: TAction;
+ TBXItem2: TTBXItem;
+ TBXSeparatorItem1: TTBXSeparatorItem;
+ cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
+ cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
+ procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
+ ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+ var ADone: Boolean);
+ procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
+ ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
+ out AStyle: TcxStyle);
+ procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
+ procedure cxGridViewIMPORTE_TOTALGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ var AText: string);
+ procedure actClienteExecute(Sender: TObject);
+ procedure actClienteUpdate(Sender: TObject);
+ procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
+ Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+ AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+
+ private
+ //Filtros relativos a la vista
+ procedure AnadirFiltroSituaciones;
+ procedure AnadirFiltroFechas;
+
+ protected
+ FRecibos: IBizRecibosCliente;
+ function GetRecibos: IBizRecibosCliente;
+ procedure SetRecibos(const Value: IBizRecibosCliente);
+ procedure AnadirOtrosFiltros; override;
+
+ public
+ property Recibos: IBizRecibosCliente read GetRecibos write SetRecibos;
+ procedure FiltrarPorFechas(const Fecha1, Fecha2: Variant);
+ end;
+
+
+implementation
+
+uses
+ schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils;
+
+{$R *.dfm}
+
+{ TfrViewRecibosCliente }
+
+procedure TfrViewRecibosCliente.actClienteExecute(Sender: TObject);
+begin
+ if (cxGridViewNOMBRE_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewNOMBRE_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewNOMBRE_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewNOMBRE_CLIENTE.GroupIndex := -1;
+ cxGridViewNOMBRE_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewRecibosCliente.actClienteUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewNOMBRE_CLIENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewRecibosCliente.AnadirFiltroFechas;
+var
+ Columna: TcxGridDBColumn;
+ Fecha1, Fecha2: Variant;
+ FFiltro : TcxFilterCriteriaItemList;
+begin
+ Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue;
+ Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue;
+
+ if not VarIsNull(Fecha1)
+ and not VarIsNull(Fecha2) then
+ begin
+ cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
+ FFiltro := AddFilterGrid(fboAnd);
+
+ Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO);
+ FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
+ end;
+end;
+
+procedure TfrViewRecibosCliente.AnadirFiltroSituaciones;
+var
+ FFiltro : TcxFilterCriteriaItemList;
+begin
+ FFiltro := AddFilterGrid(fboAnd);
+
+ case cxGrid.ActiveLevel.Index of
+ 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
+ 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_COBRADO, CTE_COBRADO);
+ 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_DEVUELTO, CTE_DEVUELTO);
+ end;
+end;
+
+procedure TfrViewRecibosCliente.AnadirOtrosFiltros;
+begin
+ inherited;
+
+ AnadirFiltroSituaciones;
+ AnadirFiltroFechas;
+
+ //Finalmente activamos el filtro si tenemos algo
+ if cxGridView.DataController.Filter.IsEmpty
+ then cxGridView.DataController.Filter.Active := False
+ else cxGridView.DataController.Filter.Active := True;
+// cxGrid.ActiveLevel.GridView := cxGridView;
+end;
+
+procedure TfrViewRecibosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;
+ ALevel: TcxGridLevel);
+begin
+ inherited;
+ RefrescarFiltro;
+end;
+
+procedure TfrViewRecibosCliente.cxGridViewICONOCustomDrawCell(
+ Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+ AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+{var
+ R : TRect;}
+begin
+ inherited;
+{
+ R := AViewInfo.ContentBounds;
+ ACanvas.FillRect(R);
+ if (Pos('-', AViewInfo.GridRecord.DisplayTexts[cxGridViewIMPORTE_TOTAL.Index]) > 0) then
+ ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3)
+ else
+ ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
+ ADone := True;
+}
+end;
+
+procedure TfrViewRecibosCliente.cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
+ Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+ AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+ R : TRect;
+begin
+ inherited;
+ if not VarIsNull(AViewInfo.Value) then
+ begin
+ R := AViewInfo.ContentBounds;
+ ACanvas.FillRect(R);
+ ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
+ ADone := True;
+ end;
+end;
+
+procedure TfrViewRecibosCliente.cxGridViewIMPORTE_TOTALGetDisplayText(
+ Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ var AText: string);
+var
+ ImporteTotal : Double;
+begin
+ //Se encarga de mostrar el campo calculado de importe total
+ ImporteTotal := -1;
+
+ if not VarIsNull(ARecord.Values[cxGridViewIMPORTE.Index]) then
+ if not VarIsNull(ARecord.Values[cxGridViewOTROS_GASTOS.Index]) then
+ ImporteTotal := ARecord.Values[cxGridViewIMPORTE.Index] + ARecord.Values[cxGridViewOTROS_GASTOS.Index]
+ else
+ ImporteTotal := ARecord.Values[cxGridViewIMPORTE.Index];
+
+ if (ImporteTotal <> -1) then
+ begin
+ AText := FormatCurr(',0.00 €;-,0.00 €', FloatToCurr(ImporteTotal));
+
+ ARecord.Values[cxGridViewIMPORTE_TOTAL.Index] := ImporteTotal;
+ cxGridViewIMPORTE_TOTAL.EditValue := ImporteTotal;
+ cxGridViewIMPORTE_TOTAL.DataBinding.Field.Value := ImporteTotal;
+ end;
+end;
+
+procedure TfrViewRecibosCliente.cxGridViewStylesGetContentStyle(
+ Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+ AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+ IndiceCol: Integer;
+ ASituacion: string;
+begin
+ inherited;
+
+ if Assigned(ARecord) then
+ begin
+ IndiceCol := cxGridViewSITUACION.Index;
+ ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
+ if (ASituacion = CTE_PENDIENTE) then
+ AStyle := cxStylePendientes
+ else if (ASituacion = CTE_COBRADO) then
+ AStyle := cxStylePagados
+ else if (ASituacion = CTE_DEVUELTO) then
+ AStyle := cxStyleDevueltos;
+ end;
+end;
+
+procedure TfrViewRecibosCliente.FiltrarPorFechas(const Fecha1, Fecha2: Variant);
+var
+ Columna: TcxGridDBColumn;
+begin
+ with cxGridView.DataController.Filter do
+ begin
+ BeginUpdate;
+ try
+ Options := [fcoCaseInsensitive, fcoSoftCompare];
+ Root.Clear;
+ if not VarIsNull(Fecha1)
+ and not VarIsNull(Fecha2) then
+ begin
+ Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO);
+ Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
+ Active := True;
+ end
+ else
+ Active := False;
+ finally
+ EndUpdate;
+ end;
+ end;
+end;
+
+function TfrViewRecibosCliente.GetRecibos: IBizRecibosCliente;
+begin
+ Result := FRecibos;
+end;
+
+procedure TfrViewRecibosCliente.SetRecibos(const Value: IBizRecibosCliente);
+begin
+ FRecibos := Value;
+ if Assigned(FRecibos) then
+ dsDataSource.DataTable := FRecibos.DataTable;
+end;
+
+end.