Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml
===================================================================
diff -u -r60081 -r60167
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml	(.../AantalService.cls.xml)	(revision 60081)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/AantalService.cls.xml	(.../AantalService.cls.xml)	(revision 60167)
@@ -57,11 +57,10 @@
 	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)
+		Set Aantal = 1 + ##class(TECH.Math).Floor((Lijn.GeefAantal()-1) / 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>
Index: vhDeploy/Deploy06032020KlantEtiketUpdateAantal.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy06032020KlantEtiketUpdateAantal.cls.xml	(revision 0)
+++ vhDeploy/Deploy06032020KlantEtiketUpdateAantal.cls.xml	(revision 60167)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy06032020KlantEtiketUpdateAantal">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Zet KlantEtiketAantal voor producten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..MaakKlantEtiketAantal("MAT", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Lijn())
+	Do ..MaakKlantEtiketAantal("AFV", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Lijn())
+
+	Do ..MaakKlantEtiketAantal("SD1", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("SD2", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("INP", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("Z37", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("Z31", 10, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("ZRG", 10, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("ZW7", 6, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("ZR7", 10, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("20Q", 10, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("Z80", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("H80", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("ZE7", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("20F", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("Z40", 10, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Veelvoud())
+	Do ..MaakKlantEtiketAantal("SST", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Stuk())
+	Do ..MaakKlantEtiketAantal("HAL", 1, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid).Lijn())
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlantEtiketAantal">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KortTekstSleutel:%String,Aantal:%Integer=1,Eenheid:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.enu.Eenheid</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantEtiketAantal As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Aantal
+	
+	Set AantalRepository = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.AantalRepository).%New()
+	If $$$Not(AantalRepository.BestaatViaKortTekstSleutel(KortTekstSleutel)) {
+		Set KlantEtiketAantal = AantalRepository.Maak()
+	} Else {
+		Set KlantEtiketAantal = AantalRepository.GeefViaKortTekstSleutel(KortTekstSleutel)
+	}
+	
+	Set KlantEtiketAantal.KortTekstSleutel = KortTekstSleutel
+	Set KlantEtiketAantal.Aantal = Aantal
+	Set KlantEtiketAantal.Eenheid = Eenheid
+	Do AantalRepository.Bewaar(KlantEtiketAantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>