Currently we are running 4.4 build 8. We have a BOI that import PO's which is working fine. It was requested that we load some PO's with a misc. "\" item code. I tried passing the item type but that failed. I tried line type and taht came back read only. Is there a way to do this? Detail code below... I have commented out waht I have tried so far. Do While Not r.eof rv = o.oLines.nAddLine() if rv = 0 then logerror OrderNo,"1d~"+o.oLines.slasterrormsg 'if(Left(CStr(r.Fields("ITEMCODE").Value),1) = "/") then ' added 7/9/14 EG ' rv = o.oLines.nSetValue("ItemType$", 3) 'else ' rv = o.oLines.nSetValue("ItemType$", 1) 'end if ' End rv = o.oLines.nSetValue("ItemCode$", CStr(r.Fields("ItemNo").Value & "")) if rv = 0 then logerror OrderNo,"2d~"+o.oLines.slasterrormsg rv = o.oLines.nSetValue("QuantityOrdered", CDbl(r.Fields("OrderQty").Value)) if rv = 0 then logerror OrderNo,"3d~"+o.oLines.slasterrormsg rv = o.oLines.nSetValue("UnitCost", CDbl(r.Fields("UnitCost").Value)) if rv = 0 then logerror OrderNo,"4d~"+o.oLines.slasterrormsg rv = o.oLines.nSetValue("ExtensionAmt", CDbl(r.Fields("Extend").Value)) if rv = 0 then logerror OrderNo,"5d~"+o.oLines.slasterrormsg 'rv = o.oLines.nSetValue("ItemType$", CDbl(r.Fields("LineType").Value)) 'uncommented 7/9/14 EG 'if rv = 0 then logerror OrderNo,o.oLines.slasterrormsg 'added 7/9/14 EG 'rv = o.oLines.nSetValue("ItemType$", 1.0) 'if rv = 0 then msgbox "ItemType$ - "+CStr(r.Fields("LineType").Value)+o.slasterrormsg 'rv = o.oLines.nSetValue("LineType$", 1.0) 'CDbl(r.Fields("LineType").Value)) 'if rv = 0 then msgbox "LineType$"+o.slasterrormsg rv = o.oLines.nWrite() if rv = 0 then logerror OrderNo,"6d~"+o.oLines.slasterrormsg r.MoveNext() Loop Any thoughts? Regards
↧
