Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim args As String() = Environment.GetCommandLineArgs()
Dim j As Integer
For j = 0 To (args.Length - 1)
ObjectHandle = args(j)
Next
hWnd = Me.Handle
mAccpacSignOn = New AccpacSignonManager.AccpacSignonMgr
mAccpacSession = New AccpacCOMAPI.AccpacSession
mAccpacSession.Init(ObjectHandle, "XY", "XY1000", "61A")
'mAccpacSignOn.Signon(mAccpacSession)
'mAccpacDBLink = mAccpacSession.OpenDBLink(AccpacCOMAPI.tagDBLinkTypeEnum.DBLINK_COMPANY, AccpacCOMAPI.tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)
rotoSetObjectWindow(ObjectHandle, hWnd)
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
mDBLinkCmpRW = mAccpacSession.OpenDBLink(AccpacCOMAPI.tagDBLinkTypeEnum.DBLINK_COMPANY, AccpacCOMAPI.tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)
Dim CSCOM As AccpacCOMAPI.AccpacView
Dim CSCOMFields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("CS0001", CSCOM)
CSCOMFields = CSCOM.Fields
CSCOM.Fetch()