Is anyone else having problems attaching scripts or files?

If oSession.CompanyCode = "TST" Then

    rVal = 0
    sItem = ""
    sItemType = ""
    sWHS = ""
    oItem = 0
    QOH = 0 'QTY ON HAND
    QOS = 0 'QTY ON SALES ORDER
    QORD = 0 'QTY ORDERED
    QAVAIL = 0
    QPULLED = 0
    sType = ""
    oItemWhse = 0

    set oItemWhse = oSession.AsObject(oSession.GetObject("IM_ItemWarehouse_svc"))

    rVal = oBusObj.GetValue("ItemType$", sItemType)

    if trim(sItemType) = "1" then

 rVal = oBusObj.GetValue("ItemCode$", sItem)
        rVal = oBusObj.GetValue("WarehouseCode$", sWHS)
        rVal = oItemWhse.SetKeyValue("ItemCode$", sItem)
        rVal = oItemWhse.SetKeyValue("WarehouseCode$", sWHS)
       

if rVal = 1 then

            rVal = oItemWhse.GetValue("QuantityOnHand", QOH)
            rVal = oItemWhse.GetValue("QuantityOnSalesOrder", QOS)
            
            QAVAIL = (QOH-QOS)+QORD

	    end if

            if QAVAIL =< 0 then

             '  ?Loop?       
                     oSession.AsObject(oSession.UI).MessageBox "", "Inventory Available"
            end if
    end if
End If

I have a line of code between these two sets, for some reason it will not let me post it, "rVal = oItemWhse.Find

Wrap your new object within an if statement to ensure the user has access.

When it comes to IM_ItemWarehouse, I'd set a browse filter (as the ItemCode, null padded to 30 characters) and loop through results to get what you want.

Sage City / Community Hub often doesn't like posting script code for some reason... that is why I usually post code snippets as images.