Index: WS/AX/DocGen/OfferteService.cls.xml
===================================================================
diff -u -r48934 -r64511
--- WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 48934)
+++ WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 64511)
@@ -29,6 +29,7 @@
 	}
 
 	Do ..ControleerImageUrls(OfferteData, $$$True)
+	Do ..PasAanOfferteGeldigMelding(OfferteData)
 
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Offertes.Insert(OfferteData)
@@ -43,6 +44,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PasAanOfferteGeldigMelding">
+<Description>
+Tijdelijke aanpassing van de "OfferteGeldig"-melding : tussen 01/06 en 30/06/2021 wordt de melding aangepast, vanwege de geplande prijswijzigingen vanaf 01/07/2021. 
+Na deze datum zal de tekst automatisch terug de normale tekst worden, zoals doorgegeven vanuit Ax/Biztalk. 
+Nadien zou deze method best wel opgekuist worden. </Description>
+<FormalSpec>OfferteData:BL.Flow.Proxy.pxOfferte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define Datum01juni2021   65896
+	#define Datum01juli2021   65926
+	
+	#dim CurrentDate As %Date = +$H
+	;#dim Taal As %String = OfferteData.TAAL
+	
+	If (CurrentDate >= $$$Datum01juni2021) && (CurrentDate < $$$Datum01juli2021) && $IsObject(OfferteData.MEMO) {
+		Set MemoTekstIterator = ##class(TECH.ListIterator).%New(OfferteData.MEMO)
+		While (MemoTekstIterator.HasNext()) {
+			#dim MemoTag As BL.FOP.Basis.pxTekstHTML = MemoTekstIterator.Next()
+			If (MemoTag.Tag = "MEMO") {   //  && (MemoTag.Attributes.GetAt("type") = "PRIJS_GELDIG_BTWCLAUSULE") 
+				If (MemoTag.Tekst [ "Geldig 30 dagen" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Geldig 30 dagen" ,"Geldig tot en met 30/06/2021")
+				If (MemoTag.Tekst [ "Valable 30 jours") Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valable 30 jours","Valable jusqu'au 30/06/2021")
+				If (MemoTag.Tekst [ "Valid 30 days"   ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valid 30 days"  ,"Valid until 30/06/2021")
+				If (MemoTag.Tekst [ "Gueltig 30 tage" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Gueltig 30 tage","Gueltig bis 30/06/2021")
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ControleerImageUrls">
 <FormalSpec>OfferteData:BL.Flow.Proxy.pxOfferte,PasAanIndienOngeldig:%Boolean</FormalSpec>
 <Private>1</Private>