Index: BL/Flow/Factuur/Doc.cls.xml
===================================================================
diff -u -r1785 -r4040
--- BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
+++ BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 4040)
@@ -125,16 +125,28 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set DocDatum=$G(DocDatum,$H)
-	If $ZU(5)["DEV" Do
-	. Set ArchiveDir="E:\FOP\PDFTest\Factuur"
-	Else  Do
-	. Set ArchiveDir=$$$ArchiveDirFOP
+	Set ArchiveDir=..GeefArchiveMainDir()
 	Set:($E(ArchiveDir,$L(ArchiveDir))'="\") ArchiveDir=ArchiveDir_"\"
 	Set FactuurSubDir="Factuur"_$E($ZD(DocDatum,8),1,6)
 	Quit ##class(%File).NormalizeDirectory(ArchiveDir_FactuurSubDir)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefArchiveMainDir">
+<Description>
+Geeft steeds het path terug t.o.v. van FOP DocBase. 
+Mag dus GEEN netwerk-share naam zijn !!! </Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If $$$NSpace["DEV" Do
+	. Set ArchiveMainDir="E:\FOP\PDFTest\Factuur\"   ; is t.o.v de FOP-server 
+	Else  Do
+	. Set ArchiveMainDir=$$$ArchiveDirFOP
+	Quit ArchiveMainDir
+]]></Implementation>
+</Method>
+
 <Method name="ArchiveFullPathUser">
 <Description>
 geeft het pad om gebruikt te worden in RPLKL</Description>
Index: BL/Sys/FOP/Verwerker/tmpDev.mac.rou
===================================================================
diff -u -r4037 -r4040
--- BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 4037)
+++ BL/Sys/FOP/Verwerker/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 4040)
@@ -803,13 +803,11 @@
 	; !!! DEZE CODE IS QUICK AND DIRTY          !!!
 	; !!! ZOU VOLLEDIG MOETEN GEZUIVERD WORDEN. !!!
 	; !!! ZE IS MOGELIJK NIET 100% FAIL-SAFE.   !!!
-	New SeqItem,FilePath,CmdLine
+	New SeqItem,FilePath,ArchiveMainDir,CmdLine
 	Set SeqItem=$$asqCreateSeqItemCache(TSeq,"ExecCacheCode")
 	Set FilePath=##class(%File).NormalizeDirectory(Task.ActionFile.DocPath)_Task.ActionFile.DocName
-	If $ZU(5)["DEV" Do
-	. Set FilePath=$TR($$$Replace(FilePath,##class(%File).NormalizeDirectory("E:\FOP\PDFTest\Factuur\"),""),"\","/")
-	Else  Do
-	. Set FilePath=$TR($$$Replace(FilePath,##class(%File).NormalizeDirectory($$$ArchiveDirFOP),""),"\","/")
+	Set ArchiveMainDir=##class(BL.Flow.Factuur.Doc).GeefArchiveMainDir()
+	Set FilePath=$TR($$$Replace(FilePath,##class(%File).NormalizeDirectory(ArchiveMainDir),""),"\","/")
 	;w "FilePath (2): "_FilePath,!
 	Set CmdLine="Do ##class(BL.Flow.Factuur.Doc).ArchivePathToDoc("_FANr_","""_FactType_""","""_FilePath_""",1)"     ; FANr As %String, FactType As %String = "F", FilePath As %String, blnOverwrite As %Boolean = 1
 	Do asqAddParamsExecCacheCode(SeqItem,CmdLine)