Index: BL/Sys/FOP/DocBaseV7Helper.cls.xml
===================================================================
diff -u -r73595 -r73729
--- BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73595)
+++ BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73729)
@@ -69,6 +69,10 @@
 <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)) {
@@ -77,21 +81,25 @@
 	}
 	*/
 	
+	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
+	Quit:(Keywords = ";TRANSPORTLIJST;PrintDoc;") $$$False   ; levbewijsNotStapled_01.01 
 	
 	
 	// Mail Tasks : 
@@ -108,34 +116,34 @@
 	 // 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
+		Quit $$$False
 	}
 
 
 	 // FileToInetPub : 
-	#dim IsFileToInetPub As %Boolean = ($$$LCase(FilePathToSaveDoc) [ "inetpubfop")
+	#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
+		Quit $$$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
+		;Quit:(Keywords = ";LEVBON;FileDoc;") $$$False
+		Quit $$$False
 	}
 	
 	
@@ -222,6 +230,18 @@
 				; Throw NotImplemented Exception ("dit type list moet eerst nagekeken worden vooraleer dit mag omgezet worden")
 			}
 		}
+		
+	/*   */
+		ElseIf (BeanRtPropertyToConvert.targetBeanName = "adb_renderTask") && (BeanRtPropertyToConvert.targetPropertyKey = "dpInfo.documentName") {
+			// "levdocStapled_01.01" en "pakbonStapled_01.01"  --> NOT Stapled
+			#dim DocTemplateNameV7 = BeanRtPropertyToConvert.newPropertyValue 
+			If (BeanRtPropertyToConvert.newPropertyValue = "levdocStapled_01.01") Set DocTemplateNameV7 = "levdocNotStapled_01.01"
+			If (BeanRtPropertyToConvert.newPropertyValue = "pakbonStapled_01.01") Set DocTemplateNameV7 = "pakbonNotStapled_01.01"
+			If (BeanRtPropertyToConvert.newPropertyValue = "levbewijsStapled_01.01") Set DocTemplateNameV7 = "levbewijsNotStapled_01.01"
+			Set BeanRtPropertyV7.newPropertyValue = DocTemplateNameV7
+		}
+	/*   */
+		
 		Else {
 			// Slechts één van deze drie zal ingevuld zijn, de andere zijn leeg, dus zouden in feite niet moeten overgezet worden, maar dat is geen probleem aangezien het gewoonweg dto's zijn en dat maakt voor caché dus geen verschil.
 			Set BeanRtPropertyV7.newPropertyValue     = BeanRtPropertyToConvert.newPropertyValue