Index: WS/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/AfdrukService.cls.xml	(revision 0)
+++ WS/Halux/AAP/AfdrukService.cls.xml	(revision 60494)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.AfdrukService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>AfdrukService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/Halux/AAP/Afdruk</Default>
+</Parameter>
+
+<Property name="AfdrukService">
+<Type>WSimpl.Halux.AAP.AfdrukService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeaderValidator">
+<Type>WSimpl.Halux.AAP.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..AfdrukService = ##class(WSimpl.Halux.AAP.AfdrukService).%New()
+	Set ..HeaderValidator = ##class(WSimpl.Halux.AAP.HeaderValidator).%New()
+
+	Quit $$$OK
+]]></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="ProductEtiketAfdrukken">
+<FormalSpec>ProductEtiketAfdrukkenRequest:WS.Halux.AAP.ProductEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ProductEtiketAfdrukkenResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(ProductEtiketAfdrukkenRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
+<Method name="KlantEtiketAfdrukken">
+<FormalSpec>KlantEtiketAfdrukkenRequest:WS.Halux.AAP.KlantEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.KlantEtiketAfdrukkenResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(KlantEtiketAfdrukkenRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRequest">
+<FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Halux.AAP.GeneriekeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Result = ##class(WS.Halux.AAP.GeneriekeResponse).%New()
+	Try {
+		Do ..HeaderValidator.ValidateHeader(Request.Header)
+		Set Result = $Method(..AfdrukService, UitTeVoerenMethod, Request)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Result.Header.Status = Exception.GeefExceptionCode()
+		Set Result.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	If $$$HasLength(Result.Header.Omschrijving) {
+		#dim TeLoggenTekst As %String = ""
+		If $$$HasLength(Result.Header.OmschrijvingVoorLogging) {
+			Set TeLoggenTekst = Result.Header.OmschrijvingVoorLogging
+		} Else {
+			Set TeLoggenTekst = Result.Header.Omschrijving
+		}
+		Do ##class(vhLib.Logger).%New("WS.Halux.AAP.DnaCodeService").Warning(UitTeVoerenMethod,Request.Header.Initialen_" - "_UitTeVoerenMethod,Request.Header.ComputerNaam_" - "_TeLoggenTekst)
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(revision 0)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(revision 60494)
@@ -0,0 +1,148 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.AAP.AfdrukService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="HeaderValidator">
+<Type>WSimpl.Halux.AAP.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DocsV1">
+<Type>BL.PPS.TBX.DocsV1</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EtiketAfdrukkenHelper">
+<Type>WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DocsV1:BL.PPS.TBX.DocsV1="",EtiketAfdrukkenHelper:WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper</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 ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
+	Set ..EtiketAfdrukkenHelper = $$$Inject(EtiketAfdrukkenHelper, ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New())
+	
+	Quit $$$OK
+]]></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()
+		
+		If ProboxEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
+		}
+		
+		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest.DnaCodes)
+		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
+		Do DnaCodeIterator.Reset()
+		
+		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.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="ProductEtiketAfdrukken">
+<FormalSpec>ProductEtiketAfdrukkenRequest:WS.Halux.AAP.ProductEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ProductEtiketAfdrukkenResponse</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		Set Response = ##class(WS.Halux.AAP.ProductEtiketAfdrukkenResponse).%New()
+		
+		If ProductEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
+		}
+		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest.DnaCodes)
+		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
+		Do DnaCodeIterator.Reset()
+		
+		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.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,"","")
+		// TODO iplementatie
+		
+		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="KlantEtiketAfdrukken">
+<FormalSpec>KlantEtiketAfdrukkenRequest:WS.Halux.AAP.KlantEtiketAfdrukkenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.KlantEtiketAfdrukkenResponse</ReturnType>
+<Implementation><![CDATA[
+	
+	Try {
+		Set Response = ##class(WS.Halux.AAP.KlantEtiketAfdrukkenResponse).%New()
+		
+		If KlantEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
+		}
+		
+		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest.DnaCodes)
+		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
+		Do DnaCodeIterator.Reset()
+		
+		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.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,"","")
+		// TODO iplementatie
+		
+		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="BevatDnaCode">
+<FormalSpec>aantalDnaCodes:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>