Index: vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 60495)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper</Super>
+
+<Method name="GeefWerkpost">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
+<FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MapProductieLijnOpPrinter">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 60495)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerkpost">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWerkpost",DnaCode)
+]]></Implementation>
+</Method>
+
+<Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
+<FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakDnaCodeIteratorVanDnaCodeStringLijst",DnaCodeStringLijst)
+]]></Implementation>
+</Method>
+
+<Method name="MapProductieLijnOpPrinter">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MapProductieLijnOpPrinter",Werkpost)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 0)
+++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(revision 60495)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper">
+<Super>TECH.Mockable</Super>
+
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",QueryAPI:TECH.Query.QueryAPI=""</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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
+<FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeAsStringIterator As TECH.Iterator
+	Set DnaCodeAsStringIterator = ##class(TECH.ListIterator).%New(DnaCodeStringLijst)
+	
+	Quit:$$$Not(DnaCodeAsStringIterator.HasNext())
+	
+	#dim LijstMetDnaCodes = ##class(%ListOfDataTypes).%New()
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	While DnaCodeAsStringIterator.HasNext() {
+		Set DnaCode = ..DnaCodeRepository.ZoekViaDnaCode(DnaCodeAsStringIterator.Next()).Next()
+		Do LijstMetDnaCodes.Insert(DnaCode)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(LijstMetDnaCodes)
+]]></Implementation>
+</Method>
+
+<Method name="MapProductieLijnOpPrinter">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Werkpost="TAO")||(Werkpost="TAX") "Halux_TaorMontage"
+	
+	#dim Productielijn As %String
+	Set Productielijn = ..VertaalWerkpostNaarResource(Werkpost)
+	Quit:Productielijn=##class(APPS.Halux.common.enu.ProductieLijn).Twee() "Halux_LadeAfw_L2"
+	Quit:Productielijn=##class(APPS.Halux.common.enu.ProductieLijn).Drie() "Halux_LadeAfw_L3"
+	Quit:Productielijn=##class(APPS.Halux.common.enu.ProductieLijn).Vier() "Halux_LadeAfw_L4"
+	
+	Quit "Bartender"
+]]></Implementation>
+</Method>
+
+<Method name="VertaalWerkpostNaarResource">
+<FormalSpec>Werkpost:APPS.Halux.common.enu.Werkpost</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
+<Implementation><![CDATA[	Quit $CASE(Werkpost,"Z1":1,"Z2":2,"Z3":3,"P1":1,"P2":4,"LP1":1,"LP2":2,"LP3":3,:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerkpost">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Statement As %String = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
+	If $$$HasLength(DnaCode.Toelevering) {
+		Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "
+	} Else {
+		Set Statement = Statement _ "where prnr = ? "
+	}
+	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")
+	}
+	If Werkpost = "" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'"))
+	}
+	Quit Werkpost
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>