Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r49169 -r49361
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49169)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49361)
@@ -47,13 +47,15 @@
  ....Set Check=0
  ....Do wKORTTXT^zbcheck
  ....Write !!,"Order ",Ref," onbekend - ",ZR
+ .... Write !,"CleanUp KPR(W-node) : Kill "_$Name(^KPR(PRNr,W))_"  with value '"_$G(^KPR(PRNr,W))_"' ."
+ .... Kill ^KPR(PRNr,W)
  ...If $P(^KO1(Ref,"F"),D,2) Do
  ....Set Check=0
  ....Do wKORTTXT^zbcheck
  ....Write !!,"Order ",Ref," uitgeleverd - bon ",$P(^KO1(Ref,"F"),D,2)," - ",ZR
- .... ;Write !,"CleanUp KPR(W-node) : Kill "_$Name(^KPR(PRNr,W))_"  with value '"_$G(^KPR(PRNr,W))_"' ."
- .... ;Kill ^KPR(PRNr,W)
- .... ;Break
+ .... Write !,"CleanUp KPR(W-node) : Kill "_$Name(^KPR(PRNr,W))_"  with value '"_$G(^KPR(PRNr,W))_"' ."
+ .... Kill ^KPR(PRNr,W)
+ ... If ($O(^KPR(PRNr,"W"))'?1"W".E)  Kill ^KPR(PRNr,"W")   ; lees: indien geen andere W-subnodes, dan opkuis ^KPR( ,"W") 
  ...Set KLNr=$P(^KO1(Ref,"F"),D)
  ...If '$D(^KOD(KLNr,"F",Ref,LijnNr)) Do  Quit
  ....Set Check=0
@@ -131,12 +133,11 @@
  ....Set Check=0
  ....Do wKORTTXT^zbcheck
  ....Write !!,"W-node ",$ZR," type reservatie verschillend",!,?8,"Order = ",ORDNr,?29,"Lijn = ",LijnNr,?50,"Type = ",$S(''$P(@$ZR,D,3):"Kom",1:"Stk")," <> ",$S(''$P(R,D,27):"Kom",1:"Stk")
- .... ;If ($P(R,D,27)> 0) && $D(^KTO(6332,$P(R,D,27),$P(R,D,28))) Do 
- .... ;. Set $P(^KPR(PRNr,"W    0.0R"_OrdDat_ORDNr_$J(LijnNr-100,3)),D,3) = 1
- .... ;. Write !,"Fixing type reservatie : set W-node op KOM=1"
- .... ;Else  Do
- .... ;. Write !,"ATTENTION : W-node staat op KOM=1. fix toelev verwijzing !"
- .... ;. Break
+ .... If ($P(R,D,27)> 0) && $D(^KTO(6332,$P(R,D,27),$P(R,D,28))) Do 
+ .... . Set $P(^KPR(PRNr,"W    0.0R"_OrdDat_ORDNr_$J(LijnNr-100,3)),D,3) = 1
+ .... . Write !,"Fixing type reservatie : set W-node op KOM=1"
+ .... Else  Do
+ .... . Write !,"ATTENTION : W-node staat op KOM=1. fix toelev verwijzing !"
  Quit
  ;
 TO