Index: FLOW3.mac.rou
===================================================================
diff -u -r921 -r1436
--- FLOW3.mac.rou	(.../FLOW3.mac.rou)	(revision 921)
+++ FLOW3.mac.rou	(.../FLOW3.mac.rou)	(revision 1436)
@@ -6,8 +6,8 @@
  ; lbExtraBtns $LB($LB(Key,Omschrijving))
 GetLeverDag(KLNr,PRNr,VroegsteLevering,BackGround,lbSelected,Titel,lbExtraBtns,ValDate,NoOther)
  New zb,VroegstePick,lbDatums,LeverDatum,LeverDatums,Huidig,ORef,domVerlof,Verlof
- Set (VroegsteLevering,Huidig)=$G(VroegsteLevering),lbExtraBtns=$G(lbExtraBtns),ValDate=$G(ValDate,$H)
- Set:VroegsteLevering<$H VroegsteLevering=$H
+ Set (VroegsteLevering,Huidig)=$G(VroegsteLevering),lbExtraBtns=$G(lbExtraBtns),ValDate=$G(ValDate,+$H)
+ Set:VroegsteLevering<$H VroegsteLevering=+$H
  If $G(PRNr) Do
  . Set VroegstePick=blLeveringsTermijn.GetVroegstePicking(PRNr)
  . Set VroegsteLevering=blLeveringsTermijn.GetVroegsteLevering(VroegstePick)