From 4860d4439bfdad6a93ec8f5a5bb5f88aa6e38c98 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 28 Jan 2014 12:03:35 +0000
Subject: [PATCH] Tarea #1308 -> La columna de fecha de alta en proveedores
 debe aparecer en el grid

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1091 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Modulos/Contactos/Views/uViewProveedores.dfm | 6 ++++++
 Source/Modulos/Contactos/Views/uViewProveedores.pas | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

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;