Method Update of BP Object

Question

Hi,
I added a customer using the following code and then I updated the same BP.
At first time it returned success, at second time I retrieved an error when I tried to update the customer:
[ACRD], '[Microsoft] [ODBC SQL Server Driver] [SQL Server] Violation PRIMARY KEY 'ACPR_PRIMARY'.'
How could I resolve this problem?
Thanks in Advance!
Private Function AddBP(ByVal rsBP As ADODB.Recordset, _
                       ByRef oBP As SAPbobsCOM.BusinessPartners, _
                       ByVal lCardType As Long) As Boolean
On Error GoTo ErrorHandler
  Dim lRet As Long
  Dim sErrMsg As String
  If SetDataBP(rsBP, oBP, lCardType) Then
    lRet = oBP.Add()
    Call g_oCmp.GetNewObjectCode(sErrMsg)
    If lRet Then
        g_oCmp.GetLastError lRet, sErrMsg
        AddBP = False
    Else
        AddBP = True
    End If
  Else
    AddBP = False
  End If
  If sErrMsg <> "" Then Call DisplayMessage(sErrMsg)
  On Error GoTo 0
  Exit Function
ErrorHandler:
  Call DisplayMessage(Err.Description, True)
  Err.Clear
  AddBP = False
End Function
Private Function UpdateBP(ByVal rsBP As ADODB.Recordset, _
                          ByRef oBP As SAPbobsCOM.BusinessPartners, _
                          ByVal lCardType As Long) As Boolean
On Error GoTo ErrorHandler
  Dim lRet As Long
  If SetDataBP(rsBP, oBP, lCardType) Then
    lRet = oBP.Update()
    If lRet Then
        g_oCmp.GetLastError lRet, sErrMsg
        UpdateBP = False
    Else
        UpdateBP = True
    End If
  Else
    UpdateBP = False
  End If
  If sErrMsg <> "" Then Call DisplayMessage(sErrMsg)
  On Error GoTo 0
  Exit Function
ErrorHandler:
  Call DisplayMessage(Err.Description, True)
  Err.Clear
  UpdateBP = False
End Function
Private Function SetDataBP(ByVal rsBP As ADODB.Recordset, _
                           ByRef oBP As SAPbobsCOM.BusinessPartners, _
                           ByVal lCardType As Long) As Boolean
On Error GoTo ErrorHandler
    oBP.AdditionalID = rsBP.Fields("ID").Value
    oBP.CardCode = rsBP.Fields("CODICE").Value
    If lCardType = cCustomer Then
      oBP.ContactPerson = rsBP.Fields("COGNOME").Value & " " & rsBP.Fields("NOME").Value
    End If
    oBP.CardName = rsBP.Fields("RAGIONESOCIALE").Value
    oBP.CardType = lCardType
    Select Case lCardType
      Case cCustomer           
        If Not IsNull(rsBP.Fields("TIPOCLIENTEB2B").Value) Then
          Select Case rsBP.Fields("TIPOCLIENTEB2B").Value
            Case 1
              oBP.Properties(1) = tYES
              oBP.UserFields("U_Negozio").Value = "S"
            Case 2
              oBP.Properties(2) = tYES
              oBP.UserFields("U_Negozio").Value = "N"
            Case Else
              oBP.Properties(1) = tNO
              oBP.Properties(2) = tNO
              oBP.UserFields("U_Negozio").Value = "N"
          End Select
        End If
        If Not IsNull(rsBP.Fields("TIPOCLIENTE").Value) Then
          If rsBP.Fields("TIPOCLIENTE").Value = 1 Then
            oBP.Properties(3) = tYES
          Else
            oBP.Properties(3) = tNO
          End If
        End If
        If Not IsNull(rsBP.Fields("PIVA").Value) Then oBP.FederalTaxID = rsBP.Fields("PIVA").Value
        If Not IsNull(rsBP.Fields("VIA").Value) Then oBP.Address = rsBP.Fields("VIA").Value
        If Not IsNull(rsBP.Fields("LOCALITA").Value) Then oBP.City = rsBP.Fields("LOCALITA").Value
        If Not IsNull(rsBP.Fields("CAP").Value) Then oBP.ZipCode = rsBP.Fields("CAP").Value
        If Not IsNull(rsBP.Fields("PROVINCIA").Value) Then oBP.County = rsBP.Fields("PROVINCIA").Value
        If Not IsNull(rsBP.Fields("NAZIONE").Value) Then oBP.Country = Left(rsBP.Fields("NAZIONE").Value, 3)
        If Not IsNull(rsBP.Fields("EMAIL").Value) Then oBP.EmailAddress = rsBP.Fields("EMAIL").Value
        If Not IsNull(rsBP.Fields("TELEFONO").Value) Then oBP.Phone1 = rsBP.Fields("TELEFONO").Value
        If Not IsNull(rsBP.Fields("CELLULARE").Value) Then oBP.Cellular = rsBP.Fields("CELLULARE").Value
        oBP.PayTermsGrpCode = EstraiPagStdCli
      Case cSupplier            ' FORNITORE
'        Non usato rsBP.Fields("ABILITATOB2B").Value
        If Not IsNull(rsBP.Fields("ABILITATOB2C").Value) Then
          If rsBP.Fields("ABILITATOB2C").Value = 1 Then
            oBP.Properties(6) = tYES
          Else
            oBP.Properties(6) = tNO
          End If
        End If
        If Not IsNull(rsBP.Fields("AFFILIATI").Value) Then
          If rsBP.Fields("AFFILIATI").Value = 1 Then
            oBP.Properties(4) = tYES
          Else
            oBP.Properties(4) = tNO
          End If
        End If
        If Not IsNull(rsBP.Fields("GRUPPOACQUISTO").Value) Then
          If rsBP.Fields("GRUPPOACQUISTO").Value = 1 Then
            oBP.Properties(5) = tYES
          Else
            oBP.Properties(5) = tNO
          End If
        End If
        oBP.UserFields.Fields("U_OrdMin").Value = CDbl(rsBP.Fields("P_ORDINEMINIMO").Value)
'        Non usato rsBP.Fields("SCONTOCONTRASSEGNO").Value
        oBP.UserFields.Fields("U_ScoPagA").Value = rsBP.Fields("SCONTOANTICIPATO").Value
        oBP.UserFields.Fields("U_SpeSped").Value = rsBP.Fields("PERC_SPESESPEDIZIONE").Value
        oBP.UserFields.Fields("U_ImpMiSp").Value = CDbl(rsBP.Fields("P_SPESETRASPORTO").Value)
        oBP.UserFields.Fields("U_SpeCon").Value = CDbl(rsBP.Fields("P_SPESECONTRASSEGNO").Value)
        If IsNull(oBP.UserFields.Fields("U_ProgBar").Value) Then
          oBP.UserFields.Fields("U_ProgBar").Value = 0
        End If
    End Select
    SetDataBP = True
  On Error GoTo 0
  Exit Function
ErrorHandler:
  Call DisplayMessage(Err.Description, True)
  Err.Clear
  SetDataBP = False
End Function

Answer 1

Hi Corbin,
If nothing else is the issue, you may just need to call
GetByKey(ByVal CardCode As String) As Boolean
before trying to update the BP.
Regards,
Frank