Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r49567 -r49568
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49567)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49568)
@@ -55,7 +55,6 @@
  ... .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)
- ... 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
@@ -64,6 +63,8 @@
  ... . Set Res=Res+$P(Rec,D),@("Res"_$P("S\K",D,$P(Rec,D,3)+1))=@("Res"_$P("S\K",D,$P(Rec,D,3)+1))+$P(Rec,D)
  ... . 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 OrdTyp=$P(^KOD(KLNr,"F",Ref,1),D,25)
  ... Set R=^KOD(KLNr,"F",Ref,LijnNr)
  ... Quit:$P(R,D,14)["S"  Quit:$P(R,D,14)["Z"