Cambio en codigo de referencia de facturas proforma y rellenar automaticamente observaciones con la forma de pago ransferencia bancaria y el número de cuenta

git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@22 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/ApplicationBase/uFactuGES_App.pas

@@ -227,6 +227,12 @@ begin
        FEmpresaActiva := Aux;
   end;
 
+  if Assigned(FEmpresaActiva) then
+  begin
+     dmBase.dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Clear;
+     dmBase.dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaActiva.NOMBRE);
+  end;
+
   //Establece el ejercicio activo de la empresa activa
   CambiarEjercicio(AIDEmpresa);
   BuscarTiendaPorDefecto;

Source/Base/Base.dproj

@@ -44,6 +44,34 @@
     <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/Base/Controladores/uControllerDetallesBase.pas

@@ -110,7 +110,7 @@ implementation
 { TControllerDetallesBase }
 
 uses
-  cxControls, SysUtils, DB, uDAInterfaces, Dialogs;
+  cxControls, SysUtils, DB, uDAInterfaces, Dialogs, uNumUtils;
 
 procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
 begin

Source/Cliente/FactuGES.dproj

@@ -51,7 +51,8 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dproj

@@ -49,15 +49,15 @@
     <DelphiCompile Include="FacturasCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\Articulos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\RecibosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
     <DCCReference Include="uArticulosFacturaClienteController.pas" />
     <DCCReference Include="uDetallesFacturaClienteController.pas" />
     <DCCReference Include="uFacturasClienteController.pas" />

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -28,6 +28,7 @@ type
     function Nuevo (WithInsert: Boolean = True) : IBizFacturaCliente;
     function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
     function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
+    function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
     function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
 
     function Eliminar(const ID : Integer): Boolean; overload;
@@ -36,7 +37,7 @@ type
     procedure DescartarCambios(AFactura : IBizFacturaCliente);
     function Existe(const ID: Integer) : Boolean;
     procedure RecuperarCliente(AFactura : IBizFacturaCliente);
-    procedure ActualizarFormaDePago(AFactura : IBizFacturaCliente; ID_FORMA_PAGO: Integer);    
+    procedure ActualizarFormaDePago(AFactura : IBizFacturaCliente; ID_FORMA_PAGO: Integer);
     function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
     function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
 
@@ -92,6 +93,7 @@ type
     function Existe(const ID: Integer) : Boolean; virtual;
     function Anadir(AFactura : IBizFacturaCliente): Boolean; overload;
     function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
+    function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
     function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
     function Buscar(const ID: Integer): IBizFacturaCliente;
     function BuscarTodos: IBizFacturaCliente;
@@ -204,6 +206,14 @@ begin
   Result := True;
 end;
 
+function TFacturasClienteController.AnadirProforma(
+  AFactura: IBizFacturaCliente): Boolean;
+begin
+  Anadir(AFactura);
+  AFactura.TIPO := CTE_TIPO_PROFORMA;
+  Result := True;
+end;
+
 procedure TFacturasClienteController.ActualizarFormaDePago(
   AFactura: IBizFacturaCliente; ID_FORMA_PAGO: Integer);
 var
@@ -598,6 +608,7 @@ begin
       FECHA_FACTURA := DateOf(Now);
       ID_COMISION_LIQUIDADA := 0;
       OBSERVACIONES.Clear;
+      TIPO := CTE_TIPO_FACTURA;
 
 {$IFDEF CONTABILIDAD}
       ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;

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

@@ -9,9 +9,9 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_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);
@@ -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,6 +524,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;
   end;
 
   { TFacturasClienteDataTableRules }
@@ -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);
@@ -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/Model/uBizFacturasCliente.pas

@@ -11,6 +11,7 @@ const
 
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
+  CTE_TIPO_PROFORMA = 'B';
 
   CTE_PENDIENTE = 'PENDIENTE';
   CTE_PARCIAMENTE_PAGADA = 'PARCIALMENTE PAGADA';
@@ -268,6 +269,13 @@ begin
   ID_TIENDA := AppFactuGES.TiendaActiva.ID;
   TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
 
+  OBSERVACIONES.Add('FORMA DE PAGO');
+  OBSERVACIONES.Add('TRANSFERENCIA BANCARIA');
+  OBSERVACIONES.Add('IBAN: ES 84 0182 2880 1702 0004 9131');
+
+
+
+
 {$IFDEF CONTABILIDAD}
 //  if Assigned(AppFactuGES.EjercicioActivo) then
 //    IGNORAR_CONTABILIDAD := 0

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

@@ -33,8 +33,10 @@ uses
 const
   REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
   REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
+  REF_FACTURAS_PROFORMA = 'REF_FACTURAS_PROFORMA';
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
+  CTE_TIPO_PROFORMA = 'B';
 
 { TBizFacturasClienteServer }
 
@@ -128,9 +130,11 @@ var
   AClientID : TGUID;
   ATipo : String;
 begin
-//No se hace distinción en la referencia entre facturas y abonos
+//Se hace distinción en la referencia entre proformas y (facturas/abonos)
-//  if TIPO = CTE_TIPO_FACTURA then
+  if TIPO = CTE_TIPO_PROFORMA then
-    ATipo := REF_FACTURAS_CLIENTE;
+     ATipo := REF_FACTURAS_PROFORMA
+  else
+     ATipo := REF_FACTURAS_CLIENTE;
 //  else
 //    ATipo := REF_ABONOS_CLIENTE;
 
@@ -148,7 +152,9 @@ var
   AClientID : TGUID;
   ATipo : String;
 begin
-//  if TIPO = CTE_TIPO_FACTURA then
+  if TIPO = CTE_TIPO_PROFORMA then
+    ATipo := REF_FACTURAS_PROFORMA
+  else
     ATipo := REF_FACTURAS_CLIENTE;
 //  else
 //    ATipo := REF_ABONOS_CLIENTE;

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm

@@ -642,32 +642,33 @@ object RptFacturasCliente: TRptFacturasCliente
             TargetTable = 'FACTURAS_CLIENTE'
             SQL = 
               'SELECT'#10'    V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
-              ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10'    V_FACTURAS_CLIENTE.TIENDA' +
+              ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10'    V_FACTURAS_CLIENTE.TIPO,'#10 +
-              ', V_FACTURAS_CLIENTE.ID_TIENDA,'#10'    V_FACTURAS_CLIENTE.IMPORTE_N' +
+              '    V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10'   ' +
-              'ETO,'#10'    V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' +
+              ' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10'    V_FACTURAS_CLIENTE.BASE_IM' +
-              'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_FACTURAS_C' +
+              'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' +
-              'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10'    V_FACTURAS_CLIEN' +
+              'E_DESCUENTO,'#10'    V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' +
-              'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10'    V_FACTURAS_CLIENTE.IMP' +
+              'RTE_IVA,'#10'    V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' +
-              'ORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
+              'E,'#10'    V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.' +
-              'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10'    V_FA' +
+              'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' +
-              'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.TELEFONO_C' +
+              '_CLIENTE.ID_CLIENTE,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_CLIENTE, ' +
-              'LIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
+              'V_FACTURAS_CLIENTE.TELEFONO_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF,' +
-              '_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
+              ' V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10'    V_FACT' +
-              'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10'    C' +
+              'URAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACT' +
-              'ONTACTOS_DATOS_BANCO.TITULAR,'#10'    CONTACTOS_DATOS_BANCO.ENTIDAD,' +
+              'URAS_CLIENTE.POBLACION,'#10'    CONTACTOS_DATOS_BANCO.TITULAR,'#10'    C' +
-              #10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10'    CONTACTOS_DATOS_BANCO.D' +
+              'ONTACTOS_DATOS_BANCO.ENTIDAD,'#10'    CONTACTOS_DATOS_BANCO.SUCURSAL' +
-              'C,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10'    ID_EMPRESA, EMPRESAS.NI' +
+              ','#10'    CONTACTOS_DATOS_BANCO.DC,'#10'    CONTACTOS_DATOS_BANCO.CUENTA' +
-              'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CA' +
+              ','#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.' +
-              'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
+              'RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBL' +
-              '   EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
+              'ACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_' +
-              'AL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.F' +
+              'EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EM' +
-              'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB,' +
+              'PRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAI' +
-              ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO,'#10'    V_FACTURAS_' +
+              'L_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRE' +
-              'CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN' +
+              'SAS.LOGOTIPO,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM' +
-              ' EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (' +
+              ' V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRE' +
-              'FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CON' +
+              'SA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE' +
-              'TACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FAC' +
+              '.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DA' +
-              'TURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+              'TOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_F' +
+              'ACTURAS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -871,6 +872,11 @@ object RptFacturasCliente: TRptFacturasCliente
                 DatasetField = 'TELEFONO_CLIENTE'
                 TableField = '<unknown>'
                 SQLOrigin = 'TELEFONO_CLIENTE'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = '<unknown>'
+                SQLOrigin = 'TIPO'
               end>
           end>
         Name = 'InformeFacturasCliente'
@@ -892,6 +898,11 @@ object RptFacturasCliente: TRptFacturasCliente
             DataType = datDateTime
             DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
           end
+          item
+            Name = 'TIPO'
+            DataType = datString
+            Size = 1
+          end
           item
             Name = 'TIENDA'
             DataType = datString

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas

@@ -82,6 +82,7 @@ uses
 
 const
   rptFacturaCliente = 'InfFacturaCliente.fr3';
+   rptFacturaProforma = 'InfFacturaProforma.fr3';
 
   rptInformeIVA = 'InformeIVAClientes.fr3';
   rptInformeIVADesglosado = 'InformeIVAClientesDesglosado.fr3';
@@ -685,7 +686,12 @@ begin
     tbl_Detalles.Active := True;
     tbl_Vencimientos.Active := True;
 
-    AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
+    if (tbl_Cabecera.FieldByName('TIPO').AsString = 'B') then
+       AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProforma, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString)
+    else
+       AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
+
+
     if VarIsNull(AInforme) then
        raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
 

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/uEditorFacturaCliente.dfm

@@ -115,63 +115,43 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 159
-            Width = 159
           end
           inherited edtFecha: TcxDBDateEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 159
-            Width = 159
           end
           inherited cbFormaPago: TcxDBLookupComboBox
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 78
-            Width = 78
           end
           inherited bFormasPago: TButton
             Left = 312
             ExplicitLeft = 312
           end
           inherited frViewTienda1: TfrViewTienda
-            Width = 351
-            ExplicitWidth = 351
             inherited dxLayoutControl1: TdxLayoutControl
-              Width = 351
               inherited cbTienda: TcxComboBox
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 399
-                Width = 399
               end
             end
           end
           inherited frViewClienteFactura1: TfrViewClienteFactura
             Left = 472
-            Width = 398
             ExplicitLeft = 472
-            ExplicitWidth = 398
             inherited dxLayoutControl1: TdxLayoutControl
-              Width = 398
-              inherited Bevel1: TBevel
-                Width = 266
-                ExplicitWidth = 266
-              end
               inherited edtlNombre: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 276
-                Width = 276
               end
               inherited edtNIFCIF: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -179,8 +159,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 276
-                Width = 276
               end
               inherited edtCalle: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -188,8 +166,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 276
-                Width = 276
               end
               inherited edtPoblacion: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -197,8 +173,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 158
-                Width = 158
               end
               inherited edtProvincia: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -206,8 +180,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 276
-                Width = 276
               end
               inherited edtCodigoPostal: TcxDBTextEdit
                 Left = 306
@@ -227,8 +199,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitWidth = 283
-                Width = 283
               end
             end
           end
@@ -237,19 +207,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 310
-            Width = 310
           end
           inherited frViewObservaciones1: TfrViewObservaciones
-            Width = 521
             Height = 228
-            ExplicitWidth = 521
             ExplicitHeight = 228
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewFacturaCliente1.DADataSource
               ExplicitHeight = 228
               Height = 228
-              Width = 521
             end
           end
           inherited cbRecargoEquivalencia: TcxDBCheckBox
@@ -257,12 +222,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 158
-            Width = 158
-          end
-          inherited edtSituacion: TcxDBComboBox
-            ExplicitWidth = 121
-            Width = 121
           end
         end
       end
@@ -475,10 +434,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       inherited Bevel3: TBevel
         Left = 489
         Top = 30
-        Height = 122
         ExplicitLeft = 489
         ExplicitTop = 30
-        ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
         Left = 601
@@ -597,8 +554,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         Style.IsFontAssigned = True
         ExplicitLeft = 672
         ExplicitTop = 104
-        ExplicitWidth = 56
-        Width = 56
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
         Top = 30

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

@@ -293,13 +293,13 @@ begin
   begin
     if FFactura.TIPO = CTE_TIPO_FACTURA then
       ShowInfoMessage('La factura se ha dado de alta con el código ' + FFactura.REFERENCIA)
+    else if FFactura.TIPO = CTE_TIPO_ABONO then
+      ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA)
     else
-    begin
+      ShowInfoMessage('La factura proforma se ha dado de alta con el código ' + FFactura.REFERENCIA)
-      ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
       //Preguntamos is desea hacer una orden de devolución asociada
 //      if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
 //         GenerarAlbaranCli(FFactura);
-    end;
   end;
 
   Modified := False;
@@ -393,8 +393,10 @@ begin
   begin
     if FFactura.TIPO = CTE_TIPO_FACTURA then
       ACadena := 'Antes debe elegir un cliente para esta factura'
+    else if FFactura.TIPO = CTE_TIPO_ABONO then
+      ACadena := 'Antes debe elegir un cliente para este abono'
     else
-      ACadena := 'Antes debe elegir un cliente para este abono';
+      ACadena := 'Antes debe elegir un cliente para esta factura proforma';
     ShowWarningMessage(ACadena);
     AllowChange := False;
   end;
@@ -410,13 +412,17 @@ begin
     if Factura.EsNuevo then
        if Factura.TIPO = CTE_TIPO_FACTURA then
           FTitulo := 'Nueva factura de cliente'
-       else
+       else if Factura.TIPO = CTE_TIPO_ABONO then
           FTitulo := 'Nuevo abono a cliente'
+       else
+          FTitulo := 'Nueva factura proforma de cliente'
     else
        if Factura.TIPO = CTE_TIPO_FACTURA then
           FTitulo := 'Factura de cliente'  + ' - ' + FFactura.Cliente.Nombre
+       else if Factura.TIPO = CTE_TIPO_ABONO then
+          FTitulo := 'Abono a cliente'  + ' - ' + FFactura.Cliente.Nombre
        else
-          FTitulo := 'Abono a cliente'  + ' - ' + FFactura.Cliente.Nombre       
+          FTitulo := 'Factura proforma de cliente'  + ' - ' + FFactura.Cliente.Nombre
   end;
 
   inherited PonerTitulos(FTitulo);

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

@@ -52,6 +52,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
           Action = actNuevoAbono
           Caption = 'Nuevo abono...'
         end
+        object TBXItem41: TTBXItem
+          Action = actNuevaProforma
+        end
       end
       inherited TBXItem2: TTBXItem
         Visible = False
@@ -285,6 +288,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
       ImageIndex = 25
       OnExecute = actInformesExecute
     end
+    object actNuevaProforma: TAction
+      Category = 'Archivo'
+      Caption = 'Proforma'
+      ImageIndex = 6
+      OnExecute = actNuevaProformaExecute
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

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

@@ -35,12 +35,15 @@ type
     actInformes: TAction;
     JSInformesDialog: TJSDialog;
     TBXItem40: TTBXItem;
+    actNuevaProforma: TAction;
+    TBXItem41: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
     procedure actNuevoAbonoExecute(Sender: TObject);
     procedure actInformesExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure actNuevaProformaExecute(Sender: TObject);
 
   private
     FFacturas: IBizFacturaCliente;
@@ -128,6 +131,12 @@ begin
   actNuevo.Execute;
 end;
 
+procedure TfEditorFacturasCliente.actNuevaProformaExecute(Sender: TObject);
+begin
+  if FController.AnadirProforma(Facturas) then
+     FController.Ver(Facturas);
+end;
+
 procedure TfEditorFacturasCliente.actNuevoAbonoExecute(Sender: TObject);
 var
   Respuesta : Integer;

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

@@ -32,6 +32,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           item
             Description = 'Abono'
             Value = 'A'
+          end
+          item
+            Description = 'Proforma'
+            Value = 'B'
           end>
       end
       object cxGridViewTIENDA: TcxGridDBColumn
@@ -45,10 +49,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 +56,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'
@@ -404,6 +412,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       AssignedValues = [svTextColor]
       TextColor = clBlue
     end
+    object cxStyleProforma: TcxStyle
+      AssignedValues = [svTextColor]
+      TextColor = clFuchsia
+    end
   end
   object PngImageList: TPngImageList
     PngImages = <

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

@@ -63,6 +63,8 @@ type
     cxGridViewREF_CONTRATO: TcxGridDBColumn;
     cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
     cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
+    cxGridViewFECHA_COBRO: TcxGridDBColumn;
+    cxStyleProforma: TcxStyle;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
@@ -212,6 +214,11 @@ begin
     IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
     if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
       AStyle := cxStyleAbono;
+
+    IndiceCol := cxGridViewTIPO.Index;
+    if (ARecord.Values[IndiceCol] = 'B') then
+      AStyle := cxStyleProforma;
+
   end;
 end;
 

Source/Servidor/FactuGES_Server.dproj

@@ -28,7 +28,11 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de octubre de 2013 18:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 09 de febrero de 2018 12:30</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>True</ModelSupport></BorlandProject></BorlandProject>