Index: PRODUKT4.mac.rou
===================================================================
diff -u -r29059 -r45452
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 29059)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 45452)
@@ -106,13 +106,13 @@
  For  Set WInd=$O(^KPR(PRNr,WInd)) Quit:$E(WInd)'="W"  Do
  .Quit:$E(WInd,9)'="T"
  .Set TOENr=$E(WInd,18,23),TLNr=100+$TR($E(WInd,24,26)," ",0)
- .Set TLUNr=$P($G(^KTO(LEVNr,TOENr,TLNr)),D,15)
+ .Set TLUNr=$P($G(^KTO(LEVNr,TOENr,TLNr)),"\",15)
  .Quit:'TLUNr
  .Set RCPNr=$G(^RCP("IT",TOENr,TLUNr))
  .Quit:'RCPNr
  .Set R=$G(^RCP("D",RCPNr,"D",TOENr,TLUNr))
- .Set InReceptie=InReceptie+$P(R,D,4)
- .Set Gestockeerd=Gestockeerd+$P(R,D,8)
+ .Set InReceptie=InReceptie+$P(R,"\",4)
+ .Set Gestockeerd=Gestockeerd+$P(R,"\",8)
  Quit $LB(InReceptie,Gestockeerd)
  ;
 VerkoopKinderen(PRNr,TotDatumOfWeek,IncludeFabKeyInReservatie) ; Berekenen van de weekverkoop van de halffabrikaten in reservatie