Te testen via: Do ##class(APPS.OV.OrderAanvraagChecker).%New().MailNietVerwerkteAanvragen() vhLib.Macro,TECH.Error 1 APPS.OV.impl.AanvraagChecker,%RegisteredObject 1 1 %String 1 %List 1 %String 1 %String 1 ..#MaxWerkDagenNietVerwerkt { #dim KlantData As DOM.common.dto.KlantData = ##class(APPS.VKP.impl.OfferteKlantDataBepaler).%New().GeefKlantData(Offerte) #dim VerwerkOfferte As %String = "" Set VerwerkOfferte = "via Admin: order '" _ Offerte.GeefOrderID() _ "' lijkt nog niet naar AX doorgestuurd te zijn!" #dim BestelOpmerking As %String = Offerte.BestelOpmerking If $Length(BestelOpmerking) > 30 { Set BestelOpmerking = $Extract(BestelOpmerking,0,30)_" ..." } #dim BestelReferentie As %String = "" If $IsObject(Offerte.GeefDocumentReferenties()) { Set BestelReferentie = Offerte.GeefDocumentReferenties().OrderReferentie } Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(Offerte.GeefID(), KlantData.ID, KlantData.Naam, " " , DagenNietVerwerkt, $$FormatDateTime^vhLib("dd-mm-yyyy",Offerte.GeefBestelDatum()), BestelReferentie, BestelOpmerking, VerwerkOfferte) ,$$$TAB) } }Else{ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Ongeldige status voor NietVerwerkteAanvragen (Offerte '"_Offerte.GeefID()_"' : IsBesteld = '"_Offerte.IsBesteld()_"'; BestelDatum = '"_Offerte.GeefBestelDatum()_"')")) } } If cntRows>0 { Set TabelArray(0)=$$LCVTSimple^vhLib( $LB("OfferteNr", "KlantNr", "KlantNaam", " ", "#Dagen", "Verzonden op","BestelReferentie","Bestel opmerking","Verwerk"), $$$TAB) } Quit ]]> Moet terug private. %ListOfDataTypes = ? AND O.OrderID IS NOT NULL " #dim EersteWebOfferteSindsGebruikVanDoorgestuurdNaarAXStatus As %String = 400000 #dim QueryParameters As %List = $LB( ##class(APPS.VKP.Offerte.enu.BestelStatus).DoorgestuurdNaarAX(), ##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld(), EersteWebOfferteSindsGebruikVanDoorgestuurdNaarAXStatus ) Quit ..GeefLijstOrderIDs( Query, QueryParameters ) ]]>