Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1016 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2010-07-20 09:27:50 +00:00
parent 20e1d4e7fb
commit e4d648a7c9
14 changed files with 226 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -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;

1
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

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

41
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -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;

1
Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
View File

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

41
Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
View File

@ -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;

42
Source/Modulos/Albaranes de proveedor/Views/uEditorDireccionEntregaAlbaranProveedor.pas
View File

@ -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;

42
Source/Modulos/Almacenes/Views/uViewAlmacen.pas
View File

@ -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;

26
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -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>

42
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -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;

28
Source/Modulos/Obras/Views/uViewObra.dfm
View File

@ -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

42
Source/Modulos/Obras/Views/uViewObra.pas
View File

@ -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;

42
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas
View File

@ -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;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"