Se pide campo fecha_cobro para las facturas

git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@14 e61cf4a9-ab77-6246-bebb-cff159b4cb7d

Database/scripts/factuges.sql

@@ -926,7 +926,8 @@ CREATE TABLE FACTURAS_CLIENTE (
     ID_CONTRATO            TIPO_ID,
     SIN_COMISION           SMALLINT,
     SITUACION              VARCHAR(255) COLLATE ES_ES,
-    REFERENCIA_PRESUPUESTO  VARCHAR(255) COLLATE ES_ES        
+    REFERENCIA_PRESUPUESTO  VARCHAR(255) COLLATE ES_ES,
+    FECHA_COBRO             DATE        
 );    
 
 CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -2773,7 +2774,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
     REF_CLI_CONTRATO,
     SIN_COMISION,
     REFERENCIA_PRESUPUESTO,
-    TELEFONO_CLIENTE)
+    TELEFONO_CLIENTE,
+    FECHA_COBRO)
 AS
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2826,7 +2828,8 @@ SELECT FACTURAS_CLIENTE.ID,
   CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
   FACTURAS_CLIENTE.SIN_COMISION,
   FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO,
-  CONTACTOS.telefono_1
+  CONTACTOS.telefono_1,
+  FACTURAS_CLIENTE.FECHA_COBRO
 
 
   FROM V_FAC_CLI_SITUACION

Source/Base/Base.dproj

@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -351,6 +351,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'REFERENCIA_PRESUPUESTO'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'TELEFONO_CLIENTE'
+        DataType = datString
+        Size = 25
+      end
+      item
+        Name = 'FECHA_COBRO'
+        DataType = datDateTime
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturas = '{4FB44137-F728-4E8D-8D74-69487A7AC43A}';
+  RID_ListaAnosFacturas = '{3C8C9440-F7E3-4755-BD1E-A23173A9F92C}';
-  RID_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
+  RID_FacturasCliente = '{AEE286AF-3740-4F5B-8D65-F1362D26A3D7}';
-  RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
+  RID_FacturasCliente_Detalles = '{5984177D-06A4-4A10-89F9-8919F1162664}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -76,6 +76,8 @@ const
   fld_FacturasClienteREF_CLI_CONTRATO = 'REF_CLI_CONTRATO';
   fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
   fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
+  fld_FacturasClienteTELEFONO_CLIENTE = 'TELEFONO_CLIENTE';
+  fld_FacturasClienteFECHA_COBRO = 'FECHA_COBRO';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -129,6 +131,8 @@ const
   idx_FacturasClienteREF_CLI_CONTRATO = 48;
   idx_FacturasClienteSIN_COMISION = 49;
   idx_FacturasClienteREFERENCIA_PRESUPUESTO = 50;
+  idx_FacturasClienteTELEFONO_CLIENTE = 51;
+  idx_FacturasClienteFECHA_COBRO = 52;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -167,7 +171,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{15A2EAF7-43DA-4695-BBFA-DD864D47A79F}']
+  ['{30B99999-43BA-49D8-A7FD-00B1D68921F5}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -181,7 +185,7 @@ type
   end;
 
   { TListaAnosFacturasDataTableRules }
-  TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
   private
   protected
     { Property getters and setters }
@@ -202,7 +206,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{DCCE714A-24FC-4693-A768-AE271A87BD4B}']
+  ['{BC559238-5D9F-4692-96F0-0275DE79780A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -407,6 +411,14 @@ type
     procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
     function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
     procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
+    function GetTELEFONO_CLIENTEValue: String;
+    procedure SetTELEFONO_CLIENTEValue(const aValue: String);
+    function GetTELEFONO_CLIENTEIsNull: Boolean;
+    procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
+    function GetFECHA_COBROValue: DateTime;
+    procedure SetFECHA_COBROValue(const aValue: DateTime);
+    function GetFECHA_COBROIsNull: Boolean;
+    procedure SetFECHA_COBROIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -512,10 +524,14 @@ type
     property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
     property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
     property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
+    property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
+    property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
+    property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
+    property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
-  TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -724,6 +740,14 @@ type
     procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
     function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
     procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_CLIENTEValue: String; virtual;
+    procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
+    function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_COBROValue: DateTime; virtual;
+    procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
+    function GetFECHA_COBROIsNull: Boolean; virtual;
+    procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -828,6 +852,10 @@ type
     property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
     property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
     property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
+    property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
+    property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
+    property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
+    property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -837,7 +865,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{EC03457E-43B2-4E08-A995-24CBF1341748}']
+  ['{BB9E9075-143F-4EC9-B4ED-500470F34697}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -935,7 +963,7 @@ type
   end;
 
   { TFacturasCliente_DetallesDataTableRules }
-  TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+  TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
   private
   protected
     { Property getters and setters }
@@ -2164,6 +2192,48 @@ begin
     DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDataTableRules.GetFECHA_COBROValue: DateTime;
+begin
+  result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFECHA_COBROValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetFECHA_COBROIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFECHA_COBROIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsVariant := Null;
+end;
+
 
 { TFacturasCliente_DetallesDataTableRules }
 constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturasDelta = '{263E7CFE-EAF5-4A59-994D-C319488DE385}';
+  RID_ListaAnosFacturasDelta = '{5A534CAA-740E-4DE3-A6D4-25E714DAD424}';
-  RID_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
+  RID_FacturasClienteDelta = '{C8710EA1-DBBC-4657-A84B-911C5EF001CA}';
-  RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
+  RID_FacturasCliente_DetallesDelta = '{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{263E7CFE-EAF5-4A59-994D-C319488DE385}']
+  ['{5A534CAA-740E-4DE3-A6D4-25E714DAD424}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{D73F0972-622D-4F89-A8AC-DC65E3205A58}']
+  ['{C8710EA1-DBBC-4657-A84B-911C5EF001CA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -103,6 +103,8 @@ type
     function GetOldREF_CLI_CONTRATOValue : String;
     function GetOldSIN_COMISIONValue : SmallInt;
     function GetOldREFERENCIA_PRESUPUESTOValue : String;
+    function GetOldTELEFONO_CLIENTEValue : String;
+    function GetOldFECHA_COBROValue : DateTime;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -156,6 +158,8 @@ type
     property OldREF_CLI_CONTRATO : String read GetOldREF_CLI_CONTRATOValue;
     property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
     property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
+    property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
+    property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -470,6 +474,18 @@ type
     function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
     procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
     procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_CLIENTEValue: String; virtual;
+    function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
+    function GetOldTELEFONO_CLIENTEValue: String; virtual;
+    function GetOldTELEFONO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
+    procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_COBROValue: DateTime; virtual;
+    function GetFECHA_COBROIsNull: Boolean; virtual;
+    function GetOldFECHA_COBROValue: DateTime; virtual;
+    function GetOldFECHA_COBROIsNull: Boolean; virtual;
+    procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -676,6 +692,14 @@ type
     property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
     property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
     property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
+    property TELEFONO_CLIENTE : String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
+    property TELEFONO_CLIENTEIsNull : Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
+    property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
+    property OldTELEFONO_CLIENTEIsNull : Boolean read GetOldTELEFONO_CLIENTEIsNull;
+    property FECHA_COBRO : DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
+    property FECHA_COBROIsNull : Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
+    property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
+    property OldFECHA_COBROIsNull : Boolean read GetOldFECHA_COBROIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -685,7 +709,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}']
+  ['{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -2533,6 +2557,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := Null;
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -251,6 +251,14 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'REFERENCIA_PRESUPUESTO'
                 TableField = 'REFERENCIA_PRESUPUESTO'
+              end
+              item
+                DatasetField = 'TELEFONO_CLIENTE'
+                TableField = 'TELEFONO_CLIENTE'
+              end
+              item
+                DatasetField = 'FECHA_COBRO'
+                TableField = 'FECHA_COBRO'
               end>
           end>
         Name = 'FacturasCliente'
@@ -533,6 +541,15 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'REFERENCIA_PRESUPUESTO'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'TELEFONO_CLIENTE'
+            DataType = datString
+            Size = 25
+          end
+          item
+            Name = 'FECHA_COBRO'
+            DataType = datDateTime
           end>
       end
       item
@@ -1141,6 +1158,11 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datString
             Size = 255
             Value = ''
+          end
+          item
+            Name = 'FECHA_COBRO'
+            DataType = datDateTime
+            Value = ''
           end>
         Statements = <
           item
@@ -1157,17 +1179,17 @@ object srvFacturasCliente: TsrvFacturasCliente
               'RIO,'#10'    ID_FORMA_PAGO,'#10'    RECARGO_EQUIVALENCIA,'#10'    ID_TIPO_IV' +
               'A,'#10'    IMPORTE_NETO,'#10'    IMPORTE_PORTE,'#10'    IGNORAR_CONTABILIDAD' +
               ','#10'    ID_TIENDA,'#10'    ID_CONTRATO,'#10'    SIN_COMISION,'#10'    SITUACIO' +
-              'N,'#10'    REFERENCIA_PRESUPUESTO)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRE' +
+              'N,'#10'    REFERENCIA_PRESUPUESTO,'#10'    FECHA_COBRO)'#10'  VALUES ('#10'    :' +
-              'SA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,' +
+              'ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :F' +
-              #10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'  ' +
+              'ECHA_VENCIMIENTO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPO' +
-              '  :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE' +
+              'RTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE' +
-              '_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :' +
+              '_RE,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'  ' +
-              'NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_' +
+              '  :NIF_CIF,'#10'    :NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVIN' +
-              'POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,' +
+              'CIA,'#10'    :CODIGO_POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'  ' +
-              #10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,' +
+              '  :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10' ' +
-              #10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10 +
+              '   :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,' +
-              '    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUACION,'#10'    :REFERE' +
+              #10'    :ID_TIENDA,'#10'    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUA' +
-              'NCIA_PRESUPUESTO);'#10
+              'CION,'#10'    :REFERENCIA_PRESUPUESTO,'#10'    :FECHA_COBRO);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1345,6 +1367,11 @@ object srvFacturasCliente: TsrvFacturasCliente
             Size = 255
             Value = ''
           end
+          item
+            Name = 'FECHA_COBRO'
+            DataType = datDateTime
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1371,7 +1398,8 @@ object srvFacturasCliente: TsrvFacturasCliente
               'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10'    ID_TIENDA = :ID_TI' +
               'ENDA,'#10'    ID_CONTRATO = :ID_CONTRATO,'#10'    SIN_COMISION = :SIN_CO' +
               'MISION,'#10'    SITUACION = :SITUACION,'#10'    REFERENCIA_PRESUPUESTO =' +
-              ' :REFERENCIA_PRESUPUESTO'#10'  WHERE'#10'  (ID = :OLD_ID);'#10
+              ' :REFERENCIA_PRESUPUESTO,'#10'    FECHA_COBRO = :FECHA_COBRO'#10'  WHERE' +
+              #10'  (ID = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 451
+  Width = 849
-  Height = 304
+  Height = 552
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,17 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 849
-    Height = 304
+    Height = 552
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
+      849
-      304)
+      552)
     object eReferencia: TcxDBTextEdit
       Left = 135
       Top = 30
@@ -64,7 +66,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 135
-      Top = 162
+      Top = 189
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Enabled = False
@@ -92,22 +94,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 78
     end
     object bFormasPago: TButton
       Left = 297
-      Top = 162
+      Top = 189
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
       Enabled = False
-      TabOrder = 5
+      TabOrder = 6
       OnClick = bFormasPagoClick
     end
     inline frViewTienda1: TfrViewTienda
       Left = 22
-      Top = 296
+      Top = 323
       Width = 351
       Height = 48
       Enabled = False
@@ -117,10 +119,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 9
+      TabOrder = 10
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 296
+      ExplicitTop = 323
       ExplicitWidth = 351
       ExplicitHeight = 48
       inherited dxLayoutControl1: TdxLayoutControl
@@ -150,7 +152,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 11
+      TabOrder = 12
       ReadOnly = False
       ExplicitLeft = 457
       ExplicitTop = 30
@@ -182,12 +184,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 276
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 192
+          Left = 278
-          ExplicitLeft = 192
+          ExplicitLeft = 278
         end
         inherited Button3: TBitBtn
-          Left = 82
+          Left = 168
-          ExplicitLeft = 82
+          ExplicitLeft = 168
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 283
@@ -197,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object edtFechaVencimiento: TcxDBDateEdit
       Left = 135
-      Top = 191
+      Top = 218
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VENCIMIENTO'
       DataBinding.DataSource = DADataSource
@@ -218,12 +220,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 6
+      TabOrder = 7
       Width = 310
     end
     inline frViewObservaciones1: TfrViewObservaciones
       Left = 22
-      Top = 425
+      Top = 452
       Width = 521
       Height = 20
       Font.Charset = DEFAULT_CHARSET
@@ -232,10 +234,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 12
+      TabOrder = 13
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 425
+      ExplicitTop = 452
       ExplicitHeight = 20
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataField = 'OBSERVACIONES'
@@ -246,7 +248,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object cbRecargoEquivalencia: TcxDBCheckBox
       Left = 22
-      Top = 374
+      Top = 401
       Caption = '  No acogida a comisiones'
       DataBinding.DataField = 'SIN_COMISION'
       DataBinding.DataSource = DADataSource
@@ -272,7 +274,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 158
     end
     object edtSituacion: TcxDBComboBox
@@ -290,7 +292,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object edtRefContrato: TcxDBTextEdit
       Left = 135
-      Top = 242
+      Top = 269
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'REF_CONTRATO'
@@ -307,13 +309,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 7
+      TabOrder = 8
       Height = 21
       Width = 294
     end
     object edtRefClienteContrato: TcxDBTextEdit
       Left = 135
-      Top = 269
+      Top = 296
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'REF_CLI_CONTRATO'
@@ -330,7 +332,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 8
+      TabOrder = 9
       Height = 21
       Width = 294
     end
@@ -354,6 +356,27 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       TabOrder = 2
       Width = 294
     end
+    object edtFechaCobro: TcxDBDateEdit
+      Left = 135
+      Top = 138
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'FECHA_COBRO'
+      DataBinding.DataSource = DADataSource
+      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 = 4
+      Width = 294
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -393,6 +416,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
               Control = edtSituacion
               ControlOptions.ShowBorder = False
             end
+            object dxLayoutControl1Item12: TdxLayoutItem
+              Caption = 'Fecha de cobro:'
+              Control = edtFechaCobro
+              ControlOptions.ShowBorder = False
+            end
           end
           object dxLayoutControl1Group8: TdxLayoutGroup
             Caption = 'Forma de pago'

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas

@@ -66,6 +66,8 @@ type
     edtRefClienteContrato: TcxDBTextEdit;
     dxLayoutControl1Item11: TdxLayoutItem;
     edtReferenciaPresupuesto: TcxDBTextEdit;
+    dxLayoutControl1Item12: TdxLayoutItem;
+    edtFechaCobro: TcxDBDateEdit;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -45,10 +45,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         PropertiesClassName = 'TcxTextEditProperties'
         Width = 69
       end
-      object cxGridViewSITUACION: TcxGridDBColumn
-        DataBinding.FieldName = 'SITUACION'
-        Width = 32
-      end
       object cxGridViewFECHA_FACTURA: TcxGridDBColumn
         DataBinding.FieldName = 'FECHA_FACTURA'
         PropertiesClassName = 'TcxDateEditProperties'
@@ -56,6 +52,14 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         SortOrder = soDescending
         Width = 28
       end
+      object cxGridViewSITUACION: TcxGridDBColumn
+        DataBinding.FieldName = 'SITUACION'
+        Width = 32
+      end
+      object cxGridViewFECHA_COBRO: TcxGridDBColumn
+        Caption = 'Fecha de cobro'
+        DataBinding.FieldName = 'FECHA_COBRO'
+      end
       object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
         Caption = 'Ref. presupuesto'
         DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas

@@ -63,6 +63,7 @@ type
     cxGridViewREF_CONTRATO: TcxGridDBColumn;
     cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
     cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
+    cxGridViewFECHA_COBRO: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);