Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r49565 -r49567
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49565)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49567)
@@ -43,33 +43,33 @@
  ....Write !!,"Toelevering ",Ref," lijn ",LijnNr," onbekend - ",ZR
  ...Set Toel=Toel+$P(Rec,D,5),@("Toel"_$P("S\K",D,$P(Rec,D,7)+1))=@("Toel"_$P("S\K",D,$P(Rec,D,7)+1))+$P(Rec,D,5)
  ..If $E(W,9)="R" Do
- ...If '$D(^KO1(Ref)) Do  Quit
- ....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)
+ ... If '$D(^KO1(Ref)) Do  Quit
+ ... .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)
  ... 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
- ....Do wKORTTXT^zbcheck
- ....Write !!,"Order ",Ref," lijn ",LijnNr," onbekend - ",ZR
- ....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)
- ...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"
- ...Set LevTerm=$P(R,D,25)
- ...If OrdTyp="A",$$INTDATE^vhLib.DataTypes(LevTerm,"DW")>$$LEVWK^PRODUKT4(PRNr,KLNr) Quit
- ...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)
+ ... Set KLNr=$P(^KO1(Ref,"F"),D)
+ ... If '$D(^KOD(KLNr,"F",Ref,LijnNr)) Do  Quit
+ ... . Set Check=0
+ ... . Do wKORTTXT^zbcheck
+ ... . Write !!,"Order ",Ref," lijn ",LijnNr," onbekend - ",ZR
+ ... . 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)
+ ... 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"
+ ... Set LevTerm=$P(R,D,25)
+ ... If OrdTyp="A",$$INTDATE^vhLib.DataTypes(LevTerm,"DW")>$$LEVWK^PRODUKT4(PRNr,KLNr) Quit
+ ... 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)
  .If Toel'=+TotToel Do
  ..Set Check=0
  ..Do wKORTTXT^zbcheck