Cannot add row without complete selection of batch/serial numbers while creating Goods receipt purchase order

Question

Error:Cannot add row without complete selection of batch/serial numbers
       Dim oPDN As SAPbobsCOM.Documents
       oPDN = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
                     Dim serno As String = "SH-A1,SH-A2"
                    Dim sernoval As String() = serno.Split(",")
                    Dim mnfser As String = "SH-B1,SH-B2"
                    Dim mnfserval As String() = mnfser.Split(",")
                    For k = 0 To sernoval.Length - 1
                        oPDN.Lines.SerialNumbers.InternalSerialNumber = sernoval(k).Trim
                        oPDN.Lines.SerialNumbers.ManufacturerSerialNumber = mnfserval(k).Trim
                        oPDN.Lines.SerialNumbers.Quantity = linedetails(iRowNo).Quantity
                        oPDN.Lines.SerialNumbers.SetCurrentLine(k)
                        oPDN.Lines.SerialNumbers.Add()
                    Next
                oPDN.CardCode = "C232323"
                oPDN.Lines.ItemCode = "A00004"
                'oGR.Lines.LineNum = 0
                oPDN.Lines.BaseLine = 1
                oPDN.Lines.BaseEntry = 202
                'oGR.Lines.BaseRef = 203
                oPDN.Lines.BaseType = 20
                oPDN.Lines.Quantity = 1
                oPDN.Lines.UnitPrice = 2
                oPDN.Lines.WarehouseCode = '01'
             oPDN.Lines.Add()
             lRetCode = oPDN.Add

Answer 1

Hi Vasanth,
Invert the SetCurrentLine () and Add() at the end of the SSSerialNUmbers loop.
Regards,
Eric