Business Object Interface

[rolandc]

Hi Manuel, I've posted the example here:

http://community.sagemas.com/t5/Business-Object-Interface/Script-causes-sales-order-to-freeze/m-p/70...

Good luck!

[jepritch]

Roland, the big difference is that all SetWarning() does is set a warning flag for our objects and then in our code we issue the MessageBox().  The problem as you noted and is noted in the Scripting.doc that if we override the error message or return value you won't get this message.  We probably override this more often than not.

Elliott

[rolandc]

Thanks Elliott!

[mroman98]

Hi guys,

seems like the message works fine... it doesn't freeze up anymore....

my problem now is that i am not getting the VendorNo$ from the P/O Header.  I am getting a blank field.

The follwoing i the code that i am using...

ItemCode = ""
itemtype = ""
LineKey=""
oCIItem = 0
CIVendorNo = ""
POVendorNo = ""
retVal = 0

if oBusObj.EditState=2 then

 oItemSvc = oBusObj.GetChildHandle("ItemCode")
 if oItemSvc <> 0 then
  Set oItemSvc = oBusObj.AsObject(oItemSvc)
  
end If

retVal = oBusObj.GetValue("ItemType$", itemtype)
retVal = oBusObj.GetValue("ItemCode$", ItemCode)

rVal=0
rVal = oScript.DebugPrint("i am in")

 oCIItem = oSession.GetObject("CI_ItemCode_svc")
  
  if oCIItem then
  Set oCIItem = oScript.AsObject(oCIItem)
  retVal = oBusObj.GetValue("VendorNo$", POVendorNo)
  retVal = oCIItem.SetKeyValue("ItemCode$", ItemCode)
  retVal = oCIItem.Find()

if retVal then
    
retVal = oCIItem.GetValue("PrimaryVendorNo$", CIVendorNo)
retval = oCIItem.GetValue("ItemType$",itemtype)

 if itemtype = "1" then
rVal=0
rVal = oScript.DebugPrint(CIVendorNo)
rVal = oScript.DebugPrint(POVendorNo)

if  CIVendorNo<>POVendorNo then

strMsg = "P/O Vendor is not the Primary Vendor"
retVal = oSession.AsObject(oSession.UI).MessageBox("",strMsg)

end if
   end if
  end if
 end if
end if

I am using Column Pre-validate on Item Code

Do i need to do something else to get the VendorNo$ from the P/O Header?

Regards,

Manuel

[jepritch]

Manuel,

You are using the incorrect object handle, since the VendorNo$ is in the header object and not in the line detail, you should use the oHeaderObj handle.

retVal = oHeaderObj.GetValue("VendorNo$", POVendorNo)

HTH

Elliott

[mroman98]

Thanks Elliott,

Totally missed that !!!!!

Regards,

Manuel

[mroman98 · Accepted solution]

Thanks, that worked !!!

Regards,

Manuel