Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r1647 -r1648
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 1647)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 1648)
@@ -33,7 +33,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Config.ConfigMgr</ReturnType>
 <Implementation><![CDATA[
- 	If ('$Data(%TechConfigConfigMgr) || '$IsObject($get(%TechConfigConfigMgr))) Set %TechConfigConfigMgr = ..%New()
+ 	If '$Data(%TechConfigConfigMgr) Set %TechConfigConfigMgr = ..%New()
     Quit %TechConfigConfigMgr
 ]]></Implementation>
 </Method>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1600 -r1648
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1600)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1648)
@@ -96,11 +96,15 @@
 	$$$chkRequiredParameter(KlantNr)
 	
 	if '$length(Bestandsnaam) {
-		Set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
-		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","KlantNr : "_KlantNr)
-		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","ConfigMgr is Object ? "_$IsObject(ConfigMgr))
-		Set Bestandsnaam = ConfigMgr.GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
-		Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","Bestandsnaam KlantBestand : "_Bestandsnaam)
+		If ($ZU(5) = "ADMIN1"){
+			Set Bestandsnaam = "\\FOP\VHINTRA\APPS.LEV\PRODUCT_LEVERANCIERS_::datum::.XML"
+		}Else{
+			Set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","KlantNr : "_KlantNr)
+			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","ConfigMgr is Object ? "_$IsObject(ConfigMgr))
+			Set Bestandsnaam = ConfigMgr.GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
+			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","Bestandsnaam KlantBestand : "_Bestandsnaam)	
+		}		
 		Set Datum = ""_$zd($h,3)
 		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
 	}