Tarea #1383 -> Mejorar el ancho automático de las columnas de los grids

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@621 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Base/Utiles/uGridUtils.pas

@@ -54,6 +54,8 @@ type
 procedure SeleccionarFilasDesdeGrid(const AView : TcxGridDBTableView;
   ASelectedRowList : TSelectedRecords);
 
+procedure AsignarAnchosPrefijadosAColumnas(const AView : TcxGridDBTableView);
+
 implementation
 
 
@@ -272,6 +274,7 @@ var
   ARecord: TcxCustomGridRecord;
   i : Integer;
   AGridStatus : TcxGridStatus;
+
 begin
   if not Assigned(AView) then
     raise Exception.Create('No hay vista asignada (SeleccionarFilasDesdeGrid)');
@@ -298,4 +301,71 @@ begin
 end;
 
 
+procedure AsignarAnchosPrefijadosAColumnas(const AView : TcxGridDBTableView);
+var
+  DefAnchos : TStringList;
+  AColumn: TcxGridDBColumn;
+  AIndex, i : Integer;
+begin
+  if not Assigned(AView) then
+    raise Exception.Create('No hay vista asignada (AsignarAnchosPrefijadosAColumnas)');
+
+  DefAnchos := TStringList.Create;
+  with DefAnchos do begin
+    CaseSensitive := False;
+    Sorted := False;
+    CommaText := 'CONCEPTO=600,' +
+                 'NOMBRE=600,' +
+                 'CANTIDAD=40,' +
+                 'VISIBLE=20,' +
+                 'VISIBLE2=20,' +
+                 'DESCUENTO=60,' +
+                 'IVA=60,' +
+                 'RE=60,' +
+                 'IMPORTE_UNIDAD=80' +
+                 'REFERENCIA=100,' +
+                 'REF_PEDIDO=100,' +
+                 'REF_CONTRATO=100,' +
+                 'REF_FACTURA=100,' +                 
+                 'REFERENCIA_CLIENTE=100,' +
+                 'REFERENCIA_PROVEEDOR=100,' +
+                 'SITUACION=100,' +
+                 'IMPORTE_NETO=80,' +
+                 'IMPORTE_PORTE=80,' +
+                 'IMPORTE_IVA=80,' +
+                 'IMPORTE_RE=80,' +
+                 'IMPORTE_TOTAL=150,' +
+                 'TIPO=80,' +                 
+                 'TIPO_CONTRATO=80,' +
+                 'TIPO_PRESUPUESTO=80,' +
+                 'VENDEDOR=60,' +
+                 'TIENDA=60,' +
+                 'NIF_CIF=60,' +
+                 'FECHA_FACTURA=80,' +
+                 'FECHA_VENCIMIENTO=80,' +
+                 'FECHA_CONTRATO=80,' +
+                 'FECHA_ALBARAN=80,' +
+                 'FECHA_RECEPCION=80,' +
+                 'FECHA_ENVIO=80,' +
+                 'FECHA_VIGENCIA=80';
+  end;
+
+  ShowHourglassCursor;
+  AView.BeginUpdate;
+  try
+    for i := 0 to (AView.ColumnCount - 1) do
+    begin
+      AColumn := AView.Columns[i];
+      AColumn.BestFitMaxWidth := StrToIntDef(DefAnchos.Values[AColumn.DataBinding.FieldName], 60);
+      Acolumn.MinWidth := 10;
+      if AColumn.Width > AColumn.BestFitMaxWidth then
+        AColumn.Width := AColumn.BestFitMaxWidth;
+    end;
+  finally
+    AView.EndUpdate;
+    HideHourglassCursor;
+    FreeAndNil(DefAnchos);
+  end;
+end;
+
 end.

Source/Cliente/FactuGES.dpr

@@ -1,7 +1,6 @@
 program FactuGES;
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   SysUtils,

Source/Cliente/FactuGES.dproj

@@ -43,7 +43,7 @@
     <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
     <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
     <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
     <DCC_MapFile>3</DCC_MapFile>
@@ -81,7 +81,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0

Source/GUIBase/GUIBase.dproj

@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Familias\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Familias\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Familias\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Familias\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Familias\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Familias\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Familias\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
@@ -663,5 +663,5 @@ Count mtException_AntiFreeze=1
 mtException_AntiFreeze0="The application seems to be frozen."
 Count mtInvalidEmailMsg=1
 mtInvalidEmailMsg0="Invalid email."
-TextsCollection=English
+TextsCollection=
 EurekaLog Last Line -->

Source/GUIBase/uViewDetallesBase.dfm

@@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       DroppedDownWidth = 145
       MaxMRUCount = 0
       FontName = 'Tahoma'
-      ItemIndex = 35
+      ItemIndex = 40
       Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
       Sorted = True
       TabOrder = 2

Source/GUIBase/uViewDetallesBase.pas

@@ -165,6 +165,7 @@ type
     function darListaSeleccionados: TIntegerArray;
 
     procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil);
+    procedure BestFitAllColumns;
   protected
     function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual;
     function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual;
@@ -288,10 +289,38 @@ begin
                                    and (not cxGridView.Controller.FocusedRow.IsFirst)
 end;
 
+
+procedure TfrViewDetallesBase.BestFitAllColumns;
+var
+  i : Integer ;
+
+begin
+  ShowHourglassCursor;
+  _FocusedView.BeginUpdate;
+
+  try
+    AsignarAnchosPrefijadosAColumnas(_FocusedView);
+    for i := 0 to _FocusedView.VisibleColumnCount-1 do
+    begin
+      _FocusedView.VisibleColumns[i].ApplyBestFit;
+      if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
+         (_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
+          _FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
+    end;
+  finally
+    _FocusedView.EndUpdate;
+    HideHourglassCursor;
+  end;
+end;
+
+
+
 procedure TfrViewDetallesBase.AjustarAncho;
 begin
-  if Assigned(_FocusedView) then
+  if Assigned(_FocusedView) then begin
+    BestFitAllColumns;
     _FocusedView.ApplyBestFit;
+  end;
 end;
 
 procedure TfrViewDetallesBase.BeginUpdate;
@@ -725,7 +754,8 @@ begin
   if Assigned(FDetalles) then
   begin
     DADataSource.DataTable := FDetalles.DataTable;
-    RestoreFromIniFile; // la restauración de las columnas sólo funciona cuando hay datos.
+    //RestoreFromIniFile; // la restauración de las columnas sólo funciona cuando hay datos.
+    AjustarAncho;
   end
   else
     DADataSource.DataTable := NIL;

Source/GUIBase/uViewGridBase.pas

@@ -187,6 +187,7 @@ begin
   _FocusedView.BeginUpdate;
 
   try
+    AsignarAnchosPrefijadosAColumnas(_FocusedView);
     for i := 0 to _FocusedView.VisibleColumnCount-1 do
     begin
       _FocusedView.VisibleColumns[i].ApplyBestFit;
@@ -340,7 +341,7 @@ var
   AIniFile : String;
 begin
   inherited;
-  if Assigned(_FocusedView) then
+  {if Assigned(_FocusedView) then
   begin
 
     AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
@@ -350,7 +351,8 @@ begin
       ForceDirectories(AIniFile);
 
     _FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
-  end;
+  end;}
+  AjustarAncho;
 end;
 
 procedure TfrViewGridBase.RestoreFromRegistry(const Path: String);

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -1,11 +1,11 @@
 inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
-  Width = 596
+  Width = 1121
-  Height = 479
+  Height = 620
-  ExplicitWidth = 596
+  ExplicitWidth = 1121
-  ExplicitHeight = 479
+  ExplicitHeight = 620
   inherited cxGrid: TcxGrid
-    Width = 596
+    Width = 1121
-    Height = 351
+    Height = 492
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 596
@@ -69,25 +69,25 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
         BestFitMaxWidth = 45
-        Width = 57
+        Width = 20
       end
       object cxGridViewSITUACION: TcxGridDBColumn
         DataBinding.FieldName = 'SITUACION'
         BestFitMaxWidth = 45
-        Width = 65
+        Width = 70
       end
       object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
         DataBinding.FieldName = 'FECHA_ALBARAN'
         BestFitMaxWidth = 45
         SortIndex = 0
         SortOrder = soDescending
-        Width = 68
+        Width = 94
       end
       object cxGridViewNOMBRE: TcxGridDBColumn
         Caption = 'Cliente'
         DataBinding.FieldName = 'NOMBRE'
         BestFitMaxWidth = 120
-        Width = 119
+        Width = 601
       end
       object cxGridViewREF_PEDIDO: TcxGridDBColumn
         DataBinding.FieldName = 'REF_PEDIDO'
@@ -120,12 +120,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       object cxGridViewREF_CONTRATO: TcxGridDBColumn
         DataBinding.FieldName = 'REF_CONTRATO'
         BestFitMaxWidth = 45
-        Width = 61
+        Width = 75
       end
       object cxGridViewREF_FACTURA: TcxGridDBColumn
         DataBinding.FieldName = 'REF_FACTURA'
         BestFitMaxWidth = 45
-        Width = 61
+        Width = 73
       end
       object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
         DataBinding.FieldName = 'NOMBRE_ALMACEN'
@@ -171,6 +171,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
         Properties.Alignment.Horz = taRightJustify
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
+        Width = 78
       end
     end
     inherited cxGridLevel: TcxGridLevel
@@ -196,45 +197,33 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
     end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
-    Width = 596
+    Width = 1121
     ExplicitWidth = 596
     inherited TBXDockablePanel1: TTBXDockablePanel
       ExplicitWidth = 596
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 596
+        Width = 1121
         ExplicitWidth = 596
         inherited txtFiltroTodo: TcxTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 499
           Width = 499
         end
         inherited edtFechaIniFiltro: TcxDateEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 147
           Width = 147
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 251
+          Left = 457
-          Style.LookAndFeel.SkinName = ''
+          ExplicitLeft = 457
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 251
           ExplicitWidth = 335
           Width = 335
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-        Width = 596
+        Width = 1121
         ExplicitWidth = 596
         inherited tbxBotones: TTBXToolbar
-          Width = 586
+          Width = 1111
           ExplicitWidth = 586
         end
       end
@@ -245,15 +234,15 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
     end
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
-    Top = 453
+    Top = 594
     Visible = True
     ExplicitTop = 453
     ExplicitWidth = 596
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-      Width = 596
+      Width = 1121
       ExplicitWidth = 596
       inherited TBXToolbar1: TTBXToolbar
-        Width = 586
+        Width = 1111
         ExplicitWidth = 586
         object TBXSeparatorItem1: TTBXSeparatorItem
         end
@@ -272,13 +261,20 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
     Top = 72
   end
   inherited dxComponentPrinter: TdxComponentPrinter
+    Left = 400
+    Top = 328
     inherited dxComponentPrinterLink: TdxGridReportLink
       ReportDocument.CreationDate = 39217.578907326390000000
       BuiltInReportLink = True
     end
   end
+  inherited dxPSEngineController1: TdxPSEngineController
+    Left = 304
+    Top = 232
+  end
   inherited cxViewGridPopupMenu: TcxGridPopupMenu
-    Left = 280
+    Left = 272
+    Top = 192
   end
   inherited ActionList1: TActionList
     object actClientes: TAction
@@ -294,6 +290,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       OnUpdate = actAlmacenesUpdate
     end
   end
+  inherited cxStyleRepositoryInforme: TcxStyleRepository
+    Left = 360
+    Top = 256
+  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item
@@ -413,6 +413,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
   end
   inherited cxStyleRepository1: TcxStyleRepository
     Left = 248
+    Top = 160
     object cxStyleProximosAEnviar: TcxStyle
       AssignedValues = [svColor, svTextColor]
       Color = clFuchsia

Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm

@@ -1,6 +1,99 @@
 inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
+  Width = 1016
+  Height = 639
+  inherited ToolBar1: TToolBar
+    Width = 1016
+    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 = 1016
+    Height = 589
     inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewDESCRIPCION: TcxGridDBColumn
+        Width = 752
+      end
+      inherited cxGridViewCANTIDAD: TcxGridDBColumn
+        Width = 68
+      end
+      inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
+        Width = 97
+      end
       inherited cxGridViewDESCUENTO: TcxGridDBColumn
         Visible = False
         VisibleForCustomization = False
@@ -9,6 +102,16 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
         Visible = False
         VisibleForCustomization = False
       end
+      inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
+        Width = 83
+      end
+    end
+  end
+  inherited TBXDock1: TTBXDock
+    Top = 24
+    Width = 1016
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 548
     end
   end
 end

Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm

@@ -1,5 +1,89 @@
 inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
+  Width = 975
+  Height = 494
+  inherited ToolBar1: TToolBar
+    Width = 975
+    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 = 975
+    Height = 444
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewID_ARTICULO: TcxGridDBColumn
         Width = 57
@@ -11,10 +95,12 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
       end
       inherited cxGridViewVISIBLE2: TcxGridDBColumn [5]
         Visible = True
+        BestFitMaxWidth = 20
       end
       inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
         Caption = #191'Valorado?'
         Visible = True
+        BestFitMaxWidth = 20
       end
       object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
         Caption = 'Propiedad'
@@ -58,7 +144,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
     end
   end
   inherited TBXDock1: TTBXDock
+    Top = 24
+    Width = 975
     inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 663
       object TBXSubmenuItem1: TTBXSubmenuItem [0]
         Caption = 'A'#241'adir cap'#237'tulo'
         DisplayMode = nbdmImageAndText