APPS.TRANSP.UPS.BerekenInputValidator TECH.Exceptions.TemplateBaseException BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput ..GeefUitersteDatum()) { #dim GeefUitersteDatum As %String = ##class(TECH.DateTime).GeefDatumInPuntNotatie(..GeefUitersteDatum()) Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet na " _GeefUitersteDatum _" plaatsvinden.","GewensteLeverDatum",GewensteLeverDatum) } If ($$$Not($IsObject(BerekenInput.TeVerzendenItems)) || (BerekenInput.TeVerzendenItems.Count() = 0)) { Do ..RegistreerFoutmelding("Er zijn geen teverzenditems meegegeven.","TeVerzendenItems", BerekenInput.TeVerzendenItems.Count()) } If (..BerekenAantalPakjes(BerekenInput) > ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("MaximumTeVerzendenPakketten")) { Do ..RegistreerFoutmelding("Het maximum aantal pakketen is overschreden","MaximumTeVerzendenPakketten",..BerekenAantalPakjes(BerekenInput)) } if $IsObject(..Exceptie) { Do ##class(TECH.ExceptionHandler).Rethrow(..Exceptie) } quit ]]> 1 %Date 1 %Date 1 %Date BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput 1 TECH.Integer Melding:%String,ObjectNaam:%String,Waarde:%String