Index: EWORDS2.mac.rou
===================================================================
diff -u -r70684 -r70863
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 70684)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 70863)
@@ -14,7 +14,11 @@
  Set $P(CONSRec,D,2)=VerzW
  Set $P(CONSRec,D,3)=DOutTime
  Set $P(CONSRec,D,4)=VerzZ
- Set $P(CONSRec,D,5)=VerzDat
+ If (VerzW = "DD1"){
+	 Set $P(CONSRec,D,5)= ##class(TECH.DateTime).BerekenWerkdag((+$H) , 1 )
+ } else {
+	 Set $P(CONSRec,D,5)=VerzDat
+ }
  Set $P(CONSRec,D,18)=$H
  ;Set $P(CONSRec,D,20)="W"
  ;Set $P(CONSRec,D,22)=$H