Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r29059 -r49152
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 29059)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49152)
@@ -51,6 +51,9 @@
  ....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
  ...Set KLNr=$P(^KO1(Ref,"F"),D)
  ...If '$D(^KOD(KLNr,"F",Ref,LijnNr)) Do  Quit
  ....Set Check=0
@@ -75,18 +78,30 @@
  ..Set Check=0
  ..Do wKORTTXT^zbcheck
  ..Write !!,"Cumul toeleveringen kom ^KPR(",PRNr,",""W..."") <> $P(^KPR(",PRNr,",0),""\"",17)",!,?8,"Cumul = ",ToelK,?29,"Kom = ",+$P(TotToel,"#",3)
+ . New Piece9  
+ . Set Piece9 = $P(^KPR(PRNr,2),"\",9)
  .If Res'=+TotRes Do
  ..Set Check=0
  ..Do wKORTTXT^zbcheck
  ..Write !!,"Cumul orders ^KPR(",PRNr,",""W..."") <> $P(^KPR(",PRNr,",2),""\"",9)",!,?8,"Cumul = ",Res,?29,"Tot = ",+$P(TotRes,"#")
+ .. Set $P(Piece9,"#",1)=Res
  .If ResS'=+$P(TotRes,"#",2) Do
  ..Set Check=0
  ..Do wKORTTXT^zbcheck
  ..Write !!,"Cumul orders stock ^KPR(",PRNr,",""W..."") <> $P(^KPR(",PRNr,",2),""\"",9)",!,?8,"Cumul = ",ResS,?29,"Stk = ",+$P(TotRes,"#",2)
+ .. Set $P(Piece9,"#",2)=ResS
  .If ResK'=+$P(TotRes,"#",3) Do
  ..Set Check=0
  ..Do wKORTTXT^zbcheck
  ..Write !!,"Cumul orders kom ^KPR(",PRNr,",""W..."") <> $P(^KPR(",PRNr,",2),""\"",9)",!,?8,"Cumul = ",ResK,?29,"Stk = ",+$P(TotRes,"#",3)
+ .. Set $P(Piece9,"#",3)=ResK
+ . 
+ . If ($P(^KPR(PRNr,2),"\",9) '= Piece9) Do 
+ . . Write !,"*** Fixing Piece9 : "_( $P(^KPR(PRNr,2),"\",9) )_ " --> " _ Piece9,!
+ . . Set $P(^KPR(PRNr,2),"\",9) = Piece9
+ . . ;Break
+
+
  Quit
  ;
 OD
@@ -116,6 +131,12 @@
  ....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
  Quit
  ;
 TO