Logotipo ISO en Tecsitel

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1099 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Build/Build.fbpInf

@@ -6,7 +6,7 @@
   <propertysets/>
   <variables>
     <project_path>
-      <![CDATA[C:\Codigo Tecsitel]]>
+      <![CDATA[C:\Codigo tecsitel]]>
     </project_path>
   </variables>
   <properties>

Database/scripts/factuges.sql

@@ -690,7 +690,8 @@ CREATE TABLE FACTURAS_CLIENTE (
     DATOS_BANCARIOS        VARCHAR(255),
 	  CLIENTE_FINAL          VARCHAR(255),
     RETENCION              TIPO_PORCENTAJE,
-    IMPORTE_RETENCION      TIPO_IMPORTE
+    IMPORTE_RETENCION      TIPO_IMPORTE,
+    CERTIFICADO_ISO        TIPO_BOOLEANO
 );
 
 CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -1046,7 +1047,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     PERSONA_CONTACTO     VARCHAR(255),
     ID_DIRECCION         TIPO_ID,
     DESCRIPCION_BONIFICACION  VARCHAR(255) COLLATE ES_ES,
-    IMPORTE_BONIFICACION      TIPO_IMPORTE 
+    IMPORTE_BONIFICACION      TIPO_IMPORTE,
+    CERTIFICADO_ISO           TIPO_BOOLEANO 
 );
 
 CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -2053,47 +2055,48 @@ GROUP BY ID_FACTURA
 
 /* View: V_FACTURAS_CLIENTE */
 CREATE VIEW V_FACTURAS_CLIENTE(
-	ID,
+    ID,
-	ID_EMPRESA,
+    ID_EMPRESA,
-	REFERENCIA,
+    REFERENCIA,
-	TIPO,
+    TIPO,
-	ID_COMISION_LIQUIDADA,
+    ID_COMISION_LIQUIDADA,
-	FECHA_FACTURA,
+    FECHA_FACTURA,
-  FECHA_VENCIMIENTO,	
+    FECHA_VENCIMIENTO,
-  FECHA_RETENCION,
+    FECHA_RETENCION,
-	SITUACION,
+    SITUACION,
-	BASE_IMPONIBLE,
+    BASE_IMPONIBLE,
-	DESCUENTO,
+    DESCUENTO,
-	IMPORTE_DESCUENTO,
+    IMPORTE_DESCUENTO,
-	IVA,
+    IVA,
-	IMPORTE_IVA,
+    IMPORTE_IVA,
-	RE,
+    RE,
-	IMPORTE_RE,
+    IMPORTE_RE,
-	IMPORTE_TOTAL,
+    IMPORTE_TOTAL,
-	OBSERVACIONES,
+    OBSERVACIONES,
-	ID_CLIENTE,
+    ID_CLIENTE,
-	NIF_CIF,
+    NIF_CIF,
-	NOMBRE,
+    NOMBRE,
-	ID_DIRECCION,
+    ID_DIRECCION,
-	CALLE,
+    CALLE,
-	POBLACION,
+    POBLACION,
-	PROVINCIA,
+    PROVINCIA,
-	CODIGO_POSTAL,
+    CODIGO_POSTAL,
-	DATOS_BANCARIOS,
+    DATOS_BANCARIOS,
-	CLIENTE_FINAL,
+    CLIENTE_FINAL,
-	FECHA_ALTA,
+    FECHA_ALTA,
-	FECHA_MODIFICACION,
+    FECHA_MODIFICACION,
-	USUARIO,
+    USUARIO,
-	ID_FORMA_PAGO,
+    ID_FORMA_PAGO,
-	RECARGO_EQUIVALENCIA,
+    RECARGO_EQUIVALENCIA,
-	ID_TIPO_IVA,
+    ID_TIPO_IVA,
-	IMPORTE_NETO,
+    IMPORTE_NETO,
-	IMPORTE_PORTE,
+    IMPORTE_PORTE,
-	ID_AGENTE,
+    ID_AGENTE,
-	REFERENCIA_COMISION,
+    REFERENCIA_COMISION,
-	RETENCION,
+    RETENCION,
-	IMPORTE_RETENCION)
+    IMPORTE_RETENCION,
- AS 
+    CERTIFICADO_ISO)
+AS
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
   FACTURAS_CLIENTE.REFERENCIA,
@@ -2133,14 +2136,15 @@ SELECT FACTURAS_CLIENTE.ID,
   CLIENTES_DATOS.ID_AGENTE,
   COMISIONES_LIQUIDADAS.REFERENCIA,
   FACTURAS_CLIENTE.RETENCION,
-  FACTURAS_CLIENTE.IMPORTE_RETENCION
+  FACTURAS_CLIENTE.IMPORTE_RETENCION,
+  FACTURAS_CLIENTE.CERTIFICADO_ISO
   FROM V_FAC_CLI_SITUACION
   LEFT JOIN FACTURAS_CLIENTE
   ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
   LEFT JOIN COMISIONES_LIQUIDADAS
   ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
   LEFT JOIN CLIENTES_DATOS
-  ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
+  ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
 ;
 
 
@@ -3068,7 +3072,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     FACTURA,
     PERSONA_CONTACTO,
     DESCRIPCION_BONIFICACION,
-    IMPORTE_BONIFICACION)
+    IMPORTE_BONIFICACION,
+    CERTIFICADO_ISO)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -3105,7 +3110,8 @@ SELECT
   FACTURAS_CLIENTE.REFERENCIA,
   PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,
   PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
-  PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION  
+  PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
+  PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO
 FROM
   PRESUPUESTOS_CLIENTE
   INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)  

Source/Cliente/FactuGES.rc

@@ -1,4 +1,4 @@
-MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
+MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
 FILEVERSION 2,0,5,0
 PRODUCTVERSION 2,0,5,0

Source/GUIBase/uViewFiltroBase.dfm

@@ -76,7 +76,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
         Width = 100
       end
       object edtFechaFinFiltro: TcxDateEdit
-        Left = 198
+        Left = 143
         Top = 37
         Properties.OnChange = OnCamposFiltroChange
         Style.BorderColor = clWindowFrame
@@ -100,7 +100,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
         Width = 100
       end
       object eLista: TcxComboBox
-        Left = 331
+        Left = 242
         Top = 37
         Properties.DropDownListStyle = lsEditFixedList
         Properties.OnChange = OnCamposFiltroChange
@@ -116,6 +116,23 @@ inherited frViewFiltroBase: TfrViewFiltroBase
         TabOrder = 3
         Width = 215
       end
+      object eLista2: TcxComboBox
+        Left = 416
+        Top = 37
+        Properties.DropDownListStyle = lsEditFixedList
+        Properties.OnChange = OnCamposFiltroChange
+        Style.BorderColor = clWindowFrame
+        Style.BorderStyle = ebs3D
+        Style.HotTrack = False
+        Style.LookAndFeel.SkinName = ''
+        Style.ButtonStyle = bts3D
+        Style.PopupBorderStyle = epbsFrame3D
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        TabOrder = 4
+        Width = 207
+      end
       object dxLayoutControl1Group_Root: TdxLayoutGroup
         ShowCaption = False
         Hidden = True
@@ -152,6 +169,14 @@ inherited frViewFiltroBase: TfrViewFiltroBase
             Control = eLista
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item5: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Lista2:'
+            Visible = False
+            Control = eLista2
+            ControlOptions.ShowBorder = False
+          end
         end
       end
     end

Source/GUIBase/uViewFiltroBase.pas

@@ -45,6 +45,8 @@ type
     TBXAlignmentPanel1: TTBXAlignmentPanel;
     dxLayoutControl1Item4: TdxLayoutItem;
     eLista: TcxComboBox;
+    dxLayoutControl1Item5: TdxLayoutItem;
+    eLista2: TcxComboBox;
     procedure OnCamposFiltroChange(Sender: TObject);
     procedure actQuitarFiltroExecute(Sender: TObject);
 

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -236,8 +236,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 638
-          ExplicitWidth = 215
-          Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas

@@ -229,7 +229,8 @@ begin
   if (ARecord.Values[Sender.Index] = '1') then
   begin
     AIsHintMultiLine := True;
-    AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+    if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+       AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
   end;
 end;
 

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm

@@ -171,24 +171,22 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
           Width = 188
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 292
+          Left = 210
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 292
+          ExplicitLeft = 210
           ExplicitWidth = 294
           Width = 294
         end
         inherited eLista: TcxComboBox
-          Left = 623
+          Left = 447
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 623
+          ExplicitLeft = 447
-          ExplicitWidth = 215
-          Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas

@@ -12,7 +12,7 @@ uses
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
   cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
   ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit,
-  uDAInterfaces;
+  uDAInterfaces, uCustomView, uViewBase;
 
 type
   IViewAlbaranesProveedor = interface(IViewGrid)
@@ -192,7 +192,8 @@ begin
   if (ARecord.Values[Sender.Index] = '1') then
   begin
     AIsHintMultiLine := True;
-    AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+    if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+       AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
   end;
 end;
 

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

@@ -265,11 +265,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       end
       item
         Name = 'RETENCION'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_RETENCION'
         DataType = datCurrency
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

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

@@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturas = '{FD7D4D74-BB5E-4F18-9F1A-AAF12EB25DC9}';
+  RID_ListaAnosFacturas = '{2BE0816C-FC37-48FE-821C-2E95BF7FE692}';
-  RID_FacturasCliente = '{C2CB3D1C-C182-4CE2-AA95-14AE2D5FFC12}';
+  RID_FacturasCliente = '{D5524FA0-4AEE-4B36-A0C4-C5FC20DA3080}';
-  RID_FacturasCliente_Detalles = '{CAE1BB94-5B84-483D-8C3A-1300951E64F2}';
+  RID_FacturasCliente_Detalles = '{E3866D80-EDE0-4C5D-82A8-50B6970312D3}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -65,6 +65,7 @@ const
   fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
   fld_FacturasClienteRETENCION = 'RETENCION';
   fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
+  fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -107,6 +108,7 @@ const
   idx_FacturasClienteREFERENCIA_COMISION = 37;
   idx_FacturasClienteRETENCION = 38;
   idx_FacturasClienteIMPORTE_RETENCION = 39;
+  idx_FacturasClienteCERTIFICADO_ISO = 40;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -145,7 +147,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{CD6D3B14-759E-4A7A-A148-CB8DDBFA0D92}']
+  ['{36AA5910-CD3F-4B7B-8E88-3FCD9B019983}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -159,7 +161,7 @@ type
   end;
 
   { TListaAnosFacturasDataTableRules }
-  TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
   private
   protected
     { Property getters and setters }
@@ -180,7 +182,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{6E9731DA-0B33-43DF-9128-37F89A8D1645}']
+  ['{3CA669F5-C2C0-425D-A432-7CA926F1EF4D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -333,14 +335,18 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String);
     function GetREFERENCIA_COMISIONIsNull: Boolean;
     procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
-    function GetRETENCIONValue: Float;
+    function GetRETENCIONValue: Currency;
-    procedure SetRETENCIONValue(const aValue: Float);
+    procedure SetRETENCIONValue(const aValue: Currency);
     function GetRETENCIONIsNull: Boolean;
     procedure SetRETENCIONIsNull(const aValue: Boolean);
     function GetIMPORTE_RETENCIONValue: Currency;
     procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
     function GetIMPORTE_RETENCIONIsNull: Boolean;
     procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+    function GetCERTIFICADO_ISOValue: SmallInt;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+    function GetCERTIFICADO_ISOIsNull: Boolean;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -420,14 +426,16 @@ type
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
-    property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+    property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
     property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
     property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
     property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+    property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
-  TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -584,14 +592,18 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
     function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
     procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
-    function GetRETENCIONValue: Float; virtual;
+    function GetRETENCIONValue: Currency; virtual;
-    procedure SetRETENCIONValue(const aValue: Float); virtual;
+    procedure SetRETENCIONValue(const aValue: Currency); virtual;
     function GetRETENCIONIsNull: Boolean; virtual;
     procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_RETENCIONValue: Currency; virtual;
     procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
     function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
     procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+    function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+    function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -670,10 +682,12 @@ type
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
-    property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+    property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
     property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
     property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
     property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+    property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -683,7 +697,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{7562C65C-C3D3-4104-BAAE-5F11D0C87BF4}']
+  ['{1B150346-57B9-49D8-8074-3E0886CCB78B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -781,7 +795,7 @@ type
   end;
 
   { TFacturasCliente_DetallesDataTableRules }
-  TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+  TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1737,14 +1751,14 @@ begin
     DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
 end;
 
-function TFacturasClienteDataTableRules.GetRETENCIONValue: Float;
+function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency;
 begin
-  result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat;
+  result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency;
 end;
 
-procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float);
+procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue;
+  DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue;
 end;
 
 function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@@ -1779,6 +1793,27 @@ begin
     DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsSmallInt;
+end;
+
+procedure TFacturasClienteDataTableRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetCERTIFICADO_ISOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].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 = '{918AF647-D101-44B9-AC18-3D64BE3A714A}';
+  RID_ListaAnosFacturasDelta = '{5F59F46F-6D99-47EF-97B7-62E578F5EC77}';
-  RID_FacturasClienteDelta = '{566BE766-12BF-4272-8214-8550BD00F7E3}';
+  RID_FacturasClienteDelta = '{210A006E-9750-4D37-9655-232A93590F32}';
-  RID_FacturasCliente_DetallesDelta = '{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}';
+  RID_FacturasCliente_DetallesDelta = '{DBBBA305-DC20-44F9-BD34-E330F919C098}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{918AF647-D101-44B9-AC18-3D64BE3A714A}']
+  ['{5F59F46F-6D99-47EF-97B7-62E578F5EC77}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{566BE766-12BF-4272-8214-8550BD00F7E3}']
+  ['{210A006E-9750-4D37-9655-232A93590F32}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -90,8 +90,9 @@ type
     function GetOldIMPORTE_PORTEValue : Currency;
     function GetOldID_AGENTEValue : Integer;
     function GetOldREFERENCIA_COMISIONValue : String;
-    function GetOldRETENCIONValue : Float;
+    function GetOldRETENCIONValue : Currency;
     function GetOldIMPORTE_RETENCIONValue : Currency;
+    function GetOldCERTIFICADO_ISOValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -132,8 +133,9 @@ type
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
-    property OldRETENCION : Float read GetOldRETENCIONValue;
+    property OldRETENCION : Currency read GetOldRETENCIONValue;
     property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
+    property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -370,11 +372,11 @@ type
     function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
     procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
     procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
-    function GetRETENCIONValue: Float; virtual;
+    function GetRETENCIONValue: Currency; virtual;
     function GetRETENCIONIsNull: Boolean; virtual;
-    function GetOldRETENCIONValue: Float; virtual;
+    function GetOldRETENCIONValue: Currency; virtual;
     function GetOldRETENCIONIsNull: Boolean; virtual;
-    procedure SetRETENCIONValue(const aValue: Float); virtual;
+    procedure SetRETENCIONValue(const aValue: Currency); virtual;
     procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_RETENCIONValue: Currency; virtual;
     function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
@@ -382,6 +384,12 @@ type
     function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
     procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+    function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+    function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+    function GetOldCERTIFICADO_ISOValue: SmallInt; virtual;
+    function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -536,14 +544,18 @@ type
     property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
-    property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue;
+    property RETENCION : Currency read GetRETENCIONValue write SetRETENCIONValue;
     property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
-    property OldRETENCION : Float read GetOldRETENCIONValue;
+    property OldRETENCION : Currency read GetOldRETENCIONValue;
     property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
     property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
     property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
     property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
     property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
+    property CERTIFICADO_ISO : SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
+    property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
+    property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -553,7 +565,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}']
+  ['{DBBBA305-DC20-44F9-BD34-E330F919C098}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -1998,7 +2010,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Float;
+function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION];
 end;
@@ -2008,7 +2020,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]);
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Float;
+function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION];
 end;
@@ -2018,7 +2030,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]);
 end;
 
-procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
+procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Currency);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue;
 end;
@@ -2060,6 +2072,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetCERTIFICADO_ISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCERTIFICADO_ISO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCERTIFICADO_ISO]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@@ -240,9 +240,10 @@ object RptFacturasCliente: TRptFacturasCliente
               'rgo_equivalencia, v_facturas_cliente.importe_neto,'#10'   v_facturas' +
               '_cliente.importe_porte, formas_pago.descripcion as FORMA_PAGO,'#10' ' +
               '  v_facturas_cliente.DATOS_BANCARIOS, v_facturas_cliente.RETENCI' +
-              'ON, v_facturas_cliente.IMPORTE_RETENCION'#10'from v_facturas_cliente' +
+              'ON, v_facturas_cliente.IMPORTE_RETENCION,'#10'   v_facturas_cliente.' +
-              #10'   left outer join formas_pago on (formas_pago.id = v_facturas_' +
+              'CERTIFICADO_ISO'#10'from v_facturas_cliente'#10'   left outer join forma' +
-              'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+              's_pago on (formas_pago.id = v_facturas_cliente.id_forma_pago)'#10'WH' +
+              'ERE V_FACTURAS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -364,6 +365,10 @@ object RptFacturasCliente: TRptFacturasCliente
               item
                 DatasetField = 'IMPORTE_RETENCION'
                 TableField = 'IMPORTE_RETENCION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'InformeFacturasCliente'
@@ -411,7 +416,7 @@ object RptFacturasCliente: TRptFacturasCliente
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
+            DataType = datCurrency
             DictionaryEntry = 'FacturasCliente_DESCUENTO'
           end
           item
@@ -421,7 +426,7 @@ object RptFacturasCliente: TRptFacturasCliente
           end
           item
             Name = 'IVA'
-            DataType = datFloat
+            DataType = datCurrency
             DictionaryEntry = 'FacturasCliente_IVA'
           end
           item
@@ -431,7 +436,7 @@ object RptFacturasCliente: TRptFacturasCliente
           end
           item
             Name = 'RE'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_RE'
@@ -512,11 +517,15 @@ object RptFacturasCliente: TRptFacturasCliente
           end
           item
             Name = 'RETENCION'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_RETENCION'
             DataType = datCurrency
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
         ReadOnly = True
       end
@@ -2988,7 +2997,7 @@ object RptFacturasCliente: TRptFacturasCliente
       end
       item
         Name = 'DESCUENTO'
-        DataType = datFloat
+        DataType = datCurrency
         DictionaryEntry = 'FacturasCliente_DESCUENTO'
       end
       item
@@ -2998,7 +3007,7 @@ object RptFacturasCliente: TRptFacturasCliente
       end
       item
         Name = 'IVA'
-        DataType = datFloat
+        DataType = datCurrency
         DictionaryEntry = 'FacturasCliente_IVA'
       end
       item
@@ -3008,7 +3017,7 @@ object RptFacturasCliente: TRptFacturasCliente
       end
       item
         Name = 'RE'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_RE'
@@ -3089,11 +3098,15 @@ object RptFacturasCliente: TRptFacturasCliente
       end
       item
         Name = 'RETENCION'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_RETENCION'
         DataType = datCurrency
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <
       item

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

@@ -33,9 +33,10 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
               'rte_neto,'#10'   v_facturas_cliente.importe_porte, formas_pago.descr' +
               'ipcion as FORMA_PAGO,'#10'   v_facturas_cliente.datos_bancarios, v_f' +
               'acturas_cliente.fecha_vencimiento,'#10'   v_facturas_cliente.retenci' +
-              'on, v_facturas_cliente.importe_retencion'#10'from v_facturas_cliente' +
+              'on, v_facturas_cliente.importe_retencion,'#10'   v_facturas_cliente.' +
-              #10'   left outer join formas_pago on (formas_pago.id = v_facturas_' +
+              'certificado_iso'#10'from v_facturas_cliente'#10'   left outer join forma' +
-              'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+              's_pago on (formas_pago.id = v_facturas_cliente.id_forma_pago)'#10'WH' +
+              'ERE V_FACTURAS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -157,6 +158,10 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
               item
                 DatasetField = 'IMPORTE_RETENCION'
                 TableField = 'IMPORTE_RETENCION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -196,7 +201,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_DESCUENTO'
@@ -204,7 +209,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
           end
           item
             Name = 'IVA'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_IVA'
@@ -212,7 +217,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
           end
           item
             Name = 'RE'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_RE'
@@ -288,11 +293,15 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
           end
           item
             Name = 'RETENCION'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_RETENCION'
             DataType = datCurrency
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
         ReadOnly = True
       end
@@ -535,7 +544,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
       end
       item
         Name = 'DESCUENTO'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_DESCUENTO'
@@ -543,7 +552,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
       end
       item
         Name = 'IVA'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_IVA'
@@ -551,7 +560,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
       end
       item
         Name = 'RE'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_RE'
@@ -627,11 +636,15 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
       end
       item
         Name = 'RETENCION'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_RETENCION'
         DataType = datCurrency
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <
       item

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

@@ -315,6 +315,11 @@ begin
     if not FVerSello then
        ReplaceBookmark('Sello', '');
 
+      if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
+      begin
+          ReplaceBookmark('ISO', '');
+      end;
+
     Close;
   end;
 

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

@@ -207,6 +207,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'FECHA_RETENCION'
                 TableField = 'FECHA_RETENCION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'FacturasCliente'
@@ -416,11 +420,15 @@ object srvFacturasCliente: TsrvFacturasCliente
           end
           item
             Name = 'RETENCION'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_RETENCION'
             DataType = datCurrency
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
       end
       item
@@ -806,138 +814,187 @@ object srvFacturasCliente: TsrvFacturasCliente
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_FACTURA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_RETENCION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
             Value = ''
           end
           item
             Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ID_TIPO_IVA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CLIENTE_FINAL'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'RETENCION'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RETENCION'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
             Value = ''
           end>
         Statements = <
@@ -955,17 +1012,18 @@ object srvFacturasCliente: TsrvFacturasCliente
               'CODIGO_POSTAL,'#10'    FECHA_ALTA,'#10'    FECHA_MODIFICACION,'#10'    USUAR' +
               'IO,'#10'    ID_FORMA_PAGO,'#10'    RECARGO_EQUIVALENCIA,'#10'    ID_TIPO_IVA' +
               ','#10'    IMPORTE_NETO,'#10'    IMPORTE_PORTE,'#10'    DATOS_BANCARIOS,'#10'    ' +
-              'CLIENTE_FINAL,'#10'    RETENCION,'#10'    IMPORTE_RETENCION)'#10'  VALUES ('#10 +
+              'CLIENTE_FINAL,'#10'    RETENCION,'#10'    IMPORTE_RETENCION,'#10'    CERTIFI' +
-              '    :ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10' ' +
+              'CADO_ISO)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA,'#10 +
-              '   :FECHA_VENCIMIENTO,'#10'    :FECHA_RETENCION,'#10'    :BASE_IMPONIBLE' +
+              '    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,'#10'    :FECHA_RETENCION' +
-              ','#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE' +
+              ','#10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10' ' +
-              '_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVA' +
+              '   :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORT' +
-              'CIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :NOMBRE,'#10'    :ID_DIRE' +
+              'E_TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    ' +
-              'CCION,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_P' +
+              ':NOMBRE,'#10'    :ID_DIRECCION,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PRO' +
-              'OSTAL,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODIFICACION,'#10'    :USUARIO,'#10' ' +
+              'VINCIA,'#10'    :CODIGO_POSTAL,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODIFICA' +
-              '   :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10 +
+              'CION,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCI' +
-              '    :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    :DATOS_BANCARIOS,'#10'   ' +
+              'A,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    ' +
-              ' :CLIENTE_FINAL,'#10'    :RETENCION,'#10'    :IMPORTE_RETENCION);'#10
+              ':DATOS_BANCARIOS,'#10'    :CLIENTE_FINAL,'#10'    :RETENCION,'#10'    :IMPOR' +
+              'TE_RETENCION,'#10'    :CERTIFICADO_ISO);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -975,138 +1033,187 @@ object srvFacturasCliente: TsrvFacturasCliente
         Params = <
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FECHA_FACTURA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_RETENCION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
             Value = ''
           end
           item
             Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ID_TIPO_IVA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CLIENTE_FINAL'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'RETENCION'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_RETENCION'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
             Value = ''
           end
           item
@@ -1135,8 +1242,8 @@ object srvFacturasCliente: TsrvFacturasCliente
               'ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    IMPORTE_NETO = :IMPORTE_NETO,'#10'  ' +
               '  IMPORTE_PORTE = :IMPORTE_PORTE,'#10'    DATOS_BANCARIOS = :DATOS_B' +
               'ANCARIOS,'#10'    CLIENTE_FINAL = :CLIENTE_FINAL,'#10'    RETENCION = :R' +
-              'ETENCION,'#10'    IMPORTE_RETENCION = :IMPORTE_RETENCION'#10'  WHERE'#10'  (' +
+              'ETENCION,'#10'    IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10'    CERTIF' +
-              'ID = :OLD_ID);'#10
+              'ICADO_ISO = :CERTIFICADO_ISO'#10'  WHERE'#10'  (ID = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

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

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 1146
+  Width = 616
-  Height = 511
+  Height = 474
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1146
+    Width = 616
-    Height = 511
+    Height = 474
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -20,10 +20,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     ExplicitWidth = 451
     ExplicitHeight = 304
     DesignSize = (
-      1146
+      616
-      511)
+      474)
     object Label1: TLabel
-      Left = 617
+      Left = 354
       Top = 193
       Width = 311
       Height = 26
@@ -100,13 +100,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Height = 345
       Width = 355
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 146
-      Top = 103
+      Top = 130
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -138,21 +138,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 2
+      TabOrder = 3
       Width = 269
     end
     object bFormasPago: TButton
-      Left = 435
+      Left = 172
-      Top = 103
+      Top = 130
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
-      TabOrder = 3
+      TabOrder = 4
       OnClick = bFormasPagoClick
     end
     object cbCuentaBancaria: TcxDBComboBox
       Left = 146
-      Top = 159
+      Top = 186
       DataBinding.DataField = 'DATOS_BANCARIOS'
       DataBinding.DataSource = DADataSource
       Properties.DropDownListStyle = lsFixedList
@@ -169,11 +169,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 165
     end
     object cbClienteFinal: TcxDBTextEdit
-      Left = 617
+      Left = 354
       Top = 227
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CLIENTE_FINAL'
@@ -197,19 +197,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Width = 339
     end
     object bElegirClienteFinal: TButton
-      Left = 1090
+      Left = 560
       Top = 225
       Width = 23
       Height = 25
       Action = actElegirClienteFinal
-      TabOrder = 8
+      TabOrder = 9
     end
     inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
-      Left = 606
+      Left = 343
       Top = 30
       Width = 505
       Height = 138
@@ -219,39 +219,42 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 6
+      TabOrder = 7
       ReadOnly = False
-      ExplicitLeft = 606
+      ExplicitLeft = 343
       ExplicitTop = 30
       inherited dxLayoutControl1: TdxLayoutControl
-        ExplicitWidth = 101
         inherited edtlNombre: TcxDBTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 224
+          Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 405
+          Left = 171
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 405
+          ExplicitLeft = 171
         end
         inherited Button3: TBitBtn
-          Left = 316
+          Left = 82
-          ExplicitLeft = 316
+          ExplicitLeft = 82
         end
         inherited edtDireccion: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 121
+          Width = 121
         end
         inherited Button4: TButton
-          Left = 485
+          Left = 251
-          ExplicitLeft = 485
+          ExplicitLeft = 251
         end
       end
       inherited ActionList1: TActionList
@@ -269,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     object edtFechaVemcimiento: TcxDBDateEdit
       Left = 146
-      Top = 132
+      Top = 159
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VENCIMIENTO'
       DataBinding.DataSource = DADataSource
@@ -290,9 +293,29 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
+      TabOrder = 5
       Width = 275
     end
+    object eCertificadoISO: TcxDBCheckBox
+      Left = 22
+      Top = 84
+      Caption = 'Certificaci'#243'n ISO'
+      DataBinding.DataField = 'CERTIFICADO_ISO'
+      DataBinding.DataSource = DADataSource
+      Properties.ValueChecked = 1
+      Properties.ValueUnchecked = 0
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Transparent = True
+      Width = 428
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -320,6 +343,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
             Control = edtFecha
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item11: TdxLayoutItem
+            ShowCaption = False
+            Control = eCertificadoISO
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Group6: TdxLayoutGroup
             Caption = 'Forma de pago'
             object dxLayoutControl1Group4: TdxLayoutGroup

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

@@ -10,7 +10,8 @@ uses
   cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
   DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
   cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
-  ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController;
+  ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController,
+  cxCheckBox;
 
 type
   IViewFacturaCliente = interface(IViewBase)
@@ -66,6 +67,8 @@ type
     ledtFechaVencimiento: TdxLayoutItem;
     edtFechaVemcimiento: TcxDBDateEdit;
     dxLayoutControl1Group3: TdxLayoutGroup;
+    dxLayoutControl1Item11: TdxLayoutItem;
+    eCertificadoISO: TcxDBCheckBox;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);

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

@@ -141,6 +141,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         VisibleForCustomization = False
         Width = 54
       end
+      object cxGridViewCERTIFICADO_ISO: TcxGridDBColumn
+        DataBinding.FieldName = 'CERTIFICADO_ISO'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Items = <
+          item
+            Description = 'No ISO'
+            ImageIndex = 0
+            Value = 0
+          end
+          item
+            Description = 'ISO'
+            Value = 1
+          end>
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todas'
@@ -180,25 +194,35 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           Width = 144
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 248
+          Left = 185
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 248
+          ExplicitLeft = 185
           ExplicitWidth = 273
           Width = 273
         end
         inherited eLista: TcxComboBox
-          Left = 558
+          Left = 414
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 558
+          ExplicitLeft = 414
           ExplicitWidth = 97
           Width = 97
         end
+        inherited eLista2: TcxComboBox
+          Left = 518
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 518
+          ExplicitWidth = 207
+          Width = 207
+        end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 665
@@ -259,6 +283,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     end
   end
   inherited ActionList1: TActionList
+    Left = 152
+    Top = 320
     object actCliente: TAction
       Caption = 'Cliente'
       OnExecute = actClienteExecute
@@ -270,6 +296,117 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       OnUpdate = actProvinciaUpdate
     end
   end
+  inherited GridPNGImageList: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
+          6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
+          DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
+          114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
+          7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
+          11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
+          07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
+          801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
+          7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
+          450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
+          305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
+          99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
+          99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
+          BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
+          EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
+          E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
+          814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
+          582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
+          00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
+          6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
+          44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
+          801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
+          3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
+          21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
+          46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
+          74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
+          6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
+          128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
+          51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
+          37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
+          DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
+          E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
+          B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
+          DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
+          197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
+          0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
+          E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
+          C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
+          D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
+          744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
+          AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
+          53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
+          4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
+          35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
+          8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
+          4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
+          6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
+          A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
+          67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
+          DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
+          1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
+          9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
+          D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
+          EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
+          7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
+          F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
+          0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
+          D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
+          C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
+          17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
+          8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
+          91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
+          31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
+          C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
+          2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
+          B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
+          6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
+          1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
+          66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
+          CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
+          61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
+          FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
+          D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
+          F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
+          625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
+          F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
+          E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
+          9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
+          DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
+          D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
+          058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
+          AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
+          1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
+          D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
+          03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
+          80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
+          0000000049454E44AE426082}
+        Name = 'Icono_header'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000001974455874536F6674776172650041646F626520496D616765526561
+          647971C9653C000000A84944415478DA63FCFFFF3F03258071D4002A19C0C8C8
+          E8006437007100101F00627D20FE08C40540BC004A83B03C106F04E204A0BE0F
+          D80C00E1FD40AC08350C841380F83E103B02F10320DE00C2407D0D845CB0112A
+          E60035C400EA6AB018509F032E1708406D82696E803A5F016A00C84B02407D01
+          D80C98005530016AA301D4900B50973D80BA0614061B900D50802A5C80E4F70F
+          50FE05A8ED0550D7C1C26030A5830135000053DD66E13698B95A000000004945
+          4E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end>
+    Bitmap = {}
+  end
   object PngImageList: TPngImageList
     PngImages = <
       item

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

@@ -58,6 +58,7 @@ type
     cxGridViewTIPO: TcxGridDBColumn;
     cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
     cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
+    cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
@@ -69,6 +70,9 @@ type
     procedure cxGridViewDataControllerCompare(
       ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
       AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
+    procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -203,6 +207,25 @@ begin
     Compare := VarCompare(V1, V2);
 end;
 
+procedure TfrViewFacturasCliente.cxGridViewICONOCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  R := AViewInfo.ContentBounds;
+  ACanvas.FillRect(R);
+
+  if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+    cxGridViewCERTIFICADO_ISO.Index] = 'ISO') then
+    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1);
+//  else
+//    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 0);
+
+  ADone := True;
+end;
+
 procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle(
   Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
   AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas

@@ -213,7 +213,8 @@ begin
   if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
   begin
     AIsHintMultiLine := True;
-    AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+    if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+       AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
   end;
 end;
 

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -57,8 +57,8 @@ type
     function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
     function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
 
-    procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+    procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
-    procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+    procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
     function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
     function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
 
@@ -140,8 +140,8 @@ type
     function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
     function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
 
-    procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+    procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
-    procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+    procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
     function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
     function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
 
@@ -1049,7 +1049,7 @@ begin
 }  
 end;
 
-procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
 var
   AReportController : IPresupuestosClienteReportController;
   ID_Presupuestos: TIntegerList;
@@ -1075,14 +1075,14 @@ begin
    else
      ID_Presupuestos.Add(APresupuesto.ID);
 
-    AReportController.Preview(ID_Presupuestos, AVerSello, AVerISO);
+    AReportController.Preview(ID_Presupuestos, AVerSello);
   finally
     AReportController := NIL;
     FreeAndNil(ID_Presupuestos);
   end;
 end;
 
-procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1);
 var
   AReportController : IPresupuestosClienteReportController;
   ID_Presupuestos: TIntegerList;
@@ -1107,7 +1107,7 @@ begin
    else
      ID_Presupuestos.Add(APresupuesto.ID);
 
-   AReportController.Print(ID_Presupuestos, AVerSello, AVerISO);
+   AReportController.Print(ID_Presupuestos, AVerSello);
 
   finally
     AReportController := NIL;

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas

@@ -10,10 +10,10 @@ uses
 type
   IPresupuestosClienteReportController = interface(IControllerBase)
   ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
-    procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+    procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
-    procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+    procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
-    function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+    function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
-    function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
     function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
   end;
 
@@ -25,10 +25,10 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+    procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
-    procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+    procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
-    function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+    function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
-    function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
     function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
   end;
 
@@ -61,7 +61,7 @@ begin
   inherited;
 end;
 
-function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer; Const AVerISO: Integer): Boolean;
+function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer): Boolean;
 var
   AStream: Binary;
 begin
@@ -71,7 +71,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello, AVerISO);
+    AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello);
     try
       AStream.SaveToFile(AFileName);
       Result := True;
@@ -83,7 +83,7 @@ begin
   end;
 end;
 
-function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer; Const AVerISO: Integer) : Boolean;
+function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer) : Boolean;
 var
   AStream: Binary;
   AFile : String;
@@ -95,7 +95,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello, AVerISO);
+    AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello);
     try
       AStream.SaveToFile(AFile);
       Result := True;
@@ -133,7 +133,7 @@ begin
   end;
 end;
 
-procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
 var
   AStream: Binary;
   AEditor : IEditorPresupuestosClientePreview;
@@ -142,7 +142,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
+    AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
     try
       CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
       if Assigned(AEditor) then
@@ -166,7 +166,7 @@ begin
   end;
 end;
 
-procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer);
 var
   AStream: Binary;
   AEditor : IEditorPresupuestosClientePreview;
@@ -175,7 +175,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
+    AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
     try
       CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -242,6 +242,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'IMPORTE_BONIFICACION'
         DataType = datCurrency
         ServerAutoRefresh = True
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas

@@ -41,10 +41,10 @@ type
     function NewItem : IBizPresupuestoCliente;
 
     // Report
-    function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
-    function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
     function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
-    function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
 
     function GetAnosItems : TStringList;    
   end;
@@ -70,26 +70,26 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := TIntegerArray.Create;
   try
     AParam.Add(AID);
-    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello, AVerISO)
+    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello)
   finally
     FreeANDNIL(AParam)
   end;
 end;
 
-function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := AListaID.ToIntegerArray;
   try
-    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello, AVerISO)
+    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello)
   finally
     FreeANDNIL(AParam)
   end;
@@ -101,9 +101,9 @@ begin
   Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID)
 end;
 
-function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
 begin
-  Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello, AVerISO)
+  Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello)
 end;
 
 function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente;

Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas

@@ -8,10 +8,10 @@ uses
 type
   IDataModulePresupuestosClienteReport = interface
   ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
-    function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
-    function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
     function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
-    function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+    function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
   end;
 
 implementation

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -3,15 +3,15 @@ unit schPresupuestosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosPresupuestos = '{B4D25BFF-BFAC-4141-925F-82DC23A4D3A2}';
+  RID_ListaAnosPresupuestos = '{D73FB601-4855-412C-B145-BC927DE770D2}';
-  RID_PresupuestosCliente = '{BAEC8917-A7DC-4606-AE7E-B8B8748290B1}';
+  RID_PresupuestosCliente = '{A2898E4B-6B5C-443D-A744-9FAD9690292D}';
-  RID_PresupuestosCliente_Detalles = '{C1C9402A-CDC5-4B77-BE8A-5907A6423EEC}';
+  RID_PresupuestosCliente_Detalles = '{160328C6-D0E9-44C5-B1F0-407C54645451}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -60,6 +60,7 @@ const
   fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
   fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION';
   fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
+  fld_PresupuestosClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
 
   { PresupuestosCliente field indexes }
   idx_PresupuestosClienteID = 0;
@@ -97,6 +98,7 @@ const
   idx_PresupuestosClientePERSONA_CONTACTO = 32;
   idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 33;
   idx_PresupuestosClienteIMPORTE_BONIFICACION = 34;
+  idx_PresupuestosClienteCERTIFICADO_ISO = 35;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -135,7 +137,7 @@ const
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{AA0035CA-BE66-4730-A30B-E09CE7BB0325}']
+  ['{031EC815-C5C0-4E17-AC6F-D5356025BCE1}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -170,7 +172,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{294F97CB-1951-4F11-A7D9-2433A2E0237F}']
+  ['{E25A2981-6860-472F-80BA-2CA9D82D18FE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -308,6 +310,10 @@ type
     procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency);
     function GetIMPORTE_BONIFICACIONIsNull: Boolean;
     procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean);
+    function GetCERTIFICADO_ISOValue: SmallInt;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+    function GetCERTIFICADO_ISOIsNull: Boolean;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -381,6 +387,8 @@ type
     property DESCRIPCION_BONIFICACIONIsNull: Boolean read GetDESCRIPCION_BONIFICACIONIsNull write SetDESCRIPCION_BONIFICACIONIsNull;
     property IMPORTE_BONIFICACION: Currency read GetIMPORTE_BONIFICACIONValue write SetIMPORTE_BONIFICACIONValue;
     property IMPORTE_BONIFICACIONIsNull: Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
+    property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
   end;
 
   { TPresupuestosClienteDataTableRules }
@@ -532,6 +540,10 @@ type
     procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency); virtual;
     function GetIMPORTE_BONIFICACIONIsNull: Boolean; virtual;
     procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+    function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -604,6 +616,8 @@ type
     property DESCRIPCION_BONIFICACIONIsNull: Boolean read GetDESCRIPCION_BONIFICACIONIsNull write SetDESCRIPCION_BONIFICACIONIsNull;
     property IMPORTE_BONIFICACION: Currency read GetIMPORTE_BONIFICACIONValue write SetIMPORTE_BONIFICACIONValue;
     property IMPORTE_BONIFICACIONIsNull: Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
+    property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -613,7 +627,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{6E73582D-E1A0-40EA-A96A-1993F55F76A8}']
+  ['{67B4300E-97EF-4FEA-BD7E-7B3C3DD4FB54}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1619,6 +1633,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteIMPORTE_BONIFICACION].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsSmallInt;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsSmallInt := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetCERTIFICADO_ISOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsVariant := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesDataTableRules }
 constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_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_ListaAnosPresupuestosDelta = '{B819407B-3A58-42FE-99D1-D735F8094AD1}';
+  RID_ListaAnosPresupuestosDelta = '{52C49635-F38B-4B6E-B3D1-79EF81B7D611}';
-  RID_PresupuestosClienteDelta = '{A00D261A-A215-445D-9DCC-C024662EA398}';
+  RID_PresupuestosClienteDelta = '{779086A7-A3B9-42A6-A854-7AA3661376B9}';
-  RID_PresupuestosCliente_DetallesDelta = '{8943CBEB-C17F-4C81-B0D7-E1FBF3B8445C}';
+  RID_PresupuestosCliente_DetallesDelta = '{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{B819407B-3A58-42FE-99D1-D735F8094AD1}']
+  ['{52C49635-F38B-4B6E-B3D1-79EF81B7D611}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{A00D261A-A215-445D-9DCC-C024662EA398}']
+  ['{779086A7-A3B9-42A6-A854-7AA3661376B9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -87,6 +87,7 @@ type
     function GetOldPERSONA_CONTACTOValue : String;
     function GetOldDESCRIPCION_BONIFICACIONValue : String;
     function GetOldIMPORTE_BONIFICACIONValue : Currency;
+    function GetOldCERTIFICADO_ISOValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -124,6 +125,7 @@ type
     property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
     property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue;
     property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
+    property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
   end;
 
   { TPresupuestosClienteBusinessProcessorRules }
@@ -345,6 +347,12 @@ type
     function GetOldIMPORTE_BONIFICACIONIsNull: Boolean; virtual;
     procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+    function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+    function GetOldCERTIFICADO_ISOValue: SmallInt; virtual;
+    function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
+    procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+    procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -487,6 +495,10 @@ type
     property IMPORTE_BONIFICACIONIsNull : Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
     property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
     property OldIMPORTE_BONIFICACIONIsNull : Boolean read GetOldIMPORTE_BONIFICACIONIsNull;
+    property CERTIFICADO_ISO : SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+    property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
+    property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
+    property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -496,7 +508,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{8943CBEB-C17F-4C81-B0D7-E1FBF3B8445C}']
+  ['{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -1866,6 +1878,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_BONIFICACION] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetCERTIFICADO_ISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCERTIFICADO_ISO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCERTIFICADO_ISO]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO] := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesBusinessProcessorRules }
 constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -204,6 +204,7 @@ begin
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
   FECHA_PRESUPUESTO := DateOf(Date);
   INCIDENCIAS_ACTIVAS := 0;
+  CERTIFICADO_ISO := 1;
 //  INCIDENCIAS := NIL;
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -469,11 +469,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    V_P' +
               'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10'    V_PRESUPUESTOS_CLIENTE' +
               '.DESCRIPCION_BONIFICACION,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' +
-              'NIFICACION'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTAC' +
+              'NIFICACION,'#10'    V_PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO'#10'FROM'#10'    ' +
-              'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LE' +
+              'V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTACTOS ON (CONTACTOS.ID' +
-              'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
+              ' = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OUTER JOIN CONTAC' +
-              ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS' +
+              'TOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CL' +
-              '_CLIENTE.ID = :ID'#10
+              'IENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -583,6 +583,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               item
                 DatasetField = 'IMPORTE_BONIFICACION'
                 TableField = 'IMPORTE_BONIFICACION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -604,7 +608,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
           item
             Name = 'REFERENCIA'
             DataType = datString
-            Size = 255
+            Size = 511
           end
           item
             Name = 'PORTADA'
@@ -628,7 +632,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_DESCUENTO'
@@ -640,7 +644,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
           end
           item
             Name = 'IVA'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'ID_CLIENTE'
@@ -707,6 +711,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
           item
             Name = 'IMPORTE_BONIFICACION'
             DataType = datCurrency
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
         ReadOnly = True
       end
@@ -1707,7 +1715,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       item
         Name = 'REFERENCIA'
         DataType = datString
-        Size = 255
+        Size = 511
       end
       item
         Name = 'PORTADA'
@@ -1731,7 +1739,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       end
       item
         Name = 'DESCUENTO'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_DESCUENTO'
@@ -1743,7 +1751,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       end
       item
         Name = 'IVA'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'ID_CLIENTE'
@@ -1810,6 +1818,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       item
         Name = 'IMPORTE_BONIFICACION'
         DataType = datCurrency
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <
       item

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas

@@ -85,8 +85,6 @@ type
     tbl_InformeListadoPresupuestosGrafCompMensual: TDAMemDataTable;
     tbl_InformeListadoPresupuestosGrafCompTrimestral: TDAMemDataTable;
     tbl_InformeListadoPresupuestosGrafCompSemestral: TDAMemDataTable;
-    schReport: TDASchema;
-    DataDictionary: TDADataDictionary;
     frxDBInformeListadoClientesMayorImporteResumen: TfrxDBDataset;
     DADSInformeListadoClientesMayorImporteResumen: TDADataSource;
     tbl_InformeListadoClientesMayorImporteResumen: TDAMemDataTable;
@@ -96,6 +94,8 @@ type
     tbl_InformeListadoClientesMayorNAnuladosResumen: TDAMemDataTable;
     DADSInformeListadoClientesMayorNAnuladosResumen: TDADataSource;
     frxDBInformeListadoClientesMayorNAnuladosResumen: TfrxDBDataset;
+    schReport: TDASchema;
+    DataDictionary: TDADataDictionary;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     function frxReportUserFunction(const MethodName: string;
@@ -114,7 +114,7 @@ type
     FIntervalo: Variant;
     FTopN: Integer;
 
-    procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer; const VerISO: Integer);
+    procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer);
 
     procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
     procedure PrepararTablaResumenInforme(ATabla: IDADataset);
@@ -125,8 +125,8 @@ type
     procedure IniciarParametrosInforme;
     procedure RecuperarNombresClientes;
   public
-    function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
-    function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
     function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformePresupuestosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
   end;
@@ -179,7 +179,7 @@ begin
   end;
 end;
 
-function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 var
   i: Integer;
 begin
@@ -187,7 +187,7 @@ begin
   try
     //Vamos generando todos y cada uno de los presupuestos recibidos
     for i := 0 to ListaID.Count - 1 do
-        _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
+        _GenerarPresupuesto(ListaID.Items[i], VerSello);
 
     frxPDFExport1.Stream := Result;
     frxReport.Export(frxPDFExport1)
@@ -599,7 +599,7 @@ begin
   end;
 end;
 
-function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 var
   i: Integer;
 begin
@@ -607,7 +607,7 @@ begin
   try
     //Vamos generando todos y cada uno de los presupuestos recibidos
     for i := 0 to ListaID.Count - 1 do
-        _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
+        _GenerarPresupuesto(ListaID.Items[i], VerSello);
 
     frxReport.PreviewPages.SaveToStream(Result);
   finally
@@ -631,7 +631,7 @@ begin
   frxReport.PreviewPages.SaveToStream(Result);
 end;
 
-procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer; const VerISO: Integer);
+procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer);
 var
   AInforme: Variant;
 begin
@@ -662,7 +662,6 @@ begin
     frxReport.LoadFromFile(AInforme, True);
 
     frxReport.Variables.Variables['VerSello'] := IntToStr(VerSello);
-    frxReport.Variables.Variables['VerISO'] := IntToStr(VerISO);
 
     frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
     frxReport.PrepareReport(False);

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm

@@ -38,11 +38,12 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    V_P' +
               'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10'    V_PRESUPUESTOS_CLIENTE' +
               '.DESCRIPCION_BONIFICACION,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' +
-              'NIFICACION'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTAC' +
+              'NIFICACION,'#10'        V_PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO'#10'FROM'#10 +
-              'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LE' +
+              '    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTACTOS ON (CONTACTO' +
-              'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
+              'S.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OUTER JOIN CO' +
-              ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS' +
+              'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTO' +
-              '_CLIENTE.ID = :ID'#10
+              'S_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIENTE.ID = :I' +
+              'D'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -152,6 +153,10 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               item
                 DatasetField = 'IMPORTE_BONIFICACION'
                 TableField = 'IMPORTE_BONIFICACION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -173,7 +178,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
           item
             Name = 'REFERENCIA'
             DataType = datString
-            Size = 255
+            Size = 511
           end
           item
             Name = 'PORTADA'
@@ -197,7 +202,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'IMPORTE_DESCUENTO'
@@ -209,7 +214,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
           end
           item
             Name = 'IVA'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'ID_CLIENTE'
@@ -276,6 +281,10 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
           item
             Name = 'IMPORTE_BONIFICACION'
             DataType = datCurrency
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
         ReadOnly = True
       end
@@ -479,7 +488,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
       item
         Name = 'REFERENCIA'
         DataType = datString
-        Size = 255
+        Size = 511
       end
       item
         Name = 'PORTADA'
@@ -503,7 +512,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
       end
       item
         Name = 'DESCUENTO'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'IMPORTE_DESCUENTO'
@@ -515,7 +524,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
       end
       item
         Name = 'IVA'
-        DataType = datFloat
+        DataType = datCurrency
       end
       item
         Name = 'ID_CLIENTE'
@@ -573,6 +582,19 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
         Name = 'PERSONA_CONTACTO'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'DESCRIPCION_BONIFICACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_BONIFICACION'
+        DataType = datCurrency
+      end
+      item
+        Name = 'CERTIFICADO_ISO'
+        DataType = datSmallInt
       end>
     Params = <
       item

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas

@@ -38,7 +38,6 @@ type
     FNombreFichero : String;
     ListaCapitulos : array[1..1000] of TCapitulo;
     FVerSello: Integer;
-    FVerISO: Integer;
     FTablaInicioContenido: Table;
 
     procedure InsertarConceptos(Tabla : Table);
@@ -51,7 +50,7 @@ type
   public
     constructor Create (AOwner : TComponent); override;
     destructor Destroy; override;
-    function Exportar(Codigo, Fichero : String; const VerSello: Integer; const VerISO: Integer): Boolean;
+    function Exportar(Codigo, Fichero : String; const VerSello: Integer): Boolean;
   end;
 
 
@@ -74,7 +73,6 @@ begin
   FImportes := True;
   FNumCapitulos := 0;
   FVerSello:= 1;
-  FVerISO:= 1;
 end;
 
 procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
@@ -92,7 +90,7 @@ begin
   inherited;
 end;
 
-function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer; const VerISO: Integer): Boolean;
+function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer): Boolean;
 begin
   if EsCadenaVacia(Fichero) then
     RaiseError('Falta indicar el fichero donde se exportará el listado.');
@@ -100,7 +98,6 @@ begin
   FNombreFichero := Fichero;
   FCodigoPresupuesto := Codigo;
   FVerSello := VerSello;
-  FVerISO := VerISO;
   _GenerarPresupuesto(Codigo);
   Result := True;
 end;
@@ -283,7 +280,7 @@ begin
       else
           ReplaceBookmark('Firma1', '');
 
-      if (FVerISO = 0) then
+      if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
       begin
           ReplaceBookmark('ISO1', '');
           ReplaceBookmark('ISO2', '');

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -186,6 +186,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'IMPORTE_BONIFICACION'
                 TableField = 'IMPORTE_BONIFICACION'
+              end
+              item
+                DatasetField = 'CERTIFICADO_ISO'
+                TableField = 'CERTIFICADO_ISO'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -376,6 +380,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'IMPORTE_BONIFICACION'
             DataType = datCurrency
             ServerAutoRefresh = True
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
           end>
       end
       item
@@ -565,118 +573,160 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_PRESUPUESTO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_DECISION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_AUX'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'SITUACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CLIENTE_FINAL'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PORTADA'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'MEMORIA'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS_ACTIVAS'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_FACTURA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'DESCRIPCION_BONIFICACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'IMPORTE_BONIFICACION'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
             Value = ''
           end>
         Statements = <
@@ -692,16 +742,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10'     USUARIO, IMPORTE_NETO, IMPORT' +
               'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIBLE, IVA' +
               ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10'     PE' +
-              'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION)'#10 +
+              'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, ' +
-              '  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECIS' +
+              'CERTIFICADO_ISO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PRESUPUE' +
-              'ION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE,' +
+              'STO, :FECHA_DECISION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :SITUAC' +
-              ' :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10'     :CLIENTE_FINAL, :PORTA' +
+              'ION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10'     :CLIE' +
-              'DA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIAS, :INCIDENCIAS_A' +
+              'NTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIA' +
-              'CTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPORTE_NETO, :IMPORT' +
+              'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPO' +
-              'E_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
+              'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENTO, ' +
-              ':IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FA' +
+              ':BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_F' +
-              'CTURA, :PERSONA_CONTACTO,'#10'     :DESCRIPCION_BONIFICACION, :IMPOR' +
+              'ORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO,'#10'     :DESCRIPCION_BON' +
-              'TE_BONIFICACION)'#10
+              'IFICACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -731,122 +781,165 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_PRESUPUESTO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_DECISION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_AUX'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'SITUACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CLIENTE_FINAL'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PORTADA'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'MEMORIA'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS_ACTIVAS'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_FACTURA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'DESCRIPCION_BONIFICACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'IMPORTE_BONIFICACION'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'CERTIFICADO_ISO'
+            DataType = datSmallInt
             Value = ''
           end
           item
@@ -876,8 +969,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'OTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ' +
               'ID_FACTURA = :ID_FACTURA,'#10'    PERSONA_CONTACTO = :PERSONA_CONTAC' +
               'TO,'#10'    DESCRIPCION_BONIFICACION = :DESCRIPCION_BONIFICACION,'#10'  ' +
-              '  IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION'#10'  WHERE'#10'    (ID =' +
+              '  IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION,'#10'    CERTIFICADO_' +
-              ' :OLD_ID)'#10
+              'ISO = :CERTIFICADO_ISO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas

@@ -33,9 +33,9 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
   protected
     { IsrvPresupuestosCliente methods }
-    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
-    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
   end;
 
@@ -101,31 +101,31 @@ begin
   end;
 end;
 
-function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 var
   AReportGenerator : TRptPresupuestosCliente;
 begin
   AReportGenerator := TRptPresupuestosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello, VerISO);
+    Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 var
   AReportGenerator : TRptPresupuestosCliente;
 begin
   AReportGenerator := TRptPresupuestosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello, VerISO);
+    Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
 var
   AReportGenerator : TRptWordPresupuestoCliente;
   AFicheroTMP : TFileName;
@@ -135,7 +135,7 @@ begin
   AReportGenerator := TRptWordPresupuestoCliente.Create(nil);
   try
     try
-      if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello, VerISO) then
+      if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello) then
       begin
         Result := Binary.Create;
         Result.LoadFromFile(AFicheroTMP);

Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm

@@ -1,10 +1,10 @@
 inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresionPresupuestosCliente
   Caption = 'Opciones para presupuestos de cliente'
-  ClientHeight = 298
+  ClientHeight = 257
   ClientWidth = 429
   OnCreate = FormCreate
   ExplicitWidth = 435
-  ExplicitHeight = 330
+  ExplicitHeight = 289
   PixelsPerInch = 96
   TextHeight = 13
   inherited Bevel2: TBevel
@@ -14,16 +14,16 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
     ExplicitWidth = 418
   end
   inherited Bevel3: TBevel
-    Top = 254
+    Top = 213
     Width = 429
     ExplicitTop = 196
     ExplicitWidth = 418
   end
   inherited pnlBotones: TPanel
-    Top = 256
+    Top = 215
     Width = 429
-    ExplicitTop = 231
+    ExplicitTop = 256
-    ExplicitWidth = 437
+    ExplicitWidth = 429
     inherited btnAceptar: TButton
       Left = 254
       Visible = False
@@ -37,7 +37,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
   inherited pnlHeader: TPanel
     Width = 429
     Height = 41
-    ExplicitWidth = 437
+    ExplicitWidth = 429
     ExplicitHeight = 41
     inherited lblInstruccion: TLabel
       Width = 379
@@ -47,27 +47,26 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
         'Indique si desea logotipo de ISO y que sello desea para el presu' +
         'puesto de cliente:'
       WordWrap = True
-      ExplicitWidth = 390
+      ExplicitWidth = 326
       ExplicitHeight = 26
     end
     inherited Label2: TLabel
       Top = 44
       Width = 354
-      Height = 1
       Visible = False
-      ExplicitTop = 31
+      ExplicitTop = 44
     end
   end
   inherited pnlCuerpo: TPanel
     Top = 43
     Width = 429
-    Height = 211
+    Height = 170
-    ExplicitTop = 35
+    ExplicitTop = 43
-    ExplicitWidth = 437
+    ExplicitWidth = 429
-    ExplicitHeight = 194
+    ExplicitHeight = 211
     object Image1: TImage
       Left = 25
-      Top = 54
+      Top = 14
       Width = 176
       Height = 139
       Picture.Data = {
@@ -1146,7 +1145,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
     end
     object Image2: TImage
       Left = 232
-      Top = 54
+      Top = 14
       Width = 129
       Height = 139
       Picture.Data = {
@@ -2268,16 +2267,6 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
       OnClick = Image2DblClick
       OnDblClick = Image2DblClick
     end
-    object cbLogotipoISO: TCheckBox
-      Left = 25
-      Top = 17
-      Width = 121
-      Height = 17
-      Caption = 'Ver certificaci'#243'n ISO'
-      Checked = True
-      State = cbChecked
-      TabOrder = 0
-    end
   end
   inherited ActionList1: TActionList
     Top = 16

Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas

@@ -10,7 +10,6 @@ type
   TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
     Image1: TImage;
     Image2: TImage;
-    cbLogotipoISO: TCheckBox;
     procedure actAceptarExecute(Sender: TObject);
     procedure actCancelarExecute(Sender: TObject);
     procedure Image1DblClick(Sender: TObject);
@@ -18,18 +17,15 @@ type
     procedure Image2DblClick(Sender: TObject);
   private
     FVerSello: Integer;
-    function getVerCertificadoISO: Integer;
-  public
-    property VerCertificadoISO: Integer read getVerCertificadoISO;
   end;
 
-  function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
+  function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
 
 implementation
 
 {$R *.dfm}
 
-function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
+function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
 var
   AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
 begin
@@ -39,7 +35,6 @@ begin
     if Result then
     begin
       AVerSello := AEditor.FVerSello;
-      AVerISO := AEditor.VerCertificadoISO;
     end;
   finally
     AEditor.Release;
@@ -65,13 +60,6 @@ begin
   FVerSello := 1;
 end;
 
-function TfDialogOpcionesImpresionPresupuestosCliente.getVerCertificadoISO: Integer;
-begin
-  REsult := 0;
-  if cbLogotipoISO.Checked then
-     Result := 1;
-end;
-
 procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
   Sender: TObject);
 begin

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -305,7 +305,6 @@ end;
 procedure TfEditorPresupuestoCliente.ImprimirInterno;
 var
   AVerSello: Integer;
-  AVerISO: Integer;
   bPrevisualizar: Boolean;
 begin
   inherited;
@@ -314,11 +313,11 @@ begin
   if (AppFactuGES.EmpresaActiva.ID = 1) then
      //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
      //solo para empresa Tecsitel
-     bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+     bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
   if bPrevisualizar and Assigned(FPresupuesto) then
      if not Modified then
-        FController.Print(FPresupuesto, False, AVerSello, AVerISO);
+        FController.Print(FPresupuesto, False, AVerSello);
 end;
 
 procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@@ -379,7 +378,6 @@ end;
 procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
 var
   AVerSello: Integer;
-  AVerISO: Integer;
   bPrevisualizar: Boolean;
 begin
   inherited;
@@ -388,11 +386,11 @@ begin
   if (AppFactuGES.EmpresaActiva.ID = 1) then
      //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
      //solo para empresa Tecsitel
-     bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+     bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
   if bPrevisualizar and Assigned(FPresupuesto) then
      if not Modified then
-        FController.Preview(FPresupuesto, False, AVerSello, AVerISO);
+        FController.Preview(FPresupuesto, False, AVerSello);
 end;
 
 function TfEditorPresupuestoCliente.PuedoEnviar: Boolean;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -492,7 +492,6 @@ var
   APresupuestos: IBizPresupuestoCliente;
   AllItems: Boolean;
   AVerSello: Integer;
-  AVerISO: Integer;
   bPrevisualizar: Boolean;  
 begin
   APresupuestos := Nil;
@@ -526,10 +525,10 @@ begin
                     if (AppFactuGES.EmpresaActiva.ID = 1) then
                        //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
                        //solo para empresa Tecsitel
-                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
                     if bPrevisualizar and Assigned(APresupuestos) then
-                       FController.Print(APresupuestos, AllItems, AVerSello, AVerISO);
+                       FController.Print(APresupuestos, AllItems, AVerSello);
                 end;
       end;
     end;
@@ -570,7 +569,6 @@ var
   APresupuestos: IBizPresupuestoCliente;
   AllItems: Boolean;
   AVerSello: Integer;
-  AVerISO: Integer;
   bPrevisualizar: Boolean;
 begin
   APresupuestos := Nil;
@@ -604,10 +602,10 @@ begin
                     if (AppFactuGES.EmpresaActiva.ID = 1) then
                        //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
                        //solo para empresa Tecsitel
-                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
                     if bPrevisualizar and Assigned(APresupuestos) then
-                       FController.Preview(APresupuestos, AllItems, AVerSello, AVerISO);
+                       FController.Preview(APresupuestos, AllItems, AVerSello);
                 end;
       end;
     end;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas

@@ -44,11 +44,11 @@ begin
   if (AppFactuGES.EmpresaActiva.ID = 1) then
      //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
      //solo para empresa Tecsitel
-      bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+      bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
   if bPrevisualizar then
      for I := 0 to ListaID.Count - 1 do
-         if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello, AVerISO) then
+         if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then
             ShowInfoMessage('El presupuesto se ha exportado correctamente.');
 end;
 

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -30,7 +30,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     end
     object edtFechaPresupuesto: TcxDBDateEdit
       Left = 123
-      Top = 82
+      Top = 109
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PRESUPUESTO'
       DataBinding.DataSource = DADataSource
@@ -52,12 +52,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 3
+      TabOrder = 4
       Width = 260
     end
     object memObservaciones: TcxDBMemo
       Left = 22
-      Top = 220
+      Top = 247
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -77,7 +77,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 8
+      TabOrder = 9
       Height = 217
       Width = 507
     end
@@ -113,7 +113,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 123
-      Top = 163
+      Top = 190
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.KeyFieldNames = 'ID'
@@ -142,21 +142,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 122
     end
     object bFormasPago: TButton
       Left = 318
-      Top = 163
+      Top = 190
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
-      TabOrder = 7
+      TabOrder = 8
       OnClick = bFormasPagoClick
     end
     object edtFechaDecision: TcxDBDateEdit
       Left = 123
-      Top = 109
+      Top = 136
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_DECISION'
       DataBinding.DataSource = DADataSource
@@ -177,7 +177,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
+      TabOrder = 5
       Width = 260
     end
     object eRefCliente: TcxDBTextEdit
@@ -234,12 +234,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 350
     end
     object cbSituacion: TcxDBImageComboBox
       Left = 123
-      Top = 136
+      Top = 163
       DataBinding.DataField = 'SITUACION'
       DataBinding.DataSource = DADataSource
       Properties.Items = <
@@ -268,7 +268,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 260
     end
     object eReferenciaAux: TcxDBTextEdit
@@ -311,7 +311,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 9
+      TabOrder = 10
       ReadOnly = False
       ExplicitLeft = 480
       ExplicitTop = 28
@@ -368,7 +368,27 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 23
       Height = 25
       Action = actElegirClienteFinal
-      TabOrder = 11
+      TabOrder = 12
+    end
+    object eCertificadoISO: TcxDBCheckBox
+      Left = 22
+      Top = 82
+      Caption = 'Certificaci'#243'n ISO'
+      DataBinding.DataField = 'CERTIFICADO_ISO'
+      DataBinding.DataSource = DADataSource
+      Properties.ValueChecked = 1
+      Properties.ValueUnchecked = 0
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 3
+      Transparent = True
+      Width = 359
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -409,6 +429,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
             Control = eRefCliente
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item13: TdxLayoutItem
+            ShowCaption = False
+            Control = eCertificadoISO
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Item2: TdxLayoutItem
             Caption = 'Fecha presupuesto:'
             Control = edtFechaPresupuesto

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas

@@ -11,7 +11,8 @@ uses
   cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
   uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
   cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
-  uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto;
+  uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto,
+  cxCheckBox;
 
 type
   IViewPresupuestoCliente = interface(IViewBase)
@@ -66,6 +67,8 @@ type
     dxLayoutControl1Item12: TdxLayoutItem;
     Label1: TLabel;
     dxLayoutControl1Group9: TdxLayoutGroup;
+    dxLayoutControl1Item13: TdxLayoutItem;
+    eCertificadoISO: TcxDBCheckBox;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure bFormasPagoClick(Sender: TObject);

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -36,6 +36,24 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       DataController.OnCompare = cxGridViewDataControllerCompare
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewCERTIFICADO_ISO: TcxGridDBColumn
+        DataBinding.FieldName = 'CERTIFICADO_ISO'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+            Description = 'No ISO'
+            ImageIndex = 1
+            Value = 0
+          end
+          item
+            Description = 'ISO'
+            ImageIndex = 4
+            Value = 1
+          end>
+        Visible = False
+        VisibleForCustomization = False
+      end
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
         Caption = 'Incidencias'
         DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -170,25 +188,31 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Width = 285
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 295
+          Left = 292
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 295
+          ExplicitLeft = 292
           ExplicitWidth = 504
           Width = 504
         end
         inherited eLista: TcxComboBox
-          Left = 757
+          Left = 750
           Properties.OnChange = nil
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 757
+          ExplicitLeft = 750
-          ExplicitWidth = 215
+        end
-          Width = 215
+        inherited eLista2: TcxComboBox
+          Left = 833
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 833
         end
         inherited dxLayoutControl1Group_Root: TdxLayoutGroup
           inherited dxLayoutControl1Group1: TdxLayoutGroup
@@ -196,6 +220,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
               Caption = 'Con/Sin Factura:'
               Visible = True
             end
+            inherited dxLayoutControl1Item5: TdxLayoutItem
+              Caption = 'ISO:'
+              Visible = True
+            end
           end
         end
       end
@@ -532,6 +560,43 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           CF0000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000001974455874536F6674776172650041646F626520496D616765526561
+          647971C9653C000003914944415478DA4DD27B4C5B551C07F06FEFA3E5F6C56B
+          0C0B58A924CEB9CD01DA6A702677715B4C5894CC6C7F18CDFC6344D0388D1AC9
+          626222D3FDC1602E99BA202E13612E6EDD545C743CDA4BE660C056CACA63039C
+          6D6829A3ACD04B5BFAA097EBED5D829E73929B7BCEF77C92F33B47218A22AC76
+          E7052DADAB2AD19AFC94821417132178A3330044A4D652C8A4B360D294602515
+          C3BCE0D586E3D1E97D2F9555480128D240FF907F70430161F19113E0E311E4AB
+          0C306799415352620DF8273A8BC9953114EA0DD0470BF0E5D767022DC7EAF2D7
+          81B1E1B03DD3B4B2F38F583B7CFC1C76E5EFC133D966DC0DDF41B1D60457C885
+          D787AB50A0DB8863B41547EBCFBAFB7EFDF6F17560E86680DB68047B0BDD7810
+          594259761982C920FA1EFC8522E6513C9BF33C7EBBD70146A9C60BC2ABA86F68
+          F1D8CF9F34AD039323498E2E5A60AB5D07E00B06A1566680509050936A445211
+          28A4AE2619146616E1107304C74FB67BBADA1BFF03DCB7C179B3FAD91B892E6C
+          A19F435C8C4BE55B034550D0513AF0AB3C184285F155270A0316B47ED3E9E93C
+          F73F60DA9992800136A69F430E0CF0C5BCE935E8681D5ECEDF8BABF7AF404D31
+          5031B4945D415B738FA7B3AD315D03F121E04871BEDC217621631AE5EA0A4485
+          880C64489B9ED06DC27868141A5A837BC969F05319F8FDE71BBE1F4E1C795A8A
+          446560CAB1CACDE53AD845B51BFAF90D48AC25612C36C2D5EFC266C353509A28
+          A848256696BCB8DDE346785939FFD9FB07F748C0AC0CDCBD99E002794E36ACF5
+          A3F304973E19A64627E19B9945848FE0AD770E626BE9167C50FD210C86428C8F
+          8E894D8D8D75B5B5B5571E028349F908C85EC69F5FF5C8559F70DD91BFE67233
+          F28AF2D077ED3ACC2F5A50B9773FEADEFB28292463F68E8E8EA332E0BCBECCC5
+          0ADCEC38790DCED31360A42BDB5E5A0A8FC7036BBB154693117C8847F5BB8750
+          B163173E39FCF12ABF1818B0D96C9FCAC0A5AE61AE7CF363AC421FC3F12F1AA0
+          2469587FBA88DD95BBE1F379A150004F6EDF844B3FFE8257F6BD86D6EFCE8835
+          356F9F6A6A6A3A2B03D66E87DDB2AD64A7F1912C70B65E08D2FB37198BD1D2FA
+          3D02293FDEA879138C9E81FDAA0D7EC712085A133AD5F079A5542C8F0C5CEEBE
+          35A8D7A82CF71782D20312A1A269100401254503290A4B311E8220224F978384
+          1047F740EF62737DDD5609E065E0F4F9AE0B3DFDBD55432323FEDC9C5C902401
+          9A2014D2000902D25E319D4B375A456AA5F9BF7BDB9A7748BFC2BFE7F1A7FE88
+          C153E90000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Bitmap = {}
   end

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas

@@ -11,7 +11,8 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
   cxGrid, uBizPresupuestosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
-  TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows;
+  TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
+  uCustomView, uViewBase;
 
 type
   IViewPresupuestosCliente = interface(IViewGrid)
@@ -46,6 +47,7 @@ type
     cxGridViewNIF_CIF: TcxGridDBColumn;
     cxGridViewINCIDENCIAS: TcxGridDBColumn;
     cxStyleRECHAZADO: TcxStyle;
+    cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -68,6 +70,9 @@ type
       AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
     procedure OnFiltroListaPropertiesChange(Sender: TObject);
     procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
+    procedure OnFiltroListaISOPropertiesChange(Sender: TObject);
+    procedure OnFiltroListaISOPropertiesInitPopup(Sender: TObject);
+
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewShow(Sender: TObject);
     procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
@@ -77,6 +82,7 @@ type
     procedure AnadirFiltroSituaciones;
     procedure AnadirFiltroFechas;
     procedure AnadirFiltroFacturado;
+    procedure AnadirFiltroISO;
 
   protected
     FPresupuestos: IBizPresupuestoCliente;
@@ -159,6 +165,31 @@ begin
   end;
 end;
 
+procedure TfrViewPresupuestosCliente.AnadirFiltroISO;
+var
+  FFiltro : TcxFilterCriteriaItemList;
+begin
+  //Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
+  //y sobre la lista de presupuestos de cliente
+  if frViewFiltroBase1.Visible then
+  begin
+    case frViewFiltroBase1.eLista2.ItemIndex of
+//Con ISO
+    1 : begin
+          FFiltro := AddFilterGrid(fboAnd);
+          FFiltro.AddItem(cxGridViewCERTIFICADO_ISO, foEqual, '1', 'ConISO');
+        end;
+
+//SIN ISO
+    2: begin
+          FFiltro := AddFilterGrid(fboAnd);
+          FFiltro.AddItem(cxGridViewCERTIFICADO_ISO, foEqual, '0', 'SinISO');
+       end;
+    end;
+  end;
+
+end;
+
 procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado;
 var
   FFiltro : TcxFilterCriteriaItemList;
@@ -203,6 +234,7 @@ begin
   AnadirFiltroSituaciones;
   AnadirFiltroFechas;
   AnadirFiltroFacturado;
+  AnadirFiltroISO;  
 
   //Finalmente activamos el filtro si tenemos algo
   if cxGridView.DataController.Filter.IsEmpty then
@@ -216,6 +248,9 @@ procedure TfrViewPresupuestosCliente.CustomViewDestroy(Sender: TObject);
 begin
   frViewFiltroBase1.eLista.Properties.OnChange := Nil;
   frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
+  frViewFiltroBase1.eLista2.Properties.OnChange := Nil;
+  frViewFiltroBase1.eLista2.Properties.OnInitPopup := Nil;
+
   inherited;
 end;
 
@@ -224,6 +259,8 @@ begin
   inherited;
   frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
   frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
+  frViewFiltroBase1.eLista2.Properties.OnChange := OnFiltroListaISOPropertiesChange;
+  frViewFiltroBase1.eLista2.Properties.OnInitPopup := OnFiltroListaISOPropertiesInitPopup;
 end;
 
 procedure TfrViewPresupuestosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
@@ -247,19 +284,23 @@ end;
 procedure TfrViewPresupuestosCliente.cxGridViewICONOCustomDrawCell(
   Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
   AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-{var
+var
-  R : TRect;}
+  R : TRect;
 begin
   inherited;
-{  R := AViewInfo.ContentBounds;
+  R := AViewInfo.ContentBounds;
   ACanvas.FillRect(R);
 
   if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
-    cxGridViewINCIDENCIASACTIVAS.Index] = 'Sin incidencias') then
+    cxGridViewINCIDENCIASACTIVAS.Index] <> 'Sin incidencias') then
-    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1)
+    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2)
+  else if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+    cxGridViewCERTIFICADO_ISO.Index] = 'ISO') then
+    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 4)
   else
-    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2);
+    ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1);
-  ADone := True;}
+
+  ADone := True;
 end;
 
 procedure TfrViewPresupuestosCliente.cxGridViewINCIDENCIASACTIVASGetCellHint(
@@ -272,7 +313,8 @@ begin
   if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
   begin
     AIsHintMultiLine := True;
-    AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+    if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+       AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
   end;
 end;
 
@@ -301,6 +343,34 @@ procedure TfrViewPresupuestosCliente.frViewFiltroBase1actQuitarFiltroExecute(Sen
 begin
   frViewFiltroBase1.txtFiltroTodo.Clear;
   frViewFiltroBase1.eLista.Clear;
+  frViewFiltroBase1.eLista2.Clear;  
+end;
+
+procedure TfrViewPresupuestosCliente.OnFiltroListaISOPropertiesChange(
+  Sender: TObject);
+begin
+  inherited;
+  RefrescarFiltro;
+end;
+
+procedure TfrViewPresupuestosCliente.OnFiltroListaISOPropertiesInitPopup(
+  Sender: TObject);
+begin
+  inherited;
+
+  with frViewFiltroBase1.eLista2.Properties.Items do
+  begin
+    BeginUpdate;
+    try
+      Clear;
+      Add('Todos');  //Case 0
+      Add('Con ISO'); //Case 1
+      Add('Sin ISO'); //Case 2
+      frViewFiltroBase1.eLista2.ItemIndex := 0;
+    finally
+      EndUpdate;
+    end;
+  end;
 end;
 
 procedure TfrViewPresupuestosCliente.OnFiltroListaPropertiesChange(Sender: TObject);

Source/Servicios/FactuGES.RODL

@@ -316,8 +316,6 @@
 </Parameter>
 <Parameter Name="VerSello" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="VerISO" DataType="Integer" Flag="In" >
-</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="GenerarInformeEnWord" UID="{7C3C767B-41AC-42EC-925D-ECAE03BD8F58}">
@@ -328,8 +326,6 @@
 </Parameter>
 <Parameter Name="VerSello" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="VerISO" DataType="Integer" Flag="In" >
-</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="GenerarCertificadoTrabajosEnWord" UID="{F96E1E6B-131C-4F1F-BF2A-3E7B0B6ABF09}">
@@ -348,8 +344,6 @@
 </Parameter>
 <Parameter Name="VerSello" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="VerISO" DataType="Integer" Flag="In" >
-</Parameter>
 </Parameters>
 </Operation>
 </Operations>

Source/Servicios/FactuGES_Intf.pas

@@ -546,10 +546,10 @@ type
   { IsrvPresupuestosCliente }
   IsrvPresupuestosCliente = interface(IDataAbstractService)
     ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
-    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
-    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
   end;
 
   { CosrvPresupuestosCliente }
@@ -562,10 +562,10 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
-    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
   end;
 
   { IsrvPedidosProveedor }
@@ -1817,14 +1817,13 @@ begin
   result := 'srvPresupuestosCliente';
 end;
 
-function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1836,14 +1835,13 @@ begin
   end
 end;
 
-function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
     __Message.Write('ID', TypeInfo(Integer), ID, []);
     __Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1872,14 +1870,13 @@ begin
   end
 end;
 
-function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -963,11 +963,10 @@ begin
 end;
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
   VerSello: Integer;
-  VerISO: Integer;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -976,9 +975,8 @@ begin
   try
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
 
-    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello, VerISO);
+    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -997,11 +995,10 @@ begin
 end;
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; }
 var
   ID: Integer;
   VerSello: Integer;
-  VerISO: Integer;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1009,9 +1006,8 @@ begin
   try
     __Message.Read('ID', TypeInfo(Integer), ID, []);
     __Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
 
-    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello, VerISO);
+    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1057,11 +1053,10 @@ begin
 end;
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
   VerSello: Integer;
-  VerISO: Integer;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1070,9 +1065,8 @@ begin
   try
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
-    __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
 
-    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello, VerISO);
+    lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);

Source/Servidor/FactuGES_Server.dpr

@@ -115,12 +115,8 @@ uses
   schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
   uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
-  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
-  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
-  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
   uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule},
   MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
@@ -135,7 +131,11 @@ uses
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,334 +1,334 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
+  <PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
+    <MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
+    <DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-		<DCC_DebugVN>True</DCC_DebugVN>
+    <DCC_DebugVN>True</DCC_DebugVN>
-		<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+    <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-		<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+    <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-		<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+    <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-		<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+    <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-	</PropertyGroup>
+  </PropertyGroup>
-	<ProjectExtensions>
+  <ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
-		<BorlandProject>
+    <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de enero de 2014 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de enero de 2014 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	</ProjectExtensions>
+  </ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-	<ItemGroup>
+  <ItemGroup>
-		<DelphiCompile Include="FactuGES_Server.dpr">
+    <DelphiCompile Include="FactuGES_Server.dpr">
-			<MainSource>MainSource</MainSource>
+      <MainSource>MainSource</MainSource>
-		</DelphiCompile>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
+      <Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<Form>srvProvinciasPoblaciones_Impl</Form>
+      <Form>srvProvinciasPoblaciones_Impl</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-			<Form>srvUsuarios</Form>
+      <Form>srvUsuarios</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<Form>RptAlbaranesCliente</Form>
+      <Form>RptAlbaranesCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-			<Form>RptWordAlbaranCliente</Form>
+      <Form>RptWordAlbaranCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
+      <Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-			<Form>RptAlbaranesProveedor</Form>
+      <Form>RptAlbaranesProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-			<Form>RptWordAlbaranProveedor</Form>
+      <Form>RptWordAlbaranProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<Form>srvAlbaranesProveedor</Form>
+      <Form>srvAlbaranesProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
+      <Form>srvAlmacenes</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-			<Form>srvArticulos</Form>
+      <Form>srvArticulos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<Form>RptEtiquetasContacto</Form>
+      <Form>RptEtiquetasContacto</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<Form>RptFichasEmpleado</Form>
+      <Form>RptFichasEmpleado</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
+      <Form>srvContactos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-			<Form>srvFabricantes</Form>
+      <Form>srvFabricantes</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<Form>RptFacturasCliente</Form>
+      <Form>RptFacturasCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-			<Form>RptWordFacturaCliente</Form>
+      <Form>RptWordFacturaCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
+      <Form>srvFacturasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<Form>RptFacturasProveedor</Form>
+      <Form>RptFacturasProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<Form>srvFacturasProveedor</Form>
+      <Form>srvFacturasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-			<Form>srvFamilias</Form>
+      <Form>srvFamilias</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-			<Form>srvFormasPago</Form>
+      <Form>srvFormasPago</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<Form>srvGestorDocumentos</Form>
+      <Form>srvGestorDocumentos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<Form>srvGestorInformes</Form>
+      <Form>srvGestorInformes</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvHistoricoMovimientos</Form>
+      <Form>srvHistoricoMovimientos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<Form>srvInventario</Form>
+      <Form>srvInventario</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
-		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-			<Form>srvObras</Form>
+      <Form>srvObras</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<Form>RptPedidosProveedor</Form>
+      <Form>RptPedidosProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-			<Form>RptWordPedidoProveedor</Form>
+      <Form>RptWordPedidoProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
+      <Form>srvPedidosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
+      <Form>RptPresupuestosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-			<Form>RptWordCertificadoTrabajo</Form>
+      <Form>RptWordCertificadoTrabajo</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-			<Form>RptWordPresupuestoCliente</Form>
+      <Form>RptWordPresupuestoCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
+      <Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<Form>RptRecibosCliente</Form>
+      <Form>RptRecibosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
+      <Form>srvRecibosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<Form>RptRecibosProveedor</Form>
+      <Form>RptRecibosProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
+      <Form>srvRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<Form>srvReferencias</Form>
+      <Form>srvReferencias</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvRemesasCliente</Form>
+      <Form>srvRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<Form>srvRemesasProveedor</Form>
+      <Form>srvRemesasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-			<Form>srvTiposIVA</Form>
+      <Form>srvTiposIVA</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
+      <Form>srvUnidadesMedida</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
+      <Form>srvConfiguracion</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
+      <Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
+      <Form>frConfGeneral</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
+      <Form>fConfiguracion</Form>
-			<DesignClass>TForm</DesignClass>
+      <DesignClass>TForm</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
+      <Form>FrameConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
+    <DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
+      <Form>srvLogin</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="uAcercaDe.pas">
-			<Form>fAcercaDe</Form>
+      <Form>fAcercaDe</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
+    <DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
+      <Form>dmServer</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
+    <DCCReference Include="uServerMainForm.pas">
-			<Form>fServerForm</Form>
+      <Form>fServerForm</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+    <DCCReference Include="Utiles\AHWord97.pas" />
-		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-	</ItemGroup>
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -1,4 +1,4 @@
-MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
+MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
 FILEVERSION 2,0,5,0
 PRODUCTVERSION 2,0,5,0
@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.0.5.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
               VALUE "ProductVersion", "2.0.5.0\0"
-              VALUE "CompileDate", "martes, 28 de enero de 2014 17:51\0"
+              VALUE "CompileDate", "martes, 18 de febrero de 2014 14:23\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Servidor/uDataModuleServer.dfm

@@ -40,8 +40,8 @@ object dmServer: TdmServer
         Name = 'IBX'
         ConnectionString = 
           'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
-          'tabase\FACTUGES2.FDB;UserID=sysdba;Password=masterkey;Dialect=3;' +
+          'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
-          'Charset=ISO8859_1;'
+          'harset=ISO8859_1;'
         ConnectionType = 'Interbase'
         Default = True
       end>

TECSITEL.SQL

@@ -0,0 +1,93 @@
+INSERT INTO PRESUPUESTOS_CLIENTE (ID, ID_EMPRESA, ID_CLIENTE, REFERENCIA, REFERENCIA_AUX, FECHA_PRESUPUESTO, FECHA_DECISION, SITUACION, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, REFERENCIA_CLIENTE, CLIENTE_FINAL, ID_FACTURA, PERSONA_CONTACTO, ID_DIRECCION, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION)
+                          VALUES (6233, 1, 374, 'PRE1312/030', NULL, '2013-12-17', '2013-12-19', 'ACEPTADO', 0, '2013-12-17 07:44:28', '2013-12-19 15:36:10', 'Maribel', 108976.64, 0, 0, 0, 108976.64, NULL, 0, 108976.64, 21, NULL, 'RENOVACION SERVICIOS EQUIPOS FORTINET.', NULL, 'JESUS MERIDA', NULL, NULL, NULL);
+
+COMMIT WORK;
+
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142700, 6233, 0, 'Titulo', NULL, '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}}  \viewkind4\uc1\pard\lang3082\b\f0\fs24 RENOVACION HASTA 3 DE ENERO DE 2015\f1\par  }', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142701, 6233, 1, 'Concepto', NULL, '*FG300C3911602513 (Coterm End Date:Jan-03-2015) Last Expiry Date:May-23-2013. Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 4873.5, NULL, NULL, 4873.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142703, 6233, 2, 'Concepto', NULL, '*FL-2KB3R12600072 (Coterm End Date:Jan-03-2015) Last Expiry Date:Sep-23-2013. 24X7 Comprehensive Support', 1, 'UD.', 6333.97, NULL, NULL, 6333.97, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142704, 6233, 3, 'Concepto', NULL, '*FMG1KC3R12600040 (Coterm End Date:Jan-03-2015) Last Expiry Date:Sep-24-2013, 24X7 Comprehensive Support', 1, 'UD.', 5461.7, NULL, NULL, 5461.7, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142705, 6233, 4, 'Concepto', NULL, 'FAC1KC3R12600011 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-09-2014. 24X7 Comprehensive Support', 1, 'UD.', 220.5, NULL, NULL, 220.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142706, 6233, 5, 'Concepto', NULL, 'FAC1KC3R12600014 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-09-2014. 24X7 Comprehensive Support', 1, 'UD.', 220.5, NULL, NULL, 220.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142707, 6233, 6, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 10, 'UDS.', 940.45, NULL, NULL, 9404.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142708, 6233, 7, 'Concepto', NULL, 'FG100C3G08600550, FG100C3G08601502, FG100C3G09605187', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142709, 6233, 8, 'Concepto', NULL, 'FG100C3G09611766, FG100C3G09611810, FG100C3G09611813', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131710, 6233, 9, 'Concepto', NULL, 'FG100C3G09614055, FG100C3G09618333, FG100C3G11600114', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131711, 6233, 10, 'Concepto', NULL, 'FG100C3G11607700,', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131712, 6233, 11, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 724.68, NULL, NULL, 1449.36, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131713, 6233, 12, 'Concepto', NULL, 'FG100C3G09611406, FG100C3G09611612. FG100C3G09612543', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131714, 6233, 13, 'Concepto', NULL, 'FG100C3G10601595, FG100C3G10603342', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131715, 6233, 14, 'Concepto', NULL, 'FG100C3G11611304 (Coterm End Date:Jan-03-2015) Last Expiry Date:Mar-22-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 564.85, NULL, NULL, 564.85, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131716, 6233, 15, 'Concepto', NULL, 'FG100C3G11607369 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-02-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 660.2, NULL, NULL, 660.2, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131717, 6233, 16, 'Concepto', NULL, 'FG100C3G10609960 (Coterm End Date:Jan-03-2015) Last Expiry Date:Oct-16-2014.  8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 155.99, NULL, NULL, 155.99, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131718, 6233, 17, 'Concepto', NULL, 'FG100C3G09618290 (Coterm End Date:Jan-03-2015) Last Expiry Date:Aug-02-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 303.29, NULL, NULL, 303.29, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131719, 6233, 18, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:May-28-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 435.64, NULL, NULL, 435.64, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131720, 6233, 19, 'Concepto', NULL, 'FG100C3G11612927 - FG100C3G11612665', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131721, 6233, 20, 'Concepto', NULL, 'FG100C3G11612931 (Coterm End Date:Jan-03-2015) Last Expiry Date:Apr-23-2014.  8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 501.87, NULL, NULL, 501.87, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131722, 6233, 21, 'Concepto', NULL, 'FG100C3G11614980 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-18-2014.  Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 816.25, NULL, NULL, 816.25, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131723, 6233, 22, 'Concepto', NULL, 'FG100C3G11615471 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-19-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 628.19, NULL, NULL, 628.19, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131724, 6233, 23, 'Concepto', NULL, 'FG100C3G12600118 (Coterm End Date:Jan-03-2015) Last Expiry Date:Apr-22-2014.  8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 504.15, NULL, NULL, 504.15, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131725, 6233, 24, 'Concepto', NULL, 'FG100D3G12808363 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jun-23-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 428.13, NULL, NULL, 428.13, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131726, 6233, 25, 'Concepto', NULL, 'FG100D3G12809775 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jul-03-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 404.12, NULL, NULL, 404.12, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131727, 6233, 26, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 4249.43, NULL, NULL, 8498.86, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131728, 6233, 27, 'Concepto', NULL, 'FG300B3910603269 - FG300B3908607012', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131729, 6233, 28, 'Concepto', NULL, 'FG300B3911603494 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013.Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 2543.99, NULL, NULL, 2543.99, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131730, 6233, 29, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-07-2014. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 14505.33, NULL, NULL, 29010.66, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131731, 6233, 30, 'Concepto', NULL, 'FG3K2C3Z12800101 - FG3K2C3Z12800124', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131732, 6233, 31, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-19-2013.  Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 16705.21, NULL, NULL, 33410.42, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131733, 6233, 32, 'Concepto', NULL, 'FG3K2C3Z12800149 - FG3K2C3Z12800141', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131734, 6233, 33, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Last Expiry Date:Jan-02-2015.  Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 44.01, NULL, NULL, 88.02, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131735, 6233, 34, 'Concepto', NULL, 'FG3K2C3Z12800267 - FG3K2C3Z12800273', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131736, 6233, 35, 'Concepto', NULL, 'FGT50B3G09601858 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013. Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 212.06, NULL, NULL, 212.06, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131737, 6233, 36, 'Concepto', NULL, 'FGT60C3G11023095 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013.  Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 244.07, NULL, NULL, 244.07, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131738, 6233, 37, 'Concepto', NULL, '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}}  \viewkind4\uc1\pard\lang3082\f0\fs16 FGT80C3911603981 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jan-25-2014. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)\par  }', 1, 'UD.', 302.61, NULL, NULL, 302.61, 1, '2013-12-17 07:44:28', '2013-12-19 11:38:35');
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131913, 6233, 38, 'Concepto', NULL, 'FG100C3G10600149 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-12-2013. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 747.87, NULL, NULL, 747.87, 1, '2013-12-19 11:38:34', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131914, 6233, 39, 'Concepto', NULL, 'FG100D3G12813480 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jun-28-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 416.13, NULL, NULL, 416.13, 1, '2013-12-19 11:38:34', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131915, 6233, 40, 'Concepto', NULL, 'FG100D3G13809304 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-04-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 67.22, NULL, NULL, 67.22, 1, '2013-12-19 11:38:34', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (131916, 6233, 41, 'Concepto', NULL, 'FG100D3G13809399 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-03-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 68.02, NULL, NULL, 68.02, 1, '2013-12-19 11:38:34', NULL);
+INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
+                                   VALUES (142702, 6233, 42, 'Subtotal', NULL, NULL, NULL, NULL, NULL, NULL, NULL, 108976.64, 1, '2013-12-17 07:44:28', '2013-12-19 11:38:35');
+
+COMMIT WORK;