Index: WSimpl/AX/DocGen/Utils.cls.xml
===================================================================
diff -u -r51767 -r61346
--- WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 51767)
+++ WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 61346)
@@ -3,6 +3,23 @@
 <Class name="WSimpl.AX.DocGen.Utils">
 <Super>TECH.Mockable</Super>
 
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CommissieRepository:DOM.VKP.Commissie.CommissieRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ControleerTekstHTMLTags">
 <FormalSpec>TekstHTMLTagLijst:%ListOfObjects,DocumentOmschrijving:%String,FixWhenDollarC0:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
@@ -32,6 +49,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakFactuurZonderProductLangteksten">
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur</FormalSpec>
+<Implementation><![CDATA[
+	#dim KlantId As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(+FactuurData.KLANTNR)   ; Echte conversie van AX-klantnummer naar VH-klantnummer i.p.v PartijAPI (?) 
+	
+	Quit ##class(TECH.StringUtils).Equals(KlantId, ##class(DOM.VKP.enu.Klant).HaefeleBelgie() )
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProductLangtekst">
+<FormalSpec>FopProduct:BL.FOP.Prod.Product</FormalSpec>
+<Implementation><![CDATA[
+	If $IsObject(FopProduct) && $IsObject(FopProduct.TEKST) {
+		Set ItemIterator = ##class(TECH.ReversedListIterator).%New(FopProduct.TEKST.ITEM)
+		While ItemIterator.HasNext() {
+			#dim Item As String = ItemIterator.Next()
+			#dim ItemKey As %String = ItemIterator.Key()
+			#dim RemoveTekstItem As %Boolean = (ItemKey < 50) && (ItemKey > 0)   ; Quick-and-dirty manier om alleen de langtekst te verwijderen 
+			If RemoveTekstItem {
+				Do FopProduct.TEKST.ITEM.RemoveAt(ItemKey)
+			}
+			;d WLIP^vhDBG(97,ItemKey_" : " _Item_ " --> remove "_RemoveTekstItem)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VervangTekstHTMLTags">
 <FormalSpec>TekstHTMLTagLijst:%ListOfObjects</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/WSimpl/AX/DocGen/Utils.cls.xml
===================================================================
diff -u -r56421 -r61346
--- vhTest/Fake/WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 56421)
+++ vhTest/Fake/WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 61346)
@@ -17,6 +17,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="MaakFactuurZonderProductLangteksten">
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProductLangtekst">
+<FormalSpec>FopProduct:BL.FOP.Prod.Product</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VervangTekstHTMLTag">
 <FormalSpec>TekstHTMLTag:BL.FOP.Basis.pxTekstHTML</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/WSimpl/AX/DocGen/Utils.cls.xml
===================================================================
diff -u -r51767 -r61346
--- vhTest/Mock/WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 51767)
+++ vhTest/Mock/WSimpl/AX/DocGen/Utils.cls.xml	(.../Utils.cls.xml)	(revision 61346)
@@ -8,6 +8,13 @@
 <Super>WSimpl.AX.DocGen.Utils,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>CommissieRepository:DOM.VKP.Commissie.CommissieRepository</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ControleerTekstHTMLTag">
 <FormalSpec>TekstHTMLTag:BL.FOP.Basis.pxTekstHTML,DocumentOmschrijving:%String,FixWhenDollarC0:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ControleerTekstHTMLTag",TekstHTMLTag,DocumentOmschrijving,FixWhenDollarC0)
@@ -20,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakFactuurZonderProductLangteksten">
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakFactuurZonderProductLangteksten",FactuurData)
+]]></Implementation>
+</Method>
+
 <Method name="VervangTekstHTMLTag">
 <FormalSpec>TekstHTMLTag:BL.FOP.Basis.pxTekstHTML</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VervangTekstHTMLTag",TekstHTMLTag)
@@ -31,6 +44,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VervangTekstHTMLTags",TekstHTMLTagLijst)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderProductLangtekst">
+<FormalSpec>FopProduct:BL.FOP.Prod.Product</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderProductLangtekst",FopProduct)
+]]></Implementation>
+</Method>
 </Class>