Se añade el campo datos bancarios para que al seleccionar recibos para una remesa se vea a que bancos se realizara

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@857 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-01-22 09:27:27 +00:00
parent b7576ab9f5
commit bd430fc647
4 changed files with 55 additions and 14 deletions

View File

@ -51,10 +51,12 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
inherited TBXDock: TTBXDock
Top = 171
Width = 654
Height = 72
ExplicitTop = 171
ExplicitWidth = 654
ExplicitHeight = 72
inherited tbxMain: TTBXToolbar
ExplicitWidth = 126
ExplicitWidth = 317
inherited TBXItem5: TTBXItem
Visible = False
end
@ -66,12 +68,12 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
end
inherited tbxFiltro: TTBXToolbar
Left = 126
Left = 317
Top = 23
DockPos = 104
DockRow = 1
Visible = False
ExplicitLeft = 126
ExplicitLeft = 317
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@ -82,7 +84,9 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
inherited TBXTMain2: TTBXToolbar
Left = 334
Visible = False
ExplicitLeft = 334
ExplicitHeight = 23
end
end
inherited StatusBar: TJvStatusBar
@ -137,18 +141,18 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
end
inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
Top = 246
Top = 243
Width = 654
Height = 363
ExplicitTop = 246
Height = 366
ExplicitTop = 243
ExplicitWidth = 654
ExplicitHeight = 363
ExplicitHeight = 366
inherited cxGrid: TcxGrid
Width = 654
Height = 235
Height = 238
RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654
ExplicitHeight = 235
ExplicitHeight = 238
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -178,29 +182,53 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
Width = 654
ExplicitWidth = 654
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 343
Width = 343
end
inherited eLista: TcxComboBox
Left = 605
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 605
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654
ExplicitWidth = 654
inherited tbxBotones: TTBXToolbar
Width = 644
ExplicitWidth = 644
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 337
ExplicitTop = 337
Top = 340
ExplicitTop = 340
ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654
@ -216,6 +244,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
BuiltInReportLink = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewRecibosProveedor1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end
object pnlFiltrar: TTBXDockablePanel [6]
Left = 0
@ -367,7 +403,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
inherited JvFormStorage: TJvFormStorage [13]
end
inherited GridPopupMenu: TPopupMenu
inherited GridPopupMenu: TPopupMenu [14]
Left = 80
Top = 192
end

View File

@ -1,4 +1,4 @@
{
{
===============================================================================
Copyright (©) 2007. Rodax Software.
===============================================================================
@ -37,7 +37,7 @@ uses
uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog;
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, uDAInterfaces;
type

View File

@ -144,6 +144,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
DataBinding.FieldName = 'REFERENCIA_REMESA'
Visible = False
end
object cxGridViewDATOS_BANCARIOS: TcxGridDBColumn
Caption = 'Banco'
DataBinding.FieldName = 'DATOS_BANCARIOS'
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'

View File

@ -49,6 +49,7 @@ type
cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn;
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
cxGridViewDATOS_BANCARIOS: TcxGridDBColumn;
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);