Index: BL/Sys/FOP/DocBaseV7Helper.cls.xml
===================================================================
diff -u -r73799 -r73993
--- BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73799)
+++ BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73993)
@@ -20,167 +20,10 @@
 ]]></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="StelInEnGeefTerugTijdelijkActiefVoorFakeTask">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Keywords:%String="",FileDocPath:%String="",AnalyseRoutine:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	Quit:(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefDocBaseV7()) $$$True
-	
-	Kill %WVActivateDocBaseV7
-	
-	Set TempDummyTask = ##class(Sys.FOP.Task).%New()
-	Set TempDummyTask.KeyWords = Keywords
-	Set TempDummyTask.AnalyseRoutine = AnalyseRoutine
-	Do:($$$HasLength(FileDocPath)) TempDummyTask.AddActionFile("",FileDocPath)
-
-	Set %WVActivateDocBaseV7 = ..IsTijdelijkActiefDocBaseV7("", TempDummyTask)
-	Quit %WVActivateDocBaseV7
-]]></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
-	
-	If (Keywords [ "Reposted") {
-		Set Keywords = ##class(TECH.StringUtils).Replace(Keywords, ";Reposted", "", , 9999)
-	}
-	
-	/*
-	#dim PrinterName As %String = ""
-	If (Keywords [ ";PrintDoc;") && ($IsObject(Task.ActionPrint)) {
-		Set PrinterName= Task.ActionPrint.Printer   
-		; Printer?1(1"LEVBON_".E)
-	}
-	*/
-	
-	Quit:(Keywords = ";File;PrintDoc;") $$$True   ; Test WimV Print .PS file (i.e. load file from disk) 
-	
-	// 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;PrintDoc;") $$$False
-	Quit:(Keywords = ";VTELLING;FileDoc;") $$$False
-	
-	
-	// Magazijn Tasks
-	Quit:(Task.AnalyseRoutine = "DocRenderAndPrintPakbonAndPrintLeverbonPdfFile") $$$False
-	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   ; levbewijsNotStapled_01.01 
-	
-	
-	// 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:(Keywords = ";ORDER;FileDoc;") $$$False
-		Quit:(Keywords = ";OFFERTE;FileDoc;") $$$False
-		Quit:(Keywords = ";FACTUUR;FileDoc;") $$$False
-		Quit:(Keywords = ";TOELEV;FileDoc;") $$$False
-		Quit $$$False
-	}
-
-
-	 // FileToInetPub : 
-	#dim IsFileToInetPub As %Boolean = ($$$LCase(FilePathToSaveDoc) [ "\inetpubfop\") || ($$$LCase(FilePathToSaveDoc) [ "\inetpub\pdfs")
-	If (IsFileToInetPub) {
-		;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
-		Quit $$$False
-		
-	}
-	
-	// File FTP to IO (vhisiedownload) : 
-	#dim IsFtpToIO As %Boolean = ($$$UCase(FilePathToSaveDoc) [ "AX.EC")
-	If (IsFtpToIO) {
-		;Quit:(Keywords = ";ORDER;FileDoc;") $$$False
-		;Quit:(Keywords = ";OFFERTE;FileDoc;") $$$False
-		;Quit:(Keywords = ";FACTUUR;FileDoc;") $$$False
-		;Quit:(Keywords = ";LEVBON;FileDoc;") $$$False
-		Quit $$$False
-	}
-	
-	
-	// Facturen Receptie (CHUI.FOP.Print)
-	Quit:(Keywords = ";FACTUUR;PrintToPPOD;") $$$False
-	Quit:(Keywords = ";MergePPOD;PrintDoc;") $$$False
-	
-	
-	Quit $$$False
-]]></Implementation>
-</Method>
-
 <Method name="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>