AccpacSignonMgr - Automatic detect signed in user 1

[bryan1207]

Hi All,

I created a simple program and attached it inside SAGE 300 using Program Object. Now, I want that when they open the program (A) it auto-detect the current login user and company details.

I'm using the below code, but I don't want the user to login and select again to the company.

Dim mAccpacSignOn As AccpacSignonManager.AccpacSignonMgr
Dim mAccpacSession As AccpacCOMAPI.AccpacSession
Dim mAccpacDBLink As AccpacCOMAPI.AccpacDBLink

mAccpacSignOn = New AccpacSignonManager.AccpacSignonMgr
mAccpacSession = New AccpacCOMAPI.AccpacSession

mAccpacSession.Init("", "XY", "XY1000", "61A")
mAccpacSignOn.Signon(mAccpacSession)
mAccpacDBLink = mAccpacSession.OpenDBLink(AccpacCOMAPI.tagDBLinkTypeEnum.DBLINK_COMPANY, AccpacCOMAPI.tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)

MsgBox(mAccpacSession.CompanyID)

Is there any other way to achieved the auto-login or Single Sign-on.

Thanks,

 

[Jay Converse]

Don't use AccpacSignonManager, I never do.

Sage 300 Whisperer

 

[bryan1207]

Thanks for the response, then what is the best way to do my goal?

 

[Jay Converse]

Delete all the signonmanager lines

Sage 300 Whisperer

 

[bryan1207]

Can you give me an example? Sorry, I'm just new with this platform.

Thanks,

 

[Jay Converse]

Set Session = AccpacCOMAPI.AccpacSession

Session.Init "", "XY", "XY0001", "53A"
Session.Open sAccpacUser, sAccpacPW, sCompID, Date, 0, 0


Sage 300 Whisperer

 

[bryan1207]

So the variable sAccpacUser, sAccpacPW, sCompID are hardcoded? Is there anyway to automatically detect the current logged-in user?

 

[DjangMan]

Yes - add a command line parameter to your icon in Sage: $objecthandle$

Use that parameter when you .Init your session object use that value for the first parameter and you'll be connected to the same session. No need to .Open the session after that.