Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r60628 -r74853
--- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 60628)
+++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 74853)
@@ -8,32 +8,66 @@
 <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>
 
+<Property name="Logger">
+<Type>vhLib.Logger</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="",Logger:vhLib.Logger=""</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())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper"))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDnaCodesStringVoorQuery">
+<FormalSpec>DnaCodesString:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:$$$IsEmptyString(DnaCodesString)
+
+	#dim LijstDnaCodes As %String = ""
+	Set DnaCodeAsStringIterator = ##class(TECH.ListIterator).%New(DnaCodesString)
+	While DnaCodeAsStringIterator.HasNext() {
+		#dim DnaCodeId AS %String = DnaCodeAsStringIterator.Next()
+		Set DnaCodeId = ##class(TECH.StringUtils).TrimWhitespaces(DnaCodeId)
+		Set LijstDnaCodes=  ##class(TECH.StringUtils).Append(LijstDnaCodes, "'"_DnaCodeId_"'", ",")	
+	}
+
+	Quit LijstDnaCodes
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodesIteratorVoorDnaCodeStrings">
+<FormalSpec>DnaCodesString:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim InQueryValue As %String = ..GeefDnaCodesStringVoorQuery(DnaCodesString)
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaMeerdereDnaCodes(InQueryValue)
+	Quit DnaCodeIterator
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
 <FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
+	Quit:$$$IsEmptyString(DnaCodeStringLijst)
+		
 	#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
@@ -87,60 +121,103 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MapProductieLijnOpPrinter">
+<Method name="MapWerkpostOpPrinter">
 <FormalSpec>Werkpost:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Quit:(Werkpost="TAO")||(Werkpost="TAX") "Halux_TaorMontage"
+	Quit:(Werkpost="P1") "Halux_LadeAfw_BWK"
 	
 	#dim Productielijn As %String
 	Set Productielijn = ..VertaalWerkpostNaarResource(Werkpost)
+	Quit:Productielijn=##class(APPS.Halux.common.enu.ProductieLijn).Een() "Halux_LadeAfw_L1"
 	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:Productielijn=##class(APPS.Halux.common.enu.ProductieLijn).Vijf() "Halux_LadeAfw_L5_1"
 	
 	Quit "Bartender"
 ]]></Implementation>
 </Method>
 
+<Method name="MapLijnOpPrinter">
+<FormalSpec>Lijn:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:Lijn="TAOR" "Halux_TaorMontage"
+	Quit:Lijn="BewerkingsCenter" "Halux_LadeAfw_BWK"
+	Quit:Lijn=##class(APPS.Halux.common.enu.ProductieLijn).Een() "Halux_LadeAfw_L1"
+	Quit:Lijn=##class(APPS.Halux.common.enu.ProductieLijn).Twee() "Halux_LadeAfw_L2"
+	Quit:Lijn=##class(APPS.Halux.common.enu.ProductieLijn).Drie() "Halux_LadeAfw_L3"
+	Quit:Lijn=##class(APPS.Halux.common.enu.ProductieLijn).Vier() "Halux_LadeAfw_L4"
+	Quit:Lijn=##class(APPS.Halux.common.enu.ProductieLijn).Vijf() "Halux_LadeAfw_L5_1"
+	
+	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><![CDATA[	Quit $CASE(Werkpost,"Z1":1,"Z2":2,"Z3":3,"P1":1,"P2":4,"LP1":1,"LP2":2,"LP3":3,"LP5":5,"MP4":4,"MP5":5,:"")
 ]]></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 = ? "
+	#dim Werkpost As %String = ""
+	#dim IsTaor As %Boolean = ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode, "H")
+	#dim DummyBypassGebruiken As %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GetString("DummyLaderegistraties")
+		
+	If (DummyBypassGebruiken && IsTaor) {
+		Quit "TAO"
 	}
-	Set Statement = Statement _ "order by id desc "
 	
-	#dim Query As TECH.DynamicQuery
+	#dim LaderegistratieIterator As TECH.Iterator
 	If $$$HasLength(DnaCode.Toelevering) {
-		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(DnaCode.ProductNummer,  DnaCode.Toelevering))
+		Set LaderegistratieIterator = ..RegistratieRepository.ZoekViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
 	} Else {
-		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(DnaCode.ProductNummer))
+		Set LaderegistratieIterator = ..RegistratieRepository.ZoekViaProductNr(DnaCode.ProductNummer)
 	}
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
 	
-	#dim Werkpost As %String = ""
-	While (ResultSet.Next()) {
-		Set Werkpost = ResultSet.GetDataByName("Werkpost")
+	If (LaderegistratieIterator.HasNext()) {
+		Set Werkpost = LaderegistratieIterator.Next().Werkpost
 	}
-	If Werkpost = "" {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'"))
+	
+	If $$$Not($$$HasLength(Werkpost)) {
+		Do ..Logger.Warning("GeefWerkpost", "Werkpost kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'")
 	}
+	
 	Quit Werkpost
 ]]></Implementation>
 </Method>
+
+<Method name="VervangPrinterDoorLijnPrinter">
+<FormalSpec>TeGebruikenPrinter:%String,DnaCodeRequest:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Gevonden As %Boolean = $$$False
+	
+	If (TeGebruikenPrinter = "Halux_LadeAfw_BWK") {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(DnaCodeRequest.Toelevering)
+		
+		While (DnaCodeIterator.HasNext() && $$$Not(Gevonden)) {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			#dim VolgendeTeGebruikenPrinter As %String = ..MapWerkpostOpPrinter(..GeefWerkpost(DnaCode))
+			
+			If (($$$Not(VolgendeTeGebruikenPrinter = "Bartender")) && ($$$Not(TeGebruikenPrinter = VolgendeTeGebruikenPrinter))) {
+				Set TeGebruikenPrinter = VolgendeTeGebruikenPrinter
+				Set Gevonden = $$$True
+			}
+		}
+	}
+		
+	Quit TeGebruikenPrinter
+]]></Implementation>
+</Method>
 </Class>