CLEAR
DO TrackServiceProxy
 
LOCAL loProxy as TrackServiceProxy
loProxy = CREATEOBJECT("TrackServiceProxy")
 
LOCAL loBridge as wwDotNetBridge
loBridge = loProxy.oBRIDGE
 
 
LOCAL loTrackRequest as TrackService.TrackRequest
loTrackRequest = loBridge.createinstance("TrackService.TrackRequest")
 
loTrackRequest.WebAuthenticationDetail = loBridge.Createinstance("TrackService.WebAuthenticationDetail")
loTrackRequest.WebAuthenticationDetail.UserCredential = loBridge.CreateInstance("TrackService.WebAuthenticationCredential")
 
loTrackRequest.WebAuthenticationDetail.UserCredential.Key = "FHZxFL2Hq388r1BQ"
loTrackRequest.WebAuthenticationDetail.UserCredential.Password = "YGzyA0GC3ZJiSNeeb3uPGS8AZ"
 
loTrackRequest.ClientDetail = loBridge.CreateInstance("TrackService.ClientDetail")
loTrackRequest.ClientDetail.AccountNumber = "510087860"
loTrackRequest.ClientDetail.MeterNumber = "100008393"
 
loTrackRequest.TransactionDetail = loBridge.CreateInstance("TrackService.TransactionDetail")
loTrackRequest.TransactionDetail.CustomerTransactionId = "123456"
*loTrackRequest.TransactionDetail.Localization.LanguageCode = "EN"
 
loTrackRequest.Version = loBridge.Createinstance("TrackService.VersionId")
 
loTrackRequest.Version.ServiceId = "trck"
loTrackRequest.Version.Major = 3
loTrackRequest.Version.Intermediate = 0
loTrackRequest.Version.Minor = 0
 
loTrackRequest.PackageIdentifier = loBridge.Createinstance("TrackService.TrackPackageIdentifier")
 
loTrackRequest.PackageIdentifier.Value = "867546017757"
? loBridge.getenumvalue("TrackService.TrackIdentifierType","TRACKING_NUMBER_OR_DOORTAG")
loTrackRequest.PackageIdentifier.Type = loBridge.getenumvalue("TrackService.TrackIdentifierType","TRACKING_NUMBER_OR_DOORTAG")
 
loTrackRequest.ShipDateRangeBegin = DATE()-2
loTrackRequest.ShipDateRangeEnd = DATE()+1
 
LOCAL loResult as TrackService.TrackReply
loResult = loProxy.Track(loTrackRequest)
? loProxy.cERRORMSG
? loResult
 
LOCAL loNotification as TrackService.Notification
FOR EACH loNotification IN loResult.Notifications 
   ? loNotification.Code
   ? loNotification.Message
   ? 
ENDFOR
 
SET STEP ON