Getting a web page from filePro
GCC Consulting
gcc at optonline.net
Sat Jan 29 12:48:47 PST 2005
With much help from Fairlight and a suggestion from Jim Asman here's the
solution to my problem.
Platform: native 5.0.xx
Problem: Pass a UPS tracking number to their tracking web page from a filePro
record from an @key command.
Step 1 - Copy the complete url when directly entering a tracking # into the UPS
web page, into a text document.
Step 2 - Create a call table for this routine and declare variables to hold
portions of the URL. The value is too long to use one variable.
Step 3 - Remember quotes are needed around URL being passed - so, qu=chr("34")
Note line 16 sets the URL value. Line 13 has been commented out for now as only
1 tracking # is used.
Line 17 is VIDEO sync is used to display the SHOWCTR() on line 18.
The important thing to remember here is that the quotes around the URL are
NECESSARY for win XP.
Although I used START iexplore, I could just as easily used SYSTEM "START"<url.
This would have started the default Windows browser. I have Mozilla, Firefox
and opera on my system also. IE remains the default browser as I have software
that is too tightly glued to it.
9 Then: declare
url1(120,*),url2(120,*),url3(80,*),url4(80,*),url,tracknum(12,*),quotes(3.0)
10 Then: qu=chr("34")
If: 'this set the first part of the url to get to ups tracking page
11 Then: url1="http://wwwapps.ups.com/WebTracking/processInputRequest?HTML
Version=5.0&sort_by=status&tracknums_displayed=5&Type"
12 Then: url2="OfInquiryNumber=T&loc=en_US&InquiryNumber1="
13 Then: url3="&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=
&InquiryNumber5="
14 Then: url4="&AgreeToTermsAndConditions=yes&track.x=34&track.y=6"
If: tracking_num = ""
15 Then: GOSUB get_trk
If: 'place the tracking
16 Then: url=qu{url1{url2{tracking_num{url4{qu
17 Then: video sync
18 Then: SHOWCTR("17") "\b5 One Moment Please - Getting Your Information
\a-"
If: 'place the tracking
19 Then: tr="start iexplore"<url
20 Then: system tr
21 Then: CLS("17","1")
22 Then: END
get_trk If:
23 Then: input popup(17,"-1") tracknum "Enter Tracking #\nor Press \kZ-to
continue\n\kY- \b4 Cancel \a-\nEnter Option -> "
If: @sk = "BRKY"
24 Then: END
If: tracknum ne "" and tracking_num = ""
25 Then: tracking_num = tracknum;write
26 Then: RETURN
More information about the Filepro-list
mailing list