Presupuestos de cliente -> Repaso general.

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

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj

@@ -49,11 +49,11 @@
     <DelphiCompile Include="PresupuestosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Articulos_controller.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\PresupuestosCliente_data.dcp" />
-    <DCCReference Include="..\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="Articulos_controller.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PresupuestosCliente_data.dcp" />
+    <DCCReference Include="PresupuestosCliente_model.dcp" />
     <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
     <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
     <DCCReference Include="uPresupuestosClienteController.pas" />
@@ -548,4 +548,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
 Count mtInvalidEmailMsg=1
 mtInvalidEmailMsg0="Invalid email."
 TextsCollection=English
-EurekaLog Last Line -->
+EurekaLog Last Line -->

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -528,6 +528,7 @@ procedure TPresupuestosClienteController.RecalcularImportes(
   APresupuesto: IBizPresupuestoCliente);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;  
 begin
   if not Assigned(APresupuesto) then
     raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)');
@@ -535,19 +536,28 @@ begin
   if APresupuesto.DataTable.Active then
     APresupuesto.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := APresupuesto.Detalles.POSICION;
+
   bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
   if not bEnEdicion then
     APresupuesto.Edit;
 
   ShowHourglassCursor;
-  APresupuesto.Edit;
   try
     APresupuesto.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APresupuesto.Detalles);
-    APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles);    
+    APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles);
+
     if not bEnEdicion then
       APresupuesto.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(APresupuesto.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas

@@ -31,7 +31,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorPresupuestosClientePreview,
-  uEditorPreview, uDataModulePresupuestosCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModulePresupuestosCliente, uEditorBase,
+  cxControls, uFactuGES_App;
 
 { TPresupuestosClienteReportController }
 
@@ -65,12 +66,13 @@ begin
     try
       CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
-      begin
-        AEditor.LoadFromStream(AStream);
-        AEditor.Preview;
-        AEditor.Release;
-      end;
+        with AEditor do
+        begin
+          Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          LoadFromStream(AStream);
+          Preview;
+          Release;
+        end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -16,8 +16,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     Top = 72
   end
   object frxBarCodeObject1: TfrxBarCodeObject
-    Left = 400
-    Top = 424
+    Left = 528
+    Top = 488
   end
   object frxOLEObject1: TfrxOLEObject
     Left = 400
@@ -25,15 +25,15 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
   end
   object frxCrossObject1: TfrxCrossObject
     Left = 400
-    Top = 360
+    Top = 440
   end
   object frxCheckBoxObject1: TfrxCheckBoxObject
-    Left = 400
-    Top = 232
+    Left = 464
+    Top = 488
   end
   object frxGradientObject1: TfrxGradientObject
-    Left = 400
-    Top = 296
+    Left = 464
+    Top = 440
   end
   object schReport: TDASchema
     ConnectionManager = dmServer.ConnectionManager

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas

@@ -123,7 +123,7 @@ begin
     ID_Presupuestos := TStringList.Create;
     ID_Presupuestos.CommaText := AID;
 
-    //Vamos generando todos y cada uno de los albaranes recibidos
+    //Vamos generando todos y cada uno de los presupuestos recibidos
     for i := 0 to ID_Presupuestos.Count - 1 do
         GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i]));
 
@@ -187,8 +187,6 @@ begin
 
     frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
     frxReport.PrepareReport(False);
-    frxReport.ShowPreparedReport;
-
   finally
     AStream.Free;
     dsCabecera := Nil;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -5,15 +5,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   ClientHeight = 615
   ClientWidth = 749
   OnClose = CustomEditorClose
-  ExplicitTop = -85
   ExplicitWidth = 757
-  ExplicitHeight = 642
+  ExplicitHeight = 649
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
     Width = 749
     Caption = 'Nuevo pedido de cliente'
-    ExplicitWidth = 674
+    ExplicitWidth = 749
     inherited Image1: TImage
       Left = 722
       Picture.Data = {
@@ -128,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   end
   inherited TBXDock: TTBXDock
     Width = 749
-    ExplicitWidth = 674
+    ExplicitWidth = 749
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 488
       inherited TBXItem2: TTBXItem
@@ -146,28 +145,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 749
-    Height = 420
+    Width = 743
+    Height = 414
+    ActivePage = pagContenido
     TabOrder = 1
-    OnChanging = pgPaginasChanging
-    ExplicitWidth = 674
-    ExplicitHeight = 402
+    OnChange = pgPaginasChange
+    ExplicitWidth = 743
+    ExplicitHeight = 414
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
-      ExplicitWidth = 741
-      ExplicitHeight = 421
+      ExplicitWidth = 735
+      ExplicitHeight = 386
     end
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitWidth = 666
-      ExplicitHeight = 374
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
-        Width = 741
-        Height = 392
+        Width = 735
+        Height = 386
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -179,11 +177,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 666
-        ExplicitHeight = 374
+        ExplicitWidth = 735
+        ExplicitHeight = 386
         inherited ToolBar1: TToolBar
-          Width = 741
-          ExplicitWidth = 741
+          Width = 735
+          ExplicitWidth = 735
           inherited FontSize: TEdit
             Width = 57
             ExplicitWidth = 57
@@ -226,75 +224,30 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 741
-          Height = 320
-          ExplicitWidth = 666
-          ExplicitHeight = 302
+          Width = 735
+          Height = 314
+          ExplicitWidth = 735
+          ExplicitHeight = 314
         end
         inherited TBXDock1: TTBXDock
-          Width = 741
-          ExplicitWidth = 741
+          Width = 735
+          ExplicitWidth = 735
           inherited TBXToolbar1: TTBXToolbar
             ExplicitWidth = 548
           end
         end
       end
     end
-    object pagInicidencias: TTabSheet
-      Caption = 'Incidencias'
-      ImageIndex = 2
-      ExplicitWidth = 666
-      ExplicitHeight = 374
-      inline frViewIncidenciasCli: TfrViewIncidencias
-        Left = 0
-        Top = 0
-        Width = 741
-        Height = 392
-        Align = alClient
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-        TabOrder = 0
-        ReadOnly = False
-        ExplicitWidth = 666
-        ExplicitHeight = 374
-        inherited pnlSup: TPanel
-          Width = 741
-          ExplicitWidth = 741
-          inherited eIncidenciaActiva: TcxDBCheckBox
-            ExplicitHeight = 21
-          end
-        end
-        inherited GroupBox1: TGroupBox
-          Width = 741
-          Height = 364
-          ExplicitWidth = 741
-          ExplicitHeight = 393
-          inherited eIncidencias: TcxDBMemo
-            ExplicitWidth = 718
-            ExplicitHeight = 360
-            Height = 331
-            Width = 718
-          end
-        end
-      end
-    end
     object pagPortada: TTabSheet
       Caption = 'Portada'
       ImageIndex = 3
-      ExplicitWidth = 666
-      ExplicitHeight = 374
       object Panel1: TPanel
         Left = 0
         Top = 0
         Width = 145
-        Height = 392
+        Height = 386
         Align = alLeft
         TabOrder = 0
-        ExplicitHeight = 421
         object Image2: TImage
           Left = 16
           Top = 16
@@ -381,8 +334,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inline frViewRichEditor1: TfrViewRichEditor
         Left = 145
         Top = 0
-        Width = 596
-        Height = 392
+        Width = 590
+        Height = 386
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -393,13 +346,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         TabOrder = 1
         ReadOnly = False
         ExplicitLeft = 145
-        ExplicitWidth = 521
-        ExplicitHeight = 374
+        ExplicitWidth = 590
+        ExplicitHeight = 386
         inherited TBXDock1: TTBXDock
-          Width = 596
-          ExplicitWidth = 596
+          Width = 590
+          ExplicitWidth = 590
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 517
+            ExplicitWidth = 516
             inherited TBXColorItem1: TTBXColorItem
               Visible = False
             end
@@ -408,26 +361,24 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         inherited RichEdit: TcxDBRichEdit
           DataBinding.DataField = 'PORTADA'
           DataBinding.DataSource = dsDataTable
-          ExplicitWidth = 596
-          ExplicitHeight = 395
-          Height = 366
-          Width = 596
+          Style.IsFontAssigned = True
+          ExplicitWidth = 590
+          ExplicitHeight = 360
+          Height = 360
+          Width = 590
         end
       end
     end
     object pagMemoria: TTabSheet
       Caption = 'Memoria'
       ImageIndex = 4
-      ExplicitWidth = 666
-      ExplicitHeight = 374
       object Panel2: TPanel
         Left = 0
         Top = 0
         Width = 145
-        Height = 392
+        Height = 386
         Align = alLeft
         TabOrder = 0
-        ExplicitHeight = 374
         object Image3: TImage
           Left = 16
           Top = 16
@@ -685,8 +636,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inline frViewRichEditor2: TfrViewRichEditor
         Left = 145
         Top = 0
-        Width = 596
-        Height = 392
+        Width = 590
+        Height = 386
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -697,13 +648,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         TabOrder = 1
         ReadOnly = False
         ExplicitLeft = 145
-        ExplicitWidth = 521
-        ExplicitHeight = 374
+        ExplicitWidth = 590
+        ExplicitHeight = 386
         inherited TBXDock1: TTBXDock
-          Width = 596
-          ExplicitWidth = 521
+          Width = 590
+          ExplicitWidth = 590
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 517
+            ExplicitWidth = 516
             inherited TBXColorItem1: TTBXColorItem
               Visible = False
             end
@@ -712,10 +663,51 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         inherited RichEdit: TcxDBRichEdit
           DataBinding.DataField = 'MEMORIA'
           DataBinding.DataSource = dsDataTable
-          ExplicitWidth = 521
-          ExplicitHeight = 348
-          Height = 366
-          Width = 596
+          Style.IsFontAssigned = True
+          ExplicitWidth = 590
+          ExplicitHeight = 360
+          Height = 360
+          Width = 590
+        end
+      end
+    end
+    object pagInicidencias: TTabSheet
+      Caption = 'Incidencias'
+      ImageIndex = 2
+      inline frViewIncidenciasCli: TfrViewIncidencias
+        Left = 0
+        Top = 0
+        Width = 735
+        Height = 386
+        Align = alClient
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 735
+        ExplicitHeight = 386
+        inherited pnlSup: TPanel
+          Width = 735
+          ExplicitWidth = 735
+          inherited eIncidenciaActiva: TcxDBCheckBox
+            ExplicitHeight = 21
+          end
+        end
+        inherited GroupBox1: TGroupBox
+          Width = 735
+          Height = 358
+          ExplicitWidth = 735
+          ExplicitHeight = 358
+          inherited eIncidencias: TcxDBMemo
+            ExplicitWidth = 712
+            ExplicitHeight = 325
+            Height = 325
+            Width = 712
+          end
         end
       end
     end
@@ -727,8 +719,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       item
         Width = 200
       end>
-    ExplicitTop = 549
-    ExplicitWidth = 674
+    ExplicitTop = 596
+    ExplicitWidth = 749
   end
   inline frViewTotales1: TfrViewTotales [4]
     Left = 0
@@ -751,7 +743,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       Width = 749
       Height = 171
       LookAndFeel = dxLayoutOfficeLookAndFeel1
-      ExplicitWidth = 674
+      ExplicitWidth = 749
       ExplicitHeight = 171
       inherited Bevel1: TBevel
         Left = 93

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -16,7 +16,7 @@ uses
   dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
   uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente,
   uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
-  uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor;
+  uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC;
 
 type
   TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@@ -38,9 +38,9 @@ type
 
     procedure FormShow(Sender: TObject);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
-    procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
     procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+    procedure pgPaginasChange(Sender: TObject);
   private
     procedure RecalcularPortePorUnidad;
 
@@ -239,6 +239,7 @@ begin
                 end
           else begin
             ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, '');
+            ShowHourglassCursor;
             try
               if Assigned(ADireccion) then
               begin
@@ -247,6 +248,7 @@ begin
                 FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
               end;
             finally
+              HideHourglassCursor;  
               ADireccion := NIL;
             end;
           end;
@@ -263,14 +265,19 @@ begin
   end;
 end;
 
-procedure TfEditorPresupuestoCliente.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
+procedure TfEditorPresupuestoCliente.pgPaginasChange(Sender: TObject);
 begin
   inherited;
   if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then
   begin
-    ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este Presupuesto');
-    AllowChange := False;
-  end;
+    if (pgPaginas.ActivePageIndex = pagContenido.PageIndex) then
+    begin
+      pagContenido.Enabled := False;
+      ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este presupuesto');
+    end;
+  end
+  else
+    pagContenido.Enabled := True;
 end;
 
 procedure TfEditorPresupuestoCliente.PonerTitulos(const ATitulo: string);

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 674
   ExplicitWidth = 682
-  ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -164,6 +163,9 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     inherited actImprimir: TAction
       Visible = True
     end
+    inherited actDuplicar: TAction
+      Enabled = False
+    end
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -214,14 +214,14 @@ begin
 
   if AllItems then
   begin
-    if (Application.MessageBox('¿Desea borrar los Presupuestos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
+    if (Application.MessageBox('¿Desea borrar los presupuestos seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
       APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
     end
   end
   else begin
-    if (Application.MessageBox('¿Desea borrar el Presupuesto de proveedor seleccionado?', 'Atención', MB_YESNO) = IDYES) then
+    if (Application.MessageBox('¿Desea borrar el presupuesto seleccionado?', 'Atención', MB_YESNO) = IDYES) then
         APresupuestos := Presupuestos;
   end;
 

Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm

@@ -1,88 +1,5 @@
 inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
-  Width = 933
-  inherited ToolBar1: TToolBar
-    Width = 933
-    Height = 24
-    inherited ToolButton4: TToolButton
-      Wrap = False
-    end
-    inherited ToolButton14: TToolButton
-      Left = 334
-      Top = 0
-      ExplicitLeft = 334
-      ExplicitTop = 0
-    end
-    inherited FontName: TJvFontComboBox
-      Left = 368
-      Top = 0
-      ExplicitLeft = 368
-      ExplicitTop = 0
-    end
-    inherited FontSize: TEdit
-      Left = 513
-      Top = 0
-      ExplicitLeft = 513
-      ExplicitTop = 0
-    end
-    inherited UpDown1: TUpDown
-      Left = 555
-      Top = 0
-      ExplicitLeft = 555
-      ExplicitTop = 0
-    end
-    inherited ToolButton13: TToolButton
-      Left = 572
-      Top = 0
-      ExplicitLeft = 572
-      ExplicitTop = 0
-    end
-    inherited ToolButton6: TToolButton
-      Left = 580
-      Top = 0
-      ExplicitLeft = 580
-      ExplicitTop = 0
-    end
-    inherited ToolButton7: TToolButton
-      Left = 614
-      Top = 0
-      ExplicitLeft = 614
-      ExplicitTop = 0
-    end
-    inherited ToolButton8: TToolButton
-      Left = 648
-      Top = 0
-      ExplicitLeft = 648
-      ExplicitTop = 0
-    end
-    inherited ToolButton12: TToolButton
-      Left = 682
-      Top = 0
-      ExplicitLeft = 682
-      ExplicitTop = 0
-    end
-    inherited ToolButton9: TToolButton
-      Left = 690
-      Top = 0
-      ExplicitLeft = 690
-      ExplicitTop = 0
-    end
-    inherited ToolButton10: TToolButton
-      Left = 724
-      Top = 0
-      ExplicitLeft = 724
-      ExplicitTop = 0
-    end
-    inherited ToolButton11: TToolButton
-      Left = 758
-      Top = 0
-      ExplicitLeft = 758
-      ExplicitTop = 0
-    end
-  end
   inherited cxGrid: TcxGrid
-    Top = 50
-    Width = 933
-    Height = 254
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewTIPO: TcxGridDBColumn
         Width = 51
@@ -116,11 +33,4 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
       end
     end
   end
-  inherited TBXDock1: TTBXDock
-    Top = 24
-    Width = 933
-    inherited TBXToolbar1: TTBXToolbar
-      ExplicitWidth = 548
-    end
-  end
 end

Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas

@@ -56,7 +56,7 @@ end;
 procedure TfrViewDetallesPresupuestoCliente.BitBtn1Click(Sender: TObject);
 begin
   inherited;
-FPresupuesto.Detalles.Insert;
+  FPresupuesto.Detalles.Insert;
 end;
 
 function TfrViewDetallesPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -19,7 +19,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       513)
     object edtFechaPresupuesto: TcxDBDateEdit
       Left = 123
-      Top = 109
+      Top = 82
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PRESUPUESTO'
       DataBinding.DataSource = DADataSource
@@ -37,7 +37,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 3
+      TabOrder = 2
       Width = 119
     end
     object memObservaciones: TcxDBMemo
@@ -183,7 +183,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     end
     object edtFechaDecision: TcxDBDateEdit
       Left = 123
-      Top = 136
+      Top = 109
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_DECISION'
       DataBinding.DataSource = DADataSource
@@ -200,7 +200,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 3
       Width = 216
     end
     object eRefCliente: TcxDBTextEdit
@@ -213,7 +213,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Properties.ValidateOnEnter = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
+      Style.Color = clWindow
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
@@ -230,7 +230,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     end
     object edtClienteFinal: TcxDBTextEdit
       Left = 123
-      Top = 82
+      Top = 163
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CLIENTE_FINAL'
       DataBinding.DataSource = DADataSource
@@ -238,7 +238,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Properties.ValidateOnEnter = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
+      Style.Color = clWindow
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
@@ -250,12 +250,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 2
+      TabOrder = 5
       Width = 227
     end
     object cbSituacion: TcxDBImageComboBox
       Left = 123
-      Top = 163
+      Top = 136
       DataBinding.DataField = 'SITUACION'
       DataBinding.DataSource = DADataSource
       Properties.Items = <
@@ -277,7 +277,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 4
       Width = 121
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
@@ -303,11 +303,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
             Control = eRefCliente
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Item8: TdxLayoutItem
-            Caption = 'Cliente final:'
-            Control = edtClienteFinal
-            ControlOptions.ShowBorder = False
-          end
           object dxLayoutControl1Item2: TdxLayoutItem
             Caption = 'Fecha presupuesto:'
             Control = edtFechaPresupuesto
@@ -323,6 +318,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
             Control = cbSituacion
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item8: TdxLayoutItem
+            Caption = 'Cliente final:'
+            Control = edtClienteFinal
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Group5: TdxLayoutGroup
             ShowCaption = False
             Visible = False