Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(revision 59659)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.EtiketService">
+<Super>TECH.Mockable</Super>
+
+<Property name="TransportAPI">
+<Type>APPS.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property EtiketPrinter As APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter [ Private ];
+
+]]></Content>
+</UDLText>
+
+<Method name="%OnNew">
+<FormalSpec>TransportAPI:APPS.TRANSP.TransportAPI,EtiketPrinter:APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..TransportAPI = $$$Inject(TransportAPI,##class(DOM.DomeinContext).Instance().GeefTransportAPI())
+	; Set ..EtiketPrinter = $$$Inject(EtiketPrinter,##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PrintEtikettenVoorLevering">
+<FormalSpec>Levering:DOM.TRANSP.Levering</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(207).String("Printen etiketten levering " _ Levering.GeefID())
+	
+	/*
+	#dim Computernaam As %String = $Piece(##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam(),".",1)
+	Set Computernaam = ##class(TECH.StringUtils).ToUpper(Computernaam)
+	
+	Set Responses = ##class(%ListOfObjects).%New()
+	#dim DistributeurDataIDs As %ListOfDataTypes = Levering.GeefDistributeurDataIDs()
+	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(DistributeurDataIDs)
+	While DistributeurDataIDIt.HasNext()
+	{
+		#Dim DistributeurDataID as %String = DistributeurDataIDIt.Next()
+		#dim DistributeurData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ..TransportAPI.GeefDistributeurData(DistributeurDataID)
+		Do Responses.Insert(DistributeurData.Response)
+	}
+	Do ..EtiketPrinter.PrintEtiketten(Responses,Computernaam,"TRANSP_DI1")
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>