Index: APPS/VKP/Offerte/dto/VerpakkingList.cls.xml
===================================================================
diff -u -r37571 -r37573
--- APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37571)
+++ APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37573)
@@ -44,8 +44,7 @@
 	#dim Counter As %Integer = 0
 	for Counter=1:1:..Count() {
 		Do ..Valideer(..GetAt(Counter).WaardeGoederen, ..GetAt(Counter).ProductID, "WaardeGoederen")
-		Do ..Valideer(..GetAt(Counter).Aantal, ..GetAt(Counter).ProductID, "Aantal")
-		Set WaardeGoederen = WaardeGoederen + (..GetAt(Counter).WaardeGoederen * ..GetAt(Counter).Aantal)
+		Set WaardeGoederen = WaardeGoederen + ..GetAt(Counter).WaardeGoederen
 	}
 	Quit WaardeGoederen
 ]]></Implementation>
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml
===================================================================
diff -u -r37572 -r37573
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(.../Test.cls.xml)	(revision 37572)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(.../Test.cls.xml)	(revision 37573)
@@ -35,7 +35,7 @@
 	Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
 	Set VerpakkingList.GetAt(5).Aantal = 5
 	
-	Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),4.49)
+	Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.74)
 ]]></Implementation>
 </Method>
 
@@ -59,27 +59,6 @@
 	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>