// do ^CHUI.BKH.Renewals
 // of
 // do StartLev^CHUI.BKH.Renewals
Start
	#Include %CHUI.System
 
	Set %Application=##class(%CHUI.TApplication).Create()
	
	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
	Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520)
	Set %Input=##class(%CHUI.TInput).Create()
	Do %Screen.Clear()
 
	;Check of de ingelogde gebruiker bekend is...
	Quit:('$$UserAvailable^$$$SystemRtn)
 
 	;Caption
 	Do %Screen.SetTerminalCaption("Renewals")
 	//Do %Screen.SetTerminalWindowState($$$rcMaximized)
	
	;MainForm
	Set frmMain=%Application.CreateForm("CHUI.BKH.Renewals.MainForm","frmMain","frmMain")
 
	Do %Application.Run()
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Application,%Screen,%Input,frmToegang,%CHUIDebug
	
	Quit
 
Debug
	Set %CHUIDebug=1
	Do Start
	Quit
	
StartLev
	#Include %CHUI.System
 
	Set %Application=##class(%CHUI.TApplication).Create()
	
	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
	Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520)
	Set %Input=##class(%CHUI.TInput).Create()
	Do %Screen.Clear()
 
	;Check of de ingelogde gebruiker bekend is...
	Quit:('$$UserAvailable^$$$SystemRtn)
 
 	;Caption
 	Do %Screen.SetTerminalCaption("Test Leverancier")
	
	;MainForm
	//Set frmMain=%Application.CreateForm("CHUI.Dlg.Tools.TSelectLev","frmMain","frmMain")
	//Set frmMain=%Application.CreateForm("%CHUI.Dlg.Tools.TSelectKlant","frmMain","frmMain")
	Set Input = ""
	Set LevNr=##class(%CHUI.Dlg.TSelectLev).Select(Input)
	$$$MB("LevNr="_LevNr)
 
	//Do %Application.Run()
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Application,%Screen,%Input,frmToegang,%CHUIDebug
	
	Quit
 
DebugLev
	Set %CHUIDebug=1
	Do StartLev
	Quit