Do to the fact that iShip is no longer working, I've created an invoice tracking number script, but it is not returning the tracking number. What am I doing wrong?
Thanks,
John
Here is the script.
'******* 1/13/2023 Tracking number lookup and link to web site ship24 *******
If oSession.CompanyCode = "ABC" Then
retval = oSession.AsObject(oSession.UI).Messagebox("""Tracking fired")
Div=""
Order=""
InvoiceNo=""
Package=""
TrackingNo=""
retVal = oBusObj.GetValue("InvoiceNo$",InvoiceNo)
msgbox "Invoice=" & Invoiceno
' **** Open Tracking Business Object *********
oTrackingBus = oSession.GetObject("SO_InvoiceTracking_bus")
if oTrackingBus<> 0 then
Set oTrackingBus = oSession.AsObject(oTrackingBus)
retval = oSession.AsObject(oSession.UI).Messagebox( "","oTrackingBus fired")
retval = oTrackingBus.SetKeyValue("InvoiceNo$",InvoicenNo)
retval = oTrackingBus.SetKeyValue("PackageNo$","0001")
retVal = oTrackingBus.SetKey()
retVal = oTrackingBus.GetValue("TrackingID$",TrackingNo)
msgbox "Invoice No = "& InvoiceNo & " Tracking No =" & TrackingNo
TrackingNo="1z91076x0362409304" '***** testing
Link = "">www.ship24.com/tracking & TrackingNo & ""
msgbox Link
CreateObject("WScript.Shell").Run(Link)
else
retval = oSession.AsObject(oSession.UI).Messagebox( "","oTrackingBus failed")
end if
End if 'Close if not ABC company