Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r49568 -r73216
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49568)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 73216)
@@ -150,11 +150,12 @@
  .Set TOENr=""
  .For  Set TOENr=$O(^KTO(LEVNr,TOENr)) Quit:TOENr=""  Do
  ..Set R=$P(^KTO(LEVNr,TOENr,1),D,2),ToeDat=$$CONVDATE^vhLib.DataTypes(R,,"DSN")
+ ..Quit:($Data(^AfdrukkenVoorraadIdentificatieToelevering(TOENr)))   ; KPR W-nodes niet controleren voor tijdelijke toeleveringen bedoeld voor "AfdrukkenVoorraadIdentificatie", want de W-nodes zijn hier (momenteel) nog niet correct opgezet. 
  ..Set LijnNr=100
  ..For  Set LijnNr=$O(^KTO(LEVNr,TOENr,LijnNr)) Quit:LijnNr=""  Do
  ...Set R=^KTO(LEVNr,TOENr,LijnNr),PRNr=$P(R,D,2) Quit:'PRNr
  ...Set KortTxt=$P(^KPR(PRNr,0),D)
- ...If '$D(^KPR(PRNr,"W    0.0T"_ToeDat_TOENr_$J(LijnNr-100,3))) Do  Quit
+ ...If ('$D(^KPR(PRNr,"W    0.0T"_ToeDat_TOENr_$J(LijnNr-100,3)))) Do  Quit
  ....Set Check=0
  ....Do wKORTTXT^zbcheck
  ....Write !!,"W-node ",$ZR," onbekend",!,?8,"Toelev = ",TOENr,?29,"Lijn = ",LijnNr
@@ -178,3 +179,5 @@
  Do ZBCHKWN
  Quit Check
  ;
+
+