#Include TCHUI.System
 
	Write *27,"[",$A(" "),";",1,";",1,";",24,";",80,";$x"
	
	New MaxCnt,Line,aRtns,RtnCnt
	Set MaxCnt=^rMAC("CHUI.Projects",0,0)
	Set RtnCnt=0
	w !
	For Loop=1:1:MaxCnt Do
	. Set Line=^rMAC("CHUI.Projects",0,Loop)
	. Quit:($E(Line)'?1A)
	. Set RtnCnt=RtnCnt+1
	. Set aRtns(RtnCnt)=$P(Line,"(",1)
	. w $J(RtnCnt,3)_". "_aRtns(RtnCnt),!
	
	w !,"Choose: ",!
	r key#2
	
	Quit:(+key=0)
	
	If '$D(aRtns(key)) Do  Quit
	. w !!,"Not found!",!!
	
	Set Lbl=aRtns(key)_"^CHUI.Projects()"
	Do @Lbl
	
	w "Do "_aRtns(key)_"^CHUI.Projects()"
	
	Quit
 
 
RO(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Flow.Uitlevering.RemboursOnbetaald.MainForm","frmRemboursOnbetaald","RemboursOnbetaald",ADE)
	Quit
	
Agenda(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Derde.Agenda.MainForm","frmAgenda","Agenda",ADE)
	Quit
	
LogSteuer(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Blum.LogSteuer.MainForm","frmLogSteuer","LogSteuer",ADE)
	Quit
	
StockOverwrite(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.MB.StockOverwrite.MainForm","frmStockOverwrite","Stock overschrijven",ADE)
	Quit
 
KB(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Derde.KB.dlgModify","frmSearch","Knowledge Base - Search",ADE)
	Quit
 
RplLevWk(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Flow.Order.LeverwekenMain","frmLeverWeken","Raadplegen leverweken orders",ADE)
	Quit
	
DBTest(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Derde.KB.DBTest","frmDBTest","Test DB components",ADE)
	Quit
 
TreeListTest(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Test.TreeList","frmTreeListTest","Test TreeList",ADE)
	Quit
 
SelectKlant(ADE)
	s ADE=$G(ADE,1)
	Set %Application=##class(TCHUI.TApplication).Create()
	Set AttachDebugEvents=$G(AttachDebugEvents,1)
	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create()
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
 
	w ##class(TCHUI.Dlg.TSelectKlant).Select("")
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input
 
	Quit
SelectProduct(ADE)
	s ADE=$G(ADE,1)
	Set %Application=##class(TCHUI.TApplication).Create()
	Set AttachDebugEvents=$G(AttachDebugEvents,1)
	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create()
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
 
	w ##class(TCHUI.Dlg.TSelectProduct).Select("")
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input
 
	Quit
OrgaluxPrintSelect(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Orgalux.PrintSelect","frmOrgPrintSelect","Orgalux PrintSelect",ADE)
	Quit
	
SortDialog(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("TCHUI.Dlg.TSort","dlgSort","Sortering",ADE)
	Quit
 
SelectDatum(ADE)
	s ADE=$G(ADE,1)
	Set %Application=##class(TCHUI.TApplication).Create()
	Set AttachDebugEvents=$G(AttachDebugEvents,1)
	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create()
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
 
	w ##class(TCHUI.Dlg.TSelectDate).Select("Select date",$H)
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input
 
	Quit
 
TListFiller(ADE,Type)
	s ADE=$G(ADE,1)
	Set %Application=##class(TCHUI.TApplication).Create()
	Set AttachDebugEvents=$G(AttachDebugEvents,1)
	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create()
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
 
  Set Type=$G(Type,2)
	w ##class(TCHUI.Dlg.TListFiller).Select(.lst,Type)
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input
 
	Quit
	
TListDataPump(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("TCHUI.Dlg.TListDataPump","frmListDataPump","",ADE)
	Quit
	
AppBlocker(ADE)
	d ##class(TCHUI.Utils.AppBlocker.MainForm).Run()
	Quit
	
EditCtrlHelp(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("TCHUI.Dlg.Tools.dlgEditCtrlHelp","dlgEditCtrlHelp","",ADE)
	Quit
	
AutoCC(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.MB.Auto.CC.MainForm","frmAutoCC","AutoCC",ADE)
	Quit
 
FOPPrint(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.FOP.Print.MainForm","frmFOPPrint","FOPPrint",ADE)
	Quit
 
SysToegang(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.Sys.Toegang.MainForm","frmSysToegang","SysToegang",ADE)
	Quit
 
TList(ADE)
	s ADE=$G(ADE,0)
	Set %Application=##class(TCHUI.TApplication).Create()
	Do:(ADE) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create()
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
 
	Set frmList=##class(TCHUI.Dlg.TList).CreateAndPrepare("Caption","Dit is een msg met meerdere lijnen en wij vragen ons af wat er gebeurt bij het overschrijden van deze toch wel te lange message header list lijn","Header",60,20,"TestBtn",1)
	Do frmList.AddItem("Item1")
	Do frmList.AddItem("Item2")
	Do frmList.AddItem("Item3")
	Do frmList.ShowModal()
	 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Control,%Application,%Screen,%Input
 
	Quit
 
GefaaldeExportsEasyForm(ADE)
	s ADE=$G(ADE,1)
	d BootApp^TCHUI.System("CHUI.BKH.GefaaldeEasyformAankoopfactuurExports","","",ADE)
	Quit