Hi, I'm trying to write a script to find the Contact Code using the Confirm To in the Sales Order header so that I can populate some user defined fields in the contact code maintenance into the sales order header. I have this so far, but it's not finding my record. Can anyone help me with this?
'if oSession.CompanyCode = "PRT" Then
If oSession.StartProgram = "SO_SALESORDER_UI" Then
Div = ""
CustNo = ""
BTContact = ""
BTContactName = ""
BTContactPh = ""
BTContactExt = ""
BTContactEmail = ""
retVal = oBusObj.GetValue("ARDivisionNo$",Div)
retVal = oBusObj.GetValue("CustomerNo$",CustNo)
retVal = oBusObj.GetValue("ConfirmTo$",BTContactName)
oBillTo = oSession.GetObject("AR_CustomerContact_svc")
if oBillTo <> 0 then
Set oBillTo = oSession.AsObject(oBillTo)
Set oBillTo = oSession.AsObject(oSession.GetObject("AR_CustomerContact_svc"))
retVal = oBillTo.SetIndex("KCONTACTNAME")
retVal = oBillTo.SetKeyValue("ARDivisionNo$", Div)
retVal = oBillTo.SetKeyValue("CustomerNo$", CustNo)
retVal = oBillTo.SetKeyValue("ContactName$", BTContactName)
retVal = oBillTo.Find()
retMsg = oSession.AsObject(oSession.UI).Messagebox("",Div+" "+CustNo+" "+BTContactName)
'If retVal <> 0 then
retVal = oBillTo.GetValue("ContactCode$", BTContact)
retVal = oBillTo.GetValue("ContactName$", BTContactName)
retVal = oBillTo.GetValue("TelephoneNo1$", BTContactPh)
retVal = oBillTo.GetValue("TelephoneExt1$", BTContactExt)
retVal = oBillTo.GetValue("EmailAddress$", BTContactEmail)
retMsg = oSession.AsObject(oSession.UI).Messagebox("",Div+" "+CustNo+" "+BTContactName+" "+BTContactPh)
retVal = oBusObj.SetValue("UDF_BILL_TO_CONTACT_CD$",BTContact)
retVal = oBusObj.SetValue("UDF_BILL_TO_CONTACT$",BTContactName)
retVal = oBusObj.SetValue("UDF_BILL_TO_PHONE$",BTContactPh)
retVal = oBusObj.SetValue("UDF_BILL_TO_EXT$",BTContactExt)
retVal = oBusObj.SetValue("UDF_BILL_TO_EMAIL$",BTContactEmail)
oSession.DropObject("AR_CustomerContact_SVC")
'End If
End If
End If
'End If 'Company Check