Delivery Document not getting closed

Question

Hi Experts,
I am using 2007 B PL 08. I want to close the delivery document through SDK against which no Invoice or return is booked. it gives me error 'Internal error -5002 occured' when I try to close this document with following code.
Dim fd As SAPbobsCOM.Documents
  fd = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
         If fd.GetByKey(93) = True Then
                DelClose = fd.Close
                If DelClose <> 0 Then
                    oCompany.GetLastError(FErrCode, FErrMsg)
                    MsgBox(FErrMsg)
                End If
          End If
i even try following code to loop through the lines collection and close lines instead of closing header.
it gives me "you can not close rows in this type of document" error:
Dim fd As SAPbobsCOM.Documents
            fd = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
            If fd.GetByKey(93) = True Then
                For i = 0 To fd.Lines.Count - 1
                    fd.Lines.SetCurrentLine(i)
                    If fd.Lines.LineStatus <> SAPbobsCOM.BoStatus.bost_Close Then
                        fd.Lines.LineStatus = SAPbobsCOM.BoStatus.bost_Close
                    End If
                Next
                DelClose = fd.Update
                If DelClose <> 0 Then
                    oCompany.GetLastError(FErrCode, FErrMsg)
                    MsgBox(FErrMsg)
                End If
            End If
this used to work with 2005 B. Am I doing anything wrong?
Thanks in advance,
Binita

Answer 1

Hi Binita,
Closing the delivery at the header level works in the DI API in SBO 2007A (though it's not good practice as the correct method, as you know, would be to add a return linked to the delivery to return the goods to stock and update the GL). I can also do this via the SBO client (it warns me that there is no target document but I can choose to continue).
If you can close the delivery via the SBO client in 2007B then it sounds like a bug in the DI API.
Kind Regards,
Owen