Can anyone please help me in creating purchase order in sage. I tried creating it but the line items are not getting inserted and getting the following error

"This Purchase Order has no lines and has zero total amounts".

ARDivisionNo = WScript.Arguments(0)
VendorNo = WScript.Arguments(1)
poNum = WScript.Arguments(2)
OrderType= WScript.Arguments(3)
LineItemsStr = WScript.Arguments(4)
LineItems = Split(LineItemsStr, ",,")
' OrderType = WScript.Arguments(6)
End If

...
retVal = oSS.nSetDate("P/O", "20220101")
retVal = oSS.nSetModule("P/O")
' Accessing Business object A/R
taskID = oSS.nLookupTask("PO_PurchaseOrder_ui")
retVal = oSS.nSetProgram(taskID)
Set poOrder = oPVX.NewObject("PO_PurchaseOrder_bus",oSS)
if poNum = "" then
retVal = poOrder.GetNextPurchaseOrderNo(poNum)
end if
retval = poOrder.nSetKey(poNum)
retval = poOrder.nSetValue("ARDivisionNo$","00")
retval = poOrder.nSetValue("VendorNo$",VendorNo)
retval = poOrder.nSetValue("TaxSchedule$","NOTAX")
retval = poOrder.nSetValue("OrderType$", OrderType)
' order lines
For each lineItem in LineItems
Dim ItemValues: ItemValues = Split(lineItem, ";")
' MsgBox("1 " & CStr(retval))
retval = poOrder.oLines.nAddLine()
' MsgBox("2 " & CStr(retVal))
retval = poOrder.oLines.nSetValue("ItemCode$",ItemValues(0))
' MsgBox("3 " & CStr(retVal))
retval = poOrder.oLines.nSetValue("QuantityOrdered$",ItemValues(1))
retval = poOrder.oLines.nSetValue("PurchaseOrderNo",ItemValues(2))
retval = poOrder.oLines.nSetValue("UnitPrice",ItemValues(3))
retval = poOrder.oLines.nSetValue("RequiredExpireDate",ItemValues(4))
retval = poOrder.oLines.nWrite()
Next
retval = poOrder.nWrite()