Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r66422 -r66459
--- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 66422)
+++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 66459)
@@ -8,20 +8,20 @@
 <Private>1</Private>
 </Property>
 
-<Property name="QueryAPI">
-<Type>TECH.Query.QueryAPI</Type>
+<Property name="RegistratieRepository">
+<Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
-	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..RegistratieRepository = $$$Inject(RegistratieRepository, ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -167,31 +167,19 @@
 	If IsMerivo {
 		Quit ##class(APPS.Halux.common.enu.Werkpost).Pers2()
 	}
-	
 	If (DummyBypassGebruiken && IsTaor) {
 		Quit "TAO"
 	}
 	
-	#dim Statement As %String = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
+	#dim LadeRegistratie As APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie
 	If $$$HasLength(DnaCode.Toelevering) {
-		Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "
+		Set LadeRegistratie = ..RegistratieRepository.GeefViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
 	} Else {
-		Set Statement = Statement _ "where prnr = ? "
+		Set LadeRegistratie = ..RegistratieRepository.GeefViaProductNr(DnaCode.ProductNummer)
 	}
-	Set Statement = Statement _ "order by id desc "
 	
-	#dim Query As TECH.DynamicQuery
-	If $$$HasLength(DnaCode.Toelevering) {
-		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(DnaCode.ProductNummer,  DnaCode.Toelevering))
-	} Else {
-		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(DnaCode.ProductNummer))
-	}
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
-	
 	#dim Werkpost As %String = ""
-	While (ResultSet.Next()) {
-		Set Werkpost = ResultSet.GetDataByName("Werkpost")
-	}
+	Set Werkpost = LadeRegistratie.Werkpost
 	If Werkpost = "" {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'"))
 	}
FishEye: Tag 66459 refers to a dead (removed) revision in file `vhTest/Mock/APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r65721 -r66459
--- vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 65721)
+++ vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 66459)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml
===================================================================
diff -u -r64189 -r66459
--- vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml	(.../Test.cls.xml)	(revision 64189)
+++ vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml	(.../Test.cls.xml)	(revision 66459)
@@ -15,25 +15,25 @@
 
 <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("", "")
+	#dim Werkpost As %String = ""
+	#dim Familie As %String = ""
+	Set LadeRegistratie = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(Werkpost, Familie)
 
-	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
-	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
+	Set RegistratieRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New()
+	Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNrEnToelevering",DnaCode.ProductNummer, DnaCode.Toelevering).DanReturn(LadeRegistratie)
 	
 	#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)
+	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, RegistratieRepositoryMock)
 	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
 	
-	Do QueryApiMock.Verifieer()
+	Do RegistratieRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -44,18 +44,18 @@
 	Set DnaCode.Toelevering = "111111"
 	Set DnaCode.ProductNummer = "1304468"
 	
-	#dim DynamicQuery As TECH.DynamicQuery = ..MaakDynamicQuery(DnaCode)
-	#dim WerkpostResultSet As TECH.ResultSet = ..MaakWerkpostResultSet(..#Werkpost1, "Werkpost")
+	#dim Familie As %String = ""
+	Set LadeRegistratie = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..#Werkpost1, Familie)
 
-	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
-	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
+	Set RegistratieRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New()
+	Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNrEnToelevering",DnaCode.ProductNummer, DnaCode.Toelevering).DanReturn(LadeRegistratie)
 	
-	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, QueryApiMock)
+	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, RegistratieRepositoryMock)
 	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
 	
 	Do $$$AssertEquals(WerkPost, ..#Werkpost1)
 	
-	Do QueryApiMock.Verifieer()
+	Do RegistratieRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -65,18 +65,18 @@
 	Set DnaCode.DnaCode = "LAAAAA0"
 	Set DnaCode.ProductNummer = "1304468"
 	
-	#dim DynamicQuery As TECH.DynamicQuery = ..MaakDynamicQuery(DnaCode)
-	#dim WerkpostResultSet As TECH.ResultSet = ..MaakWerkpostResultSet(..#Werkpost1, "Werkpost")
+	#dim Familie As %String = ""
+	Set LadeRegistratie = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..#Werkpost1, Familie)
 
-	Set QueryApiMock = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
-	Do QueryApiMock.VerwachtMethodCall("GetResultSet",..Matches.Object((DynamicQuery))).DanReturn(WerkpostResultSet)
+	Set RegistratieRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New()
+	Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNr",DnaCode.ProductNummer).DanReturn(LadeRegistratie)
 	
-	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, QueryApiMock)
+	Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, RegistratieRepositoryMock)
 	#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
 	
 	Do $$$AssertEquals(WerkPost, ..#Werkpost1)
 	
-	Do QueryApiMock.Verifieer()
+	Do RegistratieRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -91,45 +91,6 @@
 	Do $$$AssertEquals(WerkPost, ..#Werkpost4)
 ]]></Implementation>
 </Method>
-
-<Method name="MaakDynamicQuery">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.DynamicQuery</ReturnType>
-<Implementation><![CDATA[
-	#dim Statement As %String = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
-	#dim Parameters As %List
-	
-	If $$$HasLength(DnaCode.Toelevering) {
-		Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "
-	} Else {
-		Set Statement = Statement _ "where prnr = ? "
-	}
-	Set Statement = Statement _ "order by id desc "
-	
-	If $$$HasLength(DnaCode.Toelevering) {
-		Set Parameters = $ListBuild(DnaCode.ProductNummer, DnaCode.Toelevering)
-	} Else {
-		Set Parameters = $ListBuild(DnaCode.ProductNummer)
-	}
-	
-	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>