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
This commit is contained in:
roberto 2015-03-03 11:06:44 +00:00
parent 2d7b19ce54
commit 92ad4142d0
2 changed files with 10 additions and 3 deletions

View File

@ -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

View File

@ -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);