Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml
===================================================================
diff -u -r29864 -r29879
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 29864)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 29879)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoom">
+<Type>vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -43,14 +48,7 @@
 	Set ..AssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Set ..UitvoeringInfo = ..GeefUitvoeringInfo()
 	Set ..PartijAPI = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
-	
-	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-		Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-			Set HalffabItemsBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-			Do HalffabItemsBoomMock.IndienMethodCall("BevatRol", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling()).DanReturn($$$True)
-		Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomMock)
-		Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.Variant).Taorbox(), ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()))
-	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
+	Set ..HalffabItemsBoom = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 ]]></Implementation>
 </Method>
 
@@ -87,15 +85,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over schroef koppelingtype">
+<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over schroef koppelingtype, koppeling is meegeleverd">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
+	Do ..HalffabItemsBoom.VoegToeRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
 	
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
 	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "BOD(SCH-BM)")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over schroef koppelingtype, koppeling is niet meegeleverd">
+<Implementation><![CDATA[
+	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
+	
+	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
+	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "BOD(SCH-BO)")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Lijn 1 - component type voor bodem heeft extra info over drevel koppelingtype">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
@@ -180,11 +188,19 @@
 
 <Method name="Test: Lijn 1 - kleur afdekkappen">
 <Implementation><![CDATA[
+	Do ..HalffabItemsBoom.VoegToeRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).AfdekkapBoven())
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
 	Do ..AssertPiece(EtiketInfo.Lijn1, 5, "AL")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Lijn 1 - kleur afdekkappen, afdekkappen niet meegeleverd">
+<Implementation><![CDATA[
+	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
+	Do ..AssertPiece(EtiketInfo.Lijn1, 5, "")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Lijn 1 - Indicatie indien lade met front">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
@@ -343,6 +359,12 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+		Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+		Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+		Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.Variant).Taorbox(), ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()))
+	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
+	
 	Set EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..DimensieNaarBalkDimensieConverter, ..AssemblageKarRepository, ..PartijAPI)
 	Quit EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel,$$$false)
 ]]></Implementation>
Index: vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r29860 -r29879
--- vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 29860)
+++ vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 29879)
@@ -7,6 +7,12 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Super>
 
+<Property name="Rollen">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="AddHalffabItem">
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
@@ -15,7 +21,7 @@
 <Method name="BevatRol">
 <FormalSpec>Rol:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).Contains(..Rollen, Rol)
 ]]></Implementation>
 </Method>
 
@@ -40,6 +46,12 @@
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VoegToeRol">
+<FormalSpec>Rol:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Rollen.Insert(Rol)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r29867 -r29879
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 29867)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 29879)
@@ -78,7 +78,7 @@
 						..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel)_..#Delimiter_
 						..DimensieStringBepaler.GeefDimensieString(LadeOnderdeel)_..#Delimiter_
 						UitvoeringInfo.DossierCode_..#Delimiter_
-						$$$UPPER($Extract(##class(DOM.PM.enu.TAORAfdekkapBovenKleur).LogicalToDisplay(TAORKenmerken.AfdekkapBovenKleur),1,2))_..#Delimiter_
+						..GeefAfdekkapBovenKleurString(Product)_..#Delimiter_
 						$Select(Lade.GeefFronten().Count()>0:"MET FRONT",1:"")_..#Delimiter_
 						..GeefVoormontageInfo(LadeOnderdeel)
 	
@@ -100,6 +100,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAfdekkapBovenKleurString">
+<FormalSpec>Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfdekkapBovenKleurString As TECH.String = ""
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	If Product.GeefHalffabItemsBoom("").BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).AfdekkapBoven()) {
+		Set AfdekkapBovenKleurString = $$$UPPER($Extract(##class(DOM.PM.enu.TAORAfdekkapBovenKleur).LogicalToDisplay(TAORKenmerken.AfdekkapBovenKleur),1,2))
+	}
+	Quit AfdekkapBovenKleurString
+]]></Implementation>
+</Method>
+
 <Method name="GeefAssemblageKar">
 <FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.String</FormalSpec>
 <Private>1</Private>