Index: EWPAL2.mac.rou
===================================================================
diff -u -r45610 -r46124
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 45610)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 46124)
@@ -75,23 +75,31 @@
  Quit Qty
 
 CORRTOEAX(MPRNr,KPRNr,PalId) 
- New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty
+ New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty,IsWerkVl,LEVNr,TLNr
  Set Qty=0
  Set TOENr=""
+ Set IsWerkVl="\0\9\"[(D_$$OPSLZONE^PRODUKT2(MPRNr)_D)
  For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do:$D(^RCP("IT",TOENr))
- .Set LUNr=""
- .For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do:$D(^RCP("IT",TOENr,LUNr))
- ..Set RCPNr=^RCP("IT",TOENr,LUNr)
- ..Quit:'$D(^RCP("D",RCPNr,"D",TOENr,LUNr))
- ..Quit:$P(^RCP("D",RCPNr,"D",TOENr,LUNr),"\",2)="I"  ; Reeds ingeboekt
- ..Set SubLNr=""
- ..For  Set SubLNr=$O(^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr)) Quit:SubLNr=""  Do
- ...Set Rec=^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr) 
- ...Quit:$P(Rec,"\",1)'=KPRNr
- ...;Quit:'$P(Rec,"\",7)  ; als ze van Ax komen zijn ze nog niet gestockeerd, maar moeten wel in de blocked 
- ...If $L($G(PalId)) Quit:$P(Rec,"\",5)'=PalId
- ...Set Qty=Qty+$P(Rec,"\",3) ; ipv piece 4
+ . Set LUNr=""
+ . For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do:$D(^RCP("IT",TOENr,LUNr))
+ . . If IsWerkVl Do
+ . . . Set LevNr=$P(^KTO1(TOENr),"\")
+ . . . Set TLNr=^TO("IP",MPRNr,TOENr,LUNr)
+ . . . Set Rec=$G(^KTO(LEVNr,TOENr,TLNr))
+ . . . Set Qty=Qty+$P(Rec,"\",3)
+ . . Else  Do
+ . . . Set RCPNr=^RCP("IT",TOENr,LUNr)
+ . . . Quit:'$D(^RCP("D",RCPNr,"D",TOENr,LUNr))
+ . . . Quit:$P(^RCP("D",RCPNr,"D",TOENr,LUNr),"\",2)="I"  ; Reeds ingeboekt
+ . . . Set SubLNr=""
+ . . . For  Set SubLNr=$O(^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr)) Quit:SubLNr=""  Do
+ . . . . Set Rec=^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr) 
+ . . . . Quit:$P(Rec,"\",1)'=KPRNr
+ . . . . ;Quit:'$P(Rec,"\",7) ; als ze van Ax komen zijn ze nog niet gestockeerd, maar moeten wel in de blocked 
+ . . . . If $L($G(PalId)) Quit:$P(Rec,"\",5)'=PalId
+ . . . . Set Qty=Qty+$P(Rec,"\",3) ; ipv piece 4
  Quit Qty
+
  
 BLDKUP New KLNr,BONNr,LNr,PRNr
  Kill ^KUP