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