Accpac Login session using XAPI - SDK 1

[Simboti1]

Can anyone help with the code of calling the ACCPAC login Session (login screen) using API in VB6. I am able to log in when I hard code the login credentials using the following code:
----------------------------------------------------------
Set ACCPAC_Session = New AccpacSession
ACCPAC_Session.Init "", "XZ", "XZ1000", "54A"
ACCPAC_Session.Open "ADMIN", "ADMIN", "SMINC", Date, 0, ""

Set mDBLinkCmpRW = CCPAC_Session.OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)

Set mDBLinkSysRO = ACCPAC_Session.OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READONLY)
------------------------------------------------------------

However, what I want is to prompt the user to enter their Username, Password and select a company before logging into ACCPAC.

 

[HarleyQuinn]

So you basically want to replace the hard-coded values you have with user entered variables?

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[Simboti1]

Hi HarleyQuinn

Yes I want the user to enter the their ACCPAC User name and Password. In addition they need to select the ACCPAC company to log into.

Regards

 

[HarleyQuinn]

Here's a really simeple way to demo this using inputboxes (it's not the best way to do it but will give you the idea...

Dim strUser As String, strPassword As String, strCompany As String

strUser = InputBox("Enter the username")
strPassword = InputBox("Enter the password")
strCompany = InputBox("Enter the company")

' as i don't know the object model at all I'm guessing where these want to go
' but it should give you the idea...

Set ACCPAC_Session = New AccpacSession
ACCPAC_Session.Init "", "XZ", "XZ1000", "54A"
ACCPAC_Session.Open strUser, strPassword, strCompany, Date, 0, ""
    
Set mDBLinkCmpRW = CCPAC_Session.OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)

Set mDBLinkSysRO = ACCPAC_Session.OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READONLY)

Ideally you'd write a login form to accept the values and validate input etc. but I'm a bit pushed for time at the minute but the example applies alot of the logic.

Hope this helps

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com