Repaso a los anchos de columnas de los grids. Ahora se colocan mejor los anchos y se guardan los tamaños.

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@296 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Build/Build.fbp5

@@ -287,7 +287,7 @@ source_path
             <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
             <Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar ficheros temporales]]>
               </Property>
-            <Property name="Enabled" type="WordBool">False</Property>
+            <Property name="Enabled" type="WordBool">True</Property>
             <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
             <Property name="IgnoreFailure" type="WordBool">False</Property>
             <Property name="IsAction" type="Boolean">True</Property>
@@ -579,7 +579,7 @@ source_path
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
               <Property name="RegenerateResource" type="WordBool">True</Property>
-              <Property name="ReleaseVersion" type="Integer">5</Property>
+              <Property name="ReleaseVersion" type="Integer">9</Property>
               <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
               <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
               <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@@ -594,15 +594,15 @@ source_path
               <Property name="UseVersionFromDOF" type="Boolean">True</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=3.0.5.0
+FileVersion=3.0.9.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES Server
-ProductVersion=3.0.5.0
+ProductVersion=3.0.9.0
 Comments=
-CompileDate=martes, 15 de julio de 2008 19:13
+CompileDate=martes, 30 de septiembre de 2008 19:31
 ]]>
                 </Property>
               <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

Source/Base/GUIBase/uEditorGridBase.dfm

@@ -4,6 +4,7 @@ inherited fEditorGridBase: TfEditorGridBase
   Caption = 'fEditorGridBase'
   ClientHeight = 444
   ClientWidth = 543
+  OnDestroy = CustomEditorDestroy
   ExplicitWidth = 551
   ExplicitHeight = 471
   PixelsPerInch = 96
@@ -1515,8 +1516,6 @@ inherited fEditorGridBase: TfEditorGridBase
     Bitmap = {}
   end
   inherited JvFormStorage: TJvFormStorage
-    OnSavePlacement = JvFormStorageSavePlacement
-    OnRestorePlacement = JvFormStorageRestorePlacement
     Left = 400
     Top = 160
   end

Source/Base/GUIBase/uEditorGridBase.pas

@@ -61,8 +61,6 @@ type
     procedure FormShow(Sender: TObject); override;
     procedure actQuitarFiltroExecute(Sender: TObject);
     procedure actDuplicarUpdate(Sender: TObject);
-    procedure JvFormStorageSavePlacement(Sender: TObject);
-    procedure JvFormStorageRestorePlacement(Sender: TObject);
     procedure actModificarUpdate(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevoUpdate(Sender: TObject);
@@ -70,6 +68,7 @@ type
     procedure actRefrescarUpdate(Sender: TObject);
     procedure actFiltrarExecute(Sender: TObject);
     procedure actFiltrarUpdate(Sender: TObject);
+    procedure CustomEditorDestroy(Sender: TObject);
   protected
     FViewGrid : IViewGridBase;
     procedure SetViewGrid(const Value : IViewGridBase); virtual;
@@ -153,10 +152,12 @@ end;
 procedure TfEditorGridBase.FormShow(Sender: TObject);
 begin
   inherited;
+
   if Assigned(ViewGrid) then
-     ViewGrid.ShowEmbedded(Self);
+  begin
-
+    ViewGrid.RestoreFromIniFile;
-     
+    ViewGrid.ShowEmbedded(Self);
+  end;
 end;
 
 procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@@ -248,6 +249,13 @@ begin
   actModificar.ShortCut := ShortCut(VK_RETURN, []);
 end;
 
+procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject);
+begin
+  inherited;
+  if Assigned(ViewGrid) then
+    ViewGrid.StoreToIniFile;
+end;
+
 procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject);
 begin
   inherited;
@@ -271,13 +279,6 @@ begin
        (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
 end;
 
-procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
-begin
-  inherited;
-  if Assigned(ViewGrid) then
-    ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
-end;
-
 procedure TfEditorGridBase.PrevisualizarInterno;
 begin
   inherited;
@@ -304,13 +305,6 @@ begin
   end;
 end;
 
-procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
-begin
-  inherited;
-  if Assigned(ViewGrid) then
-    ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
-end;
-
 initialization
   RegisterClass(TfEditorGridBase);
 

Source/Base/GUIBase/uViewGrid.dfm

@@ -107,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
     SupportedDocks = [dkStandardDock, dkMultiDock]
     TabOrder = 2
     Visible = False
-    ExplicitWidth = 128
     object TBXAlignmentPanel1: TTBXAlignmentPanel
       Left = 0
       Top = 0
@@ -155,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39615.820451203710000000
+      ReportDocument.CreationDate = 39738.576001226850000000
       StyleManager = dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
       OptionsExpanding.ExpandGroupRows = True

Source/Base/GUIBase/uViewGridBase.pas

@@ -52,6 +52,9 @@ type
     procedure StoreToRegistry (const Path : String);
     procedure RestoreFromRegistry (const Path : String);
 
+    procedure RestoreFromIniFile;
+    procedure StoreToIniFile;
+
     procedure SetDblClick(const Value: TNotifyEvent);
     function GetDblClick: TNotifyEvent;
     property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
@@ -149,6 +152,9 @@ type
     procedure StoreToRegistry (const Path : String); virtual;
     procedure RestoreFromRegistry (const Path : String); virtual;
 
+    procedure RestoreFromIniFile;
+    procedure StoreToIniFile;
+
     function Locate(const AItemIndex: Integer; const AValue: String;
       const APartialCompare: Boolean = False) : Boolean;
 
@@ -172,7 +178,8 @@ procedure Register;
 implementation
 
 uses
-  CCReg, uDataModuleBase, uDBSelectionListUtils;
+  CCReg, uDataModuleBase, uDBSelectionListUtils, cxGridDBDataDefinitions,
+  uSistemaFunc, SHFolder;
 
 {$R *.dfm}
 
@@ -189,28 +196,24 @@ begin
      _FocusedView.EndUpdate;
 end;
 
-procedure TfrViewGridBase.AjustarAncho;
-begin
-  if Assigned(_FocusedView) then
-    //_FocusedView.ApplyBestFit;
-    BestFitAllColumns;
-end;
-
 procedure TfrViewGridBase.BestFitAllColumns;
 var
   i : Integer ;
+
 begin
   ShowHourglassCursor;
   _FocusedView.BeginUpdate;
   try
-    for i :=  0 to _FocusedView.ColumnCount-1 do
+    for i := 0 to _FocusedView.VisibleColumnCount-1 do
     begin
-      _FocusedView.Columns[i].ApplyBestFit;
+      _FocusedView.VisibleColumns[i].ApplyBestFit;
-      if _FocusedView.Columns[i].BestFitMaxWidth > 0 then
+      ShowMessage(Format('Width=%d, Min=%d, Max=%d', [_FocusedView.VisibleColumns[i].Width, _FocusedView.VisibleColumns[i].MinWidth, _FocusedView.VisibleColumns[i].BestFitMaxWidth]));
-      begin
+      if (_FocusedView.VisibleColumns[i].Width < _FocusedView.VisibleColumns[i].MinWidth) then
-        if (_FocusedView.Columns[i].Width > _FocusedView.Columns[i].BestFitMaxWidth) then
+        _FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].MinWidth
-          _FocusedView.Columns[i].Width := _FocusedView.Columns[i].BestFitMaxWidth;
+      else
-      end;
+        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;
@@ -218,6 +221,19 @@ begin
   end;
 end;
 
+procedure TfrViewGridBase.AjustarAncho;
+begin
+  if Assigned(_FocusedView) then
+  begin
+    ShowHourglassCursor;
+    try
+      _FocusedView.ApplyBestFit(nil, True, False);
+      //BestFitAllColumns;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
 
 
 procedure TfrViewGridBase.AnadirOtrosFiltros;
@@ -337,6 +353,24 @@ begin
      Filter := ViewFiltros.Texto;
 end;
 
+procedure TfrViewGridBase.RestoreFromIniFile;
+var
+  AIniFile : String;
+begin
+  if Assigned(_FocusedView) then
+  begin
+
+    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
+    AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
+
+    if not DirectoryExists(AIniFile) then
+      if not ForceDirectories(AIniFile) then
+        raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile])); 
+
+    _FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
+  end;
+end;
+
 procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
 begin
   if Assigned(_FocusedView) then
@@ -424,6 +458,24 @@ begin
   end;
 end;
 
+procedure TfrViewGridBase.StoreToIniFile;
+var
+  AIniFile : String;
+begin
+  if Assigned(_FocusedView) then
+  begin
+
+    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
+    AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
+
+    if not DirectoryExists(AIniFile) then
+      if not ForceDirectories(AIniFile) then
+        raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile])); 
+
+    _FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
+  end;
+end;
+
 procedure TfrViewGridBase.StoreToRegistry(const Path : String);
 begin
   if Assigned(_FocusedView) then

Source/Cliente/FactuGES.bdsproj

@@ -148,8 +148,8 @@
 			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
 			<VersionInfo Name="MajorVer">3</VersionInfo>
-			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="MinorVer">1</VersionInfo>
-			<VersionInfo Name="Release">9</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -162,13 +162,13 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.1.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.1.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

Source/Modulos/Contactos/Views/uViewAgentes.dfm

@@ -9,10 +9,7 @@ inherited frViewAgentes: TfrViewAgentes
           Column = cxGridViewNIF_CIF
         end>
       inherited cxGridViewICONO: TcxGridDBColumn
-        BestFitMaxWidth = 22
-        MinWidth = 22
         Options.HorzSizing = False
-        Width = 22
       end
     end
   end
@@ -28,6 +25,8 @@ inherited frViewAgentes: TfrViewAgentes
           Width = 121
         end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 283
+          ExplicitLeft = 283
           ExplicitWidth = 201
           Width = 201
         end

Source/Modulos/Contactos/Views/uViewClientes.dfm

@@ -8,10 +8,7 @@ inherited frViewClientes: TfrViewClientes
           Column = cxGridViewNIF_CIF
         end>
       inherited cxGridViewICONO: TcxGridDBColumn
-        BestFitMaxWidth = 22
-        MinWidth = 22
         Options.HorzSizing = False
-        Width = 22
       end
       object cxGridViewBLOQUEADO: TcxGridDBColumn [1]
         DataBinding.FieldName = 'BLOQUEADO'

Source/Modulos/Contactos/Views/uViewContactos.dfm

@@ -20,9 +20,10 @@ inherited frViewContactos: TfrViewContactos
       OptionsBehavior.PullFocusing = True
       object cxGridViewICONO: TcxGridDBColumn
         OnCustomDrawCell = cxGridViewCODIGOCustomDrawCell
-        BestFitMaxWidth = 18
+        BestFitMaxWidth = 25
+        MinWidth = 25
         Options.Sorting = False
-        Width = 20
+        Width = 25
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         Caption = 'C'#243'digo'
@@ -99,6 +100,8 @@ inherited frViewContactos: TfrViewContactos
         Width = 557
         ExplicitWidth = 557
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 311
+          ExplicitLeft = 311
           ExplicitWidth = 264
           Width = 264
         end

Source/Modulos/Contactos/Views/uViewProveedores.dfm

@@ -17,10 +17,7 @@ inherited frViewProveedores: TfrViewProveedores
           Column = cxGridViewNIF_CIF
         end>
       inherited cxGridViewICONO: TcxGridDBColumn
-        BestFitMaxWidth = 22
-        MinWidth = 22
         Options.HorzSizing = False
-        Width = 22
       end
       object cxGridViewTIENDA_WEB: TcxGridDBColumn [1]
         Caption = 'Incluido en tienda web'
@@ -50,7 +47,17 @@ inherited frViewProveedores: TfrViewProveedores
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 483
         ExplicitWidth = 483
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 457
+          Width = 457
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 239
+          Width = 239
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 330
+          ExplicitLeft = 330
           ExplicitWidth = 149
           Width = 149
         end

Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup

@@ -15,11 +15,11 @@
       <Projects Name="Contactos_model.bpl">..\Contactos\Model\Contactos_model.bdsproj</Projects>
       <Projects Name="Contactos_data.bpl">..\Contactos\Data\Contactos_data.bdsproj</Projects>
       <Projects Name="Contactos_controller.bpl">..\Contactos\Controller\Contactos_controller.bdsproj</Projects>
-      <Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
       <Projects Name="Articulos_model.bpl">..\Articulos\Model\Articulos_model.bdsproj</Projects>
       <Projects Name="Articulos_data.bpl">..\Articulos\Data\Articulos_data.bdsproj</Projects>
       <Projects Name="Articulos_controller.bpl">..\Articulos\Controller\Articulos_controller.bdsproj</Projects>
       <Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
+      <Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
       <Projects Name="FacturasCliente_model.bpl">Model\FacturasCliente_model.bdsproj</Projects>
       <Projects Name="FacturasCliente_data.bpl">Data\FacturasCliente_data.bdsproj</Projects>
       <Projects Name="FacturasCliente_controller.bpl">Controller\FacturasCliente_controller.bdsproj</Projects>
@@ -35,7 +35,7 @@
       <Projects Name="FormasPago_controller.bpl">..\Formas de pago\Controller\FormasPago_controller.bdsproj</Projects>
       <Projects Name="FormasPago_view.bpl">..\Formas de pago\Views\FormasPago_view.bdsproj</Projects>
       <Projects Name="FormasPago_plugin.bpl">..\Formas de pago\Plugin\FormasPago_plugin.bdsproj</Projects>
-      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl FormasPago_model.bpl FormasPago_data.bpl FormasPago_controller.bpl FormasPago_view.bpl FormasPago_plugin.bpl</Projects>
+      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl FormasPago_model.bpl FormasPago_data.bpl FormasPago_controller.bpl FormasPago_view.bpl FormasPago_plugin.bpl</Projects>
     </Projects>
     <Dependencies/>
   </Default.Personality>

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -1,11 +1,11 @@
 inherited frViewFacturasCliente: TfrViewFacturasCliente
-  Width = 531
+  Width = 759
-  Height = 397
+  Height = 514
-  ExplicitWidth = 531
+  ExplicitWidth = 759
-  ExplicitHeight = 397
+  ExplicitHeight = 514
   inherited cxGrid: TcxGrid
-    Width = 531
+    Width = 759
-    Height = 269
+    Height = 386
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 531
@@ -26,8 +26,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
-        BestFitMaxWidth = 20
+        BestFitMaxWidth = 25
         MinWidth = 25
+        Options.Editing = False
+        Options.HorzSizing = False
         Options.Moving = False
         Options.ShowCaption = False
         VisibleForCustomization = False
@@ -39,8 +41,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         DataBinding.FieldName = 'NUM_CORREOS'
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
-        BestFitMaxWidth = 20
+        BestFitMaxWidth = 25
         MinWidth = 25
+        Options.Editing = False
+        Options.HorzSizing = False
         Options.Moving = False
         Options.ShowCaption = False
         VisibleForCustomization = False
@@ -177,12 +181,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
-    Width = 531
+    Width = 759
     ExplicitWidth = 531
     inherited TBXDockablePanel1: TTBXDockablePanel
       ExplicitWidth = 531
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 531
+        Width = 759
         ExplicitWidth = 531
         inherited txtFiltroTodo: TcxTextEdit
           ExplicitWidth = 434
@@ -193,32 +197,32 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           Width = 202
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 306
+          Left = 432
-          ExplicitLeft = 306
+          ExplicitLeft = 432
           ExplicitWidth = 215
           Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-        Width = 531
+        Width = 759
         ExplicitWidth = 531
         inherited tbxBotones: TTBXToolbar
-          Width = 521
+          Width = 749
           ExplicitWidth = 521
         end
       end
     end
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
-    Top = 371
+    Top = 488
     Visible = True
     ExplicitTop = 371
     ExplicitWidth = 531
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-      Width = 531
+      Width = 759
       ExplicitWidth = 531
       inherited TBXToolbar1: TTBXToolbar
-        Width = 521
+        Width = 749
         ExplicitWidth = 521
         object TBXSeparatorItem2: TTBXSeparatorItem
         end

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -45,6 +45,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       OptionsView.GroupFooters = gfAlwaysVisible
       object cxGridViewNUM_COPIAS: TcxGridDBColumn
         DataBinding.FieldName = 'NUM_COPIAS'
+        PropertiesClassName = 'TcxTextEditProperties'
         OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
         MinWidth = 30
         Options.HorzSizing = False
@@ -55,16 +56,19 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       object cxGridViewREFERENCIA: TcxGridDBColumn
         Caption = 'Referencia'
         DataBinding.FieldName = 'REFERENCIA'
+        PropertiesClassName = 'TcxTextEditProperties'
         Width = 64
       end
       object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
         Caption = 'Compensado'
         DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+        PropertiesClassName = 'TcxTextEditProperties'
         OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
       end
       object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
         Caption = 'Ref. recibo compensado'
         DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
+        PropertiesClassName = 'TcxTextEditProperties'
       end
       object cxGridViewSITUACION: TcxGridDBColumn
         Caption = 'Situaci'#243'n'
@@ -91,26 +95,31 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       object cxGridViewFECHA_EMISION: TcxGridDBColumn
         Caption = 'Fecha emisi'#243'n'
         DataBinding.FieldName = 'FECHA_EMISION'
+        PropertiesClassName = 'TcxDateEditProperties'
         Width = 36
       end
       object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
         Caption = 'Fecha vencimiento'
         DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+        PropertiesClassName = 'TcxDateEditProperties'
         Width = 40
       end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         Caption = 'Descripci'#243'n'
         DataBinding.FieldName = 'DESCRIPCION'
+        PropertiesClassName = 'TcxTextEditProperties'
         Visible = False
       end
       object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
         Caption = 'NIF/CIF'
         DataBinding.FieldName = 'NIF_CIF_CLIENTE'
+        PropertiesClassName = 'TcxTextEditProperties'
         Visible = False
       end
       object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
         Caption = 'Cliente'
         DataBinding.FieldName = 'NOMBRE_CLIENTE'
+        PropertiesClassName = 'TcxTextEditProperties'
         Width = 51
       end
       object cxGridViewIMPORTE: TcxGridDBColumn
@@ -142,6 +151,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn
         Caption = 'Ref. remesa'
         DataBinding.FieldName = 'REFERENCIA_REMESA'
+        PropertiesClassName = 'TcxTextEditProperties'
         Width = 48
       end
     end

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "3.0.9.0\0"
               VALUE "ProductName", "FactuGES Server\0"
               VALUE "ProductVersion", "3.0.9.0\0"
-              VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:02\0"
+              VALUE "CompileDate", "viernes, 17 de octubre de 2008 16:17\0"
          END
     END
     BLOCK "VarFileInfo"