DI - Pick list creation

Question

Hi all,
I've seen a few examples of creating Pick Lists through the DI, and I can't understand why my version won't work...
If anyone can notice anything obvious and point it out to me that would be of great help!
Using SAPB1 v9 PL10.
MSSQL 2012.
BoObjectTypes.BoRecordset)
Dim sqlstring As String = "select t0.DocNum, t1.DocEntry,t1.ItemCode, t1.Quantity, t1.DocDate, t1.LineNum, t1.LineStatus, t1.Price from ordr t0 inner join rdr1 t1 on t0.docentry = t1.DocEntry where docnum = 448 and t1.LineStatus = 'O'"
"DocEntry").Value
"DSV Interface"
Do Until OrderRs.EoF
"ItemCode").Value
"Price").Value
"17" ' Sales order
"LineNum").Value
Loop
If PLIST.Add = 0 Then
'success!
Else
"SOWMS03, generate picklist", "Error creating PickList!")
End If

Answer 1

Dim PLIST As SAPbobsCOM.PickLists = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPickLists)
Dim DocEntry, qty As Integer 'SO docentry & line qty
Dim ItemCode As String ' Itemcode for SO line
Dim price As Double
Dim LineNum As Integer
Dim OrderRs As SAPbobsCOM.Recordset
OrderRs.DoQuery(sqlstring)
DocEntry = OrderRs.Fields.Item("DocEntry").value
PLIST.PickDate = Today
PLIST.Name = "Name"
PLIST.OwnerCode = 1
Do Until OrderRs.EOF
ItemCode = OrderRs.Fields.Item("ItemCode").Value
price = OrderRs.Fields.Item("Price").value
PLIST.LINES.BaseObjectType = "17" ' from a sales order
PLIST.Lines.OrderEntry = DocEntry
LineNum = OrderRs.Fields.Item("LineNum").value
PLIST.Lines.ReleasedQuantity = OrderRs.RecordCount
PLIST.Lines.Add()
OrderRs.MoveNext()
Loop
if PLIST.Add = 0 then
'Success!
Else
Err.Raise(vbObjectError, "blah blah blah", "blah")
end if
I had to copy this out by hand as copy&paste cuts out the code. You can assume that the sql query being executed to fill the OrderRs recordset returns everything I need, I've also skipped out a few echoes that I use for debugging, which indicate that none of these values are NULL or Nothing.
Thanks for the interest in my issue!
Cal.