Business Object Interface

[momiebear]

Has anyone written a Boi Routine for creating new inventory items mas 4.4.  Can you help us get started?

[BigLouie]

I bet Dawn has. She has used VB Scripting and BOI to do everything from slow global warming to halt the destruction of the Great Barrier Reef.

[DFeller]

Oh, BigLouie, you exaggerate.  However I have been working on using Visual Integrator to import more hours into the day so perhaps I can accomplish those things after all. 

Dawn

[tdavila]

Actually I called her company trying to get a hold of her.  She has helped me out before on the forums.I am still waiting feed back.  We have got to the point where we can write the item code and the product line but it will not let us set the value for the item description or the primary vendor.  Please help!

Dim strItemCode As String = "TES-1234597"
        retVal = soORDER.nSetKey(strItemCode)
        Dim strLastError As String = ""
        strLastError = soORDER.sLastErrorMsg
        rtn = soORDER.nSetValue("ProductLine$", "0002")
        strLastError = soORDER.sLastErrorMsg
        rtn = soORDER.nwrite()
  strLastError = soORDER.sLastErrorMsg
        rtn = soORDER.nSetValue("ItemCodeDesc$", strDesc) <---throws error The record is not in an editable state.

[Gator]

Put the ItemCodeDesc SetValue before the Write line.

In order to assign the primary vendor you first have to save the item, then add a record to the ItemVendor table, then come back to the item and assign the primary vendor (or else the validation will fail).

[tdavila]

Thanks for the heads up.  We did get the item code description to fill in by moving it up in the  script prior to the produc t line.  I will post our results

[tdavila]

 Dim rtnIV As Object
        rtnIV = oSS.nsetdate("I/M", strDate)
        oSS.nSetModule("I/M")
        oSS.nSetProgram(oSS.nLookupTask("IM_ItemVendor_ui"))
        Dim objIV As Object
        objIV = oPVX.NewObject("IM_ItemVendor_bus", oSS)

Errors at the last line. 

[Gator]

I believe "Set " is missing from your last line.

Set objIV = oPVX.NewObject("IM_ItemVendor_bus", oSS)