Index: EWORDS.mac.rou
===================================================================
diff -u -r51246 -r55855
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 51246)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 55855)
@@ -856,7 +856,7 @@
   New blLeveringsTermijn,blVerzendWijze,IsVoorVandaag,DOutDateTime,VerzDat,LaatstePickingTijdstip,sdVerzendWijze
   set sdVerzendWijze=^HULP(%J,KLNr,"V")  ; kijken wat er in de temp global zit 
   Do INITDOMVKP^FLOWORD2(KLNr,ORDNr)
-  Set DueOutTime = blLeveringsTermijn.blVerzendWijze.DueOutPickingTime()
+  Set DueOutTime = blLeveringsTermijn.GetDueOutPickingTime()
   If (+GewenstePickDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()) {
   	Set IsVoorVandaag = (##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)=1)
   	Set GewenstePickDatum = $S(IsVoorVandaag:+$H,1:+$$CALCDATE^vhLib.DataTypes($H,"A",1))
@@ -869,7 +869,9 @@
   Set $P(sdVerzendWijze,D,5) = blLeveringsTermijn.GetVroegsteLeverDag(+LaatstePickingTijdstip)
   Set ^HULP(%J,KLNr,"V")=sdVerzendWijze
   Set ^HULP(%J,"V","V")=sdVerzendWijze
-
+  
+  Do ##class(Tools.Wlip).%New(26).String(VerzendingWijze _" - "_ LaatstePickingTijdstip _" - "_DueOutTime _" - "_ blLeveringsTermijn.GetVroegsteLeverDag(+LaatstePickingTijdstip))
+  
   Quit
  
 MANMODVERZW