Hi Expert,Bad company name

Question

Hi,
I am using sap b1 2007 pl14 and my addon working fine.
but  when i register addon on another pc as same configuration
it giving error Bad company name and not connecting with company.
Regards
Rajkumar

Answer 1

Sub MakeConnection()
        Try
            Dim Cookie As String
            Dim conStr As String
            Dim ret As Long
            Dim Counter As Integer
            Counter = 0
            oCompany = New SAPbobsCOM.Company
            '  oCompany.language = SAPbobsCOM.BoSuppLangs.ln_English
            'Acquire the connection context cookie from the DI API.
            Cookie = oCompany.GetContextCookie()
            'Retrieve the connection context string from the UI API using the acquired cookie.
            conStr = SBO_Application.Company.GetConnectionContext(Cookie)
            'Before setting the SBO Login Context make sure that the company database is not connected
            If oCompany.Connected = True Then
                DestroyConnection()
            End If
            'Set the connection context information to the DI API.
            ret = oCompany.SetSboLoginContext(conStr)
            If ret <> 0 Then
                'the operation has failed.          
                ' ShowErrMsg("No SAP Business One Application was found")
            End If
            Dim Status As Integer
            Dim ErrorMsg As String = ""
            ' oCompany.language = SAPbobsCOM.BoSuppLangs.ln_English
            'Establish the connection to the company database.
            While oCompany.Connected = False
                ret = oCompany.Connect()
                If ret <> 0 Then
                    oCompany.GetLastError(Status, ErrorMsg)
                    ShowErrMsg(ErrorMsg)
                    Counter = Counter + 1
                    If Counter > 10 Then
                        Exit While
                    End If
                    System.Threading.Thread.Sleep(Counter * 50)
                End If
            End While
        Catch ex As Exception
            MyErrorMsg(ex.Message)
        End Try
    End Sub