Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml
===================================================================
diff -u -r60056 -r60081
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml	(.../AantalService.cls.xml)	(revision 60056)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml	(.../AantalService.cls.xml)	(revision 60081)
@@ -39,15 +39,32 @@
 		#dim KortTekstSleutel As %String = $Extract(Product.GeefKorttekst(),1,3)
 		
 		If (..AantalRepository.BestaatViaKortTekstSleutel(KortTekstSleutel)) {
-			#dim KlantEtiketAantal As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Aantal 
-			Set KlantEtiketAantal = ..AantalRepository.GeefViaKortTekstSleutel(KortTekstSleutel)
-			Set Aantal = KlantEtiketAantal.Aantal
+			Set Aantal = ..BerekenAantal(Lijn, ..AantalRepository.GeefViaKortTekstSleutel(KortTekstSleutel))
 		}
 	}
 		
 	Quit Aantal
 ]]></Implementation>
 </Method>
+
+<Method name="BerekenAantal">
+<FormalSpec>Lijn:DOM.AKP.ProductToeleveringLijn,KlantEtiketAantal:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Aantal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = Lijn.GeefAantal()
+	
+	If (KlantEtiketAantal.Eenheid = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Lijn()) {
+		Set Aantal = KlantEtiketAantal.Aantal
+	} Elseif (KlantEtiketAantal.Eenheid = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud()) {
+		Set Aantal = 1 + ##class(TECH.Math).Floor(Lijn.GeefAantal() / KlantEtiketAantal.Aantal)
+	} Elseif (KlantEtiketAantal.Eenheid = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk()) {
+		Set Aantal = (Lijn.GeefAantal() * KlantEtiketAantal.Aantal)
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>