Update Business Partner via SAP Business One Webservices

Question

Dear all,
We use the SAP Business One Webservices to add/update businesspartners and items.
We can add/update items without any problem.
We can also add businesspartners without any problem.
But when we try to update a businesspartner.
We always get the error message : "Entry already exists in following tables:"
This is the code we use to update BusinessPartner:
Dim bpsService As BP.BusinessPartnersService = New BP.BusinessPartnersService()
Dim msgheader As BP.MsgHeader = New BP.MsgHeader()
msgheader.SessionID = sSessionID
    msgheader.ServiceName = Global.BP.MsgHeaderServiceName.BusinessPartnersService
    msgheader.ServiceNameSpecified = True
    bpsService.MsgHeaderValue = msgheader
            ' fill business partner class
            Dim oBp As BP.BusinessPartner = Nothing
            Dim myBPParams As BP.BusinessPartnerParams = New BP.BusinessPartnerParams()
            myBPParams.CardCode = sCardCode
            ' Call GetByParams command
            oBp = bpsService.GetByParams(myBPParams)
oBp.CardName = "Test update BP"
Can someone tell me what is going wrong when I call this function :
  bpsService.Update(oBp)
Kind regards
Bart

Answer 1

Hi Bart,
I think the problem is because you are using the BPService twice without initializing it one more time in the middle.
You call first GetByParams and then Update.
The following code works for me:
        myBPService = New BusinessPartnersService()
        Dim myBP As BusinessPartner = New BusinessPartner()
        Dim myBPParams As BusinessPartnerParams = New BusinessPartnerParams()
        ' Create Header
        Dim msgHeader As MsgHeader = New MsgHeader()
        msgHeader.SessionID = B1WS_WindowsSample.GlbData.sessionID
        msgHeader.ServiceName = MsgHeaderServiceName.BusinessPartnersService
        msgHeader.ServiceNameSpecified = True
        myBPService.MsgHeaderValue = msgHeader
        myBPParams.CardCode = MainForm.CardCodeTextBox.Text
        myBP = myBPService.GetByParams(myBPParams)
        myBPService = New BusinessPartnersService()
        ' Create Header
        msgHeader = New MsgHeader()
        msgHeader.SessionID = B1WS_WindowsSample.GlbData.sessionID
        msgHeader.ServiceName = MsgHeaderServiceName.BusinessPartnersService
        msgHeader.ServiceNameSpecified = True
        myBPService.MsgHeaderValue = msgHeader
        System.Console.Out.WriteLine("Update a BP")
        myBP.CardName = "CardName MOD"
        '/ call Asyncronous Add
        myBPService.Update(myBP)
Hope it works also for you
Regards
Trinidad.