Index: WS/AX/DocGen/OfferteService.cls.xml
===================================================================
diff -u -r66371 -r67212
--- WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 66371)
+++ WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 67212)
@@ -29,7 +29,7 @@
 	}
 
 	Do ..ControleerImageUrls(OfferteData, $$$True)
-	;Do ..PasAanOfferteGeldigMelding(OfferteData)           ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren. 
+	Do ..PasAanOfferteGeldigMelding(OfferteData)           ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren. 
 	;Do ..VoegToeMeldingLeveringenVanaf01okt(OfferteData)   ; idem 
 	Do ..PasAanVermeldingStockNaarLeeg(OfferteData)
 
@@ -48,27 +48,28 @@
 
 <Method name="PasAanOfferteGeldigMelding">
 <Description>
-Tijdelijke aanpassing van de "OfferteGeldig"-melding : tussen 01/09 en 30/09/2021 wordt de melding aangepast, vanwege de geplande prijswijzigingen vanaf 01/10/2021. 
+Tijdelijke aanpassing van de "OfferteGeldig"-melding : tussen 01/04 en 30/04/2022 wordt de melding aangepast, vanwege de geplande prijswijzigingen vanaf 01/05/2022. 
 Na deze datum zal de tekst automatisch terug de normale tekst worden, zoals doorgegeven vanuit Ax/Biztalk. 
 Nadien zou de method-call best wel uitgeschakeld worden. </Description>
 <FormalSpec>OfferteData:BL.Flow.Proxy.pxOfferte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#define Datum01sept2021   65988
-	#define Datum01okt2021    66018
+	// In WolframAlpha: "days between 31 december 1840 and 1 april 2022"
+	#define Datum01apr2022	66200
+	#define Datum01mei2022	66230
 	
 	#dim CurrentDate As %Date = +$H
 	;#dim Taal As %String = OfferteData.TAAL
 	
-	If (CurrentDate >= $$$Datum01sept2021) && (CurrentDate < $$$Datum01okt2021) && $IsObject(OfferteData.MEMO) {
+	If (CurrentDate >= $$$Datum01apr2022) && (CurrentDate < $$$Datum01mei2022) && $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/09/2021")
-				If (MemoTag.Tekst [ "Valable 30 jours") Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valable 30 jours","Valable jusqu'au 30/09/2021")
-				If (MemoTag.Tekst [ "Valid 30 days"   ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valid 30 days"  ,"Valid until 30/09/2021")
-				If (MemoTag.Tekst [ "Gueltig 30 tage" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Gueltig 30 tage","Gueltig bis 30/09/2021")
+				If (MemoTag.Tekst [ "Geldig 30 dagen" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Geldig 30 dagen" ,"Geldig tot en met 30/04/2022")
+				If (MemoTag.Tekst [ "Valable 30 jours") Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valable 30 jours","Valable jusqu'au 30/04/2022")
+				If (MemoTag.Tekst [ "Valid 30 days"   ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valid 30 days"  ,"Valid until 30/04/2022")
+				If (MemoTag.Tekst [ "Gueltig 30 tage" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Gueltig 30 tage","Gueltig bis 30/04/2022")
 			}
 		}
 	}