Category:Gui.Form.GsObjectGridcontrol

From GAB Help
Jump to: navigation, search
Program.Sub.ScreenSU.Start
Gui.Form..Create(BaseForm)
Gui.Form..Caption("Form")
Gui.Form..Size(1024,720)
Gui.Form..MinX(0)
Gui.Form..MinY(0)
Gui.Form..Position(0,0)
Gui.Form..AlwaysOnTop(False)
Gui.Form..FontName("Tahoma")
Gui.Form..FontSize(8.25)
Gui.Form..ControlBox(True)
Gui.Form..MaxButton(True)
Gui.Form..MinButton(True)
Gui.Form..MousePointer(0)
Gui.Form..Moveable(True)
Gui.Form..Sizeable(True)
Gui.Form..ShowInTaskBar(True)
Gui.Form..TitleBar(True)
Gui.Form.GsObjectGC.Create(GsObjectGridControl)
Gui.Form.GsObjectGC.Size(760,407)
Gui.Form.GsObjectGC.Position(100,235)
Gui.Form.GsObjectGC.Dock(5)
Gui.Form.GsObjectGC.Visible(True)
Program.Sub.ScreenSU.End

Program.Sub.Preflight.Start

V.Global.iCon.Declare
F.Global.Object.CreateDB("GlobalDB",V.Caller.CompanyCode,V.Ambient.DBServerName,V.global.iCon) 

Program.Sub.Preflight.End

Program.Sub.Main.Start

v.Local.iRet.Declare(Long)


F.Global.Object.Create("oPart", "Inventory.Parts","GlobalDB", V.Global.iCon)
f.Global.Object.Load("oPart",1446,"~~~~~","~~~~~","~~",V.Local.iRet)

gui.Form.GsObjectGC.DataSource("oPart","GvPart","PartNumber*!*PartNumberRevision*!*LocationCode")
gui.Form.GsObjectGC.EnableMasterViewMode("GVPart",False)

Program.Sub.Main.End