Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30517 -r55513
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30517)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55513)
@@ -63,7 +63,9 @@
 
 <Method name="ValideerBestelEenheid">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
-<Implementation><![CDATA[	do:($$$Not(Aantal # ..GeefBestelEenheid(Kenmerken, Aantal) = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer = ..GeefBestelEenheid(Kenmerken, Aantal)
+	do:($$$Not(Aantal # BestelEenheid = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid (Minimum = '" _ BestelEenheid _ "', anders een veelvoud hiervan).")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml
===================================================================
diff -u -r30517 -r55513
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 30517)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55513)
@@ -72,7 +72,7 @@
 	set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
 
 	#dim DoosAfmetingenBepaler As zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler = ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New()
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal", "is geen geldige bestelhoeveelheid.")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal", "is geen geldige bestelhoeveelheid (Minimum =", ", anders een veelvoud hiervan).")
 	
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	do ..DoosAfmetingenBepalerFactory.IndienMethodCall("MaakDoosAfmetingenBepaler", $$$ElkeWaarde).DanReturn(DoosAfmetingenBepaler)