TECH.RegisteredObject DOM.TRANSP.TransportAPI 1 TECH.Mail.MailAPI 1 vhLib.Logger 1 TransportAPI:DOM.TRANSP.TransportAPI="",MailAPI:TECH.Mail.impl.MailAPI="",Logger:vhLib.Logger="" 1 1 %Status 1 d ##class(APPS.TRANSP.VRD.UitgesteldeZendingLijst).%New().Rapport(31207,2,$h) Transportnummer aantal werkdagen dat levering in later moet zijn tov de referentiedatum de referentiedatum, in principe vandaag. debug output, lijntje per zending TransportNr:%String,DagenInToekomst:%Integer=2,RefDatum:%Date=$h,Debug:%Boolean=$$$False Referentie:%String,BonID:%String 1 %Boolean LeveringsDatum:%Date,AantalWerkdagen:%Integer,RefDatum:%Date=$H 1 %Boolean ##class(TECH.DateTime).BerekenWerkdag(RefDatum,AantalWerkdagen) ]]>