Index: EWORDS2.mac.rou
===================================================================
diff -u -r72053 -r75040
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 72053)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 75040)
@@ -21,9 +21,13 @@
  Set $P(CONSRec,D,3)=DOutTime
  Set $P(CONSRec,D,4)=VerzZ
  If (VerzW = "DD1"){
-	 Set $P(CONSRec,D,5)= ##class(TECH.DateTime).BerekenWerkdag((+$H) , 1 )
+ 	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()) {
+	 	Set $P(CONSRec,D,5) = VerzDat
+ 	} Else {
+		Set $P(CONSRec,D,5)= ##class(TECH.DateTime).BerekenWerkdag((+$H) , 1 )
+ 	}
  } else {
-	 Set $P(CONSRec,D,5)=VerzDat
+	Set $P(CONSRec,D,5)=VerzDat
  }
  Set $P(CONSRec,D,18)=$H
  ;Set $P(CONSRec,D,20)="W"
@@ -73,6 +77,17 @@
  Set ^BONLog(CONSNr,+$H)=$LB("M",,$zdt($H,8))
  Quit
  
+OrderLeverDatum(KLNr,ORDNr) ;LeverDatum 1e productlijn v Order
+ new LijnType,LevDatum,i,Rec
+ set i="", LevDatum=""
+ for  Set i=$Order(^KOD(KLNr,"F",ORDNr,i))  Quit:(i="")!(LevDatum)  Do  ;indien productlijn dan heeft LevDatum een waarde gekregen en kunnen we uit de for
+ . Set Rec=^KOD(KLNr,"F",ORDNr,i)
+ . set LijnType = $p(Rec,"\",17)
+ . set:(LijnType="KF0") LevDatum=$p(^KOD(KLNr,"F",ORDNr,i),"\",25)
+ ;w !,$zdt($g(LevDatum),4)
+ Quit LevDatum
+ 
+ 
 IsReedsInORDW(KLNr,CONSNr,MarkRef)
  New ORDNr,OLUNr,IsReedsInORDW
  Set (ORDNr,OLUNr)=""