Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml	(revision 37568)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.dto.VerpakkingList.GeefTotaalWaardeGoederen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft het totale waarde van een verpakkingslijst waarbij het verpakking aantal 1 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 = 1
+	Set VerpakkingList.GetAt(3).WaardeGoederen = 0.7
+	Set VerpakkingList.GetAt(3).Aantal = 1
+	Set VerpakkingList.GetAt(4).WaardeGoederen = 0.11
+	Set VerpakkingList.GetAt(4).Aantal = 1
+	Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
+	Set VerpakkingList.GetAt(5).Aantal = 1
+	
+	Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.74)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft het totale waarde van een verpakkingslijst waarbij het verpakking aantal per verpakking verschillend 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 = 3
+	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
+	
+	Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),4.49)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij het Volume aandeel 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 = ""
+	Set VerpakkingList.GetAt(3).Aantal = 3
+	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 WaardeGoederen met lege waarde.")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+
+	Do VerpakkingList.GeefTotaalWaardeGoederen()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/dto/VerpakkingList.cls.xml
===================================================================
diff -u -r37567 -r37568
--- APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37567)
+++ APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37568)
@@ -43,6 +43,8 @@
 	#dim WaardeGoederen As TECH.Decimal = 0.0
 	#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)
 	}
 	Quit WaardeGoederen