Index: BLKALC3.mac.rou
===================================================================
diff -u -r29059 -r39792
--- BLKALC3.mac.rou	(.../BLKALC3.mac.rou)	(revision 29059)
+++ BLKALC3.mac.rou	(.../BLKALC3.mac.rou)	(revision 39792)
@@ -60,7 +60,8 @@
 
  Set:(SoDo'="DO")&&$$PrijsVerschil(PrdNr,RecToe) Test="PR,"_Test
  Set:$P(RecToe,D,3)'=$P(RecToe,D,37) Test="QTY,"_Test
- Set:$P(RecToe,D,25)'=$P(RecToe,D,40)!($$INTDATE^vhLib.DataTypes($P(RecToe,D,25),"DW")<+$H) Test="LVW,"_Test
+ ;JoW pas op kal indien niet gelever op vrijdag ipv woensdag
+ Set:$P(RecToe,D,25)'=$P(RecToe,D,40)!(($$INTDATE^vhLib.DataTypes($P(RecToe,D,25),"DW")+2)<+$H) Test="LVW,"_Test
  Set:$P(RecToe,D,41)'=2 Test="NC,"_Test
  Set:$E(Test,$L(Test))="," Test=$E(Test,1,$L(Test)-1)
  Q
@@ -97,3 +98,4 @@
  
  
 
+