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

Se añade persona de contacto a las columnas del cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@546 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2011-01-28 16:46:36 +00:00
parent 6401555f2c
commit 4bad9e753d
2 changed files with 29 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,8 @@ inherited frViewClientes: TfrViewClientes
inherited cxGrid: TcxGrid
Width = 633
Height = 376
ExplicitWidth = 758
ExplicitWidth = 633
ExplicitHeight = 376
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -48,26 +49,42 @@ inherited frViewClientes: TfrViewClientes
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
Width = 164
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8]
Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO'
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 633
ExplicitWidth = 758
ExplicitWidth = 633
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 758
ExplicitWidth = 633
inherited dxLayoutControl1: TdxLayoutControl
Width = 633
ExplicitWidth = 758
ExplicitWidth = 633
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 661
Width = 661
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217
Width = 217
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 271
ExplicitWidth = 427
Width = 427
@ -75,23 +92,24 @@ inherited frViewClientes: TfrViewClientes
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 633
ExplicitWidth = 758
ExplicitWidth = 633
inherited tbxBotones: TTBXToolbar
Width = 623
ExplicitWidth = 748
ExplicitWidth = 623
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 478
ExplicitWidth = 758
ExplicitTop = 478
ExplicitWidth = 633
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 633
ExplicitWidth = 758
ExplicitWidth = 633
inherited TBXToolbar1: TTBXToolbar
Width = 623
ExplicitWidth = 748
ExplicitWidth = 623
end
end
end

3
Source/Modulos/Contactos/Views/uViewClientes.pas
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;
uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
type
IViewClientes = interface(IViewContactos)
@ -25,6 +25,7 @@ type
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);