Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml
===================================================================
diff -u -r66843 -r66845
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml	(.../ImporteerVoorraadNiveauKardex.cls.xml)	(revision 66843)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml	(.../ImporteerVoorraadNiveauKardex.cls.xml)	(revision 66845)
@@ -8,18 +8,20 @@
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
-<Parameter name="OntvangMap">
-<Default>\\kardex01-prd\Kardex_Data\Export</Default>
-</Parameter>
-
-<Parameter name="OntvangArchiefMap">
-<Default>\\kardex01-prd\Kardex_Data\Export\Archive</Default>
-</Parameter>
-
 <Parameter name="OpkuisNaDagen">
 <Default>30</Default>
 </Parameter>
 
+<Property name="OntvangMap">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OntvangArchiefMap">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="pxVoorraad">
 <Type>dtoCorrelateVoorraadNiveauKardex</Type>
 </Property>
@@ -28,13 +30,22 @@
 <Type>OBJTimpl.CheckObjectiveFase</Type>
 </Property>
 
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).%New())
+	Set ..OntvangMap = ..ConfigMgr.GeefString("OBJTimpl.KardexOntvangMap")
+	Set ..OntvangArchiefMap = ..ConfigMgr.GeefString("OBJTimpl.KardexOntvangArchiefMap")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -45,15 +56,15 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
  Set Error=0
- Do GETFILES^vhDEV(..#OntvangMap,.Files,"STOCK_SYNC*.XML","F")
+ Do GETFILES^vhDEV(..OntvangMap,.Files,"STOCK_SYNC*.XML","F")
  Hang 1
  ; Verwerking in volgorde van creatie van de bestanden
  Set File=$O(Files(""))
  While File'="" 
  {   Set PathAndFile=$TR($P(Files(File),"\"),"/","\")
  		
  	 Do ..VerwerkBestand(PathAndFile)
-	 ;Do MOVEFILE^vhDEV(PathAndFile,,..#OntvangArchiefMap)
+	 ;Do MOVEFILE^vhDEV(PathAndFile,,..OntvangArchiefMap)
 
  	 Set File=$O(Files(File))
  }
Index: vhDeploy/D20220204ImportlocatieOBJTEnKardexBestanden.cls.xml
===================================================================
diff -u
--- vhDeploy/D20220204ImportlocatieOBJTEnKardexBestanden.cls.xml	(revision 0)
+++ vhDeploy/D20220204ImportlocatieOBJTEnKardexBestanden.cls.xml	(revision 66845)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20220204ImportlocatieOBJTEnKardexBestanden">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>locatie voor import OBJT en KARDEX bestanden</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ConfigMgr = ##class(TECH.Config.ConfigMgr).%New()
+	If ($$$Server = "CACHE01") {
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangMap","\\kardex01-prd\Kardex_Data\Export")
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangArchiefMap","\\kardex01-prd\Kardex_Data\Export\Archive")
+	} elseif ($$$Server = "CACHEACP2010") {
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangMap","\\kardex01-acp\Kardex_Data\Export")
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangArchiefMap","\\kardex01-acp\Kardex_Data\Export\Archive")
+	} else {
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangMap","Nog te bepalen locatie")
+		Do ConfigMgr.ZetString("OBJTimpl.KardexOntvangArchiefMap","Nog te bepalen locatie")
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>