Tracking number lookup and link to web site ship24

Question

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

jepritch · Accepted Answer

Hi everyone, 
 Sage has implemented a replacement package tracking for iShip. This new implementation is now live and is used in both Sage 100 and Sage 500. The new implementation will now use the tracking id, to determine which carrier it belongs to and re-direct to the appropriate site. The carriers that this will handle automatically will be USPS, UPS, Fedex, DHL, and Ontrac. If the package id is not determined to be one of the aforementioned carriers, it will be re-directed to a google search with that package id. 
 In Sage 100, this will work from any package tracking buttons (ie Shipping Entry) and for paperless emails that use the embedded tracking token [TrackingNo] 
 Thanks

Sage100User · Answer

I could not get the tracking number from the grid in the Tracking number screen, so I created a script in the Invoice History Inquiry screen next to the existing Tracking number button that links to ship24. I hard coded the header sequence number to "000000" and the package number to "0001". A more elaborate script would check to see if the invoice has any tracking numbers and it could loop through the packages and give the user the option to display all the tracking numbers or just the first one, but I chose the faster, non-elegant approach to start with.

jryals · Answer

This works. 
 Mas_Scr_Dbg = 0 
 'If oSession.CompanyCode = "ABC" Then 
 retval = oSession.AsObject(oSession.UI).Messagebox("""Tracking fired") 
 Div="" Order="" InvoiceNo="" HedSeqNo="" Package="" TrackingNo="" 
 retVal = oBusObj.GetValue("InvoiceNo$",InvoiceNo) retVal = oBusObj.GetValue("HeaderSeqNo$",HedSeqNo) retVal = oBusObj.GetValue("PackageNo$",Package) retVal = oBusObj.GetValue("TrackingID$",TrackingNo) 'msgbox "Invoice=" & Invoiceno & " SeqNo = " & HedSeqNo & " Package = " & package & " Tracking = " & TrackingNo 
 Link = " ">www.ship24.com/tracking & TrackingNo & "" 
 'msgbox Link 
 CreateObject("WScript.Shell").Run(Link) 
 
 'End if 'Close if not ABC company

Sage 100

Tracking number lookup and link to web site ship24

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING