Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml
===================================================================
diff -u -r37570 -r37572
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml	(.../Test.cls.xml)	(revision 37570)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml	(.../Test.cls.xml)	(revision 37572)
@@ -39,7 +39,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij het gewicht leeg is">
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij het Gewicht leeg is">
 <Implementation><![CDATA[
 	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
 	Set VerpakkingList.GetAt(1).Gewicht = 3.3
@@ -59,6 +59,27 @@
 	Do VerpakkingList.GeefTotaalGewicht()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij het Aantal leeg is">
+<Implementation><![CDATA[
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Set VerpakkingList.GetAt(1).Gewicht = 3.3
+	Set VerpakkingList.GetAt(1).Aantal = 1
+	Set VerpakkingList.GetAt(2).Gewicht = 5.5
+	Set VerpakkingList.GetAt(2).Aantal = 2
+	Set VerpakkingList.GetAt(3).Gewicht = 7.7
+	Set VerpakkingList.GetAt(3).Aantal = ""
+	Set VerpakkingList.GetAt(4).Gewicht = 11.11
+	Set VerpakkingList.GetAt(4).Aantal = 4
+	Set VerpakkingList.GetAt(5).Gewicht = 13.13
+	Set VerpakkingList.GetAt(5).Aantal = 5
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Aantal met lege waarde.")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+
+	Do VerpakkingList.GeefTotaalGewicht()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml
===================================================================
diff -u -r37569 -r37572
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(.../Test.cls.xml)	(revision 37569)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(.../Test.cls.xml)	(revision 37572)
@@ -59,6 +59,27 @@
 	Do VerpakkingList.GeefTotaalWaardeGoederen()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij Aantal leeg is">
+<Implementation><![CDATA[
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Set VerpakkingList.GetAt(1).WaardeGoederen = 0.3
+	Set VerpakkingList.GetAt(1).Aantal = 1
+	Set VerpakkingList.GetAt(2).WaardeGoederen = 0.5
+	Set VerpakkingList.GetAt(2).Aantal = 2
+	Set VerpakkingList.GetAt(3).WaardeGoederen = 0.7
+	Set VerpakkingList.GetAt(3).Aantal = ""
+	Set VerpakkingList.GetAt(4).WaardeGoederen = 0.11
+	Set VerpakkingList.GetAt(4).Aantal = 4
+	Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
+	Set VerpakkingList.GetAt(5).Aantal = 5
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Aantal met lege waarde.")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+
+	Do VerpakkingList.GeefTotaalWaardeGoederen()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml
===================================================================
diff -u -r37567 -r37572
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml	(.../Test.cls.xml)	(revision 37567)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml	(.../Test.cls.xml)	(revision 37572)
@@ -59,6 +59,27 @@
 	Do VerpakkingList.GeefTotaalVolumeAandeel()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij het Aantal leeg is">
+<Implementation><![CDATA[
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Set VerpakkingList.GetAt(1).VolumeAandeel = 0.3
+	Set VerpakkingList.GetAt(1).Aantal = 1
+	Set VerpakkingList.GetAt(2).VolumeAandeel = 0.5
+	Set VerpakkingList.GetAt(2).Aantal = 2
+	Set VerpakkingList.GetAt(3).VolumeAandeel = 0.7
+	Set VerpakkingList.GetAt(3).Aantal = ""
+	Set VerpakkingList.GetAt(4).VolumeAandeel = 0.11
+	Set VerpakkingList.GetAt(4).Aantal = 4
+	Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
+	Set VerpakkingList.GetAt(5).Aantal = 5
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Aantal met lege waarde.")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+
+	Do VerpakkingList.GeefTotaalVolumeAandeel()
+]]></Implementation>
+</Method>
 </Class>