Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r32749 -r32770
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32749)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32770)
@@ -3,39 +3,45 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten">
 <Super>APPS.Halux.PPS.impl.UitvoeringInfoDeelVerwerker</Super>
 
-<Property name="KlantEtiketten">
-<Type>BL.Sys.pxLabel</Type>
-<Collection>list</Collection>
+<Property name="FormatAPI">
+<Type>TECH.Format.FormatAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="TussenEtiketToeleveringLookup">
-<Type>%String</Type>
-<Collection>array</Collection>
+<Property name="LabelPrinterImpl">
+<Type>BL.Sys.LabelPrinter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="TussenEtiketKarLookup">
-<Type>%String</Type>
-<Collection>array</Collection>
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="FormatAPI">
-<Type>TECH.Format.FormatAPI</Type>
+<Property name="KlantEtiketten">
+<Type>BL.Sys.pxLabel</Type>
+<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
-<Property name="LabelPrinterImpl">
-<Type>BL.Sys.LabelPrinter</Type>
+<Property name="AlpnachEtiketten">
+<Type>BL.Sys.pxLabel</Type>
+<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
-<Property name="AssemblageKarRepository">
-<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Property name="TussenEtiketToeleveringLookup">
+<Type>%String</Type>
+<Collection>array</Collection>
 <Private>1</Private>
 </Property>
 
+<Property name="TussenEtiketKarLookup">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
 <Property name="WisselToelevering">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -56,7 +62,6 @@
 	Set ..LabelPrinterImpl = LabelPrinterImpl
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -66,23 +71,42 @@
 <Implementation><![CDATA[
 	Do ..BepaalWissels(UitvoeringInfo)
 	Do:(..WisselToelevering || ..WisselKar) ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
+	
 	Do ..KlantEtiketten.Insert(..MaakEtiket(UitvoeringInfo.KlantEtiketData))
+	
+	Do:(..IsAlpnach(UitvoeringInfo)) ..AlpnachEtiketten.Insert(..MaakAlpnachEtiket(UitvoeringInfo.KlantEtiketData))
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUit">
 <FormalSpec>ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
 	Do ..LabelPrinterImpl.Clear()
-	Do ..VoegToeEtiketten()
+	Do ..VoegToeKlantEtiketten()
 	Do ..LabelPrinterImpl.Print2Bartender()
+	
+	Do ..LabelPrinterImpl.Clear()
+	Do ..VoegToeAlpnachEtiketten()
+	Do ..LabelPrinterImpl.Print2Bartender()
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeEtikettenAlpnachEtiketten">
+<Method name="VoegToeKlantEtiketten">
 <Private>1</Private>
+<Implementation><![CDATA[	do ..VoegToeEtiketten(##class(TECH.ListIterator).%New(..KlantEtiketten))
+]]></Implementation>
 </Method>
 
+<Method name="VoegToeEtiketten">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	While (Iterator.HasNext()) {		
+		Do ..LabelPrinterImpl.Add(Iterator.Next())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BepaalWissels">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
 <Private>1</Private>
@@ -135,17 +159,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeEtiketten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..KlantEtiketten)
-	
-	While (Iterator.HasNext()) {
-		Do ..LabelPrinterImpl.Add(Iterator.Next())
-	}
-]]></Implementation>
-</Method>
-
 <Method name="MaakEtiket">
 <FormalSpec>KlantEtiketData:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData</FormalSpec>
 <Private>1</Private>
@@ -218,6 +231,46 @@
 	Quit $$$If((..WisselKar), "Kar:" _ KarVolgNr, "")
 ]]></Implementation>
 </Method>
+
+<Method name="IsAlpnach">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit $IsObject(UitvoeringInfo.KlantEtiketData.DocumentReferenties.GetAt(2)) && ( UitvoeringInfo.KlantEtiketData.DocumentReferenties.GetAt(2).KlantID = "SFS_83723" )
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAlpnachEtiketten">
+<Private>1</Private>
+<Implementation><![CDATA[	do ..VoegToeEtiketten(##class(TECH.ListIterator).%New(..AlpnachEtiketten))
+]]></Implementation>
+</Method>
+
+<Method name="MaakAlpnachEtiket">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<ReturnType>BL.Etiket.MaatwerkProductAlpnach</ReturnType>
+<Implementation><![CDATA[
+	#dim TaorProduct As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = TaorProduct.GeefIngegevenKenmerken()
+	
+	#dim OrderID As %String = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToeleveringLijn(UitvoeringInfo.ToeleveringID,UitvoeringInfo.ToeleveringLijnID).GeefOrderID()
+	#dim OrderlijnID As %String = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToeleveringLijn(UitvoeringInfo.ToeleveringID,UitvoeringInfo.ToeleveringLijnID).GeefOrderLijnID()
+	
+	#dim Orderlijn As DOM.VKP.ProductOrderlijn = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefOrderLijn(OrderlijnID)
+	
+	set Etiket = ##class(BL.Etiket.MaatwerkProductAlpnach).%New()
+
+	set Etiket.Header1 = Orderlijn.GeefProjectReferentie()
+	set Etiket.ImageLinksBoven = UitvoeringInfo.KlantEtiketData.LadeAfbeeldingLocatie
+
+	set Etiket.DataRechts1 = $extract(IngegevenKenmerken.GeleiderTechnologie)
+	set Etiket.DataRechts2 = $extract(IngegevenKenmerken.LadeHoogte)
+	set Etiket.DataRechts3 = $extract(IngegevenKenmerken.LadeKleur)
+	set Etiket.DataRechts4 = $extract("T:"_IngegevenKenmerken.LadeDiepte)
+	set Etiket.DataRechts5 = $extract("B:"_IngegevenKenmerken.CorpusBinnenbreedte)
+	set Etiket.Footer1 = UitvoeringInfo.KlantEtiketData.DocumentReferenties.GetAt(2).CommissieReferentie
+	set Etiket.Footer2 = UitvoeringInfo.KlantEtiketData.DocumentReferenties.GetAt(2).OrderReferentie
+]]></Implementation>
+</Method>
 </Class>