Getting stuck on this script, I've tried a column post val on the qty received and a table post read. Both are getting stuck at the same point, on the first "retVal=oSOLines.MoveNext()", should it be MoveFirst?
Dim sPurchaseOrderNo Dim sSalesOrderNo Dim sItemCode Dim sItemCodeCur Dim nPO_QTYREC Dim nSO_QTYREC Dim sOrderStatus Dim oSalesOrder sPurchaseOrderNo = "" sSalesOrderNo = "" sItemCode = "" sItemCodeCur = "" nPO_QTYREC = 0 nSO_QTYREC = 0 nSOPREVREC = 0 nNEWSO_QTYREC = 0 sOrderStatus = "" oSalesOrder = 0 retVal = oBusObj.GetValue("SalesOrderNo$",sSalesOrderNo) r=oScript.DebugPrint("SalesOrderNo: " & sSalesOrderNo) if sSalesOrderNo <> "" then retVal = oBusObj.GetValue("ItemCode$",sItemCode) retVal = oBusObj.GetValue("QuantityReceived",nPO_QTYREC) r=oScript.DebugPrint("ItemCode: " & sItemCode) r=oScript.DebugPrint("Quantity Rec: " & CStr(nPO_QTYREC)) If nPO_QTYREC <> 0 Then oSOLines = oSession.GetObject("SO_SalesOrderDetail_bus") r=oScript.DebugPrint("After oSession.GetObj ") If oSOLines <> 0 Then SET oSOLines = oSession.AsObject(oSOLines) r=oScript.DebugPrint("After Set oSession.AsObj ") sSONo = "" retVal = oSOLines.SetBrowseFilter(sSalesOrderNo) r=oScript.DebugPrint("retVal SO Line SetBrowseFilter = " & CStr(retVal)) retVal = oSOLines.MoveNext() r=oScript.DebugPrint("retVal SO Line MoveNext = " & CStr(retVal)) retVal = oSOLines.GetValue("SalesOrderNo$", sSONo ) r=oScript.DebugPrint("SO No: " & sSONo) r=oScript.DebugPrint("oSOLines BOF: " & cBool(oSOLines.BOF)) r=oScript.DebugPrint("oSOLines EOF: " & cBool(oSOLines.EOF)) sItem = "" : sComment = "" : sLineKey = "" : sItemType = "" : sItemDesc = "" nRevQty = 0 : nLUPrice = 0 : nLExtAmt = 0 'Now Loop through the lines looking for any item codes beginning with a / lineUpdated = 0 ' initialize new indicator Do While Not CBool(oSOLines.EOF) And lineUpdated = 0 retVal = oSOLines.GetValue("ItemCode$",sItemCodeCur) if sItemCode = sItemCodeCur AND (sOrderStatus = "N" Or sOrderStatus ="O") Then retVal = oSOLines.GetValue("UDF_QTY_RECEIVED", nSOPREVREC) nNEWSO_QTYREC = nSOPREVREC+nSO_QTYREC retVal = oSOLines.SetValue("UDF_QTY_RECEIVED",nNEWSO_QTYREC) retVal = oSOLines.Write() lineUpdated = 1 'trip flag end if retVal = oSOLines.MoveNext() r=oScript.DebugPrint("SO Line ItemCode = " & sItemCode) retVal = oSOLines.GetValue("SalesOrderNo$", sSONo ) r=oScript.DebugPrint("Lines SONo = " & sSONo) Loop End If 'Check to see that we can open SO_SalesOrderHistoryHeader