Version 2.0.9

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

Database/scripts/factuges.sql

@@ -1053,7 +1053,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     DESCRIPCION_BONIFICACION  VARCHAR(255) COLLATE ES_ES,
     IMPORTE_BONIFICACION      TIPO_IMPORTE,
     CERTIFICADO_ISO           TIPO_BOOLEANO,
-    ID_PRESUPUESTO            TIPO_ID 
+    ID_PRESUPUESTO            TIPO_ID,
+    PRESUPUESTO_WEB           TIPO_BOOLEANO DEFAULT 0 NOT NULL    
 );
 
 CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -3145,7 +3146,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     DESCRIPCION_BONIFICACION,
     IMPORTE_BONIFICACION,
     CERTIFICADO_ISO,
-    NUM_FACTURA)
+    NUM_FACTURA,
+    PRESUPUESTO_WEB)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -3182,7 +3184,8 @@ SELECT
   PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
   PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
   PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO,
-  V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS
+  V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS,
+  PRESUPUESTOS_CLIENTE.PRESUPUESTO_WEB
 FROM
   PRESUPUESTOS_CLIENTE
   inner JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
@@ -3191,6 +3194,7 @@ FROM
 
 
 
+
 /* View: V_PROVEEDORES */
 CREATE VIEW V_PROVEEDORES(
     ID,

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</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.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">9</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.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,0,8,0
+FILEVERSION 2,0,9,0
-PRODUCTVERSION 2,0,8,0
+PRODUCTVERSION 2,0,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.0.8.0\0"
+              VALUE "FileVersion", "2.0.9.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.0.8.0\0"
+              VALUE "ProductVersion", "2.0.9.0\0"
          END
     END
     BLOCK "VarFileInfo"

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

@@ -8,8 +8,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     Height = 290
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
-    ExplicitLeft = 48
-    ExplicitTop = 96
     ExplicitWidth = 665
     ExplicitHeight = 290
     inherited cxGridView: TcxGridDBTableView
@@ -40,6 +38,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
             Value = 0
           end>
         Properties.ShowDescriptions = False
+        BestFitMaxWidth = 40
+        Width = 40
       end
       object cxGridViewTIPO: TcxGridDBColumn
         DataBinding.FieldName = 'TIPO'

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

@@ -242,6 +242,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'NUM_FACTURA'
         DataType = datString
         Size = 31
+      end
+      item
+        Name = 'PRESUPUESTO_WEB'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

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

@@ -9,9 +9,9 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosPresupuestos = '{FB0C7CCA-A5AD-4DC9-92A7-B1F988BC66F6}';
+  RID_ListaAnosPresupuestos = '{57F229C4-0E25-4B14-9EF2-FDDD99E71C84}';
-  RID_PresupuestosCliente = '{13B7954C-1238-405E-9808-FAFEE50453B2}';
+  RID_PresupuestosCliente = '{59171E8B-CE19-4D89-B535-C89A0CF3A7A8}';
-  RID_PresupuestosCliente_Detalles = '{F440F004-9D8C-4318-A703-B778699FEF40}';
+  RID_PresupuestosCliente_Detalles = '{DEBB6BD7-53C4-423A-A7BC-7EDB8FE1E85B}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -60,6 +60,7 @@ const
   fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
   fld_PresupuestosClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
   fld_PresupuestosClienteNUM_FACTURA = 'NUM_FACTURA';
+  fld_PresupuestosClientePRESUPUESTO_WEB = 'PRESUPUESTO_WEB';
 
   { PresupuestosCliente field indexes }
   idx_PresupuestosClienteID = 0;
@@ -97,6 +98,7 @@ const
   idx_PresupuestosClienteIMPORTE_BONIFICACION = 32;
   idx_PresupuestosClienteCERTIFICADO_ISO = 33;
   idx_PresupuestosClienteNUM_FACTURA = 34;
+  idx_PresupuestosClientePRESUPUESTO_WEB = 35;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -135,7 +137,7 @@ const
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{A9351889-76CD-4DF9-A713-429A45EEFF0E}']
+  ['{8205902D-1C1B-4481-8FA3-990C69B260CA}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -170,7 +172,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{8270147A-7440-4A9F-96C0-4473F3A5103C}']
+  ['{80C8000B-8736-4612-B2A2-0D4B0EFD5401}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -308,6 +310,10 @@ type
     procedure SetNUM_FACTURAValue(const aValue: String);
     function GetNUM_FACTURAIsNull: Boolean;
     procedure SetNUM_FACTURAIsNull(const aValue: Boolean);
+    function GetPRESUPUESTO_WEBValue: SmallInt;
+    procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+    function GetPRESUPUESTO_WEBIsNull: Boolean;
+    procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -381,6 +387,8 @@ type
     property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
     property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
     property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
+    property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+    property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
   end;
 
   { TPresupuestosClienteDataTableRules }
@@ -532,6 +540,10 @@ type
     procedure SetNUM_FACTURAValue(const aValue: String); virtual;
     function GetNUM_FACTURAIsNull: Boolean; virtual;
     procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
+    procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
+    function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
+    procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -604,6 +616,8 @@ type
     property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
     property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
     property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
+    property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+    property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -613,7 +627,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{F55BA8B9-B3C5-41E9-A24C-37775DEC3E12}']
+  ['{F117D80D-7B65-4791-8611-ACCF1099A09E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1619,6 +1633,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteNUM_FACTURA].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].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 = '{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}';
+  RID_ListaAnosPresupuestosDelta = '{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}';
-  RID_PresupuestosClienteDelta = '{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}';
+  RID_PresupuestosClienteDelta = '{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}';
-  RID_PresupuestosCliente_DetallesDelta = '{BC5B932F-4F80-464F-89B1-D198C455DC79}';
+  RID_PresupuestosCliente_DetallesDelta = '{5C3B3F44-DBFB-471E-B345-BCD2673FED43}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}']
+  ['{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}']
+  ['{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -87,6 +87,7 @@ type
     function GetOldIMPORTE_BONIFICACIONValue : Currency;
     function GetOldCERTIFICADO_ISOValue : SmallInt;
     function GetOldNUM_FACTURAValue : String;
+    function GetOldPRESUPUESTO_WEBValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -124,6 +125,7 @@ type
     property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
     property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
     property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
+    property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
   end;
 
   { TPresupuestosClienteBusinessProcessorRules }
@@ -345,6 +347,12 @@ type
     function GetOldNUM_FACTURAIsNull: Boolean; virtual;
     procedure SetNUM_FACTURAValue(const aValue: String); virtual;
     procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
+    function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
+    function GetOldPRESUPUESTO_WEBValue: SmallInt; virtual;
+    function GetOldPRESUPUESTO_WEBIsNull: Boolean; virtual;
+    procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
+    procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -487,6 +495,10 @@ type
     property NUM_FACTURAIsNull : Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
     property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
     property OldNUM_FACTURAIsNull : Boolean read GetOldNUM_FACTURAIsNull;
+    property PRESUPUESTO_WEB : SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+    property PRESUPUESTO_WEBIsNull : Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
+    property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
+    property OldPRESUPUESTO_WEBIsNull : Boolean read GetOldPRESUPUESTO_WEBIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -496,7 +508,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{BC5B932F-4F80-464F-89B1-D198C455DC79}']
+  ['{5C3B3F44-DBFB-471E-B345-BCD2673FED43}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -1866,6 +1878,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_FACTURA] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesBusinessProcessorRules }
 constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@@ -205,6 +205,7 @@ begin
   FECHA_PRESUPUESTO := DateOf(Date);
   INCIDENCIAS_ACTIVAS := 0;
   CERTIFICADO_ISO := 1;
+  PRESUPUESTO_WEB := 0;
 //  INCIDENCIAS := NIL;
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;

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

@@ -186,6 +186,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'NUM_FACTURA'
                 TableField = 'NUM_FACTURA'
+              end
+              item
+                DatasetField = 'PRESUPUESTO_WEB'
+                TableField = 'PRESUPUESTO_WEB'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -376,6 +380,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'NUM_FACTURA'
             DataType = datString
             Size = 31
+          end
+          item
+            Name = 'PRESUPUESTO_WEB'
+            DataType = datSmallInt
           end>
       end
       item
@@ -715,6 +723,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'CERTIFICADO_ISO'
             DataType = datSmallInt
             Value = ''
+          end
+          item
+            Name = 'PRESUPUESTO_WEB'
+            DataType = datSmallInt
+            Value = ''
           end>
         Statements = <
           item
@@ -730,15 +743,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIBLE, IVA' +
               ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10'     PERSONA_CONTAC' +
               'TO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, CERTIFICADO_' +
-              'ISO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_' +
+              'ISO,'#10'     PRESUPUESTO_WEB)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :FECH' +
-              'DECISION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :SITUACION, :ID_CLI' +
+              'A_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10'     :REFERENCIA_AU' +
-              'ENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10'     :CLIENTE_FINAL, :' +
+              'X, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10 +
-              'PORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIAS, :INCIDENC' +
+              '     :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :' +
-              'IAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPORTE_NETO, :I' +
+              'INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUA' +
-              'MPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENTO, :BASE_IMPONI' +
+              'RIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_D' +
-              'BLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FORMA_PAGO, :' +
+              'ESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TO' +
-              'PERSONA_CONTACTO,'#10'     :DESCRIPCION_BONIFICACION, :IMPORTE_BONIF' +
+              'TAL, :ID_FORMA_PAGO, :PERSONA_CONTACTO,'#10'     :DESCRIPCION_BONIFI' +
-              'ICACION, :CERTIFICADO_ISO)'#10
+              'CACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO, :PRESUPUESTO_WE' +
+              'B)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -924,6 +938,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             DataType = datSmallInt
             Value = ''
           end
+          item
+            Name = 'PRESUPUESTO_WEB'
+            DataType = datSmallInt
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -951,8 +970,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'OTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ' +
               'PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10'    DESCRIPCION_BONIFICACI' +
               'ON = :DESCRIPCION_BONIFICACION,'#10'    IMPORTE_BONIFICACION = :IMPO' +
-              'RTE_BONIFICACION,'#10'    CERTIFICADO_ISO = :CERTIFICADO_ISO'#10'  WHERE' +
+              'RTE_BONIFICACION,'#10'    CERTIFICADO_ISO = :CERTIFICADO_ISO,'#10'    PR' +
-              #10'    (ID = :OLD_ID)'#10
+              'ESUPUESTO_WEB = :PRESUPUESTO_WEB'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

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

@@ -52,7 +52,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
+      TabOrder = 5
       Width = 260
     end
     object memObservaciones: TcxDBMemo
@@ -77,7 +77,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Height = 217
       Width = 507
     end
@@ -142,7 +142,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Width = 122
     end
     object bFormasPago: TButton
@@ -151,7 +151,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
-      TabOrder = 8
+      TabOrder = 9
       OnClick = bFormasPagoClick
     end
     object edtFechaDecision: TcxDBDateEdit
@@ -177,7 +177,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 260
     end
     object eRefCliente: TcxDBTextEdit
@@ -234,7 +234,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 11
+      TabOrder = 12
       Width = 350
     end
     object cbSituacion: TcxDBImageComboBox
@@ -268,7 +268,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 260
     end
     object eReferenciaAux: TcxDBTextEdit
@@ -311,7 +311,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 10
+      TabOrder = 11
       ReadOnly = False
       ExplicitLeft = 480
       ExplicitTop = 28
@@ -368,7 +368,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 23
       Height = 25
       Action = actElegirClienteFinal
-      TabOrder = 12
+      TabOrder = 13
     end
     object eCertificadoISO: TcxDBCheckBox
       Left = 22
@@ -388,7 +388,28 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 3
       Transparent = True
-      Width = 359
+      Width = 110
+    end
+    object eFacturaWeb: TcxDBCheckBox
+      Left = 138
+      Top = 82
+      Caption = 'Presupuesto WEB'
+      DataBinding.DataField = 'PRESUPUESTO_WEB'
+      DataBinding.DataSource = DADataSource
+      Properties.ImmediatePost = True
+      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 = 4
+      Transparent = True
+      Width = 162
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -429,10 +450,24 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
             Control = eRefCliente
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Item13: TdxLayoutItem
+          object dxLayoutControl1Group10: TdxLayoutGroup
             ShowCaption = False
-            Control = eCertificadoISO
+            Hidden = True
-            ControlOptions.ShowBorder = False
+            LayoutDirection = ldHorizontal
+            ShowBorder = False
+            object dxLayoutControl1Item13: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              ShowCaption = False
+              Control = eCertificadoISO
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item14: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              ShowCaption = False
+              Control = eFacturaWeb
+              ControlOptions.ShowBorder = False
+            end
           end
           object dxLayoutControl1Item2: TdxLayoutItem
             Caption = 'Fecha presupuesto:'

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

@@ -69,6 +69,9 @@ type
     dxLayoutControl1Group9: TdxLayoutGroup;
     dxLayoutControl1Item13: TdxLayoutItem;
     eCertificadoISO: TcxDBCheckBox;
+    dxLayoutControl1Item14: TdxLayoutItem;
+    eFacturaWeb: TcxDBCheckBox;
+    dxLayoutControl1Group10: TdxLayoutGroup;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure bFormasPagoClick(Sender: TObject);

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

@@ -54,6 +54,25 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         Visible = False
         VisibleForCustomization = False
       end
+      object cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn
+        Caption = 'Web'
+        DataBinding.FieldName = 'PRESUPUESTO_WEB'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+            Description = 'Presupuesto Normal'
+            Value = 0
+          end
+          item
+            Description = 'Presupuesto Web'
+            ImageIndex = 5
+            Value = 1
+          end>
+        Properties.ShowDescriptions = False
+        BestFitMaxWidth = 40
+        Width = 40
+      end
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
         Caption = 'Incidencias'
         DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -185,32 +204,36 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Width = 285
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 292
+          Left = 249
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 292
+          ExplicitLeft = 249
           ExplicitWidth = 504
           Width = 504
         end
         inherited eLista: TcxComboBox
-          Left = 750
+          Left = 645
           Enabled = False
           Properties.OnChange = nil
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 750
+          ExplicitLeft = 645
+          ExplicitWidth = 215
+          Width = 215
         end
         inherited eLista2: TcxComboBox
-          Left = 833
+          Left = 776
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 833
+          ExplicitLeft = 776
+          ExplicitWidth = 207
+          Width = 207
         end
         inherited dxLayoutControl1Group_Root: TdxLayoutGroup
           inherited dxLayoutControl1Group1: TdxLayoutGroup
@@ -599,6 +622,28 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           C153E90000000049454E44AE426082}
         Name = 'PngImage4'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+          8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+          AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+          EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+          17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+          40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+          750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+          6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+          21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+          5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+          90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+          0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+          EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+          18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+          3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+          97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+        Name = 'PngImage5'
+        Background = clWindow
       end>
     Bitmap = {}
   end

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

@@ -49,6 +49,7 @@ type
     cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
     cxGridViewNUM_FACTURAS: TcxGridDBColumn;
     cxStyleConFacturas: TcxStyle;
+    cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Servidor/FactuGES_Server.dpr

@@ -130,12 +130,12 @@ uses
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
-  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';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters 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">8</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.8.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.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 17 de febrero de 2015 16:12</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">9</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.9.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.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 28 de mayo de 2015 13:23</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,0,8,0
+FILEVERSION 2,0,9,0
-PRODUCTVERSION 2,0,8,0
+PRODUCTVERSION 2,0,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.0.8.0\0"
+              VALUE "FileVersion", "2.0.9.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
-              VALUE "ProductVersion", "2.0.8.0\0"
+              VALUE "ProductVersion", "2.0.9.0\0"
-              VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0"
+              VALUE "CompileDate", "martes, 23 de junio de 2015 17:48\0"
          END
     END
     BLOCK "VarFileInfo"