Arreglo de recibos de cliente para que coja los datos del cliente de la factura asociada

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@55 f33bb606-9f5c-448d-9c99-757f00063c96

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -10,12 +10,12 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     Top = 24
   end
   object rda_RecibosCliente: TDARemoteDataAdapter
+    DataStreamer = Bin2DataStreamer
     GetSchemaCall.RemoteService = RORemoteService
     GetDataCall.RemoteService = RORemoteService
     UpdateDataCall.RemoteService = RORemoteService
     GetScriptsCall.RemoteService = RORemoteService
     RemoteService = RORemoteService
-    DataStreamer = Bin2DataStreamer
     Left = 59
     Top = 151
   end
@@ -115,8 +115,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     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 = 288
@@ -300,12 +298,30 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datString
         Size = 20
         DictionaryEntry = 'RecibosCliente_USUARIO'
+      end
+      item
+        Name = 'ENTIDAD'
+        DataType = datString
+        Size = 254
+      end
+      item
+        Name = 'SUCURSAL'
+        DataType = datString
+        Size = 254
+      end
+      item
+        Name = 'DC'
+        DataType = datString
+        Size = 254
+      end
+      item
+        Name = 'CUENTA'
+        DataType = datString
+        Size = 254
       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'
     IndexDefs = <>
     Left = 168
@@ -463,8 +479,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     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 = 416
@@ -487,8 +501,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_RecibosCliente
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ListaAnosRecibos'
     IndexDefs = <>
     Left = 168

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosRecibos = '{85D6A88E-F93C-4EBD-856B-E3DD70661B8C}';
+  RID_ListaAnosRecibos = '{F0EF45A4-9D97-4FE8-8CC2-3EF9F94F6628}';
-  RID_RecibosCliente = '{7AEE1847-3690-481E-AA36-7DD34941DAE0}';
+  RID_RecibosCliente = '{162F780C-4D8B-412A-9DE3-FE73CBEBDB5A}';
-  RID_PagosCliente = '{24604449-C6ED-4543-A84E-A9084B86E5EA}';
+  RID_PagosCliente = '{48DF1309-C3D6-4B75-AF08-105A3BC3F928}';
-  RID_RecibosCompensadosCli = '{3198778B-C101-4E4C-94B1-A5B6EE3FB400}';
+  RID_RecibosCompensadosCli = '{81DC46A4-8282-4FF6-B72C-50760325DC89}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -57,6 +57,10 @@ const
   fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
   fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosClienteUSUARIO = 'USUARIO';
+  fld_RecibosClienteENTIDAD = 'ENTIDAD';
+  fld_RecibosClienteSUCURSAL = 'SUCURSAL';
+  fld_RecibosClienteDC = 'DC';
+  fld_RecibosClienteCUENTA = 'CUENTA';
 
   { RecibosCliente field indexes }
   idx_RecibosClienteID = 0;
@@ -89,6 +93,10 @@ const
   idx_RecibosClienteFECHA_ALTA = 27;
   idx_RecibosClienteFECHA_MODIFICACION = 28;
   idx_RecibosClienteUSUARIO = 29;
+  idx_RecibosClienteENTIDAD = 30;
+  idx_RecibosClienteSUCURSAL = 31;
+  idx_RecibosClienteDC = 32;
+  idx_RecibosClienteCUENTA = 33;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -185,7 +193,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{CB0E282C-8761-42F7-A898-261F109FAE48}']
+  ['{C14A6067-4859-4033-AC4C-288F32393E97}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -199,7 +207,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -220,7 +228,7 @@ type
 
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{76F7C244-A129-4A30-90CF-2CA8C4B52CAD}']
+  ['{748631EC-3715-470F-A921-467E3ADAB5F5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -342,6 +350,22 @@ type
     procedure SetUSUARIOValue(const aValue: String);
     function GetUSUARIOIsNull: Boolean;
     procedure SetUSUARIOIsNull(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);
 
 
     { Properties }
@@ -405,10 +429,18 @@ type
     property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property 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;
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -532,6 +564,22 @@ type
     procedure SetUSUARIOValue(const aValue: String); virtual;
     function GetUSUARIOIsNull: Boolean; virtual;
     procedure SetUSUARIOIsNull(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;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -594,6 +642,14 @@ type
     property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
     property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property 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;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -603,7 +659,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{B9F92CCE-2ADD-4B5F-82AF-CEEA1C8B10EC}']
+  ['{4A5203D1-23CA-484D-8BF8-ECB3EBE4BFB7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -683,7 +739,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -770,7 +826,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{A98A69F6-4C14-4B5D-A299-3FC51C52104B}']
+  ['{84668918-5039-4A33-9A1B-058490744457}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -958,7 +1014,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -1829,6 +1885,90 @@ begin
     DataTable.Fields[idx_RecibosClienteUSUARIO].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetENTIDADValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteENTIDAD].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetENTIDADValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteENTIDAD].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetENTIDADIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteENTIDAD].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteENTIDAD].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetSUCURSALValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUCURSALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetSUCURSALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteSUCURSAL].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteSUCURSAL].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetDCValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteDC].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDCValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteDC].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetDCIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteDC].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetDCIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteDC].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCUENTAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCUENTA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCUENTAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteCUENTA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCUENTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCUENTA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteCUENTA].AsVariant := Null;
+end;
+
 
 { TPagosClienteDataTableRules }
 constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);