Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(revision 69767)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper">
+<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>
+</Property>
+
+<Property name="ToeleveringService">
+<Type>DOM.AKP.ToeleveringService</Type>
+<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>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>
+
+
+</Export>
FishEye: Tag 69767 refers to a dead (removed) revision in file `APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/TussenEtiketMaker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?