Index: vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml
===================================================================
diff -u -r64179 -r64180
--- vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml	(.../Test.cls.xml)	(revision 64179)
+++ vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml	(.../Test.cls.xml)	(revision 64180)
@@ -13,23 +13,42 @@
 <Default>P2</Default>
 </Parameter>
 
-<Method name="Test: Gewone DnaCode met toelevering geeft Werkpost1">
+<Method name="Test: Gewone DnaCode met toelevering waarbij ResultSet geen werkpost bevat geeft error">
 <Implementation><![CDATA[
+	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.DnaCode = "LAAAAA0"
 	Set DnaCode.Toelevering = "111111"
 	Set DnaCode.ProductNummer = "1304468"
 	
 	#dim DynamicQuery As TECH.DynamicQuery = ..MaakDynamicQuery(DnaCode)
+	#dim WerkpostResultSet As TECH.ResultSet = ..MaakWerkpostResultSet("", "")
+
+	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
+	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
 	
-	#dim ResultSetData As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do ResultSetData.Insert($listbuild(..#Werkpost1))
-	#dim ResultSetHeader As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do ResultSetHeader.Insert("Werkpost")
-	#dim ResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(ResultSetData, ResultSetHeader)
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Werkpost/Productielijn kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substring))
+	
+	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, QueryApiMock)
+	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
+	
+	Do QueryApiMock.Verifieer()
+]]></Implementation>
+</Method>
 
+<Method name="Test: Gewone DnaCode met toelevering geeft Werkpost1">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LAAAAA0"
+	Set DnaCode.Toelevering = "111111"
+	Set DnaCode.ProductNummer = "1304468"
+	
+	#dim DynamicQuery As TECH.DynamicQuery = ..MaakDynamicQuery(DnaCode)
+	#dim WerkpostResultSet As TECH.ResultSet = ..MaakWerkpostResultSet(..#Werkpost1, "Werkpost")
+
 	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
-	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(ResultSet)
+	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
 	
 	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, QueryApiMock)
 	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
@@ -48,15 +67,10 @@
 	Set DnaCode.ProductNummer = "1304468"
 	
 	#dim DynamicQuery As TECH.DynamicQuery = ..MaakDynamicQuery(DnaCode)
-	
-	#dim ResultSetData As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do ResultSetData.Insert($listbuild(..#Werkpost1))
-	#dim ResultSetHeader As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do ResultSetHeader.Insert("Werkpost")
-	#dim ResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(ResultSetData, ResultSetHeader)
+	#dim WerkpostResultSet As TECH.ResultSet = ..MaakWerkpostResultSet(..#Werkpost1, "Werkpost")
 
 	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
-	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(ResultSet)
+	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
 	
 	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, QueryApiMock)
 	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
@@ -91,6 +105,20 @@
 	Quit ##class(TECH.DynamicQuery).%New(Statement, Parameters)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakWerkpostResultSet">
+<FormalSpec>NaamWerkpost:%String,NaamHeader:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ResultSetData.Insert($ListBuild(NaamWerkpost))
+	#dim ResultSetHeader As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ResultSetHeader.Insert(NaamHeader)
+	
+	Quit ##class(vhTest.Fake.TECH.ResultSet).%New(ResultSetData, ResultSetHeader)
+]]></Implementation>
+</Method>
 </Class>