DI API with BP

Question

In 2005A, when I try to create a new BP with the DI API, the operation fails with the error code -5002 and the error message "Bank account is missing". The same code worked fine in earlier versions. Any ideas?
Code:
        Dim bp As SAPbobsCOM.BusinessPartners
        bp = g_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
        bp.CardCode = AcquireBPCode()
        bp.CardName = reader.GetString(0) & " " & reader.GetString(1)
        bp.CardType = SAPbobsCOM.BoCardTypes.cCustomer
        bp.GroupCode = 100 'Customers
        bp.Phone1 = reader.GetString(7)
        bp.Cellular = reader.GetString(8)
        bp.Fax = reader.GetString(9)
        bp.EmailAddress = reader.GetString(10)
        bp.Add

Answer 1

Hi Dao,
For me, it's quite wierd  because I can add BP without bank accounts. And I think you'd rather try to add currency. I want to say "Don't believe the error code and messages." because I encountered so many cases of wrong messages.
According to the help center file of 2005 SDK, there're no manadatory field in bank account. And I still running addon with functionality of adding BP via DI api. I tested to add BP without bankcode couple of times this morning, but it worked fine.
I attach my code lines here and hope to help you a lot.
oBP = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
oBP.CardType = SAPbobsCOM.BoCardTypes.cCustomer
oBP.CardCode = Trim(oDBDS.GetValue("u_custCode", oDBDS.Offset).ToString)
oBP.CardName = Trim(oDBDS.GetValue("Name", oDBDS.Offset).ToString)
oBP.GroupCode = Trim(oDBDS.GetValue("u_custGroup", oDBDS.Offset).ToString)
oBP.Currency = Trim(oDBDS.GetValue("u_currency", oDBDS.Offset).ToString)
oBP.Addresses.AddressName = Trim(oDBDS.GetValue("u_addName", oDBDS.Offset).ToString)
oBP.Addresses.AddressType = SAPbobsCOM.BoAddressType.bo_BillTo
oBP.Addresses.Street = Trim(oDBDS.GetValue("u_addStreet", oDBDS.Offset).ToString)
oBP.Addresses.Block = Trim(oDBDS.GetValue("u_addBlock", oDBDS.Offset).ToString)
oBP.Addresses.BuildingFloorRoom = Trim(oDBDS.GetValue("u_addBuilding", oDBDS.Offset).ToString)
oBP.Addresses.ZipCode = Trim(oDBDS.GetValue("u_addZipcode", oDBDS.Offset).ToString)
oBP.Addresses.City = Trim(oDBDS.GetValue("u_addCity", oDBDS.Offset).ToString)
oBP.Addresses.State = Trim(oDBDS.GetValue("u_addState", oDBDS.Offset).ToString)
oBP.Addresses.Country = Trim(oDBDS.GetValue("u_addCountry", oDBDS.Offset.ToString))
oBP.AccountRecivablePayables.AccountCode = Trim(oDBDS.GetValue("u_CustAcct", oDBDS.Offset).ToString)
oBP.AccountRecivablePayables.Add()
'oBP.AccountRecivablePayables.AccountType = SAPbobsCOM.BoBpAccountTypes.bpat_Payable
oForm.Items.Item("mtxBank").Specific.FlushToDataSource()
For i = 0 To oForm.Items.Item("mtxBank").Specific.RowCount - 1
oDBDS_Bank.Offset = i
If Trim(oDBDS_Bank.GetValue("u_bankcode", oDBDS_Bank.Offset).ToString).Length > 0 Then
oRecordset.DoQuery("SELECT countrycod from ODSC where bankcode = '" & Trim(oDBDS_Bank.GetValue("u_bankcode", oDBDS_Bank.Offset).ToString) & "' ")
oBP.BPBankAccounts.Country = oRecordset.Fields.Item("countrycod").Value
oBP.BPBankAccounts.AccountNo = Trim(oDBDS_Bank.GetValue("U_account", oDBDS_Bank.Offset).ToString)
oBP.BPBankAccounts.BankCode = Trim(oDBDS_Bank.GetValue("u_bankcode", oDBDS_Bank.Offset).ToString)
oBP.BPBankAccounts.BPCode = Trim(oDBDS.GetValue("u_custCode", oDBDS.Offset).ToString)
oBP.BPBankAccounts.Branch = Trim(oDBDS_Bank.GetValue("U_Branch", oDBDS_Bank.Offset).ToString)
oBP.BPBankAccounts.IBAN = Trim(oDBDS_Bank.GetValue("U_IBAN", oDBDS_Bank.Offset).ToString)
oBP.BPBankAccounts.Add()
End If
Next
lRetCode = oBP.Add()