Index: BL/Legacy/EWORDS6.cls.xml =================================================================== diff -u -r72356 -r72372 --- BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 72356) +++ BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 72372) @@ -22,14 +22,15 @@ #dim VandaagOfMorgen As %Integer =$$$AndereDag if ##class(TECH.Context).Instance().GeefDateTimeAPI().IsVandaag(PickDatum){ set VandaagOfMorgen=$select( ##class(TECH.DateTime).HorologToTime(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) < ..GeefKantelPuntDoorsturenPicking(ORDNr):$$$Vandaag, 1:$$$Morgen) - } elseif ..IsVolgendeArbeidsdag(PickDatum) { set VandaagOfMorgen = $$$Morgen } + } elseif (..IsVolgendeArbeidsdag(PickDatum)) { + set VandaagOfMorgen = $$$Morgen + } If (VandaagOfMorgen=$$$Morgen) && ..VerzendwDD1(ORDNr) ; Indien verzendwijze is DD1 maar moet normaal pas morgen vertrekken dan toch vandaag laten vertrekken - PV 02 05 2023 { Set VandaagOfMorgen=$$$Vandaag } - ;w !,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() If (VandaagOfMorgen=$$$Morgen) && ($P(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),",",2)/3600<18) && '$G(OLNr) ; Pas na 18 uur mogen de opdrachten voor de volgende werkdag actief worden - PV 02 05 2023 { Set VandaagOfMorgen=$$$AndereDag