Se arregla la carga de poblaciones de las provincias para que si no se cambia de provincia no se vuelva a solicitar al servidor las poblaciones

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

Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas

@@ -110,6 +110,7 @@ type
     FEmpresa: IBizEmpresa;
     FController : IEmpresasController;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     FFormasPago: TStringList;
     FTiposIVA: TStringList;
@@ -202,27 +203,30 @@ end;
 procedure TfrViewEmpresa.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+    with TProvinciasPoblacionesController.Create do
-          for i := 0 to FPoblaciones.Count - 1 do
+      try
-            Add(FPoblaciones.Names[i]);
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-        finally
+
-          EndUpdate;
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewEmpresa.CargarProvincias;
@@ -279,6 +283,7 @@ end;
 constructor TfrViewEmpresa.Create(AOwner : TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
   bModificarCatalogo := False;

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

@@ -15,7 +15,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitHeight = 550
     DesignSize = (
       903
       506)

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

@@ -128,6 +128,7 @@ type
     FFormasPago : IBizFormaPago;
     FFormasPagoController : IFormasPagoController;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
 
     procedure CargarProvincias;
@@ -216,27 +217,30 @@ end;
 procedure TfrViewAlbaranCliente.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+    with TProvinciasPoblacionesController.Create do
-          for i := 0 to FPoblaciones.Count - 1 do
+      try
-            Add(FPoblaciones.Names[i]);
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-        finally
+
-          EndUpdate;
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewAlbaranCliente.CargarProvincias;
@@ -312,6 +316,7 @@ end;
 procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 

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

@@ -13,7 +13,6 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitHeight = 129
     object eCalle: TcxDBTextEdit
       Left = 64
       Top = 10

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

@@ -47,6 +47,7 @@ type
     FAlbaran : IBizAlbaranCliente;
     FController : IAlbaranesClienteController;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     procedure CargarProvincias;
     procedure CargarPoblaciones;
@@ -71,27 +72,30 @@ uses
 procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+    with TProvinciasPoblacionesController.Create do
-          for i := 0 to FPoblaciones.Count - 1 do
+      try
-            Add(FPoblaciones.Names[i]);
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-        finally
+
-          EndUpdate;
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
@@ -168,6 +172,7 @@ end;
 constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FAlbaran := NIL;
   FProvincias := NIL;
   FPoblaciones := NIL;

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

@@ -42,6 +42,7 @@ type
     pPersonaContacto: String;
     pTelefono: String;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     FAlbaran : IBizAlbaranProveedor;
     function GetAlbaran: IBizAlbaranProveedor;
@@ -63,27 +64,31 @@ uses
 procedure TfEditorDireccionEntregaAlbaranProveedor.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+
-          for i := 0 to FPoblaciones.Count - 1 do
+    with TProvinciasPoblacionesController.Create do
-            Add(FPoblaciones.Names[i]);
+      try
-        finally
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-          EndUpdate;
+
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
@@ -154,6 +159,7 @@ end;
 
 procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
 begin
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;

Source/Modulos/Almacenes/Views/uViewAlmacen.pas

@@ -49,6 +49,7 @@ type
   protected
     FAlmacen: IBizAlmacen;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     procedure CargarProvincias;
     procedure CargarPoblaciones;
@@ -77,27 +78,31 @@ uses
 procedure TfrViewAlmacen.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+
-          for i := 0 to FPoblaciones.Count - 1 do
+    with TProvinciasPoblacionesController.Create do
-            Add(FPoblaciones.Names[i]);
+      try
-        finally
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-          EndUpdate;
+
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewAlmacen.CargarProvincias;
@@ -152,6 +157,7 @@ end;
 constructor TfrViewAlmacen.Create(AOwner: TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;

Source/Modulos/Contactos/Contactos_Group.groupproj

@@ -9,6 +9,8 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
+    <Projects Include="..\Obras\Views\Obras_view.dproj" />
     <Projects Include="Controller\Contactos_controller.dproj" />
     <Projects Include="Data\Contactos_data.dproj" />
     <Projects Include="Model\Contactos_model.dproj" />
@@ -111,14 +113,32 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="AlbaranesCliente_view">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="AlbaranesCliente_view:Clean">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AlbaranesCliente_view:Make">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Obras_view">
+    <MSBuild Projects="..\Obras\Views\Obras_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Obras_view:Clean">
+    <MSBuild Projects="..\Obras\Views\Obras_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Obras_view:Make">
+    <MSBuild Projects="..\Obras\Views\Obras_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;Obras_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;Obras_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contactos/Views/uViewContacto.pas

@@ -100,6 +100,7 @@ type
     FContacto: IBizContacto;
     FController : IContactosController;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     procedure CargarProvincias;
     procedure CargarPoblaciones;
@@ -168,27 +169,31 @@ end;
 procedure TfrViewContacto.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+
-          for i := 0 to FPoblaciones.Count - 1 do
+    with TProvinciasPoblacionesController.Create do
-            Add(FPoblaciones.Names[i]);
+      try
-        finally
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-          EndUpdate;
+
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewContacto.CargarProvincias;
@@ -234,6 +239,7 @@ end;
 constructor TfrViewContacto.Create(AOwner : TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;

Source/Modulos/Obras/Views/uViewObra.dfm

@@ -1,24 +1,22 @@
 inherited frViewObra: TfrViewObra
-  Width = 692
+  Width = 451
-  Height = 448
+  Height = 304
   Align = alClient
   ExplicitWidth = 451
   ExplicitHeight = 304
   object dxLayoutControlObra: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 692
+    Width = 451
-    Height = 448
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      692
+      451
-      448)
+      304)
     object eNombre: TcxDBTextEdit
       Left = 130
       Top = 34
@@ -171,7 +169,7 @@ inherited frViewObra: TfrViewObra
       Width = 203
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 236
+      Left = 189
       Top = 145
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = DADataSource
@@ -247,7 +245,7 @@ inherited frViewObra: TfrViewObra
       Width = 224
     end
     inline frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra
-      Left = 357
+      Left = 310
       Top = 34
       Width = 503
       Height = 213
@@ -259,7 +257,7 @@ inherited frViewObra: TfrViewObra
       ParentFont = False
       TabOrder = 10
       ReadOnly = False
-      ExplicitLeft = 357
+      ExplicitLeft = 310
       ExplicitTop = 34
       ExplicitWidth = 503
       ExplicitHeight = 213
@@ -309,16 +307,16 @@ inherited frViewObra: TfrViewObra
           Width = 429
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 221
+          Left = 192
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 221
+          ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
-          Left = 111
+          Left = 82
-          ExplicitLeft = 111
+          ExplicitLeft = 82
         end
       end
     end

Source/Modulos/Obras/Views/uViewObra.pas

@@ -64,6 +64,7 @@ type
     FObra: IBizObra;
     FController : IObrasController;
     FProvincias : TStringList;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     FPoblaciones : TStringList;
     procedure CargarProvincias;
     procedure CargarPoblaciones;
@@ -96,27 +97,31 @@ uses
 procedure TfrViewObra.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+
-          for i := 0 to FPoblaciones.Count - 1 do
+    with TProvinciasPoblacionesController.Create do
-            Add(FPoblaciones.Names[i]);
+      try
-        finally
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-          EndUpdate;
+
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfrViewObra.CargarProvincias;
@@ -171,6 +176,7 @@ end;
 constructor TfrViewObra.Create(AOwner: TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;

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

@@ -34,6 +34,7 @@ type
     pDireccion: String;
     pPoblacion: String;
     pProvincia: String;
+    FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     pCodigoPostal: String;
     FProvincias : TStringList;
     FPoblaciones : TStringList;
@@ -57,27 +58,31 @@ uses
 procedure TfEditorDireccionEntregaPedidoProveedor.CargarPoblaciones;
 var
   i : integer;
-  AID : Integer;
-begin
-  AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
-  with TProvinciasPoblacionesController.Create do
-    try
-      FPoblaciones := DarListaPoblaciones(AID);
 
-      with cbPoblacion.Properties.Items do
+begin
-      begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
-        BeginUpdate;
+  Begin
-        try
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
-          Clear;
+
-          for i := 0 to FPoblaciones.Count - 1 do
+    with TProvinciasPoblacionesController.Create do
-            Add(FPoblaciones.Names[i]);
+      try
-        finally
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
-          EndUpdate;
+
+        with cbPoblacion.Properties.Items do
+        begin
+          BeginUpdate;
+          try
+            Clear;
+            for i := 0 to FPoblaciones.Count - 1 do
+              Add(FPoblaciones.Names[i]);
+          finally
+            EndUpdate;
+          end;
         end;
+      finally
+        Free;
       end;
-    finally
+  End;
-      Free;
-    end;
 end;
 
 procedure TfEditorDireccionEntregaPedidoProveedor.CargarProvincias;
@@ -146,6 +151,7 @@ end;
 
 procedure TfEditorDireccionEntregaPedidoProveedor.FormCreate(Sender: TObject);
 begin
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.8.3.0\0"
               VALUE "ProductVersion", "1.8.3.0\0"
-              VALUE "CompileDate", "lunes, 19 de julio de 2010 18:17\0"
+              VALUE "CompileDate", "martes, 20 de julio de 2010 11:19\0"
          END
     END
     BLOCK "VarFileInfo"