Index: UI/Utils/Makova.cls.xml
===================================================================
diff -u
--- UI/Utils/Makova.cls.xml	(revision 0)
+++ UI/Utils/Makova.cls.xml	(revision 3833)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="UI.Utils.Makova">
+<Description>
+Deze klasse wordt opgeroepen vanuit de VB-Kaderdeur.dll (interne Kaderdeur-wizard) en vanuit de ReflectionVBA. 
+(tussenstap via UI.Utils.MAppLauncher.MainForm) </Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="AppName">
+<Default>UI.Utils.MAppLauncher.MainForm</Default>
+</Parameter>
+
+<Parameter name="MakovaPath">
+<Default>\\Notes01\shared\common\Makova Run Time\smwrt.exe</Default>
+</Parameter>
+
+<Method name="GeefMAppLauncherStartCommand">
+<Description>
+Opbouwen van de CmdLine voor het oproepen van MAppLauncher via VBA:
+cmdLine = Factory.Static("UI.Utils.Makova").GeefMAppLauncherStartCommand()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ServerEnNamespace=##class(TECH.Config.ConfigMgr).Instance().GetString("Makova_ServerEnNamespace")
+	Set CacheMakovaIP=$P(ServerEnNamespace,"\",1)
+	Set CacheMakovaNSpace=$P(ServerEnNamespace,"\",2)
+	Quit ..#MakovaPath_" -a"_CacheMakovaIP_" -p7200 -n"_CacheMakovaNSpace_" -uCUSR -wCUSR -f"_..#AppName
+	; Resultaat:  "\\Notes01\shared\common\Makova Run Time\smwrt.exe -a192.168.1.6 -p7200 -nADMIN1 -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMakovaRuntimePath">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..#MakovaPath
+]]></Implementation>
+</Method>
+</Class>
+</Export>