From 92ad4142d00540c830c10fc0cb90cf7b6003acf9 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 3 Mar 2015 11:06:44 +0000 Subject: [PATCH] Se saca en la lista de clientes la fecha de alta con el fin de poder filtrar para informes git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@614 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Modulos/Contactos/Views/uViewClientes.dfm | 10 ++++++++-- Source/Modulos/Contactos/Views/uViewClientes.pas | 3 ++- 2 files changed, 10 insertions(+), 3 deletions(-) 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);