TECH.RegisteredObject OfferteData:BL.Flow.Proxy.pxOfferte OrderData:BL.Flow.Proxy.pxOrder FactuurData:BL.Flow.Proxy.pxFactuur 0) { Do ..VoegToeAanFactuurNieuwOrderVooraan(FactuurData) ; Door deze lijn in commentaar te zetten, wordt de melding in het eerste (reeds aanwezige) order van de factuur toegevoegd. #dim FactLev As BL.Flow.Proxy.pxFactLev = FactuurData.LEVERINGEN.GetNext("") If $IsObject(FactLev) { #dim OrderLijnen As %ListOfObjects = FactLev.ORDERS.GetNext("").LIJNEN Do ..VoegToeMeldingLeveringenVanaf01okt(OrderLijnen, FactuurData.TAAL) } } ]]> FactuurData:BL.Flow.Proxy.pxFactuur 1 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. 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_"") Do OrderLijnen.InsertAt(TekstLijn,1) ; Voeg tekstlijn VOORAAN toe } ]]> TekstLeveringenVanaf01okt:%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