Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/TussenEtiketMaker.cls.xml
===================================================================
diff -u -r69765 -r69766
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/TussenEtiketMaker.cls.xml	(.../TussenEtiketMaker.cls.xml)	(revision 69765)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/TussenEtiketMaker.cls.xml	(.../TussenEtiketMaker.cls.xml)	(revision 69766)
@@ -3,6 +3,11 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.TussenEtiketMaker">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BatchService">
 <Type>APPS.Halux.common.BatchService</Type>
 <Private>1</Private>
@@ -13,19 +18,123 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WisselToelevering">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WisselKar">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService=""</FormalSpec>
+<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..ToeleveringService = 	$$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="MaakTussenEtiket">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<ReturnType>BL.Sys.pxLabel</ReturnType>
+<Implementation><![CDATA[
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(UitvoeringInfo.BatchID)
+	#dim DueOutFormatter As APPS.Halux.PPS.impl.BatchDueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
+	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(UitvoeringInfo.KlantEtiketData.Device, UitvoeringInfo.KlantEtiketData.Layout)
+	
+	Set Etiket.Info1 = ..GeefInfo1(UitvoeringInfo)
+	Set Etiket.Info2 = "BatchID:" _ UitvoeringInfo.BatchID
+	Set Etiket.Info3 = DueOutFormatter.GeefGeformatteerdeDueOut(Batch)
+	Set Etiket.Info4 = ..GeefPalletType(UitvoeringInfo.ToeleveringID)
+		
+	Quit Etiket
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo1">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringInformatie As TECH.String = ..GeefToeleveringInformatie(UitvoeringInfo)
+	#dim KarInformatie As TECH.String = ..GeefKarInformatie(UitvoeringInfo)
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do:$length(ToeleveringInformatie) List.Insert(ToeleveringInformatie)
+	Do:$length(KarInformatie) List.Insert(KarInformatie)
+	
+	Quit ##class(TECH.ListUtils).ListToPieces(List, ", ")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPalletType">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ..ToeleveringService.GeefTransportWaarborgType(ToeleveringID) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
+		Quit "WEGWERPPALLET MAX 1,5m"
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefEtiket">
+<FormalSpec>Device:TECH.String,Layout:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket).%New()
+	
+	Set Etiket.Layout = Layout
+	Set Etiket.Device = Device
+	Set Etiket.Aantal = 1
+	Set Etiket.Taal = ##class(DOM.enu.Taal).Nederlands()
+	
+	Quit Etiket
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringInformatie">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $$$If((..WisselToelevering), "Toelevering:" _ UitvoeringInfo.ToeleveringID, "")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKarInformatie">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $$$If((..WisselKar), "Kar:" _ ..GeefKarVolgNummer(UitvoeringInfo), "")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKarVolgNummer">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim KarVolgNummer As TECH.String = ""
+	
+	Try {
+		Set KarVolgNummer = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)	
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Catch("APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository.Exceptie.KarNietGevondenExceptie")
+	}
+	
+	Quit KarVolgNummer
+]]></Implementation>
+</Method>
 </Class>