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 inherited cxGrid: TcxGrid
Width = 633 Width = 633
Height = 376 Height = 376
ExplicitWidth = 758 ExplicitWidth = 633
ExplicitHeight = 376
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -48,26 +49,42 @@ inherited frViewClientes: TfrViewClientes
DataBinding.FieldName = 'NOMBRE_COMERCIAL' DataBinding.FieldName = 'NOMBRE_COMERCIAL'
Width = 164 Width = 164
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8]
Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO'
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 633 Width = 633
ExplicitWidth = 758 ExplicitWidth = 633
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 758 ExplicitWidth = 633
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 633 Width = 633
ExplicitWidth = 758 ExplicitWidth = 633
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 661 ExplicitWidth = 661
Width = 661 Width = 661
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 271 Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 271 ExplicitLeft = 271
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427
@ -75,23 +92,24 @@ inherited frViewClientes: TfrViewClientes
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 633 Width = 633
ExplicitWidth = 758 ExplicitWidth = 633
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 623 Width = 623
ExplicitWidth = 748 ExplicitWidth = 623
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 478 Top = 478
ExplicitWidth = 758 ExplicitTop = 478
ExplicitWidth = 633
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 633 Width = 633
ExplicitWidth = 758 ExplicitWidth = 633
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 623 Width = 623
ExplicitWidth = 748 ExplicitWidth = 623
end end
end end
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; uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
type type
IViewClientes = interface(IViewContactos) IViewClientes = interface(IViewContactos)
@ -25,6 +25,7 @@ type
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn; cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewBLOQUEADO: TcxGridDBColumn; cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);