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
Adaptacion facturas proforma
2018-10-02 10:16:05 +00:00 · 2018-03-23 10:55:05 +00:00 · 2018-02-09 11:10:33 +00:00 · 2016-08-30 09:32:52 +00:00 · 2016-08-30 09:16:27 +00:00 · 2016-08-25 16:02:07 +00:00
32 changed files with 597 additions and 162 deletions
--- a/Build/Build.fbl6
+++ b/Build/Build.fbl6
--- a/Database/scripts/factuges.sql
+++ b/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
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/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;
--- a/Source/Base/Base.dproj
+++ b/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>
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/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
--- a/Source/Cliente/FactuGES.dproj
+++ b/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>
--- a/Source/Cliente/FactuGES.res
+++ b/Source/Cliente/FactuGES.res
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
--- a/Source/Informes/1/InfFacturaProforma.fr3
+++ b/Source/Informes/1/InfFacturaProforma.fr3
--- a/Source/Informes/InfFacturaCliente.fr3
+++ b/Source/Informes/InfFacturaCliente.fr3
--- a/Source/Informes/InfFacturaClienteProforma.fr3
+++ b/Source/Informes/InfFacturaClienteProforma.fr3
--- a/cliente/Controller/FacturasCliente_controller.RES
+++ b/cliente/Controller/FacturasCliente_controller.RES
--- a/cliente/Controller/FacturasCliente_controller.dproj
+++ b/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="..\..\Contratos de cliente\Views\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_data.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Views\RecibosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
    <DCCReference Include="uArticulosFacturaClienteController.pas" />
    <DCCReference Include="uDetallesFacturaClienteController.pas" />
    <DCCReference Include="uFacturasClienteController.pas" />
--- a/cliente/Controller/uFacturasClienteController.pas
+++ b/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;
--- a/cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/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]
--- a/cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/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_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
-  RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
+  RID_ListaAnosFacturas = '{3C8C9440-F7E3-4755-BD1E-A23173A9F92C}';
+  RID_FacturasCliente = '{AEE286AF-3740-4F5B-8D65-F1362D26A3D7}';
+  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);
--- a/cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/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_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
-  RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
+  RID_ListaAnosFacturasDelta = '{5A534CAA-740E-4DE3-A6D4-25E714DAD424}';
+  RID_FacturasClienteDelta = '{C8710EA1-DBBC-4657-A84B-911C5EF001CA}';
+  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);
--- a/cliente/Model/uBizFacturasCliente.pas
+++ b/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
--- a/cliente/Model/uBizFacturasClienteServer.pas
+++ b/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
-//  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_CLIENTE;
+//Se hace distinción en la referencia entre proformas y (facturas/abonos)
+  if TIPO = CTE_TIPO_PROFORMA then
+     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;
--- a/cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/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.ID_TIENDA,'#10'    V_FACTURAS_CLIENTE.IMPORTE_N' +
-              'ETO,'#10'    V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' +
-              'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_FACTURAS_C' +
-              'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10'    V_FACTURAS_CLIEN' +
-              'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10'    V_FACTURAS_CLIENTE.IMP' +
-              'ORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
-              'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10'    V_FA' +
-              'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.TELEFONO_C' +
-              'LIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
-              '_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
-              'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10'    C' +
-              'ONTACTOS_DATOS_BANCO.TITULAR,'#10'    CONTACTOS_DATOS_BANCO.ENTIDAD,' +
-              #10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10'    CONTACTOS_DATOS_BANCO.D' +
-              'C,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10'    ID_EMPRESA, EMPRESAS.NI' +
-              'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CA' +
-              'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
-              '   EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
-              'AL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.F' +
-              'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB,' +
-              ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO,'#10'    V_FACTURAS_' +
-              'CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN' +
-              ' EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (' +
-              'FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CON' +
-              'TACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FAC' +
-              'TURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+              ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10'    V_FACTURAS_CLIENTE.TIPO,'#10 +
+              '    V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10'   ' +
+              ' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10'    V_FACTURAS_CLIENTE.BASE_IM' +
+              'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' +
+              'E_DESCUENTO,'#10'    V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' +
+              'RTE_IVA,'#10'    V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' +
+              'E,'#10'    V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.' +
+              'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' +
+              '_CLIENTE.ID_CLIENTE,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_CLIENTE, ' +
+              'V_FACTURAS_CLIENTE.TELEFONO_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF,' +
+              ' V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10'    V_FACT' +
+              'URAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACT' +
+              'URAS_CLIENTE.POBLACION,'#10'    CONTACTOS_DATOS_BANCO.TITULAR,'#10'    C' +
+              'ONTACTOS_DATOS_BANCO.ENTIDAD,'#10'    CONTACTOS_DATOS_BANCO.SUCURSAL' +
+              ','#10'    CONTACTOS_DATOS_BANCO.DC,'#10'    CONTACTOS_DATOS_BANCO.CUENTA' +
+              ','#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.' +
+              'RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBL' +
+              'ACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_' +
+              'EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EM' +
+              'PRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAI' +
+              'L_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRE' +
+              'SAS.LOGOTIPO,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM' +
+              ' V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRE' +
+              'SA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE' +
+              '.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DA' +
+              '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
--- a/cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/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));

--- a/cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/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' +
-              'SA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,' +
-              #10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'  ' +
-              '  :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE' +
-              '_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :' +
-              'NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_' +
-              'POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,' +
-              #10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,' +
-              #10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10 +
-              '    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUACION,'#10'    :REFERE' +
-              'NCIA_PRESUPUESTO);'#10
+              'N,'#10'    REFERENCIA_PRESUPUESTO,'#10'    FECHA_COBRO)'#10'  VALUES ('#10'    :' +
+              'ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :F' +
+              'ECHA_VENCIMIENTO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPO' +
+              'RTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE' +
+              '_RE,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'  ' +
+              '  :NIF_CIF,'#10'    :NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVIN' +
+              'CIA,'#10'    :CODIGO_POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'  ' +
+              '  :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10' ' +
+              '   :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,' +
+              #10'    :ID_TIENDA,'#10'    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUA' +
+              '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>
--- a/cliente/Views/uEditorFacturaCliente.dfm
+++ b/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
--- a/cliente/Views/uEditorFacturaCliente.pas
+++ b/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('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
+      ShowInfoMessage('La factura proforma 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);
--- a/cliente/Views/uEditorFacturasCliente.dfm
+++ b/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 = <
--- a/cliente/Views/uEditorFacturasCliente.pas
+++ b/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;
--- a/cliente/Views/uViewFacturaCliente.dfm
+++ b/cliente/Views/uViewFacturaCliente.dfm
@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 451
-  Height = 304
+  Width = 849
+  Height = 552
  Align = alClient
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
@ -9,17 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
-    Width = 451
-    Height = 304
+    Width = 849
+    Height = 552
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 451
+    ExplicitHeight = 304
    DesignSize = (
-      451
-      304)
+      849
+      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
-          ExplicitLeft = 192
+          Left = 278
+          ExplicitLeft = 278
        end
        inherited Button3: TBitBtn
-          Left = 82
-          ExplicitLeft = 82
+          Left = 168
+          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'
--- a/cliente/Views/uViewFacturaCliente.pas
+++ b/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);
--- a/cliente/Views/uViewFacturasCliente.dfm
+++ b/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 = <
--- a/cliente/Views/uViewFacturasCliente.pas
+++ b/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;

--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/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>
--- a/Source/Servidor/FactuGES_Server.res
+++ b/Source/Servidor/FactuGES_Server.res
Author	SHA1	Message	Date
roberto	b16b00e42f	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	2018-10-02 10:16:05 +00:00
roberto	375753d0de	Adaptacion facturas proforma git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@21 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2018-03-23 10:55:05 +00:00
roberto	2ba69c25c5	Se adapta a factura proforma git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@20 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2018-02-09 11:10:33 +00:00
roberto	e0abbeaf63	git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@19 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2016-08-30 09:32:52 +00:00
roberto	bfb5ae5523	se pone nombre en factura git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@18 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2016-08-30 09:16:27 +00:00
roberto	03bedcc590	Se saca campo observaciones git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@17 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2016-08-25 16:02:07 +00:00
roberto	d0a0167d94	Se modifica para nombres largos git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@16 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2016-08-22 14:43:55 +00:00
roberto	1a06aab814	Se modifica para direcciones largas git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@15 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2016-08-22 14:29:46 +00:00
david	be0a2a767c	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	2015-05-08 16:28:45 +00:00
david	8c41fcaa6a	Se arreglan informes de grid para que cambie nombre de empresa git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@13 e61cf4a9-ab77-6246-bebb-cff159b4cb7d	2015-03-03 16:32:19 +00:00