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)
       

 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