Update. As far as the CRM people know nothing has changed in database with the Person table or it's location. Here is the script: 'Copy Contact contact information to Ship To Address 'copyright 2010 Shafer Solutions, Inc., Baltimore, Maryland, USA, Earth, Sol sEmail = "" sFax = "" sPhone = "" sARDivNo = "" sCustNo = "" sContactCode = "" sShipTo = "" sPersonID = "" sFName = "" sCustomerNo = "" retVal = oScript.DebugPrint("Contact Info") retVal = oBusObj.GetValue("ARDivisionNo$", sARDivNo) retVal = oBusObj.GetValue("CustomerNo$", sCustNo) retVal = oBusObj.GetValue("UDF_Contact_Code$", sContactCode) if sContactCode = "" then oCU = oSession.GetObject("CU_Person_bus") if oCU 0 then set oCU = oSession.AsObject(oCU) end if retVal = oBusObj.GetValue("CRMPersonID$", sPersonID) retVal = oScript.DebugPrint("Person ID: " + sPersonID) retVal = oCU.SetKeyValue("PersonID$", sPersonID) retVal = oCU.SetKey() retVal = oCU.GetValue("ContactCode$", sContactCode) retVal = oScript.DebugPrint("Contact Code: " + sContactCode) end if oCC = oSession.GetObject("AR_CustomerContact_bus") if oCC 0 then set oCC = oSession.AsObject(oCC) end if retVal = oCC.SetKeyValue("ARDivisionNo$", sARDivNo) retVal = oCC.SetKeyValue("CustomerNo$", sCustNo) retVal = oCC.SetKeyValue("ContactCode$", sContactCode) retVal = oCC.SetKey() retVal = oCC.GetValue("EmailAddress$", sEmail) retVal = oCC.GetValue("FaxNo$", sFax) retVal = oCC.GetValue("TelephoneNo1$", sPhone) if len(trim(sEmail)) 0 then retVal = oBusObj.SetValue("UDF_Contact_Email$", sEmail) if len(trim(sFax)) 0 then retVal = oBusObj.SetValue("UDF_Contact_FAX$", sFax) if len(trim(sPhone)) 0 then retVal = oBusObj.SetValue("UDF_Contact_Phone$", sPhone) Note: I see all three messages print to the Trace window.
↧