Index: WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml
===================================================================
diff -u -r51769 -r61348
--- WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 51769)
+++ WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 61348)
@@ -41,6 +41,7 @@
 	
 	Do ..ControleerMemoTags(FactuurData, $$$True)
 	Do ..ControleerImageUrls(FactuurData, $$$True)
+	Do ..VerwijderProductLangteksten(FactuurData)
 	
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Facturen.Insert(FactuurData)
@@ -99,6 +100,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderProductLangteksten">
+<Description>
+Bijvoorbeeld om de grote facturen van HaefeleBE kleiner te maken. 
+In principe is dit een work-around. De propere oplossing is dat AX geen langteksten van producten meegeeft naar Biztalk. 
+Zo kan kan dan in AX de juiste conditie ingesteld worden voor welke klanten dit van toepassing is. Logisch, want is meestal in combinatie met Factuur "1x/week" setting. </Description>
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur,PasAanIndienOngeldig:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..Utils.MaakFactuurZonderProductLangteksten(FactuurData) {
+		
+		Set LeveringIterator = ##class(TECH.ListIterator).%New(FactuurData.LEVERINGEN)
+		While (LeveringIterator.HasNext()) {
+			#dim Levering As BL.Flow.Proxy.pxFactLev = LeveringIterator.Next()
+			Set OrderIterator = ##class(TECH.ListIterator).%New(Levering.ORDERS)
+			While (OrderIterator.HasNext()) {
+				#dim Order As BL.Flow.Proxy.pxFactOrd = OrderIterator.Next()
+				Set LijnIterator = ##class(TECH.ListIterator).%New(Order.LIJNEN)
+				While (LijnIterator.HasNext()) {
+					#dim Lijn As BL.Flow.Proxy.pxOrderLijn = LijnIterator.Next()
+					Do:(Lijn.%Extends(##class(BL.Flow.Proxy.pxProductLijn).%ClassName(1))) ..Utils.VerwijderProductLangtekst(Lijn.PRODUCT)
+				}
+			}
+		}
+		
+	}
+]]></Implementation>
+</Method>
+
 <Method name="DefaultPDFName">
 <FormalSpec>DocRef:%String,Extension:%String="pdf"</FormalSpec>
 <Private>1</Private>