- Poner nº de fax en la lista de contactos

git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@11 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca

Base/uDataModuleBase.dfm

@@ -1,8 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 240
+  Left = 191
-  Top = 499
+  Top = 130
   Height = 376
   Width = 502
   object SmallImages: TPngImageList

Base/uEditorBase.dfm

@@ -1,8 +1,8 @@
 object fEditorBase: TfEditorBase
-  Left = 510
+  Left = 4
-  Top = 423
+  Top = 3
-  Width = 674
+  Width = 638
-  Height = 516
+  Height = 444
   Caption = 'EditorBase'
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -22,7 +22,7 @@ object fEditorBase: TfEditorBase
   object JvNavPanelHeader: TJvNavPanelHeader
     Left = 0
     Top = 0
-    Width = 666
+    Width = 630
     Align = alTop
     Caption = 'Editor'
     Font.Charset = DEFAULT_CHARSET
@@ -37,7 +37,7 @@ object fEditorBase: TfEditorBase
     StyleManager = dmBase.StyleManager
     ParentStyleManager = False
     object Image1: TImage
-      Left = 639
+      Left = 603
       Top = 0
       Width = 27
       Height = 27
@@ -68,7 +68,7 @@ object fEditorBase: TfEditorBase
   object TBXDock: TTBXDock
     Left = 0
     Top = 27
-    Width = 666
+    Width = 630
     Height = 49
     AllowDrag = False
     object tbxMain: TTBXToolbar
@@ -243,8 +243,8 @@ object fEditorBase: TfEditorBase
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 463
+    Top = 391
-    Width = 666
+    Width = 630
     Height = 19
     Panels = <
       item

Base/uEditorDBBase.dfm

@@ -1,6 +1,4 @@
 inherited fEditorDBBase: TfEditorDBBase
-  Left = 482
-  Top = 361
   Caption = 'fEditorDBBase'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorDBItem.dfm

@@ -1,6 +1,4 @@
 inherited fEditorDBItem: TfEditorDBItem
-  Left = 557
-  Top = 313
   BorderIcons = [biSystemMenu, biMaximize]
   Caption = 'fEditorDBItem'
   PixelsPerInch = 96
@@ -23,8 +21,8 @@ inherited fEditorDBItem: TfEditorDBItem
   object pgPaginas: TPageControl [2]
     Left = 0
     Top = 76
-    Width = 666
+    Width = 630
-    Height = 387
+    Height = 315
     ActivePage = pagGeneral
     Align = alClient
     TabOrder = 2

Base/uEditorDBItem.pas

@@ -56,7 +56,7 @@ begin
       '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
       actGuardar.Execute
     else begin
-      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
+      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
       Exit;
     end;
   end;
@@ -78,7 +78,7 @@ begin
       '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
       actGuardar.Execute
     else begin
-      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
+      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
       Exit;
     end;
   end;

Base/uEditorGrid.dfm

@@ -1,19 +1,8 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 468
-  Top = 365
-  Width = 719
-  Height = 489
   Caption = 'fEditorGrid'
   PixelsPerInch = 96
   TextHeight = 13
-  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 711
-    inherited Image1: TImage
-      Left = 684
-    end
-  end
   inherited TBXDock: TTBXDock
-    Width = 711
     inherited tbxMain: TTBXToolbar
       DefaultDock = TBXDock
       inherited TBXItem29: TTBXItem
@@ -49,7 +38,7 @@ inherited fEditorGrid: TfEditorGrid
       end
     end
     object tbxFiltro: TTBXToolbar
-      Left = 442
+      Left = 420
       Top = 23
       Align = alRight
       CloseButton = False
@@ -82,14 +71,10 @@ inherited fEditorGrid: TfEditorGrid
       end
     end
   end
-  inherited StatusBar: TStatusBar
-    Top = 436
-    Width = 711
-  end
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
-    Top = 398
+    Top = 353
-    Width = 711
+    Width = 630
     Height = 38
     Align = alBottom
     AutoScroll = False
@@ -103,12 +88,12 @@ inherited fEditorGrid: TfEditorGrid
     Visible = False
     ReadOnly = False
     inherited pnlSeleccion: TPanel
-      Width = 711
+      Width = 630
       inherited bSeleccionar: TButton
-        Left = 536
+        Left = 455
       end
       inherited bCancelar: TButton
-        Left = 615
+        Left = 534
       end
     end
   end

Base/uEditorGrid.pas

@@ -175,15 +175,15 @@ end;
 procedure TfEditorGrid.JvFormStorageSavePlacement(Sender: TObject);
 begin
   inherited;
-  if Assigned(ViewGrid) then
+  {if Assigned(ViewGrid) then
-    ViewGrid.StoreToRegistry;
+    ViewGrid.StoreToRegistry;}
 end;
 
 procedure TfEditorGrid.JvFormStorageRestorePlacement(Sender: TObject);
 begin
   inherited;
-  if Assigned(ViewGrid) then
+  {if Assigned(ViewGrid) then
-    ViewGrid.RestoreFromRegistry;
+    ViewGrid.RestoreFromRegistry;}
 end;
 
 procedure TfEditorGrid.actRefrescarExecute(Sender: TObject);

Base/uViewDireccion.dfm

@@ -11,10 +11,12 @@ inherited frViewDireccion: TfrViewDireccion
     TabOrder = 0
     AutoContentSizes = [acsWidth]
     object eProvincia: TcxDBTextEdit
-      Left = 272
+      Left = 274
       Top = 82
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 70
     end
     object eCalle: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 28
       DataBinding.DataField = 'CALLE'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 272
     end
     object ePoblacion: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 55
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -59,10 +65,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 272
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 82
       DataBinding.DataField = 'CODIGOPOSTAL'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Base/uViewGrid.dfm

@@ -81,7 +81,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageSize.Y = 297000
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39000.667590601850000000
+      ReportDocument.CreationDate = 40521.697641412040000000
       OptionsCharts.Transparent = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsOnEveryPage.Caption = False

Base/uViewGrid.pas

@@ -379,12 +379,12 @@ end;
 
 procedure TfrViewGrid.RestoreFromRegistry;
 begin
-  cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
+//  cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
 end;
 
 procedure TfrViewGrid.StoreToRegistry;
 begin
-  cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
+//  cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
 end;
 
 procedure TfrViewGrid.FilterChanged(Sender: TObject);

Base/uViewInternet.dfm

@@ -271,7 +271,7 @@ inherited frViewInternet: TfrViewInternet
     Left = 432
     Top = 8
     Bitmap = {
-      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       00000000000000000000000000000000000000000000B7A29300694731006947
       3100694731006947310069473100694731006947310069473100694731000000
@@ -407,6 +407,7 @@ inherited frViewInternet: TfrViewInternet
       801F800100000000801F000100000000801F000000000000A01F000000000000
       B000000000000000B800000000000000BC00000000000000BE00000000000000
       BE000000000000008000000000000000EF00800100000000E980800100000000
-      EFC0C00300000000E000F00F00000000}
+      EFC0C00300000000E000F00F0000000000000000000000000000000000000000
+      000000000000}
   end
 end

Base/uViewObservaciones.dfm

@@ -16,6 +16,8 @@ inherited frViewObservaciones: TfrViewObservaciones
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
       Properties.ScrollBars = ssVertical
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Base/uViewTelefonos.dfm

@@ -11,10 +11,12 @@ inherited frViewTelefonos: TfrViewTelefonos
     TabOrder = 0
     AutoContentSizes = [acsWidth]
     object eTlfParticular: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 28
       DataBinding.DataField = 'TELEFONO2'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eTlfTrabajo: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 55
       DataBinding.DataField = 'TELEFONO1'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eTlfMovil: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 82
       DataBinding.DataField = 'MOVIL'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -59,10 +65,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eFax: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 109
       DataBinding.DataField = 'FAX'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Modulos/Calendarios/Cliente/Calendarios.cfg

@@ -24,7 +24,6 @@
 -$X+
 -$YD
 -$Z1
--GD
 -cg
 -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 -H+
@@ -35,10 +34,10 @@
 -N".\"
 -LE"..\..\..\Output\Cliente"
 -LN".\"
--U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-U"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
--O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-O"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
--I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-I"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
--R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-R"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
 -Z
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Modulos/Calendarios/Servidor/srvCitas_Impl.dfm

@@ -5,8 +5,8 @@ object srvCitas: TsrvCitas
   ConnectionName = 'IBX'
   ServiceSchema = schCitas
   ServiceAdapter = DABINAdapter
-  Left = 503
+  Left = 394
-  Top = 207
+  Top = 211
   Height = 184
   Width = 245
   object schCitas: TDASchema

Modulos/Contactos/Cliente/uEditorContacto.dfm

@@ -1,25 +1,25 @@
 inherited fEditorContacto: TfEditorContacto
-  Left = 31
+  Left = 0
-  Top = 43
+  Top = 2
-  Width = 969
+  Width = 652
-  Height = 700
+  Height = 492
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   Caption = 'Contacto'
-  Constraints.MinHeight = 700
+  Constraints.MinHeight = 492
-  Constraints.MinWidth = 800
+  Constraints.MinWidth = 652
   Scaled = False
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 961
+    Width = 644
     Caption = 'Contacto'
     inherited Image1: TImage
-      Left = 934
+      Left = 617
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 961
+    Width = 644
     inherited tbxMain: TTBXToolbar
       inherited TBXItem2: TTBXItem
         Visible = False
@@ -37,14 +37,14 @@ inherited fEditorContacto: TfEditorContacto
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 961
+    Width = 644
-    Height = 571
+    Height = 363
     inherited pagGeneral: TTabSheet
       inline frViewContacto1: TfrViewContacto
         Left = 0
         Top = 0
-        Width = 953
+        Width = 636
-        Height = 543
+        Height = 335
         Align = alClient
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -56,8 +56,8 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 0
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
-          Height = 543
+          Height = 335
           inherited frViewDatosGenerales1: TfrViewDatosGenerales
             Width = 454
             inherited dxLayoutControl1: TdxLayoutControl
@@ -74,7 +74,7 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewTelefonos1: TfrViewTelefonos
-            Left = 479
+            Left = 312
             Width = 451
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 451
@@ -108,19 +108,10 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewInternet1: TfrViewInternet
-            Left = 479
+            Left = 312
             Width = 483
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 483
-              inherited SpeedButton1: TSpeedButton
-                Left = 419
-              end
-              inherited SpeedButton2: TSpeedButton
-                Left = 419
-              end
-              inherited SpeedButton3: TSpeedButton
-                Left = 419
-              end
               inherited eMailTrabajo: TcxDBHyperLinkEdit
                 Properties.Prefix = 'mailto:'
                 Width = 185
@@ -151,7 +142,7 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewContactosAsociados1: TfrViewContactosAsociados
-            Left = 479
+            Left = 312
             Width = 846
             Height = 145
             inherited dxLayoutControl1: TdxLayoutControl
@@ -175,7 +166,7 @@ inherited fEditorContacto: TfEditorContacto
       inline frViewDatosBancarios1: TfrViewDatosBancarios
         Left = 0
         Top = 0
-        Width = 953
+        Width = 636
         Height = 195
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
@@ -187,18 +178,17 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 0
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
           inherited memObservaciones: TcxDBMemo
-            Height = 107
+            Width = 909
-            Width = 197
           end
         end
       end
       inline frViewDatosFacturacion1: TfrViewDatosFacturacion
         Left = 0
         Top = 195
-        Width = 953
+        Width = 636
-        Height = 348
+        Height = 140
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -209,8 +199,8 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 1
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
-          Height = 348
+          Height = 140
           inherited memObservaciones: TcxDBMemo
             Height = 127
             Width = 576
@@ -220,8 +210,8 @@ inherited fEditorContacto: TfEditorContacto
     end
   end
   inherited StatusBar: TStatusBar
-    Top = 647
+    Top = 439
-    Width = 961
+    Width = 644
   end
   inherited EditorActionList: TActionList
     Top = 144

Modulos/Contactos/Cliente/uEditorContactos.dfm

@@ -1,6 +1,4 @@
 inherited fEditorContactos: TfEditorContactos
-  Left = 405
-  Top = 188
   Caption = 'Libreta de contactos'
   OnClose = CustomEditorClose
   PixelsPerInch = 96
@@ -26,8 +24,8 @@ inherited fEditorContactos: TfEditorContactos
   inline frViewContactos1: TfrViewContactos [4]
     Left = 0
     Top = 76
-    Width = 711
+    Width = 630
-    Height = 322
+    Height = 277
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -38,8 +36,8 @@ inherited fEditorContactos: TfEditorContactos
     TabOrder = 4
     ReadOnly = False
     inherited cxGrid: TcxGrid
-      Width = 711
+      Width = 630
-      Height = 322
+      Height = 277
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.FooterSummaryItems = <
           item

Modulos/Contactos/Cliente/uViewCategoriasContacto.dfm

@@ -1,17 +1,17 @@
 inherited frViewCategoriasContacto: TfrViewCategoriasContacto
-  Width = 759
+  Width = 632
   Height = 293
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 759
+    Width = 632
     Height = 293
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
-      759
+      632
       293)
     object ToolBar2: TToolBar
       Left = 22
@@ -52,6 +52,8 @@ inherited frViewCategoriasContacto: TfrViewCategoriasContacto
       ParentFont = False
       Properties.ReadOnly = True
       Properties.ScrollBars = ssVertical
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.Font.Charset = DEFAULT_CHARSET
       Style.Font.Color = clWindowText
       Style.Font.Height = -11

Modulos/Contactos/Cliente/uViewContacto.dfm

@@ -194,9 +194,6 @@ inherited frViewContacto: TfrViewContacto
         DesignSize = (
           846
           145)
-        inherited ToolBar2: TToolBar
-          Width = 271
-        end
         inherited DBLookupListBox1: TDBLookupListBox
           Height = 13
         end

Modulos/Contactos/Cliente/uViewContactos.dfm

@@ -71,7 +71,7 @@ inherited frViewContactos: TfrViewContactos
       end
       object cxGridViewFAX: TcxGridDBColumn
         DataBinding.FieldName = 'FAX'
-        Visible = False
+        Width = 90
       end
       object cxGridViewCORREO1: TcxGridDBColumn
         DataBinding.FieldName = 'CORREO1'
@@ -315,7 +315,7 @@ inherited frViewContactos: TfrViewContactos
         Size = 30
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'N'#250'mero de fax'
+        DisplayLabel = 'Fax'
         Alignment = taLeftJustify
         DictionaryEntry = 'FAX'
         InPrimaryKey = False

Modulos/Contactos/Cliente/uViewDatosFacturacion.dfm

@@ -2,8 +2,6 @@ inherited frViewDatosFacturacion: TfrViewDatosFacturacion
   inherited dxLayoutControl1: TdxLayoutControl
     inherited memObservaciones: TcxDBMemo
       DataBinding.DataField = 'DATOSFACTURACION'
-      Height = 107
-      Width = 197
     end
     inherited dxLayoutControl1Group_Root: TdxLayoutGroup
       inherited dxLayoutControl1Group1: TdxLayoutGroup

Modulos/Contactos/Cliente/uViewDatosGenerales.dfm

@@ -11,10 +11,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     object edtNombre: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 28
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
       Width = 474
     end
     object edtNIFCIF: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 55
       DataBinding.DataField = 'NIFCIF'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
       Width = 474
     end
     object edtTrabajo: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 82
       DataBinding.DataField = 'TRABAJO'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -6,8 +6,8 @@ object srvContactos: TsrvContactos
   ConnectionName = 'IBX'
   ServiceSchema = schContactos
   ServiceAdapter = DABINAdapter
-  Left = 578
+  Left = 358
-  Top = 289
+  Top = 144
   Height = 368
   Width = 464
   object schContactos: TDASchema

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -5,9 +5,8 @@ object srvFacturasCliente: TsrvFacturasCliente
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasCliente
   ServiceAdapter = DABINAdapter
-  Left = 725
+  Left = 567
-  Top = 332
+  Height = 446
-  Height = 490
   Width = 347
   object schFacturasCliente: TDASchema
     ConnectionManager = dmServer.ConnectionManager

Modulos/Obras/Servidor/srvObras_Impl.dfm

@@ -5,8 +5,8 @@ object srvObras: TsrvObras
   ConnectionName = 'IBX'
   ServiceSchema = schObras
   ServiceAdapter = DABINAdapter
-  Left = 657
+  Left = 514
-  Top = 335
+  Top = 271
   Height = 300
   Width = 300
   object schObras: TDASchema

Modulos/Recibos/Servidor/srvRecibosCliente_Impl.dfm

@@ -5,8 +5,8 @@ object srvRecibosCliente: TsrvRecibosCliente
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosCliente
   ServiceAdapter = DABINAdapter
-  Left = 563
+  Left = 441
-  Top = 286
+  Top = 217
   Height = 328
   Width = 207
   object DABINAdapter: TDABINAdapter

Servidor/srvConfiguracion_Impl.dfm

@@ -5,8 +5,8 @@ object srvConfiguracion: TsrvConfiguracion
   ConnectionName = 'IBX'
   ServiceSchema = schConfiguracion
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 571
-  Top = 212
+  Top = 216
   Height = 300
   Width = 300
   object schConfiguracion: TDASchema

Servidor/srvLogin_Impl.dfm

@@ -1,7 +1,7 @@
 object srvLogin: TsrvLogin
   OldCreateOrder = True
-  Left = 568
+  Left = 445
-  Top = 275
+  Top = 271
   Height = 300
   Width = 300
   object DABINAdapter: TDABINAdapter

Servidor/uDataModuleServer.dfm

@@ -1,8 +1,8 @@
 object dmServer: TdmServer
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Left = 777
+  Left = 607
-  Top = 344
+  Top = 150
   Height = 365
   Width = 302
   object HTTPServer: TROIndyHTTPServer
@@ -159,7 +159,7 @@ object dmServer: TdmServer
         Size = 30
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'N'#250'mero de fax'
+        DisplayLabel = 'Fax'
         Alignment = taLeftJustify
       end
       item