Index: EWPAL2.mac.rou
===================================================================
diff -u -r48407 -r48455
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 48407)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 48455)
@@ -75,32 +75,18 @@
  Quit Qty
 
 CORRTOEAX(MPRNr,KPRNr,PalId) 
- New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty,IsWerkVl,LEVNr,TLNr
+ New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty,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
  . Set LUNr=""
  . For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do
- . . 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
+ . . 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)
  Quit Qty
 
- 
 BLDKUP New KLNr,BONNr,LNr,PRNr
  Kill ^KUP
  Set (KLNr,BONNr)=""