#sys_web.navigate

This Q&A forum allows users to post and respond to "How Do I Do ....." questions. Please do not use to report (suspected) errors - you must use your regional help desk for this. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
Post Reply
soa
Posts: 339
Joined: Mon Dec 07, 2015 3:15 pm

#sys_web.navigate

Post by soa »

I have two links using #sys_web.Navigate( #wrk256 New )

1 contains
http://maps.google.com.au/maps?f=q&hl=e ... +australia

and in the browser this opens up another tab with the google map displayed.

2 contains
https://bosho.boardofstudies.nsw.edu.au ... cs/Soprano Email Format2.pdf

and in the browser this opens up another tab with the pdf displayed.

However, in LANSA Mobile on iPad while version 1. causes a Pop up browser window to be displayed version 2 crashes out of the VLW app back to the ipad home page. The LANSA Mobile is still running but the VLW app is gone.

Should this work?
User avatar
Stewart Marshall
Posts: 417
Joined: Thu Nov 05, 2015 5:25 pm

Re: #sys_web.navigate

Post by Stewart Marshall »

I've just tried the following code on my iPhone 7 and it works much as expected

Code: Select all

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(500) Width(648)
Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Button1') DisplayPosition(1) Left(13) Parent(#COM_OWNER) TabPosition(1) Top(15)
Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Button2') DisplayPosition(2) Left(15) Parent(#COM_OWNER) TabPosition(2) Top(57)

Evtroutine Handling(#Button1.Click)

#sys_web.Navigate( "https://www.google.com.au/maps/place/122+Arthur+St+North+Sydney+NSW+2060" New )

Endroutine

Evtroutine Handling(#Button2.Click)

#sys_web.Navigate( "http://www.lansa.com/downloads/casestudies/bos2.pdf" New )

Endroutine

End_Com
Stewart Marshall

Independent IT Consultant
www.marshallfloyd.com.au
soa
Posts: 339
Joined: Mon Dec 07, 2015 3:15 pm

Re: #sys_web.navigate

Post by soa »

Ok turns out the the pdf url had embedded blanks in the name

../Docs/Soprano Email Format2.pdf

In the browser the blanks were replaced with %20 (by Chrome) which doesn't happen on the ipad.

I modified the code to

#wrk256 := #wrk256 .ReplaceAll( ' ', '%20' )
#sys_web.Navigate( #wrk256 New )

and it works fine.
Post Reply