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 0) { Do ..VoegToeLeegOrderVooraanBijFactuur(FactuurData) ; Door deze lijn in commentaar te zetten, wordt de melding in het eerste (reeds aanwezige) order van de factuur toegevoegd. #dim FactOrd As BL.Flow.Proxy.pxFactOrd = ..GeefEersteOrderVanFactuur(FactuurData) If $IsObject(FactOrd) { Do ..VoegToeMeldingLeveringenVanaf01mei(FactOrd.LIJNEN, FactuurData.TAAL) } } ]]> FactuurData:BL.Flow.Proxy.pxFactuur,TekstVoorOrderref:%String="INFO : " 1 FactuurData:BL.Flow.Proxy.pxFactuur 1 BL.Flow.Proxy.pxFactOrd Tijdelijk tekstlijn vooraan toevoegen voor prijswijziging : tussen 30/05/2025 en 01/07/2025 wordt de melding toegevoegd, vanwege de geplande prijswijzigingen vanaf 01/07/2025. Na deze datum zal de tekst niet meer toegevoegd worden (wordt automatisch uitgeschakeld). OrderLijnen:%ListOfObjects(ELEMENTTYPE="BL.Flow.Proxy.pxOrderLijn"),Taal:%String 1 = $$$Datum30mei2025) && (CurrentDate < $$$Datum01juli2025) && $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 } ]]> 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