From b68b3e630a666a28dc31c7497aba758e1c76e1a4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 28 Jul 2008 11:58:45 +0000
Subject: [PATCH] - Repaso a multiempresa y tiendas. - Limpieza de warnings.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@294 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Empresas/Views/uViewTienda.dfm            |   2 +-
 .../Empresas/Views/uViewTienda.pas            |  25 ++---
 .../uAlbaranesClienteController.pas           |  27 +-----
 .../Model/uBizAlbaranesCliente.pas            |  11 ++-
 .../uAlbaranesProveedorController.pas         |  27 +-----
 .../Model/uBizAlbaranesProveedor.pas          |   9 ++
 .../Views/uEditorAlbaranProveedor.dfm         |   4 +
 .../Views/uEditorAlbaranProveedor.pas         |   1 -
 .../Contabilidad/Views/uEditorCuentas.dfm     |   3 +-
 .../Contabilidad/Views/uEditorCuentas.pas     |   4 +-
 .../Views/uEditorCuentasEspeciales.dfm        |   3 +-
 .../Views/uEditorCuentasEspeciales.pas        |   4 +-
 .../Contabilidad/Views/uEditorDiario.dfm      |   2 +
 .../Contabilidad/Views/uEditorDiario.pas      |   8 +-
 .../Contabilidad/Views/uEditorEpigrafes.dfm   |   3 +-
 .../Contabilidad/Views/uEditorEpigrafes.pas   |   4 +-
 .../Contabilidad/Views/uViewApuntes.pas       | Bin 6235 -> 6459 bytes
 .../Views/uViewExtractoMovimientos.dfm        |   3 -
 .../Views/uViewExtractoMovimientos.pas        |   9 +-
 .../Views/uViewListaSubCuentas.pas            |   2 -
 .../Controller/uContactosController.pas       |   8 +-
 .../Controller/uFacturasClienteController.pas |  46 ---------
 .../Model/uBizFacturasCliente.pas             |  21 ++++-
 .../uFacturasProveedorController.pas          |  50 +---------
 .../Model/uBizFacturasProveedor.pas           |  19 ++++
 .../Views/uEditorFacturaProveedor.dfm         |   4 +
 .../Views/uEditorFacturaProveedor.pas         |   3 +-
 .../uPedidosProveedorController.pas           |  28 +-----
 .../Model/uBizPedidosProveedor.pas            |  10 ++
 .../Views/PedidosProveedor_view.dproj         |  57 ++----------
 .../Views/PedidosProveedor_view.rc            |  22 +++++
 .../Views/PedidosProveedor_view.res           | Bin 32 -> 384 bytes
 .../Views/uViewPedidoProveedor.dfm            |  88 +++++++++---------
 .../Views/uViewPedidoProveedor.pas            |  11 ---
 .../uPresupuestosClienteController.pas        |   8 +-
 .../Views/uEditorPresupuestoCliente.dfm       |  12 +++
 .../Views/uEditorPresupuestoCliente.pas       |   5 +-
 Source/Servidor/FactuGES_Server.RES           | Bin 23344 -> 23344 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 39 files changed, 209 insertions(+), 336 deletions(-)

diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm
index d3e08b23..38f4e602 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm
@@ -43,7 +43,7 @@ inherited frViewTienda: TfrViewTienda
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 0
-      Width = 376
+      Width = 390
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas
index 459bae9c..a5db1566 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas
@@ -16,6 +16,12 @@ uses
 type
   IViewTienda = interface(IViewBase)
     ['{9FD357AB-2E87-4CAF-8AEB-04368AD075AF}']
+
+    function GetDataItem: TDADataTable;
+    procedure SetDataItem(const Value: TDADataTable);
+
+    property DataItem : TDADataTable read GetDataItem write SetDataItem;
+    procedure ElegirTienda(const AIDTienda : Integer);
   end;
 
   TfrViewTienda = class(TfrViewBase, IViewTienda)
@@ -35,9 +41,6 @@ type
   public
     property DataItem : TDADataTable read GetDataItem write SetDataItem;
     procedure ElegirTienda(const AIDTienda : Integer);
-    function getIDTienda: Integer;
-    procedure SetIDTienda(const ID: Integer);
-
   end;
 
 
@@ -115,14 +118,6 @@ begin
   Result := FDataItem;
 end;
 
-function TfrViewTienda.getIDTienda: Integer;
-begin
-{  if FListaTiendas.IndexOf(cbTienda.Text) < 0 then
-    Result := FListaTiendas.IndexOf(cbTienda.Text)
-  else
-    Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)];}
-end;
-
 procedure TfrViewTienda.SetDataItem(const Value: TDADataTable);
 begin
   FDataItem := Value;
@@ -130,12 +125,4 @@ begin
      ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
 end;
 
-procedure TfrViewTienda.SetIDTienda(const ID: Integer);
-{var
-AIndex: Integer;}
-begin
-{  if FListaIDTiendas.Find(ID, AIndex) then
-     cbTienda.Text := FListaTiendas.Strings[AIndex];}
-end;
-
 end.
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index 11da35e2..46619e26 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -59,8 +59,6 @@ type
       ANuevaSituacion: String; AFechaEnvio : TDateTime = 0;
       AFechaRecibido : TDateTime = 0;
       DoPost: Boolean = True) : Boolean;
-
-    procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
   end;
 
   TAlbaranesClienteController = class(TControllerBase, IAlbaranesClienteController)
@@ -138,8 +136,6 @@ type
     procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
-
-    procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
   end;
 
 implementation
@@ -871,27 +867,6 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TAlbaranesClienteController.SetID_Tienda(AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AAlbaran) then
-  begin
-    EnEdicion := AAlbaran.DataTable.Editing;
-    if not AAlbaran.DataTable.Editing then
-       AAlbaran.DataTable.Edit;
-
-    if ID_Tienda < 0 then
-       AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteID_TIENDA).AsVariant := Null
-    else
-       AAlbaran.ID_TIENDA := ID_Tienda;
-
-    AAlbaran.DataTable.Post;
-
-    if EnEdicion then
-       AAlbaran.DataTable.Edit;
-  end;
-end;
 
 function TAlbaranesClienteController.Guardar(AAlbaran: IBizAlbaranCliente): Boolean;
 var
@@ -1081,4 +1056,4 @@ begin
 end;
 
 end.
-  
\ No newline at end of file
+  
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
index 2991dca7..ee7aa353 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas	
@@ -65,7 +65,8 @@ type
     procedure SetID_PEDIDOValue(const aValue: Integer); override;
     procedure SetID_FACTURAValue(const aValue: Integer); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
-
+    procedure SetID_TIENDAValue(const aValue: Integer); override;
+    
     procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
     procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
     procedure DESCUENTOOnChange(Sender: TDACustomField);
@@ -248,6 +249,14 @@ begin
   end;
 end;
 
+procedure TBizAlbaranCliente.SetID_TIENDAValue(const aValue: Integer); 
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_AlbaranesClienteID_TIENDA].AsVariant := NULL
+	else
+		inherited SetID_TIENDAValue(aValue);
+end;
+
 procedure TBizAlbaranCliente.SetDetalles(Value: IBizDetallesAlbaranCliente);
 begin
   FDetalles := Value;
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index e8a24806..f842b4e9 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
@@ -55,8 +55,6 @@ type
 
     procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
     procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
-
-    procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
   end;
 
   TAlbaranesProveedorController = class(TControllerBase, IAlbaranesProveedorController)
@@ -121,7 +119,6 @@ type
     procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
     procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
 
-    procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);    
   end;
 
 implementation
@@ -944,28 +941,6 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TAlbaranesProveedorController.SetID_Tienda(AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AAlbaran) then
-  begin
-    EnEdicion := AAlbaran.DataTable.Editing;
-    if not AAlbaran.DataTable.Editing then
-       AAlbaran.DataTable.Edit;
-
-    if ID_Tienda < 0 then
-       AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorID_TIENDA).AsVariant := Null
-    else
-       AAlbaran.ID_TIENDA := ID_Tienda;
-
-    AAlbaran.DataTable.Post;
-
-    if EnEdicion then
-       AAlbaran.DataTable.Edit;
-  end;
-end;
-
 function TAlbaranesProveedorController.Guardar(AAlbaran: IBizAlbaranProveedor): Boolean;
 var
   IDNuevo: Integer;
@@ -1118,4 +1093,4 @@ begin
 end;
 
 end.
-  
\ No newline at end of file
+  
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
index 014db905..a367c0ff 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas	
@@ -58,6 +58,7 @@ type
     procedure SetID_ALMACENValue(const aValue: Integer); override;
     procedure SetID_FACTURAValue(const aValue: Integer); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
+		procedure SetID_TIENDAValue(const aValue: Integer); 
 
     procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
     procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@@ -277,6 +278,14 @@ begin
     inherited;
 end;
 
+procedure TBizAlbaranProveedor.SetID_TIENDAValue(const aValue: Integer); 
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_AlbaranesProveedorID_TIENDA].AsVariant := NULL
+	else
+		inherited SetID_TIENDAValue(aValue);
+end;
+
 procedure TBizAlbaranProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
 begin
   if (aValue = 0) then
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
index 3c1b84a9..66b3d52e 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm	
@@ -207,6 +207,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
index e8066152..d54fd26a 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas	
@@ -204,7 +204,6 @@ begin
   frViewDetallesAlbaranProveedor1.BeginUpdate;
   try
     bEsNuevo := FAlbaran.EsNuevo;
-    FController.SetID_Tienda(FAlbaran, TfrViewAlbaranProveedor(ViewAlbaran).frViewTienda1.getIDTienda);
     FController.Guardar(FAlbaran);
   finally
     frViewDetallesAlbaranProveedor1.EndUpdate;
diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm b/Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
index f5598375..a4d2f230 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
+++ b/Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
@@ -2,6 +2,7 @@ inherited fEditorCuentas: TfEditorCuentas
   Left = 489
   Top = 325
   Caption = 'Lista de cuentas'
+  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13
@@ -13,7 +14,7 @@ inherited fEditorCuentas: TfEditorCuentas
         000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F000005EB49444154484B7D95794C944718C607AD52
+        17100000171001186111DB000005EB49444154484B7D95794C944718C607AD52
         235A696BEFA6F58A36D578D4261EAD500FB4D1F84763EA5D44CBE146D1DA2AAB
         B11E600139BC0A220B729F4582A260917317B15010644158907B414096BD2F8E
         DDA7331F0B858ADDCD2FB3DF3B9BE779E79DF9DEB10A0BFA8D3FD566C2390232
diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas b/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas
index e010aed9..8b0802eb 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas
+++ b/Source/Modulos/Contabilidad/Views/uEditorCuentas.pas
@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorCuentas.DuplicarInterno;
-var
-  ACuenta : IBizCuenta;
+{var
+  ACuenta : IBizCuenta;}
 begin
 AppFactuGES.ShowCapado;
 {
diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm b/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
index 28cd95ba..ac94cc64 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
+++ b/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
@@ -2,6 +2,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
   Left = 489
   Top = 325
   Caption = 'Lista de cuentas especiales'
+  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13
@@ -13,7 +14,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
         000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F000005F249444154484B7D950954945518862F9AA2
+        17100000171001186111DB000005F249444154484B7D950954945518862F9AA2
         C725C92C2D2D174C2B3C29E5392EA5A688961E4D33734754C446054D73064501
         9545365359676010942DE4E0129882E9801AA48902C2A0C48E800CB36F6CF376
         EFCF4090DACC79CE9DFFBB73DEF7BBF77EFF772D4467BC058306F4F124209D1F
diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas b/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
index b844c8d2..48ea7f7d 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
+++ b/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorCuentasEspeciales.DuplicarInterno;
-var
-  ACuentaEspecial : IBizCuentaEspecial;
+{var
+  ACuentaEspecial : IBizCuentaEspecial;}
 begin
 AppFactuGES.ShowCapado;
 {
diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
index 95c34aae..bd2b254e 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
+++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
@@ -2,6 +2,8 @@ inherited fEditorDiario: TfEditorDiario
   Left = 489
   Top = 325
   Caption = 'Libro de diario'
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
index 863449c6..1c9e4668 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
+++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas
@@ -96,8 +96,8 @@ begin
 end;
 
 procedure TfEditorDiario.NuevoInterno;
-var
-  NumOrden: Integer;
+{var
+  NumOrden: Integer;}
 begin
   inherited;
 
@@ -141,8 +141,8 @@ begin
 end;
 
 procedure TfEditorDiario.DuplicarInterno;
-var
-  AEpigrafe : IBizAsiento;
+{var
+  AEpigrafe : IBizAsiento;}
 begin
 AppFactuGES.ShowCapado;
 {
diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
index 8fa27a75..f641d0de 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
+++ b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
@@ -2,6 +2,7 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
   Left = 489
   Top = 325
   Caption = 'Lista de epigrafes'
+  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13
@@ -13,7 +14,7 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
         000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F000005F849444154484B7D957954945518C6AF99A1
+        17100000171001186111DB000005F849444154484B7D957954945518C6AF99A1
         69162E2D56E714E1C9CED163697F68567A4CD1CAFCA363298A111ADB1460E432
         72CC000B704B53111860D8944544140545D61996401074409841F601019995D9
         81E1E97E9725086DE6FCCEFDEEBDDF799EF77BEF7BEF9D1279EE0FFECC59CFF8
diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
index 7bdba6dc..4146188c 100644
--- a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
+++ b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorEpigrafes.DuplicarInterno;
-var
-  AEpigrafe : IBizEpigrafe;
+{var
+  AEpigrafe : IBizEpigrafe;}
 begin
 AppFactuGES.ShowCapado;
 {
diff --git a/Source/Modulos/Contabilidad/Views/uViewApuntes.pas b/Source/Modulos/Contabilidad/Views/uViewApuntes.pas
index e2dc212d866716ba25f9e06b187aecfe341127af..49b3f8782621e2016a9ab798541db644f463ca6b 100644
GIT binary patch
delta 265
zcmca@u-j<Ed**r_UM>ZNl#1Z&%)Daf{GwDHD90%$F*zH-DTPb;r=?{kry3a;m_w8x
z^drk)Q}14snwkeQ5~?^JXih+8UN(|55XJ;&=9Hxt!E~VVid|CE5=(PR0unRxN>Yo8
vkqjtKt_X03if?|;yh2F0x-78><jx=kD}|7t)Z`ND+R6LG#W(L4o5KhIA1zwh

delta 37
tcmdmOblYIVd*;n&Syl+~mn9bQaw#YTDOf3l1f?cV4&asCJYRecBLEID4AB4p

diff --git a/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm b/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
index ca9fbf4d..1ff2d7b5 100644
--- a/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
+++ b/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
@@ -128,9 +128,6 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
       end
     end
   end
-  inherited pnlAgrupaciones: TTBXDockablePanel
-    ExplicitWidth = 128
-  end
   inherited dxComponentPrinter: TdxComponentPrinter
     inherited dxComponentPrinterLink: TdxGridReportLink
       ReportDocument.CreationDate = 38673.842406053240000000
diff --git a/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas b/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
index 6ae9b2cf..ea99a7ae 100644
--- a/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
+++ b/Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
@@ -230,10 +230,11 @@ var
 begin
   inherited;
   with TSubCuentasController.Create do
-  begin
-    SubCuentas := BuscarCajasBancos;
-    Free;
-  end;
+    try
+      SubCuentas := BuscarCajasBancos;
+    finally
+      Free;
+    end;
 
   if Assigned(FController) then
   begin
diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
index e3be4952..ef1fdca6 100644
--- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
+++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
@@ -65,8 +65,6 @@ end;
 
 
 procedure TfrViewListaSubcuentas.CustomViewCreate(Sender: TObject);
-var
-  i : integer;
 begin
   inherited;
   FTipoSubCuenta := tTodas;
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index f2e4da48..3dcf4920 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -29,7 +29,7 @@ type
       AMensaje: String; AMultiSelect: Boolean): IBizContacto;
 
     function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
-    procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
+//    procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
     function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
   end;
 
@@ -61,7 +61,7 @@ type
     procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
     function ElegirContacto(AContactos : IBizContacto;
       AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
-    procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
+//    procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
     function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
   end;
 
@@ -292,7 +292,7 @@ begin
   end;
 end;
 
-procedure TContactosController.SetID_Tienda(AContacto: IBizContacto; const ID_Tienda: Integer);
+{procedure TContactosController.SetID_Tienda(AContacto: IBizContacto; const ID_Tienda: Integer);
 var
   EnEdicion: Boolean;
 begin
@@ -312,7 +312,7 @@ begin
     if EnEdicion then
        AContacto.DataTable.Edit;
   end;
-end;
+end;}
 
 function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
 begin
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 806af578..7ad60a01 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -51,7 +51,6 @@ type
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
 
-    procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
     procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
@@ -116,7 +115,6 @@ type
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
 
-    procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
     procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
@@ -963,28 +961,6 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TFacturasClienteController.SetID_Tienda(AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AFactura) then
-  begin
-    EnEdicion := AFactura.DataTable.Editing;
-    if not AFactura.DataTable.Editing then
-       AFactura.DataTable.Edit;
-
-    if ID_Tienda < 0 then
-       AFactura.DataTable.FieldByName(fld_FacturasClienteID_TIENDA).AsVariant := Null
-    else
-       AFactura.ID_TIENDA := ID_Tienda;
-
-    AFactura.DataTable.Post;
-
-    if EnEdicion then
-       AFactura.DataTable.Edit;
-  end;
-end;
-
 procedure TFacturasClienteController.SetIgnorarContabilidad(AFactura: IBizFacturaCliente; const Ignorar: Integer);
 var
   EnEdicion: Boolean;
@@ -1003,28 +979,6 @@ begin
   end;
 end;
 
-procedure TFacturasClienteController.SetIdSubCuenta(AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AFactura) then
-  begin
-    EnEdicion := AFactura.DataTable.Editing;
-    if not AFactura.DataTable.Editing then
-       AFactura.DataTable.Edit;
-
-    if IdSubCuenta < 0 then
-       AFactura.DataTable.FieldByName(fld_FacturasClienteID_SUBCUENTA).AsVariant := Null
-    else
-       AFactura.ID_SUBCUENTA := IdSubCuenta;
-
-    AFactura.DataTable.Post;
-
-    if EnEdicion then
-       AFactura.DataTable.Edit;
-  end;
-end;
-
 function TFacturasClienteController.Guardar(AFactura: IBizFacturaCliente): Boolean;
 var
   IDNuevo : Integer;
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index cc8d019e..d005810e 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas	
@@ -69,7 +69,9 @@ type
     procedure DESCUENTOOnChange(Sender: TDACustomField);
     procedure IVAOnChange(Sender: TDACustomField);
     procedure REOnChange(Sender: TDACustomField);
-
+		procedure SetID_TIENDAValue(const aValue: Integer); 
+		procedure SetID_SUBCUENTAValue(const aValue: Integer);
+		
     procedure OnNewRecord(Sender: TDADataTable); override;
 
     function GetSITUACIONValue: String; override;
@@ -278,6 +280,23 @@ begin
   AsignarTipoIVA(ID_TIPO_IVA);
 end;
 
+procedure TBizFacturaCliente.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsVariant := NULL
+	else
+		inherited SetID_SUBCUENTAValue(aValue);
+end;
+
+procedure TBizFacturaCliente.SetID_TIENDAValue(const aValue: Integer);
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_FacturasClienteID_TIENDA].AsVariant := NULL
+	else
+		inherited SetID_TIENDAValue(aValue);
+end;
+
+
 procedure TBizFacturaCliente.REOnChange(Sender: TDACustomField);
 begin
   CalcularImporteTotal;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index db3a7d57..8979d60e 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -50,8 +50,6 @@ type
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
 
-    procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
-    procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
   end;
 
@@ -116,8 +114,6 @@ type
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
 
-    procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
-    procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
   end;
 
@@ -967,50 +963,6 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TFacturasProveedorController.SetIdSubcuenta(AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AFactura) then
-  begin
-    EnEdicion := AFactura.DataTable.Editing;
-    if not AFactura.DataTable.Editing then
-       AFactura.DataTable.Edit;
-
-    if IdSubCuenta < 0 then
-       AFactura.DataTable.FieldByName(fld_FacturasProveedorID_SUBCUENTA).AsVariant := Null
-    else
-       AFactura.ID_SUBCUENTA := IdSubCuenta;
-
-    AFactura.DataTable.Post;
-
-    if EnEdicion then
-       AFactura.DataTable.Edit;
-  end;
-end;
-
-procedure TFacturasProveedorController.SetID_Tienda(AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(AFactura) then
-  begin
-    EnEdicion := AFactura.DataTable.Editing;
-    if not AFactura.DataTable.Editing then
-       AFactura.DataTable.Edit;
-
-    if ID_Tienda < 0 then
-       AFactura.DataTable.FieldByName(fld_FacturasProveedorID_TIENDA).AsVariant := Null
-    else
-       AFactura.ID_TIENDA := ID_Tienda;
-
-    AFactura.DataTable.Post;
-
-    if EnEdicion then
-       AFactura.DataTable.Edit;
-  end;
-end;
-
 procedure TFacturasProveedorController.SetIgnorarContabilidad(AFactura: IBizFacturaProveedor; const Ignorar: Integer);
 var
   EnEdicion: Boolean;
@@ -1241,4 +1193,4 @@ begin
 end;
 
 end.
-  
\ No newline at end of file
+  
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index c563a9f7..c3cadec0 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas	
@@ -68,6 +68,8 @@ type
     procedure DESCUENTOOnChange(Sender: TDACustomField);
     procedure IVAOnChange(Sender: TDACustomField);
     procedure REOnChange(Sender: TDACustomField);
+		procedure SetID_TIENDAValue(const aValue: Integer); 
+    procedure SetID_SUBCUENTAValue(const aValue: Integer);
 
     procedure OnNewRecord(Sender: TDADataTable); override;
 
@@ -230,6 +232,23 @@ begin
   CalcularImporteTotal;
 end;
 
+procedure TBizFacturaProveedor.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].AsVariant := NULL
+	else
+		inherited SetID_SUBCUENTAValue(aValue);
+end;
+
+procedure TBizFacturaProveedor.SetID_TIENDAValue(const aValue: Integer);
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_FacturasProveedorID_TIENDA].AsVariant := NULL
+	else
+		inherited SetID_TIENDAValue(aValue);
+end;
+
+
 procedure TBizFacturaProveedor.IMPORTE_PORTEOnChange(Sender: TDACustomField);
 begin
   CalcularImporteTotal;
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
index e9c7793d..ea81ea6e 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm	
@@ -199,6 +199,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
index a3d9f6a3..7d2f528f 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas	
@@ -253,8 +253,9 @@ begin
     bEsNuevo := FFactura.EsNuevo;
 
     {$IFDEF CONTABILIDAD}
+      FFactura.Edit;
       FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
-      FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
+      FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
     {$ENDIF}
 
     FController.Guardar(FFactura);
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 43b18aab..26e3a511 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -47,8 +47,6 @@ type
     function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
     function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
     procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
-
-    procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
   end;
 
   TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
@@ -110,8 +108,6 @@ type
 
     function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
     function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
-
-    procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
   end;
 
 implementation
@@ -677,28 +673,6 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TPedidosProveedorController.SetID_Tienda(APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
-var
-  EnEdicion: Boolean;
-begin
-  if Assigned(APedido) then
-  begin
-    EnEdicion := APedido.DataTable.Editing;
-    if not APedido.DataTable.Editing then
-       APedido.DataTable.Edit;
-
-    if ID_Tienda < 0 then
-       APedido.DataTable.FieldByName(fld_PedidosProveedorID_TIENDA).AsVariant := Null
-    else
-       APedido.ID_TIENDA := ID_Tienda;
-
-    APedido.DataTable.Post;
-
-    if EnEdicion then
-       APedido.DataTable.Edit;
-  end;
-end;
-
 function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
 var
   IDNuevo : Integer;
@@ -820,4 +794,4 @@ begin
 end;
 
 end.
-  
\ No newline at end of file
+  
\ No newline at end of file
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index 8f98f579..cc16aba1 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
@@ -62,6 +62,7 @@ type
     procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
 //    procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
+		procedure SetID_TIENDAValue(const aValue: Integer);     
 
     procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
     procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@@ -215,6 +216,15 @@ begin
   CalcularImporteTotal;
 end;
 
+procedure TBizPedidoProveedor.SetID_TIENDAValue(const aValue: Integer); 
+begin
+	if aValue < 0 then
+		DataTable.Fields[idx_PedidosProveedorID_TIENDA].AsVariant := NULL
+	else
+		inherited SetID_TIENDAValue(aValue);
+end;
+
+
 function TBizPedidoProveedor.GetDetalles: IBizDetallesPedidoProveedor;
 begin
   Result := FDetalles;
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
index 35dc420b..cb3db07a 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj	
+++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj	
@@ -41,60 +41,20 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</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"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">PedidosProveedor_view.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="PedidosProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
+    <DCCReference Include="..\Almacenes_controller.dcp" />
+    <DCCReference Include="..\Almacenes_model.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
+    <DCCReference Include="..\Contactos_view.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="..\PedidosProveedor_model.dcp" />
     <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
       <Form>fEditorDireccionEntregaPedidoProveedor </Form>
       <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
@@ -146,7 +106,6 @@
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc	
+++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc	
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644
GIT binary patch
literal 384
zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#%
zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR<df0cb
zK*7~xk>4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0
w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$<ciMHlSp2)Sz;Q3GY3%t`XzW@LL

delta 5
McmZo*R+yjw00c1sQ~&?~

diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
index 7e419307..21a2bc9e 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm	
@@ -13,6 +13,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
     Align = alClient
     ParentBackground = True
     TabOrder = 0
+    TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
       704
@@ -20,7 +21,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
     inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
       Left = 325
       Top = 28
-      Width = 310
+      Width = 357
       Height = 215
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
@@ -32,33 +33,33 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       ReadOnly = False
       ExplicitLeft = 325
       ExplicitTop = 28
-      ExplicitWidth = 310
+      ExplicitWidth = 357
       ExplicitHeight = 215
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 310
+        Width = 357
         Height = 215
         Align = alClient
-        ExplicitWidth = 310
+        ExplicitWidth = 357
         ExplicitHeight = 215
         inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 185
-          Width = 185
+          ExplicitWidth = 283
+          Width = 283
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 283
+          Width = 283
         end
         inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 283
+          Width = 283
         end
         inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 46
-          Width = 46
+          ExplicitWidth = 176
+          Width = 176
         end
         inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
-          Width = 327
+          ExplicitWidth = 283
+          Width = 283
         end
         inherited edtCodigoPostal: TcxDBTextEdit
           Left = 276
@@ -92,7 +93,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 1
-      Width = 127
+      Width = 158
     end
     object edtFechaConfirmacion: TcxDBDateEdit
       Left = 137
@@ -113,7 +114,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 7
-      Width = 63
+      Width = 158
     end
     object edtFechaEntrega: TcxDBDateEdit
       Left = 137
@@ -132,7 +133,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 8
-      Width = 55
+      Width = 158
     end
     object memObservaciones: TcxDBMemo
       Left = 325
@@ -149,8 +150,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 12
-      Height = 133
-      Width = 530
+      Height = 84
+      Width = 357
     end
     object eReferencia: TcxDBTextEdit
       Left = 137
@@ -172,12 +173,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 0
-      Width = 143
+      Width = 158
     end
     inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
       Left = 22
       Top = 279
-      Width = 445
+      Width = 273
       Height = 166
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
@@ -189,24 +190,24 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       ReadOnly = False
       ExplicitLeft = 22
       ExplicitTop = 279
-      ExplicitWidth = 445
+      ExplicitWidth = 273
       ExplicitHeight = 166
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 445
+        Width = 273
         Height = 166
-        ExplicitWidth = 445
+        ExplicitWidth = 273
         ExplicitHeight = 166
         inherited rdxDestino1: TRadioButton
-          Width = 255
-          ExplicitWidth = 255
+          Width = 253
+          ExplicitWidth = 253
         end
         inherited rdxDestino2: TRadioButton
-          Width = 287
-          ExplicitWidth = 287
+          Width = 253
+          ExplicitWidth = 253
         end
         inherited cbLista: TcxDBLookupComboBox
-          ExplicitWidth = 112
-          Width = 112
+          ExplicitWidth = 238
+          Width = 238
         end
         inherited bModificar: TBitBtn
           Left = 135
@@ -214,6 +215,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
           ExplicitLeft = 135
           ExplicitTop = 131
         end
+        inherited txtDireccion: TStaticText
+          Width = 238
+          Height = 42
+          ExplicitWidth = 238
+          ExplicitHeight = 42
+        end
       end
       inherited ActionList1: TActionList
         Left = 32
@@ -252,7 +259,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 2
-      Width = 32
+      Width = 20
     end
     object bFormasPago: TButton
       Left = 163
@@ -282,7 +289,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 6
-      Width = 195
+      Width = 158
     end
     object eReferenciaPedidoCli: TcxTextEdit
       Left = 137
@@ -305,7 +312,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 4
-      Width = 78
+      Width = 20
     end
     object Button1: TButton
       Left = 163
@@ -318,7 +325,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
     inline frViewTienda1: TfrViewTienda
       Left = 325
       Top = 279
-      Width = 704
+      Width = 357
       Height = 46
       Align = alBottom
       Font.Charset = DEFAULT_CHARSET
@@ -331,16 +338,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
       ReadOnly = False
       ExplicitLeft = 325
       ExplicitTop = 279
-      ExplicitWidth = 704
+      ExplicitWidth = 357
+      ExplicitHeight = 46
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 704
-        ExplicitWidth = 704
-        inherited cbTienda: TcxDBComboBox
-          DataBinding.DataSource = DADataSource
-          Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
-          ExplicitWidth = 412
-          Width = 412
-        end
+        Width = 357
+        ExplicitWidth = 357
       end
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
index bee7eae0..b8cf9dee 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas	
@@ -82,7 +82,6 @@ type
     procedure actVerPedidoCliUpdate(Sender: TObject);
     procedure frViewProveedorPedidoButton1Click(Sender: TObject);
     procedure frViewProveedorPedidoButton2Click(Sender: TObject);
-    procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
   protected
     FPedido : IBizPedidoProveedor;
     FController : IPedidosProveedorController;
@@ -174,16 +173,6 @@ begin
   frViewProveedorPedido.actAnadirContacto.Execute;
 end;
 
-procedure TfrViewPedidoProveedor.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
-begin
-  inherited;
-  if assigned(Pedido)
-  and assigned(Controller) then
-  begin
-     Controller.SetID_Tienda(Pedido, frViewTienda1.getIDTienda);
-  end;
-end;
-
 function TfrViewPedidoProveedor.GetController: IPedidosProveedorController;
 begin
   Result := FController;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 9698d0a2..5ea0df3e 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -50,7 +50,7 @@ type
 
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
-    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
+//    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
   end;
 
   TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
@@ -111,7 +111,7 @@ type
 
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
-    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
+//    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
   end;
 
 implementation
@@ -641,7 +641,7 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
+{procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
 var
   EnEdicion: Boolean;
 begin
@@ -671,7 +671,7 @@ begin
     if EnEdicion then
        APresupuesto.DataTable.Edit;
   end;
-end;
+end;}
 
 function TPresupuestosClienteController.Guardar(APresupuesto: IBizPresupuestoCliente): Boolean;
 var
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 59f504d8..9151bac5 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
@@ -243,6 +243,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
@@ -283,6 +287,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagPortada: TTabSheet
       Caption = 'Portada'
       ImageIndex = 3
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object edtPortada: TcxDBRichEdit
         Left = 0
         Top = 0
@@ -297,6 +305,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagMemoria: TTabSheet
       Caption = 'Memoria'
       ImageIndex = 4
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object cxDBMemo1: TcxDBMemo
         Left = 0
         Top = 0
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index d1982dd8..32b0e0b4 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
@@ -183,15 +183,12 @@ begin
   bEsNuevo := False;
 
   ShowHourglassCursor;
-//  frViewDetallesPresupuestoCliente1.SaveGridStatus;
   frViewDetallesPresupuestoCliente1.BeginUpdate;
   try
     bEsNuevo := FPresupuesto.EsNuevo;
-    FController.SetID_Tienda(FPresupuesto, TfrViewPresupuestoCliente(FViewPresupuesto).frViewTienda1.getIDTienda, '');
     FController.Guardar(FPresupuesto);
   finally
     frViewDetallesPresupuestoCliente1.EndUpdate;
-//    frViewDetallesPresupuestoCliente1.RestoreGridStatus;
     HideHourglassCursor;
   end;
   if bEsNuevo then
@@ -202,7 +199,7 @@ end;
 
 procedure TfEditorPresupuestoCliente.ImprimirInterno;
 begin
-AppFactuGES.ShowCapado;
+  AppFactuGES.ShowCapado;
 {
   inherited;
   if not Modified then
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 7ac5e1c74ea51f319b816163d6a58dd4b55d2b3d..2843e25be5487069a397d9d8cf2961700b2c625a 100644
GIT binary patch
delta 66
zcmdn6jd24IMMN@Anj9Ia%$T>iHj<l>If+4Wa(9%hU=BkmLmopaLotI6g93vQgT>_C
VQR<vV3|0)L3>FLwlV3);0|2R!5(WSO

delta 66
zcmdn6jd24IMMN@AnH(9Z%vi9wHj<l>IfX%Ka(9%ha27);Ln=cV5EnD(Feoq>F_=u=
T8Kur{#$d%@$Y3$~Wt2Mru0;}Z

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index df9f0e4c..a45399c7 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.2.3.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.2.3.0\0"
-              VALUE "CompileDate", "jueves, 24 de julio de 2008 16:18\0"
+              VALUE "CompileDate", "lunes, 28 de julio de 2008 12:58\0"
          END
     END
     BLOCK "VarFileInfo"