diff --git a/Source/Modulos/Contactos/Views/uViewProveedores.dfm b/Source/Modulos/Contactos/Views/uViewProveedores.dfm
index 104ebd88..6000c892 100644
--- a/Source/Modulos/Contactos/Views/uViewProveedores.dfm
+++ b/Source/Modulos/Contactos/Views/uViewProveedores.dfm
@@ -60,6 +60,12 @@ inherited frViewProveedores: TfrViewProveedores
             Value = 0
           end>
         Properties.ShowDescriptions = False
+        Width = 30
+      end
+      object cxGridViewFECHA_INGRESO: TcxGridDBColumn [6]
+        Caption = 'Fecha de alta'
+        DataBinding.FieldName = 'FECHA_INGRESO'
+        Width = 50
       end
     end
   end
diff --git a/Source/Modulos/Contactos/Views/uViewProveedores.pas b/Source/Modulos/Contactos/Views/uViewProveedores.pas
index f319be80..fa4b30c4 100644
--- a/Source/Modulos/Contactos/Views/uViewProveedores.pas
+++ b/Source/Modulos/Contactos/Views/uViewProveedores.pas
@@ -12,7 +12,7 @@ uses
   cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
   cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
   TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox,
-  uDAInterfaces, Menus, uCustomView, uViewBase;
+  uDAInterfaces, Menus, uCustomView, uViewBase, cxCalendar;
 
 type
   IViewProveedores = interface(IViewContactos)
@@ -23,6 +23,7 @@ type
     cxGridViewTIENDA_WEB: TcxGridDBColumn;
     cxGridViewHOMOLOGADO: TcxGridDBColumn;
     cxGridViewFELICITACION: TcxGridDBColumn;
+    cxGridViewFECHA_INGRESO: TcxGridDBColumn;
     procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
       ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
       const AMousePos: TPoint; var AHintText: TCaption;