diff --git a/Source/Modulos/Contactos/Views/uViewClientes.dfm b/Source/Modulos/Contactos/Views/uViewClientes.dfm
index af54edc8..3e2db637 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClientes.dfm
@@ -45,11 +45,17 @@ inherited frViewClientes: TfrViewClientes
         VisibleForCustomization = False
         Width = 22
       end
-      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [6]
+      object cxGridViewFECHA_ALTA: TcxGridDBColumn [4]
+        Caption = 'Fecha alta'
+        DataBinding.FieldName = 'FECHA_ALTA'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+      end
+      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [7]
         DataBinding.FieldName = 'NOMBRE_COMERCIAL'
         Width = 164
       end
-      object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8]
+      object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [9]
         Caption = 'Persona contacto'
         DataBinding.FieldName = 'PERSONA_CONTACTO'
       end
diff --git a/Source/Modulos/Contactos/Views/uViewClientes.pas b/Source/Modulos/Contactos/Views/uViewClientes.pas
index 64ca7041..114b937a 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.pas
+++ b/Source/Modulos/Contactos/Views/uViewClientes.pas
@@ -14,7 +14,7 @@ uses
   dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
   dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
   uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
-  uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
+  uDAInterfaces, cxTextEdit, uCustomView, uViewBase, cxCalendar;
 
 type
   IViewClientes = interface(IViewContactos)
@@ -26,6 +26,7 @@ type
     cxGridViewBLOQUEADO: TcxGridDBColumn;
     cxGridViewTiendaWeb: TcxGridDBColumn;
     cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
+    cxGridViewFECHA_ALTA: TcxGridDBColumn;
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);