Index: WS/AX/DocGen/OfferteService.cls.xml
===================================================================
diff -u -r73554 -r74870
--- WS/AX/DocGen/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 73554)
+++ WS/AX/DocGen/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 74870)
@@ -29,8 +29,8 @@
}
Do ..ControleerImageUrls(OfferteData, $$$True)
- ;Do ..PasAanOfferteGeldigMelding(OfferteData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
- ;Do ..VoegToeMeldingLeveringenVanaf01okt(OfferteData) ; idem
+ Do ..PasAanOfferteGeldigMelding(OfferteData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
+ Do ..VoegToeMeldingLeveringenVanaf01mei(OfferteData) ; idem
Do ..PasAanVermeldingStockNaarLeeg(OfferteData)
Do ..VervangFscTekstIndienNodig(OfferteData)
@@ -55,36 +55,35 @@
OfferteData:BL.Flow.Proxy.pxOfferte
1
= $$$Datum01apr2022) && (CurrentDate < $$$Datum01mei2022) && $IsObject(OfferteData.MEMO) {
+ If (CurrentDate >= $$$Datum01mei2025) && (CurrentDate < $$$Datum01juni2025) && $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/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")
+ If (MemoTag.Tekst [ "Geldig 30 dagen" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Geldig 30 dagen" ,"Geldig tot en met 30/05/2025")
+ If (MemoTag.Tekst [ "Valable 30 jours") Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valable 30 jours","Valable jusqu'au 30/05/2025")
+ If (MemoTag.Tekst [ "Valid 30 days" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Valid 30 days" ,"Valid until 30/05/2025")
+ If (MemoTag.Tekst [ "Gueltig 30 tage" ) Set MemoTag.Tekst = ##class(TECH.StringUtils).Replace(MemoTag.Tekst, "Gueltig 30 tage","Gueltig bis 30/05/2025")
}
}
}
]]>
-
+
Tijdelijk tekstlijn toevoegen voor de geplande prijswijzigingen vanaf 01/10/2021.
OfferteData:BL.Flow.Proxy.pxOfferte
1
Index: WS/AX/DocGen/ProxyDataHelper.cls.xml
===================================================================
diff -u -r65861 -r74870
--- WS/AX/DocGen/ProxyDataHelper.cls.xml (.../ProxyDataHelper.cls.xml) (revision 65861)
+++ WS/AX/DocGen/ProxyDataHelper.cls.xml (.../ProxyDataHelper.cls.xml) (revision 74870)
@@ -5,19 +5,19 @@
TODO: Deze klasse zou verplaatst moeten worden naar "WSimpl.AX.DocGen.ProxyDataHelper"
TECH.RegisteredObject
-
+
OfferteData:BL.Flow.Proxy.pxOfferte
-
-
+
OrderData:BL.Flow.Proxy.pxOrder
-
-
+
FactuurData:BL.Flow.Proxy.pxFactuur
@@ -61,66 +61,66 @@
]]>
-
+
-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.
+Tijdelijk tekstlijn vooraan toevoegen voor prijswijziging : tussen 01/05/2025 en 01/06/2025 wordt de melding toegevoegd, vanwege de geplande prijswijzigingen vanaf 01/06/2025.
Na deze datum zal de tekst niet meer toegevoegd worden (wordt automatisch uitgeschakeld).
OrderLijnen:%ListOfObjects(ELEMENTTYPE="BL.Flow.Proxy.pxOrderLijn"),Taal:%String
1
= $$$Datum15aug2021) && (CurrentDate < $$$Datum01okt2021) && $IsObject(OrderLijnen) {
- #dim TekstLeveringenVanaf01okt As %String = ..GeefTekstLeveringenVanaf01okt(Taal)
- #dim TekstLijn As BL.Flow.Proxy.pxTekstLijn = ..MaakTekstLijnLeveringenVanaf01okt($$$CRLF_TekstLeveringenVanaf01okt_$$$CRLF_$$$CRLF_"")
+ If (CurrentDate >= $$$Datum01mei2025) && (CurrentDate < $$$Datum01juni2025) && $IsObject(OrderLijnen) {
+ #dim TekstLeveringenVanaf01mei As %String = ..GeefTekstLeveringenVanaf01mei(Taal)
+ #dim TekstLijn As BL.Flow.Proxy.pxTekstLijn = ..MaakTekstLijnLeveringenVanaf01mei($$$CRLF_TekstLeveringenVanaf01mei_$$$CRLF_$$$CRLF_"")
Do OrderLijnen.InsertAt(TekstLijn,1) ; Voeg tekstlijn VOORAAN toe
}
]]>
-
-TekstLeveringenVanaf01okt:%String
+
+TekstLeveringenVanaf01mei:%String
1
BL.Flow.Proxy.pxTekstLijn
")
Set HtmlTekst = "" _ HtmlTekst _ ""
Quit ##class(BL.Flow.Proxy.pxTekstLijn).BuildHTML(HtmlTekst, $$$False, $$$True) ; HtmlTekst is wel Html
]]>
-
+
Taal:%String
1
%String
Index: WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml
===================================================================
diff -u -r73763 -r74870
--- WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml (.../RenderFactuur.cls.xml) (revision 73763)
+++ WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml (.../RenderFactuur.cls.xml) (revision 74870)
@@ -42,7 +42,7 @@
Do ..ControleerMemoTags(FactuurData, $$$True)
Do ..ControleerImageUrls(FactuurData, $$$True)
Do ..VerwijderProductLangteksten(FactuurData)
- ;Do ..VoegToeMeldingLeveringenVanaf01okt(FactuurData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
+ Do ..VoegToeMeldingLeveringenVanaf01mei(FactuurData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
Do ..VervangFscTekstIndienNodig(FactuurData)
Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
@@ -73,14 +73,14 @@
]]>
-
+
Tijdelijk tekstlijn toevoegen voor de geplande prijswijzigingen vanaf 01/10/2021.
FactuurData:BL.Flow.Proxy.pxFactuur
1
Index: WS/AX/DocGen/OrderService.cls.xml
===================================================================
diff -u -r73554 -r74870
--- WS/AX/DocGen/OrderService.cls.xml (.../OrderService.cls.xml) (revision 73554)
+++ WS/AX/DocGen/OrderService.cls.xml (.../OrderService.cls.xml) (revision 74870)
@@ -29,7 +29,7 @@
}
Do ..ControleerImageUrls(OrderData, $$$True)
- ;Do ..VoegToeMeldingLeveringenVanaf01okt(OrderData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
+ Do ..VoegToeMeldingLeveringenVanaf01mei(OrderData) ; bij volgende "Grote prijswijziging" de datums hieronder aanpassen en deze lijn activeren.
Do ..VervangFscTekstIndienNodig(OrderData)
Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
@@ -45,14 +45,14 @@
]]>
-
+
Tijdelijk tekstlijn toevoegen voor de geplande prijswijzigingen vanaf 01/10/2021.
OrderData:BL.Flow.Proxy.pxOrder
1