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 = "" If Offerte.IsVhisie4() { #dim URIVerwerkVhisie4Offerte As %String = ##class(APPS.OV.impl.OrderVerwerkingInteracties).GeefURIVerwerkVhisie4Offerte(Offerte.GeefExterneId()) Set VerwerkOfferte = "Verwerk Vhisie4 "_Offerte.GeefExterneId()_"" } Else { #dim URIVerwerkOfferte As %String = ##class(APPS.OV.impl.OrderVerwerkingInteracties).GeefURIVerwerkOfferte(Offerte.GeefID()) Set VerwerkOfferte = "Verwerk "_Offerte.GeefID()_"" } #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 62854 AND Offerte.PersonalityID=? ORDER BY BestelDatum ASC" #dim QueryParameters As %List = $LB( ##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld(), ##class(DOM.common.enu.Personality).VanHoecke() ) Quit ..GeefLijstOrderIDs( Query, QueryParameters ) ]]>