Index: BL/Flow/Factuur/Doc.cls.xml
===================================================================
diff -u -r48851 -r48854
--- BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 48851)
+++ BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 48854)
@@ -419,22 +419,23 @@
 	. Set ARtn=$S(FactType="P":"aftProformaPrintOMR", 'blnAlsoArchive:"aftFactuurPrintOMR", 1:"aftFactuurPrintOMRAndFile")
 	. Set blFact.lbDocs=$LB($LB(FANr,FactType,pdlExemplaren))
 	. Set blnFile=(blnAlsoArchive=1)
-	Else  Do  Quit sc
-	. Set sc=$$$ERROR($$$GeneralError,"PrintAndFileDoc: inconsistent ProcessorFlag ("_ProcessorFlag_") for FactType "_FactType_". Task not built.")
+	Else  Do
+	. Do ##class(TECH.Exceptions.InvalidInputException).Throw("PrintAndFileDoc: inconsistent ProcessorFlag ("_ProcessorFlag_") for FactType "_FactType_". Task not built.")
 
 	Set blFact.TransformType=$S(blnPPOD:"PS",1:"PDF")
 	Set blFact.lbPPODKeywords=$S(blnPPOD:$LB(,,,,,,"",,,""), 1:$LB())   ; Bijlage and PrintGroep filled by SQL-update !!!
 	Set blFact.lbPPODKeywords=$S(blnPPOD:"", 1:$LB())
 	Do blFact.XsltParams.SetAt($G(pWithLogo,0),"pWithLogo")	
 	;Do blFact.XsltParams.SetAt(pTraySelect,"pTraySelect")	
 	// Build Task
+	#dim Task As Sys.FOP.Task = ""
 	Set Task=blFact.CreateFopTask(ARtn,,)
 	If DataOphalenViaDto {
 		Set blFact.lbDocs=""
 		Set sc=blFact.DocSetRenderDataFromDto(Task.AddDoc(), DocData, "DOCS")
 	}
 	Else {
-		Set sc=blFact.DocSetRenderDefs(Task.AddDoc(), )   ; blFact.lbDocs, , blFact.TransformType, blFact.lbPPODKeywords)
+		Set sc=blFact.DocSetRenderDefs(Task.AddDoc(), )
 	}
 	Set:($$$ISOK(sc))&&(blnFile) sc=Task.AddActionFile(FName,Dir)
 	Set:($$$ISOK(sc))&&(blnPPOD) sc=Task.AddActionPrint(blFact.Printer,1,,,)