Index: WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u -r62605 -r62607
--- WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62605)
+++ WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62607)
@@ -86,7 +86,7 @@
 			Set Resultaat = TbxSequentie.GetData(2)
 		}
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalUsageException).%New("TbsSequentieIterator is leeg"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalUsageException).%New("TbxSequentieIterator is leeg"))
 	}
 	
 	Quit Resultaat
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenTbx/Test.cls.xml
===================================================================
diff -u -r62605 -r62607
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenTbx/Test.cls.xml	(.../Test.cls.xml)	(revision 62605)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenTbx/Test.cls.xml	(.../Test.cls.xml)	(revision 62607)
@@ -90,25 +90,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: lege iterator -&gt; exceptie">
+<Method name="Test: lege iterator -&gt; exceptie">
 <Implementation><![CDATA[
 	#dim BatchId = "123456"
 	#dim SequentieNummer = "42"
 	#dim InternVhossId = "1"
 	#dim EchtVhossId = "O100000042"
-	Set ResultSetHeaders = ##class(%ListOfDataTypes).%New()
-	Do ResultSetHeaders.Insert("ID")
-	Do ResultSetHeaders.Insert("InternVhossID")
-	Do ResultSetHeaders.Insert("Sequence")
-	Do ResultSetHeaders.Insert("PalletCode")
+		
+	Set VhossMapperStub = ##class(TECH.KeyValue.UniqueList).%New()
 	
-	Set ResultSetData = ##class(%ListOfDataTypes).%New()
-	Do ResultSetData.Insert($listbuild(1,InternVhossId,SequentieNummer,EchtVhossId))
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("TbxSequentieIterator is leeg")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalUsageException",Substrings))
 	
-	#dim TbxIterator = ##class(TECH.ResultSetIterator).%New(##class(vhTest.Fake.TECH.ResultSet).%New(ResultSetData, ResultSetHeaders))
-		
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New()
-	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenTBX(BatchId, ,InternVhossId, TbxIterator)
+	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenTBX(..EmptyIterator(), VhossMapperStub)
 	
 	Do $$$AssertEquals(Antwoord,EchtVhossId)
 ]]></Implementation>