From e4d648a7c9512b9362ceb2e8043d721d5aad8b1d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 20 Jul 2010 09:27:50 +0000
Subject: [PATCH] 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
---
 .../Empresas/Views/uViewEmpresa.pas           |  41 +++++++++--------
 .../Views/uViewAlbaranCliente.dfm             |   1 -
 .../Views/uViewAlbaranCliente.pas             |  41 +++++++++--------
 .../uViewDireccionEntregaAlbaranCliente.dfm   |   1 -
 .../uViewDireccionEntregaAlbaranCliente.pas   |  41 +++++++++--------
 ...EditorDireccionEntregaAlbaranProveedor.pas |  42 ++++++++++--------
 .../Modulos/Almacenes/Views/uViewAlmacen.pas  |  42 ++++++++++--------
 .../Contactos/Contactos_Group.groupproj       |  26 +++++++++--
 .../Modulos/Contactos/Views/uViewContacto.pas |  42 ++++++++++--------
 Source/Modulos/Obras/Views/uViewObra.dfm      |  28 ++++++------
 Source/Modulos/Obras/Views/uViewObra.pas      |  42 ++++++++++--------
 ...uEditorDireccionEntregaPedidoProveedor.pas |  42 ++++++++++--------
 Source/Servidor/FactuGES_Server.RES           | Bin 23200 -> 23200 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 14 files changed, 226 insertions(+), 165 deletions(-)

diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
index eeb4b978..fdbc1aa1 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  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;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
index 75fa55b7..c90afe29 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm	
+++ b/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)
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
index c7615c43..49d5c64d 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas	
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfrViewAlbaranCliente.CargarProvincias;
@@ -312,6 +316,7 @@ end;
 procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
index 6ffdb192..5e29e3f3 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm	
+++ b/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
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
index 3d35ee26..8246f11b 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas	
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  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;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorDireccionEntregaAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorDireccionEntregaAlbaranProveedor.pas
index 9ef271cc..2d1ddb37 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorDireccionEntregaAlbaranProveedor.pas	
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
@@ -154,6 +159,7 @@ end;
 
 procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
 begin
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;
diff --git a/Source/Modulos/Almacenes/Views/uViewAlmacen.pas b/Source/Modulos/Almacenes/Views/uViewAlmacen.pas
index 529a70cc..170ed0c3 100644
--- a/Source/Modulos/Almacenes/Views/uViewAlmacen.pas
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfrViewAlmacen.CargarProvincias;
@@ -152,6 +157,7 @@ end;
 constructor TfrViewAlmacen.Create(AOwner: TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;
diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj
index acab6020..7e0fb6c7 100644
--- a/Source/Modulos/Contactos/Contactos_Group.groupproj
+++ b/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>
\ No newline at end of file
diff --git a/Source/Modulos/Contactos/Views/uViewContacto.pas b/Source/Modulos/Contactos/Views/uViewContacto.pas
index f92ae0a7..90d5fda1 100644
--- a/Source/Modulos/Contactos/Views/uViewContacto.pas
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfrViewContacto.CargarProvincias;
@@ -234,6 +239,7 @@ end;
 constructor TfrViewContacto.Create(AOwner : TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;
diff --git a/Source/Modulos/Obras/Views/uViewObra.dfm b/Source/Modulos/Obras/Views/uViewObra.dfm
index 5db4df00..2a7524ec 100644
--- a/Source/Modulos/Obras/Views/uViewObra.dfm
+++ b/Source/Modulos/Obras/Views/uViewObra.dfm
@@ -1,24 +1,22 @@
 inherited frViewObra: TfrViewObra
-  Width = 692
-  Height = 448
+  Width = 451
+  Height = 304
   Align = alClient
   ExplicitWidth = 451
   ExplicitHeight = 304
   object dxLayoutControlObra: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 692
-    Height = 448
+    Width = 451
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      692
-      448)
+      451
+      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
-          ExplicitLeft = 111
+          Left = 82
+          ExplicitLeft = 82
         end
       end
     end
diff --git a/Source/Modulos/Obras/Views/uViewObra.pas b/Source/Modulos/Obras/Views/uViewObra.pas
index 0240b112..24d0cdc9 100644
--- a/Source/Modulos/Obras/Views/uViewObra.pas
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfrViewObra.CargarProvincias;
@@ -171,6 +176,7 @@ end;
 constructor TfrViewObra.Create(AOwner: TComponent);
 begin
   inherited;
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas
index 9318dd30..f7714b58 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas	
+++ b/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
-        BeginUpdate;
-        try
-          Clear;
-          for i := 0 to FPoblaciones.Count - 1 do
-            Add(FPoblaciones.Names[i]);
-        finally
-          EndUpdate;
+begin
+  if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
+  Begin
+    FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
+
+    with TProvinciasPoblacionesController.Create do
+      try
+        FPoblaciones := DarListaPoblaciones(FIDProvincia);
+
+        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
-      Free;
-    end;
+  End;
 end;
 
 procedure TfEditorDireccionEntregaPedidoProveedor.CargarProvincias;
@@ -146,6 +151,7 @@ end;
 
 procedure TfEditorDireccionEntregaPedidoProveedor.FormCreate(Sender: TObject);
 begin
+  FIDProvincia := 0;
   FProvincias := NIL;
   FPoblaciones := NIL;
 end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index b135d68a3e7df5049ec157d2ce6b1bd686c8ac94..94bed75951d71ee9c68c589d53430b2a8666059d 100644
GIT binary patch
delta 65
zcmZ3mm2tsV#tjjXj4YEQBb6B+Os<WrW=>&Hn*2LbRyda-k)ep8gdvrom_dg@fx(Eu
VV6tYEI=dl*6@wvz<>bgHcL1j=5x@Wd

delta 65
zcmZ3mm2tsV#tjjXj7*awBb6ENO|FfsW=>*IocuddRxpR5lp&8Hm7$nHhe3hCkil}Y
Uc9c4&1%nlkZO*_jIWo!}0HVYZV*mgE

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 03d3d93b..5f0a7f6a 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/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"