Hi All,
I know I must be missing some basic concept here. I have a client that wants to insure that all items have an extended description. Here is what I have:
sType = ""
retVal = oBusObj.GetValue("ItemType$", sType)
If sType <> "1" Then
Exit Sub
sKey = ""
sDesc = ""
sAdd = " 1"
sNew = ""
retVal = oBusObj.GetValue("ExtendedDescriptionKey$", sKey)
retVal = oBusObj.GetValue("ItemCodeDesc$", sDesc)
if sKey = "" then
sNew = (sDesc + sAdd)
retVal = oBusObj.SetValue("ItemCodeDesc$", sNew)
end if
end if
I think I am not calling the extended description object but I didn't think I needed to do that. And as a newbie at this, I am not quite sure how to do it (syntax kills me all the time)
Thanks!
Bob Osborn
ACI Consulting