Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml	(revision 37552)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.dto.VerpakkingList.ZoekVerpakkingen.TestTax">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft lijst met probox verpakking met taorbox lades weer">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeProbox As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox()
+	#dim LadeTypeTaorbox As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeProbox, LadeTypeTaorbox)
+	if $$$AssertEquals(VerpakkingListResultaat.Count(), 1) {
+		#dim VerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingListResultaat)
+		if 
+		While VerpakkingListIterator.HasNext() {
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingListIterator.Next()
+			Do $$$AssertEquals(Verpakking.LadeType, LadeTypeTaorbox)
+			Do $$$AssertEquals(Verpakking.VerpakkingType, VerpakkingTypeProbox)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lijst met V1 verpakking met taorbox lades weer">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).V1()
+	#dim LadeTypeTaorbox As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeV1, LadeTypeTaorbox)
+	if $$$AssertEquals(VerpakkingListResultaat.Count(),1) {
+		#dim VerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingListResultaat)
+		if 
+		While VerpakkingListIterator.HasNext() {
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingListIterator.Next()
+			Do $$$AssertEquals(Verpakking.LadeType, LadeTypeTaorbox)
+			Do $$$AssertEquals(Verpakking.VerpakkingType, VerpakkingTypeV1)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lijst met FlatpackV1 verpakking met taorbox lades weer">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeFlatpackV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()
+	#dim LadeTypeTaorbox As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeFlatpackV1, LadeTypeTaorbox)
+	if $$$AssertEquals(VerpakkingListResultaat.Count(),1) {
+		#dim VerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingListResultaat)
+		if 
+		While VerpakkingListIterator.HasNext() {
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingListIterator.Next()
+			Do $$$AssertEquals(Verpakking.LadeType, LadeTypeTaorbox)
+			Do $$$AssertEquals(Verpakking.VerpakkingType, VerpakkingTypeFlatpackV1)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lege lijst indien geen overeenkomstig VerpakkingType">
+<Implementation><![CDATA[
+	#dim LadeTypeTaorbox As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen("", LadeTypeTaorbox)
+	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestLbx.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestLbx.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestLbx.cls.xml	(revision 37552)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.dto.VerpakkingList.ZoekVerpakkingen.TestLbx">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft lijst met probox verpakking met legrabox lades weer">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeProbox As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox()
+	#dim LadeTypeLegraboxPure As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeProbox, LadeTypeLegraboxPure)
+	if $$$AssertEquals(VerpakkingListResultaat.Count(), 1) {
+		#dim VerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingListResultaat)
+		if 
+		While VerpakkingListIterator.HasNext() {
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingListIterator.Next()
+			Do $$$AssertEquals(Verpakking.LadeType, LadeTypeLegraboxPure)
+			Do $$$AssertEquals(Verpakking.VerpakkingType, VerpakkingTypeProbox)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lijst met V1 verpakking met legrabox lades weer">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).V1()
+	#dim LadeTypeLegraboxPure As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeV1, LadeTypeLegraboxPure)
+	if $$$AssertEquals(VerpakkingListResultaat.Count(),1) {
+		#dim VerpakkingListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingListResultaat)
+		if 
+		While VerpakkingListIterator.HasNext() {
+			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = VerpakkingListIterator.Next()
+			Do $$$AssertEquals(Verpakking.LadeType, LadeTypeLegraboxPure)
+			Do $$$AssertEquals(Verpakking.VerpakkingType, VerpakkingTypeV1)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lege lijst indien geen overeenkomstig VerpakkingType">
+<Implementation><![CDATA[
+	#dim LadeTypeLegraboxPure As APPS.VKP.Offerte.enu.LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen("", LadeTypeLegraboxPure)
+	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml	(revision 37552)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.dto.VerpakkingList.ZoekVerpakkingen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met FlatpackV1">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeFlatpackV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeFlatpackV1, "")
+	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met V1">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).V1()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeV1, "")
+	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met Probox">
+<Implementation><![CDATA[
+	#dim VerpakkingTypeProbox As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox()
+	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeProbox, "")
+	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/dto/VerpakkingList.cls.xml
===================================================================
diff -u -r33006 -r37552
--- APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 33006)
+++ APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(.../VerpakkingList.cls.xml)	(revision 37552)
@@ -7,6 +7,22 @@
 <Default>APPS.VKP.Offerte.dto.Verpakking</Default>
 </Parameter>
 
+<Method name="ZoekVerpakkingen">
+<FormalSpec>VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType="",LadeType:APPS.VKP.Offerte.enu.LadeType=""</FormalSpec>
+<ReturnType>TECH.ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingList As TECH.ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Counter As %Integer = 0
+	for Counter=1:1:..Count() {
+		#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ..GetAt(Counter)
+		if (VerpakkingType = Verpakking.VerpakkingType) && (LadeType = Verpakking.LadeType) {
+			Do VerpakkingList.Insert(Verpakking)
+		}
+	}
+	Quit VerpakkingList
+]]></Implementation>
+</Method>
+
 <Storage name="Custom">
 <Type>%Library.CompleteCustomStorage</Type>
 </Storage>