Index: EWORDS5.mac.rou
===================================================================
diff -u -r74962 -r75040
--- EWORDS5.mac.rou	(.../EWORDS5.mac.rou)	(revision 74962)
+++ EWORDS5.mac.rou	(.../EWORDS5.mac.rou)	(revision 75040)
@@ -34,10 +34,12 @@
 	if IsNodigControleerOrderBezwaren {
 	 	Set GaVerder = $$GaVerderIndienBezwarenOrderDoorsturen(ORDNr)
  	}
+ 	Set LijnLeverdatumControleren = $g(^HULP(%J,KLNr,ORDNr,"DatumControleren"),1) ; Alleen controleren bij eerste lijn van order
  	Set:(GaVerder & LijnLeverdatumControleren) GaVerder = $$GaVerderIndienBezwarenOrderLijnDoorsturen(ORDNr,OLNr,.LijnLeverdatumControleren)
+ 	Set ^HULP(%J,KLNr,ORDNr,"DatumControleren") = LijnLeverdatumControleren
  }
  Quit:($$$Not(GaVerder))
- 
+ Set:(GaVerder=2) $p(^HULP(%J,KLNr,"V"),"\",2) = +$$GetPickDatum^EWORDS6(ORDNr,OLNr) ; wordt overgenomen in MODVERZW^EWORDS
  Set PRNr=$P(R,D,12),Aantal=$P(R,D,13)
  Set FysStock=$P(R,D,14),PraStock=$P(R,D,15),DynTheoS=$P(R,D,16)
  Set OLUNr=$P(R,D,19),LevWk=$P(R,D,18),TOENr=$P(R,D,17),KlOLNr=$P(R,D,35)
@@ -98,7 +100,7 @@
  #dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderDoorsturen(OrderID)
  If Bezwaren.Count() > 0 {
  	Set BezwarenBericht = ""
- 	For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht_Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
+ 	For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
  	Set GaVerder = $$JaNee^vhTXTPOP("Bezwaren",BezwarenBericht)
  } 
  Quit GaVerder
@@ -110,11 +112,11 @@
  #dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderLijnDoorsturen(OrderID, OrderLijnID)
  If Bezwaren.Count() > 0 {
  	Set BezwarenBericht = ""
- 	For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht_Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
- 	Set GaVerder = $$JaNee^vhTXTPOP("Bezwaren",BezwarenBericht)
+ 	For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
+ 	Set GaVerder = $$^vhTXTPOP("EWORDS","DUEOUTVRD",0,$ZDT(+$$GetPickDatum^EWORDS6(OrderID,$G(OrderLijnID)),4),$ZDT(+$Piece(^HULP(%J,"V","V"),"\",2),4))
  	Set LijnLeverdatumControleren = $$$Not(GaVerder) ; Als er verdergegaan word, volgende keer niet meer vragen
  } 
- Quit GaVerder
+ Quit GaVerder ; kan nu 3 waarden bevatten Vervroegen = 1 , Behouden = 2 Annuleren = 0
  
 MARKORD(Ref) 
  New R,ORDNr,OLNr,Quit,Marked,OLUNr,StartRef,VerzW,AskLink