diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm
index 6910f282..af6e035c 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm
@@ -11,20 +11,20 @@ inherited frViewCliente: TfrViewCliente
     ExplicitWidth = 646
     ExplicitHeight = 534
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 584
+      ExplicitLeft = 584
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 584
+      ExplicitLeft = 584
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 601
-      ExplicitLeft = 601
+      Left = 584
+      ExplicitLeft = 584
     end
     object Label1: TLabel [3]
-      Left = 308
-      Top = 358
+      Left = 333
+      Top = 385
       Width = 269
       Height = 39
       Margins.Bottom = 0
@@ -35,42 +35,36 @@ inherited frViewCliente: TfrViewCliente
     end
     inherited eCalle: TcxDBTextEdit
       Left = 132
-      Top = 265
+      Top = 292
       TabOrder = 8
       ExplicitLeft = 132
-      ExplicitTop = 265
-      ExplicitWidth = 181
-      Width = 181
+      ExplicitTop = 292
     end
     inherited eProvincia: TcxDBTextEdit
       Left = 132
-      Top = 319
+      Top = 346
       TabOrder = 11
       ExplicitLeft = 132
-      ExplicitTop = 319
-      ExplicitWidth = 133
-      Width = 133
+      ExplicitTop = 346
     end
     inherited ePoblacion: TcxDBTextEdit
       Left = 132
-      Top = 292
+      Top = 319
       TabOrder = 9
       ExplicitLeft = 132
-      ExplicitTop = 292
-      ExplicitWidth = 111
-      Width = 111
+      ExplicitTop = 319
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 213
-      Top = 292
+      Left = 238
+      Top = 319
       TabOrder = 10
-      ExplicitLeft = 213
-      ExplicitTop = 292
+      ExplicitLeft = 238
+      ExplicitTop = 319
     end
     inherited eObservaciones: TcxDBMemo
-      Top = 460
+      Top = 487
       TabOrder = 23
-      ExplicitTop = 460
+      ExplicitTop = 487
       ExplicitWidth = 609
       ExplicitHeight = 42
       Height = 42
@@ -98,7 +92,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object cbClienteBloqueado: TcxDBCheckBox [10]
       Left = 22
-      Top = 376
+      Top = 403
       Action = actBloqueoCliente
       DataBinding.DataField = 'BLOQUEADO'
       DataBinding.DataSource = dsContacto
@@ -146,7 +140,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object eBloqueo: TcxDBTextEdit [12]
       Left = 132
-      Top = 403
+      Top = 430
       DataBinding.DataField = 'MOTIVO_BLOQUEO'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -164,8 +158,8 @@ inherited frViewCliente: TfrViewCliente
       Width = 113
     end
     object cxDBCheckBox1: TcxDBCheckBox [13]
-      Left = 308
-      Top = 403
+      Left = 333
+      Top = 430
       Caption = 'Permitir el acceso de este cliente a la tienda web'
       DataBinding.DataField = 'TIENDA_WEB'
       DataBinding.DataSource = dsContacto
@@ -208,21 +202,7 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 4
       Width = 227
     end
-    inherited eTlfParticular: TcxDBTextEdit
-      Left = 403
-      TabOrder = 15
-      ExplicitLeft = 403
-      ExplicitWidth = 233
-      Width = 233
-    end
-    inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 403
-      TabOrder = 14
-      ExplicitLeft = 403
-      ExplicitWidth = 233
-      Width = 233
-    end
-    object cbProcedenciaCliente: TcxDBComboBox [17]
+    object cbProcedenciaCliente: TcxDBComboBox [15]
       Left = 132
       Top = 163
       DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
@@ -246,17 +226,31 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 6
       Width = 211
     end
+    inherited eTlfParticular: TcxDBTextEdit
+      Left = 428
+      TabOrder = 15
+      ExplicitLeft = 428
+      ExplicitWidth = 233
+      Width = 233
+    end
+    inherited eTlfTrabajo: TcxDBTextEdit
+      Left = 428
+      TabOrder = 14
+      ExplicitLeft = 428
+      ExplicitWidth = 233
+      Width = 233
+    end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 403
+      Left = 428
       TabOrder = 16
-      ExplicitLeft = 403
+      ExplicitLeft = 428
       ExplicitWidth = 233
       Width = 233
     end
     inherited eFax: TcxDBTextEdit
-      Left = 403
+      Left = 428
       TabOrder = 17
-      ExplicitLeft = 403
+      ExplicitLeft = 428
       ExplicitWidth = 233
       Width = 233
     end
@@ -267,61 +261,63 @@ inherited frViewCliente: TfrViewCliente
       Width = 135
     end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 221
-      ExplicitLeft = 221
+      Left = 232
+      ExplicitLeft = 232
       ExplicitWidth = 59
       Width = 59
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 403
+      Left = 428
       Properties.Prefix = 'mailto:'
       TabOrder = 18
-      ExplicitLeft = 403
+      ExplicitLeft = 428
       ExplicitWidth = 204
       Width = 204
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 403
+      Left = 428
       Properties.Prefix = 'mailto:'
       TabOrder = 19
-      ExplicitLeft = 403
+      ExplicitLeft = 428
       ExplicitWidth = 204
       Width = 204
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 403
+      Left = 428
       TabOrder = 20
-      ExplicitLeft = 403
+      ExplicitLeft = 428
       ExplicitWidth = 204
       Width = 204
     end
     inherited eReferencia: TcxDBTextEdit
       Left = 132
       ExplicitLeft = 132
-      ExplicitWidth = 38
-      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 132
-      Top = 238
+      Top = 265
       TabOrder = 7
       ExplicitLeft = 132
-      ExplicitTop = 238
-      ExplicitWidth = 256
-      Width = 256
+      ExplicitTop = 265
     end
     inherited frViewTienda1: TfrViewTienda
-      Left = 308
-      Width = 451
+      Left = 333
+      Width = 274
+      Height = 69
+      AutoSize = True
       TabOrder = 21
-      ExplicitLeft = 308
-      ExplicitWidth = 451
+      ExplicitLeft = 333
+      ExplicitWidth = 274
+      ExplicitHeight = 69
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 451
+        Width = 274
+        Height = 69
         inherited cbTienda: TcxDBComboBox
           DataBinding.DataSource = dsContacto
-          ExplicitWidth = 412
-          Width = 412
+        end
+        inherited cbVendedor: TcxDBLookupComboBox
+          ExplicitWidth = 376
+          Width = 376
         end
       end
     end