TECH.RegisteredObject TECH.Query.QueryAPI 1 APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler 1 APPS.TRANSP.Offerte.impl.DHL.TariefBepaler 1 APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository 1 APPS.TRANSP.Offerte.impl.DHL.Transportduur 1 APPS.TRANSP.OfferteService.dto.BerekenInput 1 APPS.TRANSP.OfferteService.dto.OfferteData 1 TECH.Decimal 1 TECH.Integer 1 TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler 1 1 %Status 1 BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput APPS.TRANSP.OfferteService.dto.OfferteData Palletten:APPS.TRANSP.OfferteService.dto.Palletten 1 TECH.Decimal 1 AfhaalDatum:%Date,DuurtijdInWerkDagen:%Integer 1 %Date 0 { Set Leverdatum = ##class(TECH.DateTime).DatumBereken(Leverdatum, 1, ##class(TECH.enu.DatePart).Dag()) #dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(Leverdatum) If ..IsWeekDag(VroegsteAfhaalDag) { Set DuurtijdInWerkDagen = DuurtijdInWerkDagen - 1 } } Quit Leverdatum ]]> DagNummer:%Integer 1 %Boolean WeekDayNumber:%Integer 1 %String RateServiceCode:TECH.Integer,TimeIntTransitServiceCode:TECH.Integer 1 APPS.TRANSP.OfferteService.dto.ServiceCode Pallet:APPS.TRANSP.OfferteService.dto.Pallet 1 Tarief:TECH.Decimal,TotaalGewichtInKg:TECH.Decimal 1 OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem 1