Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml	(revision 37571)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.dto.VerpakkingList.GeefSamengesteldeProductID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft het samengestelde ProductID van een verpakkingslijst">
+<Implementation><![CDATA[
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Set VerpakkingList.GetAt(1).ProductID = "1"
+	Set VerpakkingList.GetAt(2).ProductID = "2"
+	Set VerpakkingList.GetAt(3).ProductID = "3"
+	Set VerpakkingList.GetAt(4).ProductID = "4"
+	Set VerpakkingList.GetAt(5).ProductID = "5"
+	
+	Do $$$AssertEquals(VerpakkingList.GeefSamengesteldeProductID(),"\1\2\3\4\5")
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft een foutmelding van een verpakkingslijst met een verpakking waarbij ProductID 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).ProductID = "1"
+	Set VerpakkingList.GetAt(2).ProductID = "2"
+	Set VerpakkingList.GetAt(3).ProductID = ""
+	Set VerpakkingList.GetAt(4).ProductID = "4"
+	Set VerpakkingList.GetAt(5).ProductID = "5"
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking  heeft een ProductID met lege waarde.")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+
+	Do VerpakkingList.GeefSamengesteldeProductID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/dto/VerpakkingList.cls.xml
===================================================================
diff -u -r37570 -r37571
--- APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37570)
+++ APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37571)
@@ -71,6 +71,7 @@
 	#dim SamengesteldeProductID As %String = ""
 	#dim Counter As %Integer = 0
 	for Counter=1:1:..Count() {
+		Do ..Valideer(..GetAt(Counter).ProductID, ..GetAt(Counter).ProductID, "ProductID")
 		Set SamengesteldeProductID = SamengesteldeProductID _"\" _..GetAt(Counter).ProductID
 	}
 	Quit SamengesteldeProductID