Index: BL/Flow/Pakbon/Doc.cls.xml
===================================================================
diff -u -r29059 -r61678
--- BL/Flow/Pakbon/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Pakbon/Doc.cls.xml	(.../Doc.cls.xml)	(revision 61678)
@@ -121,6 +121,56 @@
 	Quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="RenderAndPrintPakbonAndPrintLeverbonPdfFile">
+<Description>
+De Leveringsbon (van handel) is in PDF-bestand reeds beschikbaar (via WebService naar AX) Deze taak zal de pdf printen en pakbon renderen zoals gewoonlijk. 
+Oproepen via : 
+  s sc=##class(BL.Flow.Pakbon.Doc).RenderAndPrintPakbonAndPrintLeverbonPdfFile(305229,"VHIP2", LevBonPdfPath)   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BONNr:%String,PrinterName:%String,LeverbonPdfBestandVolledigeNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim DocRef As %String = BONNr 
+	#dim pWithLogo As %Boolean = 0
+	#dim StaplingMode As %String = ""
+	
+	If $G(PrinterName) = "" {
+		; smijt exception 
+	}
+	
+	#dim blPakbon As BL.Flow.Pakbon.Doc = ..Instantiate()
+	Do blPakbon.Init(DocRef,)
+	Set blPakbon.lbDocs = $LB(BONNr,)
+	Set blPakbon.Printer = PrinterName
+	Set blPakbon.TransformType = "PS"
+	Set blPakbon.lbPPODKeywords = $LB()
+	Set blPakbon.ADBTemplate = blPakbon.GetADBTemplate(0)
+		
+	#dim pTraySelect As %String = ##class(BL.Sys.FOP.CommonTasks).GetPrinterTray(blPakbon.Printer,"GEEL","TRAY")
+	#dim pStaplingConfig As %String = ##class(BL.Sys.FOP.CommonTasks).GetStaplingConfig(blPakbon.Printer,.StaplingMode,1)
+	Do blPakbon.XsltParams.SetAt(pWithLogo,"pWithLogo")	
+	Do blPakbon.XsltParams.SetAt(pTraySelect,"pTraySelect")	
+	Do blPakbon.XsltParams.SetAt(pStaplingConfig,"pStaplingConfig")	
+		
+	// Create FopTask 
+	#dim Task As Sys.FOP.Task = blPakbon.CreateFopTask("DocRenderPakbonAndPrintPdfFromFile",,)
+	#dim sc As %Status = blPakbon.DocSetRenderDefs(Task.AddDoc(), )
+	
+	; Add Task to print the pdf LeverbonPdfBestandVolledigeNaam 
+	
+	Quit:($$$ISERR(sc)) sc
+	#dim NumCopies As %Integer = 1
+	Set:($$$ISOK(sc)) sc=Task.AddActionPrint(blPakbon.Printer,NumCopies,,)
+	Quit:($$$ISERR(sc)) sc
+	
+	// Run FopTask 
+	Do blPakbon.Close()
+	Set blPakbon=""
+	Set:($$$ISOK(sc)) sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmBatch,$$$qpvLow+1)
+	Quit sc
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r56404 -r61678
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 56404)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 61678)
@@ -441,6 +441,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RenderAndPrintPakbonAndPrintLeverbonPdfFile">
+<Description>
+Doorverwijzing naar Pakbon, vanwege meer complexiteit bij pakbon. De leveringsbon: enkel de meegeleverde pdf rechtstreeks afprinten. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BONNr:%String,PrinterName:%String,LeverbonPdfBestandVolledigeNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.Flow.Pakbon.Doc).RenderAndPrintPakbonAndPrintLeverbonPdfFile(BONNr, PrinterName, LeverbonPdfBestandVolledigeNaam)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***   EXPORT PROXY-OBJECTS   *** /