#Include TCHUI.System
 
Start
	Quit:('$$InitializationOpenToegang())
 
	If 'frmOpenToegang.LoadData() Do  Quit
	. Do Finalization()
 
	Do Run()
	
	Do Finalization()
	
	Quit
 
ShowForKlant(KlantNr)
	Quit:('$$InitializationOpenToegang())
 
	If 'frmOpenToegang.LoadData(KlantNr) Do  Quit
	. Do Finalization()
 
	Do Run()
	
	Do Finalization()
	
	Quit
 
 	;=============================================================================================================
InitializationOpenToegang()
	Quit:('$$Initialization()) 0
 
	Set frmOpenToegang=%Application.CreateForm("CHUI.Derde.EC.Toegang.dlgOpen","frmOpenToegang","frmOpenToegang")
 
	Quit 1
 
Initialization()
	Set %Application=##class(TCHUI.TApplication).Create()
	
	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520)
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
 
	;Check of de ingelogde gebruiker bekend is...
	Quit:('$$UserAvailable^$$$SystemRtn) 0
 
 	;Caption
	Do %Screen.SetTerminalCaption("vHisie toegang")
 
 	Quit 1
 
Run()
	Do %Application.Run()
	Quit
 
Finalization()
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Application,%Screen,%Input,frmToegang,%CHUIDebug
	Quit
 
 	;=============================================================================================================
Debug
	Set %CHUIDebug=1
	Do Start
	Quit