Hi Canh,
Yes, it exists a difference between your code and mine
Your code should be something like:
Dim oDel As SAPbobsCOM.IDocuments
Dim oCan As SAPbobsCOM.IDocuments
oDel = PublicVariable.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
If oDel.GetByKey(146) = True
Then
oCan = oDel.CreateCancellationDocument()
lretCode = oCan.Add()
If lretCode <> 0 Then
PublicVariable.oCompany.GetLastError(lErrCode, sErrMsg)
EndIf
EndIf
Regards,
Eric