Index: WS/AX/DocGen/LeveringService.cls.xml
===================================================================
diff -u -r47515 -r48273
--- WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 47515)
+++ WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 48273)
@@ -22,12 +22,14 @@
 <ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	#dim KlantNr As %String = $ZSTRIP($$$Trim(LeveringData.KLANTNR),"*C")
+
 	/// TO DO: de bepaling van blnStapling, PrinterName, LevDocType (voor RenderAndPrintDocViaType) in functie doen van pxLevering (i.p.v. i.f.v. persistente data).
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Leveringen.Insert(LeveringData)
 	
 	#dim FilePath As %String = ..DefaultPDFName(LeveringData.LEVERINGSNR)
-	#dim sc As %Status = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, LeveringData.LEVERINGSNR)
+	#dim sc As %Status = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, LeveringData.LEVERINGSNR, , KlantNr)
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	
 	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()
Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r45716 -r48273
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 45716)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 48273)
@@ -96,7 +96,7 @@
 
 <Method name="RenderAndFileDocFromDto">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[DocData:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,DocRef:%String="",blnShowRembours:%Boolean=0]]></FormalSpec>
+<FormalSpec><![CDATA[DocData:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,DocRef:%String="",blnShowRembours:%Boolean=0,KlantNummer:%String=""]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set blLev=..Instantiate()
@@ -106,7 +106,8 @@
 	Set blLev.TransformType="PDF"
 	Set blLev.lbPPODKeywords=$LB()
 	Do blLev.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
-	Do blLev.XsltParams.SetAt($$$xslpFromDoc,"pImageColVisible")
+	#dim ImageColVisible As %Boolean = blLev.ShowImageColumn(KlantNummer,"L",DocRef)
+	Do blLev.XsltParams.SetAt(ImageColVisible,"pImageColVisible")
 	
 	Set sc=blLev.BuildTaskRenderAndFileFromProxy(DocData, .FilePath)
  	Set Task=blLev.FopTask