Hello all!
I'm trying to write a script that will update the Bill of Materials Description 1 when the description in the inventory Item Maintenance is changed, but when I save the data in IM module I get an error saying I don't have correct permissions. If I click info I get error #13: File access mode is invalid. Is there another (better) way to write to BM module from CI_Item table?
retval = """"
strDesc = """"
strItemCode = """"
oBMobj = """"
strBillDesc = """"
strBillNo= """"
dbg=oscript.debugprint(""DBG-Scripting Started"")
'Get Desc
retVal = oBusObj.GetValue(""ItemCode$"", strItemCode)
retVal = oBusObj.GetValue(""ItemCodeDesc$"", strDesc)
dbg=oscript.debugprint(strDesc)
'Get BOM Head obj
oBMobj = oSession.GetObject(""BM_Bill_bus"")
If oBMobj <> 0 THen
Set oBMobj = oSession.AsObject(oBMobj)
Else
'Do Nothing
End If
retVal = oBMobj.SetKeyValue(""BillNo$"", strItemCode)
retVal = oBMobj.SetKeyValue(""Revision$"", 000)
retVal = oBMobj.Find()
dbg=oscript.debugprint(retVal)
retVal = oBMobj.GetValue(""BillNo$"", strBillNo)
retVal = oBMobj.GetValue(""BillDesc1$"", strBillDesc)
dbg=oscript.debugprint(retVal &"" BillNo: "" & strBillNo & "" Bill Desc: "" & strBillDesc)
retVal = oBMobj.SetValue(""BillDesc1$"", strDesc)
retVal = oBMobj.Write()
retVal = oBMobj.GetValue(""BillDesc1$"", strBillDesc)
dbg=oscript.debugprint(retVal &"" BillNo: "" & strBillNo & "" Bill Desc: "" & strBillDesc)
Any help is greatly appreciated!
TIA!