Database/scripts/factuges.sql

@@ -926,8 +926,7 @@ 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 (
@@ -2774,8 +2773,7 @@ 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,
@@ -2828,8 +2826,7 @@ 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,12 +227,6 @@ 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,34 +44,6 @@
     <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, uNumUtils;
+  cxControls, SysUtils, DB, uDAInterfaces, Dialogs;
 
 procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
 begin

Source/Cliente/FactuGES.dproj

@@ -51,8 +51,7 @@
     <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">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>
+<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>
-      
       
       
       <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="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\Articulos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\FormasPago_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Contratos de cliente\Views\RecibosCliente_controller.dcp" />
     <DCCReference Include="uArticulosFacturaClienteController.pas" />
     <DCCReference Include="uDetallesFacturaClienteController.pas" />
     <DCCReference Include="uFacturasClienteController.pas" />

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

@@ -28,7 +28,6 @@ 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;
@@ -93,7 +92,6 @@ 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;
@@ -206,14 +204,6 @@ 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
@@ -608,7 +598,6 @@ 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,15 +351,6 @@ 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 = '{3C8C9440-F7E3-4755-BD1E-A23173A9F92C}';
+  RID_ListaAnosFacturas = '{4FB44137-F728-4E8D-8D74-69487A7AC43A}';
-  RID_FacturasCliente = '{AEE286AF-3740-4F5B-8D65-F1362D26A3D7}';
+  RID_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
-  RID_FacturasCliente_Detalles = '{5984177D-06A4-4A10-89F9-8919F1162664}';
+  RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -76,8 +76,6 @@ 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;
@@ -131,8 +129,6 @@ 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';
@@ -171,7 +167,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{30B99999-43BA-49D8-A7FD-00B1D68921F5}']
+  ['{15A2EAF7-43DA-4695-BBFA-DD864D47A79F}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -206,7 +202,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{BC559238-5D9F-4692-96F0-0275DE79780A}']
+  ['{DCCE714A-24FC-4693-A768-AE271A87BD4B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -411,14 +407,6 @@ 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 }
@@ -524,10 +512,6 @@ 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 }
@@ -740,14 +724,6 @@ 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;
@@ -852,10 +828,6 @@ 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;
@@ -865,7 +837,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{BB9E9075-143F-4EC9-B4ED-500470F34697}']
+  ['{EC03457E-43B2-4E08-A995-24CBF1341748}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2192,48 +2164,6 @@ 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 = '{5A534CAA-740E-4DE3-A6D4-25E714DAD424}';
+  RID_ListaAnosFacturasDelta = '{263E7CFE-EAF5-4A59-994D-C319488DE385}';
-  RID_FacturasClienteDelta = '{C8710EA1-DBBC-4657-A84B-911C5EF001CA}';
+  RID_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
-  RID_FacturasCliente_DetallesDelta = '{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}';
+  RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{5A534CAA-740E-4DE3-A6D4-25E714DAD424}']
+  ['{263E7CFE-EAF5-4A59-994D-C319488DE385}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{C8710EA1-DBBC-4657-A84B-911C5EF001CA}']
+  ['{D73F0972-622D-4F89-A8AC-DC65E3205A58}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -103,8 +103,6 @@ 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;
@@ -158,8 +156,6 @@ 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 }
@@ -474,18 +470,6 @@ 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;
@@ -692,14 +676,6 @@ 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;
@@ -709,7 +685,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}']
+  ['{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -2557,68 +2533,6 @@ 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,7 +11,6 @@ const
 
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
-  CTE_TIPO_PROFORMA = 'B';
 
   CTE_PENDIENTE = 'PENDIENTE';
   CTE_PARCIAMENTE_PAGADA = 'PARCIALMENTE PAGADA';
@@ -269,13 +268,6 @@ 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,10 +33,8 @@ 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 }
 
@@ -130,11 +128,9 @@ var
   AClientID : TGUID;
   ATipo : String;
 begin
-//Se hace distinción en la referencia entre proformas y (facturas/abonos)
+//No se hace distinción en la referencia entre facturas y abonos
-  if TIPO = CTE_TIPO_PROFORMA then
+//  if TIPO = CTE_TIPO_FACTURA then
-     ATipo := REF_FACTURAS_PROFORMA
+    ATipo := REF_FACTURAS_CLIENTE;
-  else
-     ATipo := REF_FACTURAS_CLIENTE;
 //  else
 //    ATipo := REF_ABONOS_CLIENTE;
 
@@ -152,9 +148,7 @@ var
   AClientID : TGUID;
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_PROFORMA then
+//  if TIPO = CTE_TIPO_FACTURA 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,33 +642,32 @@ 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.TIPO,'#10 +
+              ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10'    V_FACTURAS_CLIENTE.TIENDA' +
-              '    V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10'   ' +
+              ', V_FACTURAS_CLIENTE.ID_TIENDA,'#10'    V_FACTURAS_CLIENTE.IMPORTE_N' +
-              ' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10'    V_FACTURAS_CLIENTE.BASE_IM' +
+              'ETO,'#10'    V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' +
-              'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' +
+              'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_FACTURAS_C' +
-              'E_DESCUENTO,'#10'    V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' +
+              'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10'    V_FACTURAS_CLIEN' +
-              'RTE_IVA,'#10'    V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' +
+              'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10'    V_FACTURAS_CLIENTE.IMP' +
-              'E,'#10'    V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.' +
+              'ORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
-              'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' +
+              'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10'    V_FA' +
-              '_CLIENTE.ID_CLIENTE,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_CLIENTE, ' +
+              'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.TELEFONO_C' +
-              'V_FACTURAS_CLIENTE.TELEFONO_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF,' +
+              'LIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
-              ' V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10'    V_FACT' +
+              '_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
-              'URAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACT' +
+              'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10'    C' +
-              'URAS_CLIENTE.POBLACION,'#10'    CONTACTOS_DATOS_BANCO.TITULAR,'#10'    C' +
+              'ONTACTOS_DATOS_BANCO.TITULAR,'#10'    CONTACTOS_DATOS_BANCO.ENTIDAD,' +
-              'ONTACTOS_DATOS_BANCO.ENTIDAD,'#10'    CONTACTOS_DATOS_BANCO.SUCURSAL' +
+              #10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10'    CONTACTOS_DATOS_BANCO.D' +
-              ','#10'    CONTACTOS_DATOS_BANCO.DC,'#10'    CONTACTOS_DATOS_BANCO.CUENTA' +
+              'C,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10'    ID_EMPRESA, EMPRESAS.NI' +
-              ','#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.' +
+              'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CA' +
-              'RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBL' +
+              'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
-              'ACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_' +
+              '   EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
-              'EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EM' +
+              'AL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.F' +
-              'PRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAI' +
+              'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB,' +
-              'L_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRE' +
+              ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO,'#10'    V_FACTURAS_' +
-              'SAS.LOGOTIPO,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM' +
+              'CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN' +
-              ' V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRE' +
+              ' EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (' +
-              'SA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE' +
+              'FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CON' +
-              '.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DA' +
+              'TACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FAC' +
-              'TOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_F' +
+              'TURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
-              'ACTURAS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -872,11 +871,6 @@ object RptFacturasCliente: TRptFacturasCliente
                 DatasetField = 'TELEFONO_CLIENTE'
                 TableField = '<unknown>'
                 SQLOrigin = 'TELEFONO_CLIENTE'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = '<unknown>'
-                SQLOrigin = 'TIPO'
               end>
           end>
         Name = 'InformeFacturasCliente'
@@ -898,11 +892,6 @@ 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,7 +82,6 @@ uses
 
 const
   rptFacturaCliente = 'InfFacturaCliente.fr3';
-   rptFacturaProforma = 'InfFacturaProforma.fr3';
 
   rptInformeIVA = 'InformeIVAClientes.fr3';
   rptInformeIVADesglosado = 'InformeIVAClientesDesglosado.fr3';
@@ -686,12 +685,7 @@ begin
     tbl_Detalles.Active := True;
     tbl_Vencimientos.Active := True;
 
-    if (tbl_Cabecera.FieldByName('TIPO').AsString = 'B') then
+    AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
-       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,14 +251,6 @@ 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'
@@ -541,15 +533,6 @@ 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
@@ -1158,11 +1141,6 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datString
             Size = 255
             Value = ''
-          end
-          item
-            Name = 'FECHA_COBRO'
-            DataType = datDateTime
-            Value = ''
           end>
         Statements = <
           item
@@ -1179,17 +1157,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'    FECHA_COBRO)'#10'  VALUES ('#10'    :' +
+              'N,'#10'    REFERENCIA_PRESUPUESTO)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRE' +
-              'ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :F' +
+              'SA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,' +
-              'ECHA_VENCIMIENTO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPO' +
+              #10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'  ' +
-              'RTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE' +
+              '  :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE' +
-              '_RE,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'  ' +
+              '_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :' +
-              '  :NIF_CIF,'#10'    :NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVIN' +
+              'NOMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_' +
-              'CIA,'#10'    :CODIGO_POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'  ' +
+              'POSTAL,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,' +
-              '  :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10' ' +
+              #10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,' +
-              '   :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,' +
+              #10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10 +
-              #10'    :ID_TIENDA,'#10'    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUA' +
+              '    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUACION,'#10'    :REFERE' +
-              'CION,'#10'    :REFERENCIA_PRESUPUESTO,'#10'    :FECHA_COBRO);'#10
+              'NCIA_PRESUPUESTO);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1367,11 +1345,6 @@ object srvFacturasCliente: TsrvFacturasCliente
             Size = 255
             Value = ''
           end
-          item
-            Name = 'FECHA_COBRO'
-            DataType = datDateTime
-            Value = ''
-          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1398,8 +1371,7 @@ 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'    FECHA_COBRO = :FECHA_COBRO'#10'  WHERE' +
+              ' :REFERENCIA_PRESUPUESTO'#10'  WHERE'#10'  (ID = :OLD_ID);'#10
-              #10'  (ID = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

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

@@ -115,43 +115,63 @@ 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
@@ -159,6 +179,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 276
+                Width = 276
               end
               inherited edtCalle: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -166,6 +188,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 276
+                Width = 276
               end
               inherited edtPoblacion: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -173,6 +197,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 158
+                Width = 158
               end
               inherited edtProvincia: TcxDBTextEdit
                 DataBinding.DataSource = dsDataTable
@@ -180,6 +206,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 276
+                Width = 276
               end
               inherited edtCodigoPostal: TcxDBTextEdit
                 Left = 306
@@ -199,6 +227,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 283
+                Width = 283
               end
             end
           end
@@ -207,14 +237,19 @@ 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
@@ -222,6 +257,12 @@ 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
@@ -434,8 +475,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       inherited Bevel3: TBevel
         Left = 489
         Top = 30
+        Height = 122
         ExplicitLeft = 489
         ExplicitTop = 30
+        ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
         Left = 601
@@ -554,6 +597,8 @@ 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
-      ShowInfoMessage('La factura proforma se ha dado de alta con el código ' + FFactura.REFERENCIA)
+    begin
+      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,10 +393,8 @@ 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 esta factura proforma';
+      ACadena := 'Antes debe elegir un cliente para este abono';
     ShowWarningMessage(ACadena);
     AllowChange := False;
   end;
@@ -412,17 +410,13 @@ begin
     if Factura.EsNuevo then
        if Factura.TIPO = CTE_TIPO_FACTURA then
           FTitulo := 'Nueva factura de cliente'
-       else if Factura.TIPO = CTE_TIPO_ABONO then
-          FTitulo := 'Nuevo abono a cliente'
        else
-          FTitulo := 'Nueva factura proforma de cliente'
+          FTitulo := 'Nuevo abono a 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 := 'Factura proforma de cliente'  + ' - ' + FFactura.Cliente.Nombre
+          FTitulo := 'Abono a cliente'  + ' - ' + FFactura.Cliente.Nombre       
   end;
 
   inherited PonerTitulos(FTitulo);

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

@@ -52,9 +52,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
           Action = actNuevoAbono
           Caption = 'Nuevo abono...'
         end
-        object TBXItem41: TTBXItem
-          Action = actNuevaProforma
-        end
       end
       inherited TBXItem2: TTBXItem
         Visible = False
@@ -288,12 +285,6 @@ 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,15 +35,12 @@ 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;
@@ -131,12 +128,6 @@ 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 = 849
+  Width = 451
-  Height = 552
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 849
+    Width = 451
-    Height = 552
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      849
+      451
-      552)
+      304)
     object eReferencia: TcxDBTextEdit
       Left = 135
       Top = 30
@@ -66,7 +64,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 135
-      Top = 189
+      Top = 162
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Enabled = False
@@ -94,22 +92,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 4
       Width = 78
     end
     object bFormasPago: TButton
       Left = 297
-      Top = 189
+      Top = 162
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
       Enabled = False
-      TabOrder = 6
+      TabOrder = 5
       OnClick = bFormasPagoClick
     end
     inline frViewTienda1: TfrViewTienda
       Left = 22
-      Top = 323
+      Top = 296
       Width = 351
       Height = 48
       Enabled = False
@@ -119,10 +117,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 10
+      TabOrder = 9
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 323
+      ExplicitTop = 296
       ExplicitWidth = 351
       ExplicitHeight = 48
       inherited dxLayoutControl1: TdxLayoutControl
@@ -152,7 +150,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 12
+      TabOrder = 11
       ReadOnly = False
       ExplicitLeft = 457
       ExplicitTop = 30
@@ -184,12 +182,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 276
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 278
+          Left = 192
-          ExplicitLeft = 278
+          ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
-          Left = 168
+          Left = 82
-          ExplicitLeft = 168
+          ExplicitLeft = 82
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 283
@@ -199,7 +197,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object edtFechaVencimiento: TcxDBDateEdit
       Left = 135
-      Top = 218
+      Top = 191
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VENCIMIENTO'
       DataBinding.DataSource = DADataSource
@@ -220,12 +218,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 7
+      TabOrder = 6
       Width = 310
     end
     inline frViewObservaciones1: TfrViewObservaciones
       Left = 22
-      Top = 452
+      Top = 425
       Width = 521
       Height = 20
       Font.Charset = DEFAULT_CHARSET
@@ -234,10 +232,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 13
+      TabOrder = 12
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 452
+      ExplicitTop = 425
       ExplicitHeight = 20
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataField = 'OBSERVACIONES'
@@ -248,7 +246,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object cbRecargoEquivalencia: TcxDBCheckBox
       Left = 22
-      Top = 401
+      Top = 374
       Caption = '  No acogida a comisiones'
       DataBinding.DataField = 'SIN_COMISION'
       DataBinding.DataSource = DADataSource
@@ -274,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 11
+      TabOrder = 10
       Width = 158
     end
     object edtSituacion: TcxDBComboBox
@@ -292,7 +290,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object edtRefContrato: TcxDBTextEdit
       Left = 135
-      Top = 269
+      Top = 242
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'REF_CONTRATO'
@@ -309,13 +307,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 8
+      TabOrder = 7
       Height = 21
       Width = 294
     end
     object edtRefClienteContrato: TcxDBTextEdit
       Left = 135
-      Top = 296
+      Top = 269
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'REF_CLI_CONTRATO'
@@ -332,7 +330,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 8
       Height = 21
       Width = 294
     end
@@ -356,27 +354,6 @@ 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
@@ -416,11 +393,6 @@ 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,8 +66,6 @@ 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,10 +32,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           item
             Description = 'Abono'
             Value = 'A'
-          end
-          item
-            Description = 'Proforma'
-            Value = 'B'
           end>
       end
       object cxGridViewTIENDA: TcxGridDBColumn
@@ -49,6 +45,10 @@ 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,14 +56,6 @@ 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'
@@ -412,10 +404,6 @@ 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,8 +63,6 @@ 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);
@@ -214,11 +212,6 @@ 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,11 +28,7 @@
     <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">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>
+<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>
-      
-      
-      
-      
       
       <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>