Index: TRANSP.mac.rou
===================================================================
diff -u -r63825 -r66330
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 63825)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 66330)
@@ -690,7 +690,7 @@
  New R,Paletten,ExtraPaletten,GroepNr
  Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",Paletten=0
  For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
- . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
+ . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E")) + $G(^TRANSP("D",VervRef,"D",GroepNr,"Q","W")) 
  Quit Paletten_D_ExtraPaletten
  ;