While creating Goods Receipt for multiple serial numbers it is generating an internal error

Question

Error:Internal error (-5002) occurred  [ 131-183]
we are using version SAP B1 9.0 PL 4
The code which we are using.
       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
                    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,
I'm not really fluent in VB, but I think that a SerialNumbers.Add() and SerialNumbers.SetCurrentLine() are missing before the Next
Regards,
Eric