Index: BL/Sys/FOP/DocBaseV7Helper.cls.xml
===================================================================
diff -u -r73493 -r73595
--- BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73493)
+++ BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73595)
@@ -20,8 +20,142 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkTijdelijkActiefDocBaseV7">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Task:Sys.FOP.Task</FormalSpec>
+<Implementation><![CDATA[
+	Kill %WVActivateDocBaseV7
+	#dim TaskId As %String = Task.%Id()
+	
+	If ..IsTijdelijkActiefDocBaseV7(TaskId, Task) {
+		Set %WVActivateDocBaseV7 = 1
+		Do ##class(Sys.FOP.Logging).AddToLog("INFO","Task","RunTask","Task "_TaskId_" global var ingesteld : %WVActivateDocBaseV7 = 1 ($Job='"_$Job_"' en $io='"_$io_"').")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsTijdelijkActiefDocBaseV7">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TaskId:%String,Task:Sys.FOP.Task</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsTijdelijkActief = $$$False
+	Try {
+		If (##class(TECH.StringUtils).Equals(TaskId, "xx8086302||0","xx8086317||0") ) {
+			// Om reeds bestaande FopTaak (vaste TaskId) te "herbeginnen" 
+			Set IsTijdelijkActief = $$$True
+		}
+		Else {
+			Set IsTijdelijkActief = ..AnalyseerFopTaakVoorV7(Task)
+		}
+	}
+	Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewExceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout in method IsTijdelijkActiefDocBaseV7() voor Sys.FOP.Task '"_TaskId_"'. "_$$$CRLF_"De FopTaak wordt wel uitgevoerd, maar het bepalen van 'IsActiefDocBaseV7' is niet volledig gelukt.")
+		Do NewExceptie.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(vhLib.Logger).%New("Sys.FOP.DocBase").LogExceptie(NewExceptie)   ; LogEnMailExceptie
+		
+		#dim sc As %Status = $$SendMiniMailForced^vhLib.Mail("""FOP DocBaseV7Helper"" <AdminFOP@vanhoecke.be>", $LB("wv@vanhoecke.be"), "DocBase Error in method IsTijdelijkActiefDocBaseV7() - "_$ZDT($H,4), NewExceptie.GeefOmschrijving(),,,,,)
+	}
+	
+	Quit IsTijdelijkActief
+]]></Implementation>
+</Method>
+
+<Method name="AnalyseerFopTaakVoorV7">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Task:Sys.FOP.Task</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Keywords As %String = Task.KeyWords
+	
+	/*
+	#dim PrinterName As %String = ""
+	If (Keywords [ ";PrintDoc;") && ($IsObject(Task.ActionPrint)) {
+		Set PrinterName= Task.ActionPrint.Printer   
+		; Printer?1(1"LEVBON_".E)
+	}
+	*/
+	
+	// Halux Tasks : 
+	Quit:(Keywords = ";PRODUCTIEDETAILBLAD;PrintDoc;") $$$False
+	Quit:(Keywords = ";TAGBASEDDOC;PrintDoc;") $$$False
+	Quit:(Keywords = ";VHOSS;PrintDoc;") $$$False
+	Quit:(Keywords = ";VHOSS;FileDoc;") $$$False
+	Quit:(Keywords = ";VOORRAADID;PrintDoc;") $$$False
+	Quit:(Keywords = ";VTELLING;FileDoc;") $$$False
+	
+	
+	// Magazijn Tasks
+	Quit:(Keywords = ";LEVBON;PrintDoc;") $$$False
+	Quit:(Keywords = ";PAKBON;PrintDoc;") $$$False
+	;Quit:(Keywords = ";LEVBON;PrintDoc;") $$$False   ; Pakbon    (bij LevBon)
+	;Quit:(Keywords = ";LEVBON;PrintDoc;") $$$False   ; LevBewijs (bij LevBon)
+	Quit:(Keywords = ";TRANSPORTLIJST;PrintDoc;") $$$False
+	
+	
+	// Mail Tasks : 
+	Quit:(Keywords = ";Docs;Render;File;SendMail;") $$$False
+	Quit:(Keywords [ ";MailDoc;") $$$True
+	
+	
+	// SaveToFile Tasks
+	#dim FilePathToSaveDoc As %String = ""
+	If (Keywords [ ";FileDoc;") && ($IsObject(Task.ActionFile)) {
+		Set FilePathToSaveDoc= Task.ActionFile.DocPath
+	}
+
+	 // File To AX : 
+	#dim IsFileToAx As %Boolean = ($$$LCase(FilePathToSaveDoc) [ "\\notes01\fop\ax_prod\")
+	If (IsFileToAx) {
+		Quit $$$False
+		Quit:(Keywords = ";ORDER;FileDoc;") $$$False
+		Quit:(Keywords = ";OFFERTE;FileDoc;") $$$False
+		Quit:(Keywords = ";FACTUUR;FileDoc;") $$$False
+		Quit:(Keywords = ";TOELEV;FileDoc;") $$$False
+	}
+
+
+	 // FileToInetPub : 
+	#dim IsFileToInetPub As %Boolean = ($$$LCase(FilePathToSaveDoc) [ "inetpubfop")
+	If (IsFileToInetPub) {
+		Quit $$$False
+		;Quit:(Keywords = ";PRODUCTIEDETAILBLAD;FileDoc;") $$$False
+		;Quit:(Keywords = ";LEVBON;FileDoc;") $$$False
+		;Quit:(Keywords = ";ORDER;FileDoc;") $$$False
+		;Quit:(Keywords = ";OFFERTE;FileDoc;") $$$False
+		;Quit:(Keywords = ";FACTUUR;FileDoc;") $$$False
+		
+	}
+	
+	// File FTP to IO (vhisiedownload) : 
+	#dim IsFtpToIO As %Boolean = ($$$UCase(FilePathToSaveDoc) [ "AX.EC")
+	If (IsFtpToIO) {
+		Quit $$$False	
+		;Quit:(Keywords = ";ORDER;FileDoc;") $$$False
+		;Quit:(Keywords = ";OFFERTE;FileDoc;") $$$False
+		;Quit:(Keywords = ";FACTUUR;FileDoc;") $$$False
+		Quit:(Keywords = ";LEVBON;FileDoc;") $$$False
+	}
+	
+	
+	// Facturen Receptie (CHUI.FOP.Print)
+	Quit:(Keywords = ";FACTUUR;PrintToPPOD;") $$$False
+	Quit:(Keywords = ";MergePPOD;PrintDoc;") $$$False
+	
+	
+	Quit $$$False
+]]></Implementation>
+</Method>
+
 <Method name="IsActiefDocBaseV7">
-<Implementation><![CDATA[	Quit ..ProjectSettingsAPI.IsActiefDocBaseV7()
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(Sys.FOP.Logging).AddToLog("INFO","Task","RunTask","DocBaseV7Helper %WVActivateDocBaseV7 = '"_$G(%WVActivateDocBaseV7)_"'.")
+	
+	Quit:($G(%WVActivateDocBaseV7) = 1) $$$True
+	
+	Quit ..ProjectSettingsAPI.IsActiefDocBaseV7()
 ]]></Implementation>
 </Method>