retVal = oSS.nSetProgram(oSS.nLookupTask("SO_SalesOrder_ui")) set soOrder = oPVX.NewObject("SO_SalesOrder_bus", oSS) Set soLine = soOrder.oLines
retVal = soOrder.nSetKeyValue("SalesOrderNo$","0001000") retVal = soOrder.nSetKey() retVal = soOrder.nSetValue…