I am trying to update a UDF in Purchase Order entry lines during a receipt of goods.  The issue I am having is that the purchase order record is locked while a receipt of goods / invoice records exist referencing the purchase order.    Here is the code I am using below.  I do not receive an error, but the PO line is not update.   Any direction would be greatly appreciated.

editline = ""
editline = oPOLines.GETEDITKEY(lineno)
retval = oPOlines.editline(editline)

if retval = 1 then
    poitem = ""
    retVal = oPOLines.GetValue("ItemCode$",poitem)
    retVal = oPOLines.GetValue("UDF_QTY_INTRANSIT",intranqty)
    intran = intranqty - QtyReceived

    retVal = oPOLines.SetValue("UDF_QTY_INTRANSIT",intran)
    retVal = oPOLines.SetValue("CommentText$","Justin was here")
    retVal = oPOLines.Write()

    if retval = 0 then
        oui.messagebox(opolines.LastErrorMsg)
    end if

else
    oui.messagebox(opolines.LastErrorMsg)
end if

I have also tried calling the child object, but not sure how to determine which child objects are available.  Here is the code I have tried, but do not find the child object:

polineobj = 0
opolineobj = oROGLines.GetChildHandle("OrderLineKey")  ' opollineobj = 0

if opolineobj <> 0 then  '
    Set opolineobj = oSession.AsObject(opolineobj)
else
    oui.messagebox("No opolineobj object")
End if