Index: WS/AX/DocGen/ProxyDataHelper.cls.xml
===================================================================
diff -u -r65635 -r65636
--- WS/AX/DocGen/ProxyDataHelper.cls.xml	(.../ProxyDataHelper.cls.xml)	(revision 65635)
+++ WS/AX/DocGen/ProxyDataHelper.cls.xml	(.../ProxyDataHelper.cls.xml)	(revision 65636)
@@ -20,6 +20,9 @@
 <Implementation><![CDATA[
 	#dim IsProformaFactuur = (FactuurData.FACTTYPE = "P")
 	If IsProformaFactuur && (FactuurData.LEVERINGEN.Count() > 0) {
+		
+		Do ..VoegToeAanFactuurNieuwOrderVooraan(FactuurData)   ; Door deze lijn in commentaar te zetten, wordt de melding in het eerste (reeds aanwezige) order van de factuur toegevoegd. 
+		
 		#dim FactLev As BL.Flow.Proxy.pxFactLev = FactuurData.LEVERINGEN.GetNext("")
 		If $IsObject(FactLev) {
 			#dim OrderLijnen As %ListOfObjects = FactLev.ORDERS.GetNext("").LIJNEN
@@ -29,6 +32,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeAanFactuurNieuwOrderVooraan">
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set pxFactLev = ##class(BL.Flow.Proxy.pxFactLev).%New()
+	Set pxFactLev.LEVADRES = ""
+	Do FactuurData.LEVERINGEN.InsertAt(pxFactLev,1)
+	
+	Set pxFactOrd = ##class(BL.Flow.Proxy.pxFactOrd).%New()
+	Set pxFactOrd.ORDERREF = "INFO : "
+	Do pxFactLev.ORDERS.Insert(pxFactOrd)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeMeldingLeveringenVanaf01okt">
 <Description>
 Tijdelijk tekstlijn vooraan toevoegen voor prijswijziging : tussen 15/08 en 30/09/2021 wordt de melding toegevoegd, vanwege de geplande prijswijzigingen vanaf 01/10/2021. 
@@ -40,6 +57,7 @@
 	#define Datum01okt2021   66018
 	
 	#dim CurrentDate As %Date = +$H 
+	;set CurrentDate = +$H +30   ; Change curDate FOR TESTING !!! 
 	
 	If (CurrentDate >= $$$Datum15aug2021) && (CurrentDate < $$$Datum01okt2021) && $IsObject(OrderLijnen) {
 		#dim TekstLeveringenVanaf01okt As %String = ..GeefTekstLeveringenVanaf01okt(Taal)