I created a vb script.  Here is the script.

'******* 1/13/2023 Tracking number lookup and link to web site ship24 created by [email protected] *******

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

I created a vb script.  Here is the script.

'******* 1/13/2023 Tracking number lookup and link to web site ship24 created by [email protected] *******

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

Yes, that's very similar to mine.  I put the button on the Invoice History Inquiry screen, but since the Package ID isn't available there, I hard-coded that to Package = "0001", which would work for most people since that's usually the master tracking#.  

the value for Link I use is """>www.ship24.com/tracking &  TrackingNo