Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Updating Serial No In PickList

Hi there,

I am trying to update a picklist which contains a serial item (and pre-allocated serials).

Can you guys advise how this should be handled?

I have tried the following code with no success:

oPicklist.Lines.SetCurrentLine(k)

oPicklist.Lines.PickedQuantity = #PickedQtty(k)#

For i = 0 to #NoOfSerials#

oPicklist.Lines.BinAllocations.SetCurrentLine(i)

oPicklist.Lines.BinAllocations.BinAbsEntry = CInt(#BinAbs(i)#)

oPicklist.Lines.BinAllocations.Quantity = CDbl(#BinQty(i)#)

oPicklist.Lines.SerialNumbers.Add()

oPicklist.Lines.SerialNumbers.SetCurrentLine(i)

oPicklist.Lines.SerialNumbers.InternalSerialNumber = #Serial(i)#

oPicklist.Lines.SerialNumbers.ManufacturerSerialNumber = #Serial(i)#

oRecordSet = clsSAPB1_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

Dim sSQLQuery As String = "SELECT SysSerial FROM OSRI WHERE IntrSerial = '" & #Serial(i)# & "'"

oRecordSet.DoQuery(sSQLQuery)

oPicklist.Lines.SerialNumbers.SystemSerialNumber = oRecordSet.Fields.Item("SysSerial").Value

oPicklist.Lines.SerialNumbers.Quantity = CDbl(#SerialQty(i)#)

oPicklist.Lines.SerialNumbers.BaseLineNumber = oPicklist.Lines.OrderRowID

oPicklist.Lines.BinAllocations.SerialAndBatchNumbersBaseLine = 0


oPicklist.Lines.BinAllocations.Add()

Next

Note that everything in # are the values being passed from the respective arrays/datatables

Is there anything I am missing?

Thanks,

G

Former Member
Not what you were looking for? View more on this topic or Ask a question