Index: EWPAL2.mac.rou
===================================================================
diff -u -r29059 -r45457
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 29059)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 45457)
@@ -56,22 +56,22 @@
  Quit Qty
  
 CORRTOE(MPRNr,KPRNr,PalId) 
- New RCPNr,TOENr,LUNr,SubLNr,Rec
+ New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty
  Set Qty=0
  Set TOENr=""
  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),D,2)="I"  ; Reeds ingeboekt
+ ..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,D,1)'=KPRNr
- ...Quit:'$P(Rec,D,7)  ; Nog niet gestockeerd
- ...If $L($G(PalId)) Quit:$P(Rec,D,5)'=PalId
- ...Set Qty=Qty+$P(Rec,D,4)
+ ...Quit:$P(Rec,"\",1)'=KPRNr
+ ...Quit:'$P(Rec,"\",7)  ; Nog niet gestockeerd
+ ...If $L($G(PalId)) Quit:$P(Rec,"\",5)'=PalId
+ ...Set Qty=Qty+$P(Rec,"\",4)
  Quit Qty
  
 BLDKUP New KLNr,BONNr,LNr,PRNr