This is an example of how to display directions from one location to another, using google maps.
The directions can either appear in an imbedded web page, or opened in a separate browser window.
Function Options(*DIRECT)
begin_com role(*EXTENDS #LRNG_FORM)
define #W_LAT *dec 10 6
define #W_LON *dec 10 6
define #W_LOC *string
define #W_LOC2 *string
Mthroutine Name(HandleRequest) Options(*REDEFINE)
* -----------------------------------------
* Handle currently requested action
* -----------------------------------------
* Always set the USING Element to /Form.Fields at the start
#Com_Owner.Using Element('/Form.Fields')
Case Of_Field(#COM_OWNER.RequestACTION)
When (= SHOWPROG)
#COM_OWNER.IsNewForm := False
#COM_OWNER.Set_Label Name('/Form.Popover') Text('See Visual LANSA reusable part ' + #Com_Owner.Name) Color(Blue)
#Com_Owner.Set_Form Show_Popover(TRUE)
Otherwise /* Default */
#COM_OWNER.IsNewForm := True
#W_LAT := -33.8390190
#W_LON := 151.2098640
#W_LOC := '100 Miller St, North Sydney, Australia'
#W_LOC2 := '122 Arthur St, North Sydney, Australia'
Endcase
* --------------------------------------------------------------
* Format out the 'static' parts of the form view to be displayed
* --------------------------------------------------------------
#COM_OWNER.Set_Form Title('Location directions')
#COM_OWner.Set_Form Grid_Col_N(1) Grid_Col_Width(Fill)
#COM_OWner.Set_Form Grid_Row_N(2) Grid_Row_Height(Fill)
* Fields and web view
#Com_Owner.Set_Label Text('Show directions from a location to another location using google maps') Layout_Row(1) Layout_Col(1)
* replace all spaces in the addresses with +
#W_LOC := #W_LOC.ReplaceAll(' ' '+')
#W_LOC2 := #W_LOC2.ReplaceAll(' ' '+')
* Show a map in google maps (or the maps app) with the directions on it
*#COM_OWNER.Set_OpenURL Event('/Form.OnLoad') Url('http://maps.google.com/maps?saddr=' + #W_LAT.AsString + ',' + #W_LON.AsString + '&daddr=' + #W_LOC)
*or
* Show the directions in an imbedded web page
*#COM_OWNER.Set_WebView Name(SITEWEB) Layout_Row(2) Layout_Col(1) Url('http://maps.google.com/maps?saddr=' + #W_LAT.AsString + ',' + #W_LON.AsString + '&daddr=' + #W_LOC)
* or specify both addresses as street addresses - this makes it easier for the user to understand the directions
#COM_OWNER.Set_WebView Name(SITEWEB) Layout_Row(2) Layout_Col(1) Url('http://maps.google.com/maps?saddr=' + #W_LOC + '&daddr=' + #W_LOC2)
Endroutine
End_Com