Violation of Primary Key after a successful Update of BP

Question

When I've updated a BP via VB.net is there something I should do with the BP object after I've done an update?
I can't seem to do consecative updates or I get the following error:
Violation of PRIMARY KEY constraint 'CRD1_PRIMARY'. Cannot insert duplicate key in object 'CRD1'
This is the code I use for updating:
For i = 0 To oBusinessPartner.Addresses.Count - 1
            oBusinessPartner.Addresses.SetCurrentLine(i)
            If (oBusinessPartner.Addresses.AddressType = SAPbobsCOM.BoAddressType.bo_ShipTo) Then
                '** Check only SHIP TO Addresses
                If (oBusinessPartner.Addresses.AddressName = cbSAPShipTo.SelectedItem) Then
                    '** Address User wishes to update
                    oBusinessPartner.Addresses.AddressType = SAPbobsCOM.BoAddressType.bo_ShipTo
                    oBusinessPartner.Addresses.AddressName = lSAPAddressItems(iIndex).Company
                    oBusinessPartner.Addresses.Street = lSAPAddressItems(iIndex).Address1
                    oBusinessPartner.Addresses.City = lSAPAddressItems(iIndex).City
                    oBusinessPartner.Addresses.ZipCode = lSAPAddressItems(iIndex).Postal
                    oBusinessPartner.Addresses.State = lSAPAddressItems(iIndex).Prov
                    oBusinessPartner.Addresses.Country = lSAPAddressItems(iIndex).Country
                End If
            End If
        Next
        lRetCode = oBusinessPartner.Update()
I check to make sure the address i want to up date is a ShipTo address, then I check to make sure that the item I am editing matches the one in the BPObject's CurrentLine.
Then I just change the values and .Update() it
After I've done this though, if I try to update another ShipTo address in the same BP, it comes up with that error.
Should I kill the BP object and reinitialize it?

Answer 1

Hi Tyler,
I totally understand what you wanna do.
The clauses which you use is trying to add a new address in the name of existing address.
You have to do 'setcurrentline' clause, I guess.
But now, you don't know 'what is the ShipTo line'.
Then, I think you'd better use some simple, easy but timely expensive way.
1. Count the records in CRD1 under conditions of the cardcode.
-> then you can get the number of addresses of the business partner.
2. use a loop (while, for.. doesn't matter.)
-> Now you can use setcurrentline clause.
3. If the addressname is 'ShipTo', then you can update the record, and exit loop.
pseudo code comes below.
sql = "Select count(*) FROM OCRD WHERE cardcode = 'aaa'"
ors.doquery sql
for i=1 to ors.fields.item(0)
oBusinessPartners.Addresses.setcurrentline(i)
if obusinessPartners.Addresses.AddressName = "ShipTo" then
oBusinessPartners.block = "newBlock"
exit for
end if
next i
Hope this useful for you.
Regards,
Hyunil choi.