I'm on MAS 90 4.40.0.6 and cannot get past this... We are trying to complete a receipt of goods against a P.O.. We get the error:

"Update not successful: This receipt has no lines and has zero total amounts."

Here’s my code:

Set mySecur = oScript.NewObject("SY_Security", oSS, 0)

POCustomer = oSS.nLookupTask("PO_ReceiptofGoods_ui")
retVAL = oSS.nSetProgram(POCustomer)
set oCustomer = oScript.NewObject("PO_Receipt_bus",oSS)

retVal = oCustomer.nSetKeyValue("receiptNo$", "001018")
retVal = oCustomer.nSetKeyValue("ReceiptType$", "G")
retVal = oCustomer.nSetKey()
retVal = oCustomer.nSetValue("APDivisionNo$", "02")
retVal = oCustomer.nSetValue("VendorNo$", "SCR")
retVal = oCustomer.nSetValue("TaxSchedule$", TaxSched)

retVal = oCustomer.oLines.nAddLine()

retVal = oCustomer.oLines.nSetValue("ItemCode$", "/668337")
retVal = oCustomer.oLines.nSetValue("LineKey$", "000001")
retVal = oCustomer.oLines.nSetValue("OriginalQtyOrdered$", "5")
retVal = oCustomer.oLines.nSetValue("QuantityReceived$", "5")
retVal = oCustomer.oLines.nSetValue("UnitCost$", "7.76")

' Writes the line. This write value must be used before writing a new line or moving to a new tab or focus.
retVal = oCustomer.oLines.nWrite()
retVal = oCustomer.nWrite()

Thanks in Advance!