Index: APPS/MAG/RetourService.cls.xml
===================================================================
diff -u -r1073 -r1275
--- APPS/MAG/RetourService.cls.xml	(.../RetourService.cls.xml)	(revision 1073)
+++ APPS/MAG/RetourService.cls.xml	(.../RetourService.cls.xml)	(revision 1275)
@@ -63,15 +63,15 @@
 	}
 	
 	/// Berekenen van het aantal volle palletten
-	Set (SortKey,lbAantalPalletten)="",(PalletVolledig,PalletRestant)=0
+	Set (SortKey,lbAantalPalletten)="",(PalletVolledig,PalletRestant,ExtraPallet)=0
 	For  {
 		Set SortKey=$O(PalletInfo(SortKey))
 		Quit:'SortKey
-		Set Rec=PalletInfo(SortKey),PalletAantal=$P(Rec,"\",5)
+		Set Rec=PalletInfo(SortKey),PRNr=$P(Rec,"\"),PalletAantal=$P(Rec,"\",5)
 		Set $LI(lbAantalPalletten,$LL(lbAantalPalletten)+1)=$$PiecesToList^vhLib(Rec,"\")
-		Set PalletVolledig=PalletVolledig+PalletAantal
+		Set PalletVolledig=PalletVolledig+PalletAantal,ExtraPallet=ExtraPallet+($LI(^HISTPAK("P",PRNr),5)*PalletAantal)
 	}
-	Set lbAantalPalletten=$LB(PalletVolledig,lbAantalPalletten)
+	Set lbAantalPalletten=$LB($LB(PalletVolledig,ExtraPallet),lbAantalPalletten)
 	Quit lbAantalPalletten
 ]]></Implementation>
 </Method>