Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se saca en la lista de clientes la fecha de alta con el fin de poder filtrar para informes

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -45,11 +45,17 @@ inherited frViewClientes: TfrViewClientes
VisibleForCustomization = False VisibleForCustomization = False
Width = 22 Width = 22
end 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' DataBinding.FieldName = 'NOMBRE_COMERCIAL'
Width = 164 Width = 164
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8] object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [9]
Caption = 'Persona contacto' Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'
end end

3
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -14,7 +14,7 @@ uses
dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint, dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uDAInterfaces, cxTextEdit, uCustomView, uViewBase; uDAInterfaces, cxTextEdit, uCustomView, uViewBase, cxCalendar;
type type
IViewClientes = interface(IViewContactos) IViewClientes = interface(IViewContactos)
@ -26,6 +26,7 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn; cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn; cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
cxGridViewFECHA_ALTA: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);