obusinesspartners,ccustomer is not declared , it may be inaccessible due to protection level.

[Former Member]

Hi

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim oCompany As SAPbobsCOM.Company

        Dim lRetCode, lErrCode As Long

        Dim sErrMsg As String

        'Instantiate a Company object

        oCompany = New SAPbobsCOM.Company

        oCompany.Server = "(local)"

        oCompany.CompanyDB = "ABC"

        oCompany.UserName = "manager"

        oCompany.Password = "manager"

        'Set AddOn identifier – a long string with numbers; identifies

        'your Add-On against License Service … optional!

        'oCompany.AddOnIdentifier = “fill in your Add-On Identifier here”

        lRetCode = oCompany.Connect()

        'Check Return Code

        If lRetCode <> 0 Then

            'oCompany.GetLastError(lErrCode, sErrMsg)

        End If

        Dim oBP As SAPbobsCOM.BusinessPartners

        'Dim lRetCode, lErrCode As Integer

        'Dim sErrMsg As String

        'Prepare empty oBP Object:

        oBP = oCompany.GetBusinessObject(oBusinessPartners)

        oBP.CardCode = "C08154711"

        oBP.CardName = "James Tiberius Kirk"

        oBP.CardType = cCustomer

        '…

        'Add the new BP to the database

        lRetCode = oBP.Add()

        If lRetCode <> 0 Then

            oCompany.GetLastError(lErrCode, sErrMsg)

1. MessageBox.Show("Error: " sErrMsg + “; Code: “ + lErrCode)

        End If

    End Sub

End Class

Thanks

[Former Member]

Are you trying to add new BP or what? Please explain well.

[Former Member]

Hi

  Since i am newbie to development i am trying to create connection & add new Business Partner.

Thanks

[Former Member]

Hi,

Kindly study this example. They might help you in future while developing SAP B1 Add-on.

C:\Program Files\SAP\SAP Business One SDK\Samples\COM DI\VB.NET