Index: WS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58639 -r59791
--- WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58639)
+++ WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59791)
@@ -117,6 +117,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxEtiketAfdrukken">
+<FormalSpec>ProboxEtiketAfdrukkenRequest:WS.Halux.AAP.ProboxEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ProboxEtiketAfdrukkenResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(ProboxEtiketAfdrukkenRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkRequest">
 <FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
 <Private>1</Private>
Index: WS/Halux/AAP/ProboxEtiketAfdrukkenResponse.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/ProboxEtiketAfdrukkenResponse.cls.xml	(revision 0)
+++ WS/Halux/AAP/ProboxEtiketAfdrukkenResponse.cls.xml	(revision 59791)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.ProboxEtiketAfdrukkenResponse">
+<Super>WS.Halux.AAP.GeneriekeResponse</Super>
+</Class>
+
+
+</Export>
Index: WS/Halux/AAP/ProboxEtiketAfdrukkenRequest.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/ProboxEtiketAfdrukkenRequest.cls.xml	(revision 0)
+++ WS/Halux/AAP/ProboxEtiketAfdrukkenRequest.cls.xml	(revision 59791)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.ProboxEtiketAfdrukkenRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.Halux.AAP.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="DnaCodes">
+<Type>WSimpl.Halux.AAP.dto.DnaCode</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ProboxEtiketAfdrukkenRequestState</State>
+<StreamLocation>^WS.Halux.AAP.ProboxEtike8EBFS</StreamLocation>
+<Data name="ProboxEtiketAfdrukkenRequestState">
+<Value name="1">
+<Value>Header</Value>
+</Value>
+<Value name="2">
+<Value>DnaCodes</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58949 -r59791
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58949)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59791)
@@ -28,8 +28,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DocsV1">
+<Type>BL.PPS.TBX.DocsV1</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="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",QueryAPI:TECH.Query.QueryAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -39,6 +49,8 @@
 	Set ..PalletCodeValidator = $$$Inject(PalletCodeValidator, ##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New())
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..InventarisService = $$$Inject(InventarisService, ##class(APPS.MAG.Inventaris.impl.InventarisService).%New())
+	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
+	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -445,6 +457,94 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxEtiketAfdrukken">
+<FormalSpec>ProboxEtiketAfdrukkenRequest:WS.Halux.AAP.ProboxEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ProboxEtiketAfdrukkenResponse</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		Set Response = ##class(WS.Halux.AAP.ProboxEtiketAfdrukkenResponse).%New()
+		#dim DnaCodeIterator As TECH.Iterator
+		Set DnaCodeIterator = ##class(TECH.ListIterator).%New(ProboxEtiketAfdrukkenRequest.DnaCodes)
+		
+		Quit:$$$Not(DnaCodeIterator.HasNext())
+		
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+		Do DnaCodeIterator.Reset()
+	
+		#dim TeGebruikenPrinter = ..MapProductieLijnOpPrinter(..GeefWerkpost(DnaCode))
+		
+		If TeGebruikenPrinter = "" {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
+		}
+		Do ..DocsV1.Init(,"",TeGebruikenPrinter,"","")
+		Do ..DocsV1.ProboxInhoudEtiket(DnaCodeIterator)
+		Set Response.Header.Status = "200"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="MapProductieLijnOpPrinter">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<Private>1</Private>
+<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>
+<Private>1</Private>
+<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>
+
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <Private>1</Private>