Index: UI/Utils/MAppLauncher/MainForm.cls.xml
===================================================================
diff -u -r3690 -r3790
--- UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 3690)
+++ UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 3790)
@@ -977,19 +977,19 @@
 <Method name="VBABuildMAppCmdLine">
 <Description>
 Opbouwen van de CmdLine voor het oproepen van MAppLauncher via VBA:
-cmdLine = Factory.Static("UI.Utils.MAppLauncher.MainForm").VBABuildMAppCmdLine()
-</Description>
+cmdLine = Factory.Static("UI.Utils.MAppLauncher.MainForm").VBABuildMAppCmdLine()</Description>
 <ClassMethod>1</ClassMethod>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-#define CacheIP      $P($system.Server.IPAddresses(""),",",1)
-#define CacheNSpc    $ZU(5)
-
- Quit ..#MakovaPath_" -a"_$$$CacheIP_" -p7200 -n"_$$$CacheNSpc_" -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
+ New ServerEnNamespace,CacheMakovaIP,CacheMakovaNSpace
+ 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 -fUI.Utils.MAppLauncher.MainForm"
   ; "\\Notes01\shared\common\Makova Run Time\smwrt.exe -a192.168.1.6 -p7200 -nADMIN1 -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
 ]]></Implementation>
 </Method>