- 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

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

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.

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.
-
+  

Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas

@@ -65,6 +65,7 @@ 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);
@@ -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;

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.
-
+  

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

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

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;

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

Source/Modulos/Contabilidad/Views/uEditorCuentas.pas

@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorCuentas.DuplicarInterno;
-var
+{var
-  ACuenta : IBizCuenta;
+  ACuenta : IBizCuenta;}
 begin
 AppFactuGES.ShowCapado;
 {

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

Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas

@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorCuentasEspeciales.DuplicarInterno;
-var
+{var
-  ACuentaEspecial : IBizCuentaEspecial;
+  ACuentaEspecial : IBizCuentaEspecial;}
 begin
 AppFactuGES.ShowCapado;
 {

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

Source/Modulos/Contabilidad/Views/uEditorDiario.pas

@@ -96,8 +96,8 @@ begin
 end;
 
 procedure TfEditorDiario.NuevoInterno;
-var
+{var
-  NumOrden: Integer;
+  NumOrden: Integer;}
 begin
   inherited;
 
@@ -141,8 +141,8 @@ begin
 end;
 
 procedure TfEditorDiario.DuplicarInterno;
-var
+{var
-  AEpigrafe : IBizAsiento;
+  AEpigrafe : IBizAsiento;}
 begin
 AppFactuGES.ShowCapado;
 {

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

Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas

@@ -120,8 +120,8 @@ begin
 end;
 
 procedure TfEditorEpigrafes.DuplicarInterno;
-var
+{var
-  AEpigrafe : IBizEpigrafe;
+  AEpigrafe : IBizEpigrafe;}
 begin
 AppFactuGES.ShowCapado;
 {

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

Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas

@@ -230,10 +230,11 @@ var
 begin
   inherited;
   with TSubCuentasController.Create do
-  begin
+    try
-    SubCuentas := BuscarCajasBancos;
+      SubCuentas := BuscarCajasBancos;
-    Free;
+    finally
-  end;
+      Free;
+    end;
 
   if Assigned(FController) then
   begin

Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas

@@ -65,8 +65,6 @@ end;
 
 
 procedure TfrViewListaSubcuentas.CustomViewCreate(Sender: TObject);
-var
-  i : integer;
 begin
   inherited;
   FTipoSubCuenta := tTodas;

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

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;

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -69,6 +69,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;
 
@@ -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;

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.
-
+  

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;

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

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

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.
-
+  

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;

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>
+<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>
-      <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>
   </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="..\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
+    <DCCReference Include="..\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
+    <DCCReference Include="..\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="..\PedidosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Lib\PedidosProveedor_model.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

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

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
+          ExplicitWidth = 283
-          Width = 185
+          Width = 283
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
+          ExplicitWidth = 283
-          Width = 562
+          Width = 283
         end
         inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
+          ExplicitWidth = 283
-          Width = 562
+          Width = 283
         end
         inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 46
+          ExplicitWidth = 176
-          Width = 46
+          Width = 176
         end
         inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
+          ExplicitWidth = 283
-          Width = 327
+          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
+      Height = 84
-      Width = 530
+      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
+          Width = 253
-          ExplicitWidth = 255
+          ExplicitWidth = 253
         end
         inherited rdxDestino2: TRadioButton
-          Width = 287
+          Width = 253
-          ExplicitWidth = 287
+          ExplicitWidth = 253
         end
         inherited cbLista: TcxDBLookupComboBox
-          ExplicitWidth = 112
+          ExplicitWidth = 238
-          Width = 112
+          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
+        Width = 357
-        ExplicitWidth = 704
+        ExplicitWidth = 357
-        inherited cbTienda: TcxDBComboBox
-          DataBinding.DataSource = DADataSource
-          Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
-          ExplicitWidth = 412
-          Width = 412
-        end
       end
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup

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;

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

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

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

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"