Albaranes de cliente -> mejor distribución para la ficha.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@308 f4e31baf-9722-1c47-927c-6f952f962d4b
2008-08-28 15:04:49 +00:00 · 2008-08-28 15:04:49 +00:00 · 5163032bcf
commit 5163032bcf
parent afb16d300c
5 changed files with 220 additions and 224 deletions
--- a/cliente/Views/uEditorAlbaranCliente.dfm
+++ b/cliente/Views/uEditorAlbaranCliente.dfm
@ -202,10 +202,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
    object pagInicidencias: TTabSheet
      Caption = 'Incidencias'
      ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
      inline frViewIncidenciasCli: TfrViewIncidencias
        Left = 0
        Top = 0
@ -310,8 +306,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 164
        ExplicitTop = 112
-        ExplicitWidth = 93
-        Width = 93
+        ExplicitWidth = 188
+        Width = 188
      end
      inherited ImporteIVA: TcxDBCurrencyEdit
        Left = 555
@ -320,8 +316,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 555
        ExplicitTop = 38
-        ExplicitWidth = 137
-        Width = 137
+        ExplicitWidth = 182
+        Width = 182
      end
      inherited ImporteTotal: TcxDBCurrencyEdit
        Left = 485
@ -329,8 +325,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 485
        ExplicitTop = 112
-        ExplicitWidth = 137
-        Width = 137
+        ExplicitWidth = 252
+        Width = 252
      end
      inherited edtDescuento: TcxDBSpinEdit
        Left = 93
@ -353,8 +349,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 484
        ExplicitTop = 11
-        ExplicitWidth = 92
-        Width = 92
+        ExplicitWidth = 253
+        Width = 253
      end
      inherited edtRE: TcxDBSpinEdit
        Left = 484
@ -371,8 +367,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 555
        ExplicitTop = 65
-        ExplicitWidth = 56
-        Width = 56
+        ExplicitWidth = 182
+        Width = 182
      end
      inherited eImporteNeto: TcxDBCurrencyEdit
        Left = 93
@ -380,8 +376,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 93
        ExplicitTop = 11
-        ExplicitWidth = 147
-        Width = 147
+        ExplicitWidth = 259
+        Width = 259
      end
      inherited ePorte: TcxDBCurrencyEdit
        Left = 93
@ -390,8 +386,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        Style.IsFontAssigned = True
        ExplicitLeft = 93
        ExplicitTop = 139
-        ExplicitWidth = 147
-        Width = 147
+        ExplicitWidth = 259
+        Width = 259
      end
      inherited eIVA: TcxDBLookupComboBox
        Left = 93
@ -399,8 +395,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        DataBinding.DataField = ''
        ExplicitLeft = 93
        ExplicitTop = 38
-        ExplicitWidth = 81
-        Width = 81
+        ExplicitWidth = 121
+        Width = 121
      end
      inherited bTiposIVA: TButton
        Left = 220
@ -415,8 +411,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
        DataBinding.DataSource = nil
        ExplicitLeft = 93
        ExplicitTop = 65
-        ExplicitWidth = 219
-        Width = 219
+        ExplicitWidth = 259
+        Width = 259
      end
      inherited dxLayoutControl1Group_Root: TdxLayoutGroup
        inherited dxLayoutControl1Group1: TdxLayoutGroup
--- a/cliente/Views/uViewAlbaranCliente.dfm
+++ b/cliente/Views/uViewAlbaranCliente.dfm
@ -13,13 +13,14 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
    Align = alClient
    ParentBackground = True
    TabOrder = 0
+    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      825
      620)
    object Label1: TLabel
      Left = 22
-      Top = 567
+      Top = 613
      Width = 299
      Height = 26
      Caption = 
@ -51,11 +52,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 2
-      Width = 119
+      Width = 284
    end
    object memObservaciones: TcxDBMemo
      Left = 22
-      Top = 464
+      Top = 301
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'OBSERVACIONES'
      DataBinding.DataSource = DADataSource
@ -67,9 +68,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 20
-      Height = 253
-      Width = 186
+      TabOrder = 9
+      Height = 35
+      Width = 781
    end
    object eReferencia: TcxDBTextEdit
      Left = 116
@ -95,12 +96,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
-      Width = 143
+      Width = 284
    end
    inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
-      Left = 430
+      Left = 426
      Top = 28
-      Width = 350
+      Width = 754
      Height = 212
      Align = alTop
      AutoSize = True
@ -110,40 +111,41 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
-      TabOrder = 15
+      TabOrder = 10
      ReadOnly = False
-      ExplicitLeft = 430
+      ExplicitLeft = 426
      ExplicitTop = 28
+      ExplicitWidth = 754
      inherited dxLayoutControl1: TdxLayoutControl
+        Width = 754
        Align = alTop
-        ExplicitWidth = 373
        inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
-          Width = 224
+          ExplicitWidth = 299
+          Width = 299
        end
        inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 299
+          Width = 299
        end
        inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 299
+          Width = 299
        end
        inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
-          Width = 177
+          ExplicitWidth = 181
+          Width = 181
        end
        inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
-          Width = 327
+          ExplicitWidth = 299
+          Width = 299
        end
        inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 281
-          ExplicitLeft = 281
+          Left = 268
+          ExplicitLeft = 268
        end
        inherited Button3: TBitBtn
-          Left = 171
-          ExplicitLeft = 171
+          Left = 158
+          ExplicitLeft = 158
        end
      end
      inherited DADataSource: TDADataSource
@ -164,8 +166,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      end
    end
    object eCalle: TcxDBTextEdit
-      Left = 116
-      Top = 224
+      Left = 520
+      Top = 387
      DataBinding.DataField = 'CALLE'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -179,12 +181,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 8
-      Width = 263
+      TabOrder = 14
+      Width = 284
    end
    object ePoblacion: TcxDBTextEdit
-      Left = 116
-      Top = 251
+      Left = 520
+      Top = 414
      DataBinding.DataField = 'POBLACION'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -198,12 +200,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
-      Width = 162
+      TabOrder = 15
+      Width = 61
    end
    object eCodigoPostal: TcxDBTextEdit
-      Left = 335
-      Top = 251
+      Left = 721
+      Top = 414
      DataBinding.DataField = 'CODIGO_POSTAL'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -217,12 +219,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
+      TabOrder = 16
      Width = 65
    end
    object eProvincia: TcxDBTextEdit
-      Left = 116
-      Top = 278
+      Left = 520
+      Top = 441
      DataBinding.DataField = 'PROVINCIA'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -236,12 +238,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
-      Width = 263
+      TabOrder = 17
+      Width = 406
    end
    object ePersonaContacto: TcxDBTextEdit
-      Left = 116
-      Top = 305
+      Left = 520
+      Top = 468
      DataBinding.DataField = 'PERSONA_CONTACTO'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -256,12 +258,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
-      Width = 84
+      TabOrder = 18
+      Width = 284
    end
    object eTlfTrabajo: TcxDBTextEdit
-      Left = 116
-      Top = 332
+      Left = 520
+      Top = 495
      DataBinding.DataField = 'TELEFONO'
      DataBinding.DataSource = DADataSource
      Style.BorderColor = clWindowFrame
@ -275,20 +277,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 13
-      Width = 122
+      TabOrder = 19
+      Width = 284
    end
    object bElegirDireccion: TBitBtn
-      Left = 228
-      Top = 359
+      Left = 614
+      Top = 522
      Width = 172
      Height = 23
      Action = actElegirDireccion
      Caption = 'Elegir una direcci'#243'n de env'#237'o...'
-      TabOrder = 14
+      TabOrder = 20
    end
    object Button1: TButton
-      Left = 268
+      Left = 264
      Top = 138
      Width = 132
      Height = 23
@ -316,7 +318,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 5
-      Width = 16
+      Width = 146
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 116
@ -347,10 +349,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 3
-      Width = 32
+      Width = 146
    end
    object bFormasPago: TButton
-      Left = 268
+      Left = 264
      Top = 109
      Width = 132
      Height = 23
@ -359,7 +361,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      OnClick = bFormasPagoClick
    end
    object eFechaRecepcion: TcxDBDateEdit
-      Left = 564
+      Left = 560
      Top = 330
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_RECEPCION'
@ -380,12 +382,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 18
-      Width = 123
+      TabOrder = 13
+      Width = 239
    end
    object cbConAlmacen: TCheckBox
      Left = 32
-      Top = 535
+      Top = 581
      Width = 179
      Height = 21
      Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -394,7 +396,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
    end
    object cbAlmacen: TcxDBLookupComboBox
      Left = 217
-      Top = 535
+      Top = 581
      DataBinding.DataField = 'ID_ALMACEN'
      DataBinding.DataSource = DADataSource
      Properties.KeyFieldNames = 'ID'
@ -420,7 +422,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 22
-      Width = 69
+      Width = 586
    end
    object eRefFacturaCli: TcxDBTextEdit
      Left = 116
@ -446,10 +448,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 7
-      Width = 207
+      Width = 284
    end
    object eFechaPrevista: TcxDBDateEdit
-      Left = 564
+      Left = 560
      Top = 276
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -472,8 +474,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 16
-      Width = 122
+      TabOrder = 11
+      Width = 239
    end
    object eRefCliente: TcxDBTextEdit
      Left = 116
@ -501,7 +503,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      Width = 284
    end
    object eFechaEnvio: TcxDBDateEdit
-      Left = 564
+      Left = 560
      Top = 303
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_ENVIO'
@ -522,13 +524,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 17
-      Width = 217
+      TabOrder = 12
+      Width = 239
    end
    inline frViewTienda1: TfrViewTienda
-      Left = 430
-      Top = 387
-      Width = 451
+      Left = 22
+      Top = 224
+      Width = 373
      Height = 41
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
@ -536,15 +538,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
-      TabOrder = 19
+      TabOrder = 8
      ReadOnly = False
-      ExplicitLeft = 430
-      ExplicitTop = 387
+      ExplicitLeft = 22
+      ExplicitTop = 224
+      ExplicitWidth = 373
      inherited dxLayoutControl1: TdxLayoutControl
-        ExplicitWidth = 373
+        Width = 373
        inherited cbTienda: TcxComboBox
-          ExplicitWidth = 376
-          Width = 376
+          ExplicitWidth = 312
+          Width = 312
        end
      end
    end
@ -558,6 +561,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
        LayoutDirection = ldHorizontal
        ShowBorder = False
        object dxLayoutControl1Group6: TdxLayoutGroup
+          AutoAligns = [aaVertical]
+          AlignHorz = ahClient
          ShowCaption = False
          Hidden = True
          ShowBorder = False
@ -638,6 +643,67 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
              end
            end
          end
+          object dxLayoutControl1Group17: TdxLayoutGroup
+            Caption = 'El albar'#225'n pertenece a la tienda'
+            object dxLayoutControl1Item17: TdxLayoutItem
+              Caption = 'New Item'
+              ShowCaption = False
+              Control = frViewTienda1
+              ControlOptions.AutoColor = True
+              ControlOptions.ShowBorder = False
+            end
+          end
+          object dxLayoutControl1Group7: TdxLayoutGroup
+            AutoAligns = [aaHorizontal]
+            AlignVert = avClient
+            Caption = 'Observaciones'
+            object dxLayoutControl1Item6: TdxLayoutItem
+              AutoAligns = [aaHorizontal]
+              AlignVert = avClient
+              Control = memObservaciones
+              ControlOptions.ShowBorder = False
+            end
+          end
+        end
+        object dxLayoutControl1Group3: TdxLayoutGroup
+          AutoAligns = [aaVertical]
+          AlignHorz = ahClient
+          ShowCaption = False
+          Hidden = True
+          ShowBorder = False
+          object dxLayoutControl1Group2: TdxLayoutGroup
+            Caption = 'Datos del cliente'
+            object dxLayoutControl1Item1: TdxLayoutItem
+              Control = frViewClienteAlbaran
+              ControlOptions.AutoColor = True
+              ControlOptions.ShowBorder = False
+            end
+          end
+          object dxLayoutControl1Group12: TdxLayoutGroup
+            Caption = 'Fechas de envio y recepci'#243'n'
+            object dxLayoutControl1Item24: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Caption = 'Fecha prevista de envio:'
+              Offsets.Left = 10
+              Control = eFechaPrevista
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item21: TdxLayoutItem
+              Caption = 'Fecha de envio:'
+              Offsets.Left = 10
+              Control = eFechaEnvio
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item16: TdxLayoutItem
+              AutoAligns = []
+              AlignHorz = ahClient
+              Caption = 'Fecha de recepci'#243'n:'
+              Offsets.Left = 10
+              Control = eFechaRecepcion
+              ControlOptions.ShowBorder = False
+            end
+          end
          object dxLayoutControl1Group8: TdxLayoutGroup
            AutoAligns = []
            AlignHorz = ahClient
@ -697,67 +763,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
            end
          end
        end
-        object dxLayoutControl1Group3: TdxLayoutGroup
-          AutoAligns = [aaVertical]
-          AlignHorz = ahClient
-          ShowCaption = False
-          Hidden = True
-          ShowBorder = False
-          object dxLayoutControl1Group2: TdxLayoutGroup
-            Caption = 'Datos del cliente'
-            object dxLayoutControl1Item1: TdxLayoutItem
-              Control = frViewClienteAlbaran
-              ControlOptions.AutoColor = True
-              ControlOptions.ShowBorder = False
-            end
-          end
-          object dxLayoutControl1Group12: TdxLayoutGroup
-            Caption = 'Fechas de envio y recepci'#243'n'
-            object dxLayoutControl1Item24: TdxLayoutItem
-              AutoAligns = [aaVertical]
-              AlignHorz = ahClient
-              Caption = 'Fecha prevista de envio:'
-              Offsets.Left = 10
-              Control = eFechaPrevista
-              ControlOptions.ShowBorder = False
-            end
-            object dxLayoutControl1Item21: TdxLayoutItem
-              Caption = 'Fecha de envio:'
-              Offsets.Left = 10
-              Control = eFechaEnvio
-              ControlOptions.ShowBorder = False
-            end
-            object dxLayoutControl1Item16: TdxLayoutItem
-              AutoAligns = []
-              AlignHorz = ahClient
-              Caption = 'Fecha de recepci'#243'n:'
-              Offsets.Left = 10
-              Control = eFechaRecepcion
-              ControlOptions.ShowBorder = False
-            end
-          end
-          object dxLayoutControl1Group17: TdxLayoutGroup
-            Caption = 'El albar'#225'n pertenece a la tienda'
-            object dxLayoutControl1Item17: TdxLayoutItem
-              Caption = 'New Item'
-              ShowCaption = False
-              Control = frViewTienda1
-              ControlOptions.AutoColor = True
-              ControlOptions.ShowBorder = False
-            end
-          end
-        end
-      end
-      object dxLayoutControl1Group7: TdxLayoutGroup
-        AutoAligns = [aaHorizontal]
-        AlignVert = avClient
-        Caption = 'Observaciones'
-        object dxLayoutControl1Item6: TdxLayoutItem
-          AutoAligns = [aaHorizontal]
-          AlignVert = avClient
-          Control = memObservaciones
-          ControlOptions.ShowBorder = False
-        end
      end
      object dxLayoutControl1Group11: TdxLayoutGroup
        Caption = 'Almac'#233'n de origen'
--- a/cliente/Views/uViewAlbaranCliente.pas
+++ b/cliente/Views/uViewAlbaranCliente.pas
@ -16,7 +16,10 @@ uses

  ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
  cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
-  uViewTienda, uAlbaranesClienteController;
+  uViewTienda, uAlbaranesClienteController, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter;

 type
  IViewAlbaranCliente = interface(IViewBase)
--- a/cliente/Views/uViewAlbaranDevCliente.dfm
+++ b/cliente/Views/uViewAlbaranDevCliente.dfm
@ -1,111 +1,103 @@
 inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
  inherited dxLayoutControl1: TdxLayoutControl
-    inherited Label1: TLabel
-      Width = 299
-      ExplicitWidth = 299
-    end
    inherited edtFechaAlbaran: TcxDBDateEdit
-      ExplicitWidth = 119
-      Width = 119
+      ExplicitWidth = 431
+      Width = 431
    end
    inherited memObservaciones: TcxDBMemo
-      ExplicitWidth = 186
+      ExplicitWidth = 515
      ExplicitHeight = 253
      Height = 253
-      Width = 186
+      Width = 515
    end
    inherited eReferencia: TcxDBTextEdit
-      ExplicitWidth = 143
-      Width = 143
+      ExplicitWidth = 431
+      Width = 431
    end
    inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
-      Width = 350
-      ExplicitWidth = 350
+      Width = 219
+      ExplicitWidth = 219
      inherited dxLayoutControl1: TdxLayoutControl
-        Width = 350
+        Width = 219
        inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
-          Width = 224
+          ExplicitWidth = 210
+          Width = 210
        end
        inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 210
+          Width = 210
        end
        inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
+          ExplicitWidth = 210
+          Width = 210
        end
        inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
-          Width = 177
+          ExplicitWidth = 92
+          Width = 92
        end
        inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
-          Width = 327
+          ExplicitWidth = 210
+          Width = 210
        end
      end
    end
    inherited eCalle: TcxDBTextEdit
-      ExplicitWidth = 263
-      Width = 263
+      ExplicitWidth = 125
+      Width = 125
    end
    inherited ePoblacion: TcxDBTextEdit
-      ExplicitWidth = 162
-      Width = 162
+      ExplicitWidth = 24
+      Width = 24
    end
    inherited eProvincia: TcxDBTextEdit
-      ExplicitWidth = 263
-      Width = 263
+      ExplicitWidth = 125
+      Width = 125
    end
    inherited ePersonaContacto: TcxDBTextEdit
-      ExplicitWidth = 84
-      Width = 84
+      ExplicitWidth = 125
+      Width = 125
    end
    inherited eTlfTrabajo: TcxDBTextEdit
-      ExplicitWidth = 122
-      Width = 122
+      ExplicitWidth = 125
+      Width = 125
    end
    inherited eReferenciaPedidoCli: TcxTextEdit
-      ExplicitWidth = 16
-      Width = 16
+      ExplicitWidth = 293
+      Width = 293
    end
    inherited cbFormaPago: TcxDBLookupComboBox
-      ExplicitWidth = 32
-      Width = 32
+      ExplicitWidth = 293
+      Width = 293
    end
    inherited eFechaRecepcion: TcxDBDateEdit
-      ExplicitWidth = 123
-      Width = 123
-    end
-    inherited cbAlmacen: TcxDBLookupComboBox
-      ExplicitWidth = 69
-      Width = 69
+      ExplicitWidth = 85
+      Width = 85
    end
    inherited eRefFacturaCli: TcxDBTextEdit
-      ExplicitWidth = 207
-      Width = 207
+      ExplicitWidth = 431
+      Width = 431
    end
    inherited eFechaPrevista: TcxDBDateEdit
-      ExplicitWidth = 122
-      Width = 122
+      ExplicitWidth = 85
+      Width = 85
    end
    inherited eRefCliente: TcxDBTextEdit
-      ExplicitWidth = 284
-      Width = 284
+      ExplicitWidth = 431
+      Width = 431
    end
    inherited eFechaEnvio: TcxDBDateEdit
-      ExplicitWidth = 217
-      Width = 217
+      ExplicitWidth = 85
+      Width = 85
    end
    inherited frViewTienda1: TfrViewTienda
-      Width = 822
-      ExplicitWidth = 822
+      Width = 515
+      ExplicitWidth = 515
      inherited dxLayoutControl1: TdxLayoutControl
-        Width = 822
-        inherited cbTienda: TcxDBComboBox
-          DataBinding.DataSource = DADataSource
-          ExplicitWidth = 412
-          Width = 412
+        Width = 515
+        ExplicitWidth = 822
+        inherited cbTienda: TcxComboBox
+          ExplicitWidth = 454
+          Width = 454
        end
      end
    end
@ -128,9 +120,6 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
              end
            end
          end
-          inherited dxLayoutControl1Group8: TdxLayoutGroup
-            Visible = False
-          end
        end
        inherited dxLayoutControl1Group3: TdxLayoutGroup
          inherited dxLayoutControl1Group12: TdxLayoutGroup
--- a/cliente/Views/uViewAlbaranDevCliente.pas
+++ b/cliente/Views/uViewAlbaranDevCliente.pas
@ -8,7 +8,10 @@ uses
  dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
  uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
-  cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda;
+  cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda, dxSkinsCore,
+  dxSkinBlack, dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter;

 type
  TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)