Index: TRANSP.mac.rou
===================================================================
diff -u -r734 -r2341
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 734)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 2341)
@@ -644,12 +644,13 @@
  ; Output = Eurpaletten\Colli\Langgoed\Extra paletten
 CalcVerpak(VervRef)
  New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr
- Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed)=0
+ Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten)=0
  For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
  . Set Collie=Collie+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","C"))
  . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
  . Set Langgoed=Langgoed+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","L"))
- Quit Paletten_";"_ExtraPaletten_D_Collie_D_Langgoed
+ . Set KleinePaletten=KleinePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","P"))
+ Quit Paletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten
  ;
  ; Importeren van de ABX regios
 ImportABX