Pick List Serial/Batch Number Updating Failed

Hi Team,

i am using SBO 9.0 PL08. When i use the DI object to add the Batch/Serial number to the picked quantity. SAP return the "Cannot add row without complete selection of batch/serial numbers".

Dim oDocument As SAPbobsCOM.PickLists

            Dim DocEntry As Integer

            DocEntry = "17"

            oDocument = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPickLists)

            If oDocument.GetByKey(DocEntry) Then

                oDocument.Lines.PickedQuantity = 1

                oDocument.Lines.ReleasedQuantity = 0

                oDocument.Lines.SerialNumbers.SystemSerialNumber = 1

                oDocument.Lines.SerialNumbers.ManufacturerSerialNumber = "SERA1"

                oDocument.Lines.SerialNumbers.InternalSerialNumber = "SERA1"

                oDocument.Lines.SerialNumbers.SetCurrentLine(0)

                oDocument.Lines.SerialNumbers.Add()

                If oDocument.Update <> 0 Then

                    oCompany.GetLastError(lErrCode, sErrMsg)

                    Console.WriteLine(sErrMsg)

                Else

                    Console.WriteLine("Success")

                End If

            End If