Skip to content

Instantly share code, notes, and snippets.

@jyoung

jyoung/TOH Url Changed

Created March 15, 2018 16:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jyoung/70b62250b5c18a1192db9248cfd08b68 to your computer and use it in GitHub Desktop.
Save jyoung/70b62250b5c18a1192db9248cfd08b68 to your computer and use it in GitHub Desktop.
Download ZIP
LANSA Tour Of Heroes URL Changed Event
Raw
TOH Url Changed
evtroutine handling(#SYS_WEB.URLChanged)
define_com class(#PRIM_ALPH) name(#lViewId)
#lViewId := #ApplicationController.GetURLParameter( VIEW ).UpperCase
#SYS_APPLN.TraceMessageText( ("URL Changed. View: &1").Substitute( #lViewId ) )
if (#lViewId = *BLANKS)
#lViewId := TOHDSHP01
endif
#COM_OWNER.ShowView( #lViewId )
endroutine
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment