Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml
===================================================================
diff -u -r30853 -r31947
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 30853)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 31947)
@@ -18,11 +18,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DimensieNaarBalkDimensieConverter">
-<Type>DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="AssemblageKarRepository">
 <Type>vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
 <Private>1</Private>
@@ -38,24 +33,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
-	Set ..DimensieNaarBalkDimensieConverter = ##class(vhTest.Fake.DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter).%New()
 	Set ..AssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Set ..UitvoeringInfo = ..GeefUitvoeringInfo()
 	Set ..PartijAPI = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
 	Set ..HalffabItemsBoom = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Barcode is gelijk aan de VerwerkingID">
 <Implementation><![CDATA[
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do $$$AssertEquals(EtiketInfo.Barcode,..UitvoeringInfo.VerwerkingID)
+	Do $$$AssertEquals(EtiketInfo.Barcode, ..UitvoeringInfo.VerwerkingID)
 ]]></Implementation>
 </Method>
 
@@ -65,348 +66,300 @@
 <Implementation><![CDATA[
 	Set ..UitvoeringInfo.IsRework = $$$True
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "RE")
+	Do ..AssertEtiketInfo("Lijn1", 1, "RE")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 1 - geen rework">
 <Implementation><![CDATA[
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do $$$AssertNotEquals($Piece(EtiketInfo.Lijn1,..#Delimiter,1), "RE")
+	
+	Do $$$AssertNotEquals($Piece(EtiketInfo.Lijn1, ..#Delimiter, 1), "RE")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 1 - component type voor front">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "FRO")
+	
+	Do ..AssertEtiketInfo("Lijn1", 1, "FRO")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over schroef koppelingtype, koppeling is meegeleverd">
+<Method name="Test: Lijn 1 - LadeInfo voor LadeOnderdeel Bodem met meegeleverde SchroefKoppeling">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
+	
 	Do ..HalffabItemsBoom.VoegToeRol(..Enum.Rol.Koppeling)
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "BOD(SCH:BO+MO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.V1, "BOD(SCH:BO+MO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.Probox, "BOD(SCH:BO+MO)")
+	
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.FlatpackV1, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.LosseComponentenInBulk, "BOD(SCH:BO)")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over schroef koppelingtype, koppeling is niet meegeleverd">
+<Method name="Test: Lijn 1 - LadeInfo voor LadeOnderdeel Bodem met niet-meegeleverde SchroefKoppeling">
 <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)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.V1, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.Probox, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.FlatpackV1, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd, "BOD(SCH:BO)")
+	Do ..AssertLadeInfoVoorVerpakkingType(..Enum.VerpakkingType.LosseComponentenInBulk, "BOD(SCH:BO)")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - component type voor bodem heeft extra info over drevel koppelingtype">
+<Method name="Test: Lijn 1 - LadeInfo voor LadeOnderdeel Bodem met DrevelKoppeling">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
 	Set ..LadeOnderdeel.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 1, "BOD(DRE)")
+	Do ..AssertEtiketInfo("Lijn1", 1, "BOD(DRE)")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - kleurcodes bij bodem">
+<Method name="Test: Lijn 1 - Kleurcodes">
 <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, 2, "NE")
+	Do ..AssertKleurCodeVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "NE")
+	Do ..AssertKleurCodeVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(), "NE-NE")
+	Do ..AssertKleurCodeVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(), "NE-NE")
+	Do ..AssertKleurCodeVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(), "NE-NE-NE")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - kleurcodes bij zijkant">
+<Method name="Test: Lijn 1 - Lengte en breedte voor LadeOnderdeel-platen">
 <Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 2, "NE-NE-NE")
+	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "505x600")
+	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(), "155x600")
+	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(), "505x155")
+	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(), "155x505")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - kleurcodes bij Rug">
-<Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 2, "NE-NE")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Lijn 1 - kleurcodes bij front">
-<Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 2, "NE-NE")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Lijn 1 - lengte en breedte voor frontplaat">
-<Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 3, "155x600")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Lijn 1 - lengte en breedte voor zijkantplaat">
-<Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 3, "155x505")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Lijn 1 - lengte en breedte voor bodemplaat">
-<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, 3, "505x600")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Lijn 1 - lengte en breedte voor rugplaat">
-<Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 3, "505x155")
-]]></Implementation>
-</Method>
-
 <Method name="Test: Lijn 1 - Dossiercode">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 4, "DCL")
+	
+	Do ..AssertEtiketInfo("Lijn1", 4, "DCL")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - kleur afdekkappen">
+<Method name="Test: Lijn 1 - Kleur meegeleverde Afdekkappen">
 <Implementation><![CDATA[
 	Do ..HalffabItemsBoom.VoegToeRol(..Enum.Rol.AfdekkapBoven)
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 5, "AL")
+	
+	Do ..AssertEtiketInfo("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, "")
+<Method name="Test: Lijn 1 - Kleur niet-meegeleverde Afdekkappen">
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("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()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 6, "MET FRONT")
+	
+	Do ..AssertEtiketInfo("Lijn1", 6, "MET FRONT")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 1 - Geen indicatie indien lade zonder front">
 <Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
-	Do Lade.IndienMethodCall("GeefFronten").DanReturn(##class(%ListOfObjects).%New())
-	Do Lade.IndienMethodCall("GeefKleuren").DanReturn(##class(%ArrayOfDataTypes).%New())
-	Do Lade.IndienMethodCall("GeefDiepteInMM").DanDoeNiks()
-	Do Lade.IndienMethodCall("GeefHoogteInMM").DanDoeNiks()
-	Do Lade.IndienMethodCall("GeefVerpakking").DanReturn(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Verpakking).%New())
-	Do Lade.IndienMethodCall("GeefOnderdelenUitVoormontage").DanReturn(##class(%ListOfDataTypes).%New())
+	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 	
-	Set Zijkant = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
-	Do Zijkant.ZetLade(Lade)
-	Set ..LadeOnderdeel = Zijkant
+	Do LadeMock.IndienMethodCall("GeefFronten").DanReturn(##class(%ListOfObjects).%New())
+	Do LadeMock.IndienMethodCall("GeefKleuren").DanReturn(##class(%ArrayOfDataTypes).%New())
+	Do LadeMock.IndienMethodCall("GeefDiepteInMM").DanDoeNiks()
+	Do LadeMock.IndienMethodCall("GeefHoogteInMM").DanDoeNiks()
+	Do LadeMock.IndienMethodCall("GeefVerpakking").DanReturn(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Verpakking).%New())
+	Do LadeMock.IndienMethodCall("GeefOnderdelenUitVoormontage").DanReturn(##class(%ListOfDataTypes).%New())
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 6, "")
+	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
+	
+	Do ..LadeOnderdeel.ZetLade(LadeMock)
+	
+	Do ..AssertEtiketInfo("Lijn1", 6, "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 1 - vermelding van onderdelen uit voormontage, enkel bij V1 verpakking. Verpakking is Probox">
 <Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	#dim Lade As vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	
 	Do Lade.GeefVerpakking().ZetVerpakkingType(..Enum.VerpakkingType.Probox)
 	Do ..LadeOnderdeel.ZetLade(Lade)
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 7, "")
+	Do ..AssertEtiketInfo("Lijn1", 7, "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 1 - vermelding van onderdelen uit voormontage, enkel bij V1 verpakking. Verpakking is V1 en met verwerkingen in voormontage">
 <Implementation><![CDATA[
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn1, 7, "MA-ZI-OP-SY")
+	Do ..AssertEtiketInfo("Lijn1", 7, "MA-ZI-OP-SY")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - dueout om 12 uur">
 <Implementation><![CDATA[
-	Set ..UitvoeringInfo.DueOutTijdstip = $Piece(..UitvoeringInfo.DueOutTijdstip, " ", 1)_" 12:00:00"
+	Set ..UitvoeringInfo.DueOutTijdstip = $Piece(..UitvoeringInfo.DueOutTijdstip, " ", 1) _ " 12:00:00"
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 1, "30a")
+	Do ..AssertEtiketInfo("Lijn2", 1, "30a")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - dueout na 12 uur">
 <Implementation><![CDATA[
-	Set ..UitvoeringInfo.DueOutTijdstip = $Piece(..UitvoeringInfo.DueOutTijdstip, " ", 1)_" 17:00:00"
+	Set ..UitvoeringInfo.DueOutTijdstip = $Piece(..UitvoeringInfo.DueOutTijdstip, " ", 1) _ " 17:00:00"
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 1, "30b")
+	Do ..AssertEtiketInfo("Lijn2", 1, "30b")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - laatste 3 cijfers batchnummer en sequentienr">
-<Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 2, "456(58)")
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn2", 2, "456(58)")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - karinfo">
-<Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 3, "KAR 3:3")
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn2", 3, "KAR 3:3")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - vaknr zonder dat het de laatste lade is voor de kar">
-<Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 4, "18")
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn2", 4, "18")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - vaknr en lade is laatste voor de kar">
 <Implementation><![CDATA[
 	Set ..AssemblageKarRepository.IsLaatsteItemInKar = $$$True
 
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 4, "18*")
+	Do ..AssertEtiketInfo("Lijn2", 4, "18*")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Lijn 2 - bij BOG en losse componenten is er geen data voor de assemblagekar opgezet">
 <Implementation><![CDATA[
 	Do ..AssemblageKarRepository.ZetAssemblageKar(##class(APPS.Halux.PPS.TAORProductie.data.AssemblageKar).%New())
 	
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn2, 3, "")
+	Do ..AssertEtiketInfo("Lijn2", 3, "")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - Afwerkkingsinfo voor V1">
-<Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 1, "T1")
+<Method name="Test: Lijn 3 - Afwerkingsinfo voor V1">
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn3", 1, "T1")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - Afwerkkingsinfo voor Bulk per onderdeel gegroepeerd">
+<Method name="Test: Lijn 3 - Afwerkingsinfo voor Bulk per onderdeel gegroepeerd">
 <Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	#dim Lade As vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	
 	Do Lade.GeefVerpakking().ZetVerpakkingType(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
 	Do ..LadeOnderdeel.ZetLade(Lade)
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 1, "T3")
+	
+	Do ..AssertEtiketInfo("Lijn3", 1, "T3")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - verpakkingstype voor V1">
+<Method name="Test: Lijn 3 - Info voor VerpakkingType">
 <Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 2, "V1")
+	Do ..AssertVerpakkingType(..Enum.VerpakkingType.V1, "V1")
+	Do ..AssertVerpakkingType(..Enum.VerpakkingType.FlatpackV1, "DOOS 5")
+	Do ..AssertVerpakkingType(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd, "BULK")
+	Do ..AssertVerpakkingType(..Enum.VerpakkingType.LosseComponentenInBulk, "LOS COMP")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - verpakkingstype voor Flatpack V1">
-<Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
-	Do Lade.GeefVerpakking().ZetVerpakkingType(..Enum.VerpakkingType.FlatpackV1)
-	Do ..LadeOnderdeel.ZetLade(Lade)
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 2, "DOOS 5")
+<Method name="Test: Lijn 3 - klantnaam">
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn3", 3, "FAKEKLANT_K|")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - verpakkingstype voor Flatpack Bulk">
-<Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
-	Do Lade.GeefVerpakking().ZetVerpakkingType(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
-	Do ..LadeOnderdeel.ZetLade(Lade)
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 2, "BULK")
+<Method name="Test: Lijn 3 - toeleveringnr">
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn3", 4, "4321")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - verpakkingstype voor losse component">
-<Implementation><![CDATA[
-	Set Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
-	Do Lade.GeefVerpakking().ZetVerpakkingType(..Enum.VerpakkingType.LosseComponentenInBulk)
-	Do ..LadeOnderdeel.ZetLade(Lade)
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 2, "LOS COMP")
+<Method name="Test: Lijn 4 - bevat barcode in leesbare vorm">
+<Implementation><![CDATA[	Do ..AssertEtiketInfo("Lijn4", 1, ..UitvoeringInfo.VerwerkingID)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - klantnaam">
+<Method name="Test: Lijn 4 - Dimensies voor LadeOnderdeel">
 <Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 3, "FAKEKLANT_K|")
+	Do ..AssertDimensiesVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "B:200xD:500")
+	Do ..AssertDimensiesVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(), "B:200xH:100")
+	Do ..AssertDimensiesVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(), "B:200xH:100")
+	Do ..AssertDimensiesVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(), "D:500xH:100")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 3 - toeleveringnr">
+<Method name="AssertVerpakkingType">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn3, 4, "4321")
+	#dim Lade As vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	
+	Do Lade.GeefVerpakking().ZetVerpakkingType(VerpakkingType)
+	Do ..LadeOnderdeel.ZetLade(Lade)
+	
+	Do ..AssertEtiketInfo("Lijn3", 2, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - bevat barcode in leesbare vorm">
+<Method name="AssertDimensiesVoorLadeOnderdeel">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn4,1,..UitvoeringInfo.VerwerkingID)
+	Set ..LadeOnderdeel = LadeOnderdeel
+	Do ..AssertEtiketInfo("Lijn4", 2, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - Dimensies voor front">
+<Method name="AssertAfmetingenVoorPlaat">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn4, 2, "B:200xH:100")
+	Set ..LadeOnderdeel = LadeOnderdeel
+	Do ..AssertEtiketInfo("Lijn1", 3, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - Dimensies voor zijkant">
+<Method name="AssertKleurCodeVoorLadeOnderdeel">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New()
-	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn4, 2, "D:500xH:100")
+	Set ..LadeOnderdeel = LadeOnderdeel
+	
+	Do ..AssertEtiketInfo("Lijn1", 2, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - Dimensies voor bodem">
+<Method name="AssertLadeInfoVoorVerpakkingType">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <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.Lijn4, 2, "B:200xD:500")
+	Set ..IngegevenKenmerken.VerpakkingType = VerpakkingType
+
+	Do ..AssertEtiketInfo("Lijn1", 1, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - Dimensies voor rug">
+<Method name="AssertEtiketInfo">
+<FormalSpec>Lijn:TECH.String,Piece:%Integer,VerwachteWaarde:TECH.String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
 	#dim EtiketInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ..BepaalEtiketInfo()
-	Do ..AssertPiece(EtiketInfo.Lijn4, 2, "B:200xH:100")
+	
+	Do ..AssertPiece($Property(EtiketInfo, Lijn), Piece, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
@@ -420,14 +373,17 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	#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(TAORKenmerken.GeefFamilie(), TAORKenmerken.GeefVariant(), TAORKenmerken))
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	
+	Do ProductMock.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerken)
+	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
+	
 	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
 	
-	Set EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..DimensieNaarBalkDimensieConverter, ..AssemblageKarRepository, ..PartijAPI)
+	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI)
+	
 	Quit EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
 ]]></Implementation>
 </Method>
@@ -436,18 +392,20 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
 <Implementation><![CDATA[
-	Set UI = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New()
-	Set UI.VerwerkingID = "UT-DummyVerwerkingID"
-	Set UI.ToeleveringID = "654321"
-	Set UI.DossierCode = "DCL"
-	Set UI.BatchID = "123456"
-	Set UI.ProductID = "1000000"
-	Set UI.DeelAantal = 2
-	Set UI.TotaalAantal = 5
-	Set UI.SequentieNummer = 58
-	set UI.DueOut = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	set UI.DueOutTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
-	Quit UI
+	#dim UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New()
+	
+	Set UitvoeringInfo.VerwerkingID = "UT-DummyVerwerkingID"
+	Set UitvoeringInfo.ToeleveringID = "654321"
+	Set UitvoeringInfo.DossierCode = "DCL"
+	Set UitvoeringInfo.BatchID = "123456"
+	Set UitvoeringInfo.ProductID = "1000000"
+	Set UitvoeringInfo.DeelAantal = 2
+	Set UitvoeringInfo.TotaalAantal = 5
+	Set UitvoeringInfo.SequentieNummer = 58
+	Set UitvoeringInfo.DueOut = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	Set UitvoeringInfo.DueOutTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+	
+	Quit UitvoeringInfo
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportManueel/15000/Productie_009_ImportFile_15000_20141114_091500.txt
===================================================================
diff -u -r31705 -r31947
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportManueel/15000/Productie_009_ImportFile_15000_20141114_091500.txt	(.../Productie_009_ImportFile_15000_20141114_091500.txt)	(revision 31705)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportManueel/15000/Productie_009_ImportFile_15000_20141114_091500.txt	(.../Productie_009_ImportFile_15000_20141114_091500.txt)	(revision 31947)
@@ -4,12 +4,12 @@
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00001	1	LI7K		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-NN/179.5x500/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222	nolabel	ZCB50R00001/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00001	1	LI7K		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-NN/179.5x500/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222	nolabel	ZCB50R00001/D:500xH:210
 Rug	1	FINEER.NN.130	RCV05690BS00001D1	1	LI7K		574	169.5	13	NN	Fineer	RUG/NN-NN/574x169.5/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		RCV05690BS00001D1/B:600xH:210
-Bodem	1	FINEER.NN.065	B50B05690VS00001S2	1	LI7K		574	500.8	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x480/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		B50B05690VS00001S2/B:600xD:500
+Bodem	1	FINEER.NN.065	B50B05690VS00001S2	1	LI7K		574	500.8	6.5	NN	Fineer	BOD(SCH:BO)/NN/574x480/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		B50B05690VS00001S2/B:600xD:500
 Front	1	FINEER.NN.090	FCV05850BS00001D1	1	LI7K		590	196.5	9	NN	Fineer	FRO/NN-NN/196.5x590/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		FCV05850BS00001D1/B:600xH:210
 ZijkantPlaat	1	MELAMINE.W.065	ZCV50L00002	2	LI7L		500	179.5	6.5	W	Melamine	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCV50L00002/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50L00002	2	LI7L		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCB50L00002/D:500xH:210
 ZijkantPlaat	1	MELAMINE.W.065	ZCV50R00002	2	LI7L		500	179.5	6.5	W	Melamine	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCV50R00002/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00002	2	LI7L		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCB50R00002/D:500xH:210
 Rug	1	MELAMINE.W.130	RCV05690VS00002D1	2	LI7L		574	169.5	13	W	Melamine	RUG/W-NN/574x169.5/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		RCV05690VS00002D1/B:600xH:210
-Bodem	1	MELAMINE.S.065	B50W05690VS00002S2	2	LI7L		574	500.8	6.5	S	Melamine	BOD(SCH:BO+MO)/S/574x480/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		B50W05690VS00002S2/B:600xD:500
+Bodem	1	MELAMINE.S.065	B50W05690VS00002S2	2	LI7L		574	500.8	6.5	S	Melamine	BOD(SCH:BO)/S/574x480/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		B50W05690VS00002S2/B:600xD:500
 Front	1	FINEER.NN.090	FCV05850BS00002D1	2	LI7L		590	196.5	9	NN	Fineer	FRO/NN-NN/196.5x590/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		FCV05850BS00002D1/B:600xH:210
Index: DOM/PM/Maatwerk/LadeInfo/impl/DimensieNaarBalkDimensieConverter.cls.xml
===================================================================
diff -u -r29059 -r31947
--- DOM/PM/Maatwerk/LadeInfo/impl/DimensieNaarBalkDimensieConverter.cls.xml	(.../DimensieNaarBalkDimensieConverter.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/impl/DimensieNaarBalkDimensieConverter.cls.xml	(.../DimensieNaarBalkDimensieConverter.cls.xml)	(revision 31947)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter">
-<Super>TECH.Mockable,DOM.PM.Maatwerk.LadeInfo.LadeOnderdeelVisitor</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeelVisitor</Super>
 
 <Property name="BalkDimensies">
 <Type>DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies</Type>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportAuto/15000/Productie_006_ImportFile_15000_20141114_091500.txt
===================================================================
diff -u -r31705 -r31947
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportAuto/15000/Productie_006_ImportFile_15000_20141114_091500.txt	(.../Productie_006_ImportFile_15000_20141114_091500.txt)	(revision 31705)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Biesse/ImportAuto/15000/Productie_006_ImportFile_15000_20141114_091500.txt	(.../Productie_006_ImportFile_15000_20141114_091500.txt)	(revision 31947)
@@ -4,12 +4,12 @@
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00001	1	LI7K		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-NN/179.5x500/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222	nolabel	ZCB50R00001/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00001	1	LI7K		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-NN/179.5x500/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222	nolabel	ZCB50R00001/D:500xH:210
 Rug	1	FINEER.NN.130	RCV05690BS00001D1	1	LI7K		574	169.5	13	NN	Fineer	RUG/NN-NN/574x169.5/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		RCV05690BS00001D1/B:600xH:210
-Bodem	1	FINEER.NN.065	B50B05690VS00001S2	1	LI7K		574	500.8	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x480/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		B50B05690VS00001S2/B:600xD:500
+Bodem	1	FINEER.NN.065	B50B05690VS00001S2	1	LI7K		574	500.8	6.5	NN	Fineer	BOD(SCH:BO)/NN/574x480/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		B50B05690VS00001S2/B:600xD:500
 Front	1	FINEER.NN.090	FCV05850BS00001D1	1	LI7K		590	196.5	9	NN	Fineer	FRO/NN-NN/196.5x590/LI7K/AL/MET FRONT/	14a/000(1)/KAR 1:1/1	T2//UNITTEST KLA/2222		FCV05850BS00001D1/B:600xH:210
 ZijkantPlaat	1	MELAMINE.W.065	ZCV50L00002	2	LI7L		500	179.5	6.5	W	Melamine	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCV50L00002/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50L00002	2	LI7L		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCB50L00002/D:500xH:210
 ZijkantPlaat	1	MELAMINE.W.065	ZCV50R00002	2	LI7L		500	179.5	6.5	W	Melamine	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCV50R00002/D:500xH:210
 ZijkantPlaat	1	FINEER.NN.065	ZCB50R00002	2	LI7L		500	179.5	6.5	NN	Fineer	ZIJ/NN-NN-W/179.5x500/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222	nolabel	ZCB50R00002/D:500xH:210
 Rug	1	MELAMINE.W.130	RCV05690VS00002D1	2	LI7L		574	169.5	13	W	Melamine	RUG/W-NN/574x169.5/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		RCV05690VS00002D1/B:600xH:210
-Bodem	1	MELAMINE.S.065	B50W05690VS00002S2	2	LI7L		574	500.8	6.5	S	Melamine	BOD(SCH:BO+MO)/S/574x480/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		B50W05690VS00002S2/B:600xD:500
+Bodem	1	MELAMINE.S.065	B50W05690VS00002S2	2	LI7L		574	500.8	6.5	S	Melamine	BOD(SCH:BO)/S/574x480/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		B50W05690VS00002S2/B:600xD:500
 Front	1	FINEER.NN.090	FCV05850BS00002D1	2	LI7L		590	196.5	9	NN	Fineer	FRO/NN-NN/196.5x590/LI7L/AL/MET FRONT/	14a/000(2)/KAR 1:1/2*	T2//UNITTEST KLA/2222		FCV05850BS00002D1/B:600xH:210
FishEye: Tag 31947 refers to a dead (removed) revision in file `vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/impl/DimensieNaarBalkDimensieConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r30652 -r31947
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 30652)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 31947)
@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler">
-<Super>TECH.Mockable</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,TECH.Mockable</Super>
 
 <Parameter name="Delimiter">
 <Type>%String</Type>
 <Default>/</Default>
 </Parameter>
 
-<Property name="DimensieNaarBalkDimensieConverter">
-<Type>DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter</Type>
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AssemblageKarRepository">
-<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -23,6 +23,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerpakkingFormatter">
+<Type>APPS.Halux.PPS.impl.TAXVerpakkingFormatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DimensieNaarBalkDimensieConverter">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DimensieStringBepaler">
 <Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler</Type>
 <Private>1</Private>
@@ -43,32 +53,25 @@
 <Private>1</Private>
 </Property>
 
-<Property name="PartijAPI">
-<Type>DOM.PARTIJ.PartijAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="VerpakkingFormatter">
-<Type>APPS.Halux.PPS.impl.TAXVerpakkingFormatter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>DimensieNaarBalkDimensieConverter:DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter="",AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..DimensieNaarBalkDimensieConverter = $$$Implementation(DimensieNaarBalkDimensieConverter, ##class(DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter).%New())
-	set ..AssemblageKarRepository = $$$Implementation(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..AssemblageKarRepository = $$$Implementation(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..PartijAPI = $$$Implementation(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Set ..VerpakkingFormatter = ##class(APPS.Halux.PPS.impl.TAXVerpakkingFormatter).%New()
+	
+	Set ..DimensieNaarBalkDimensieConverter = ##class(DOM.PM.Maatwerk.LadeInfo.impl.DimensieNaarBalkDimensieConverter).%New()
+	
 	Set ..DimensieStringBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler).%New()
 	Set ..PlaatDimensieStringBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler).%New()
 	Set ..KleurcodeStringBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New()
 	Set ..AfwerkingBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.AfwerkingBepaler).%New()
-	Set ..PartijAPI = $$$Implementation(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
-	Set ..VerpakkingFormatter = ##class(APPS.Halux.PPS.impl.TAXVerpakkingFormatter).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -77,49 +80,100 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo</ReturnType>
 <Implementation><![CDATA[
-	set Etiket = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo).%New()
-	set Etiket.Barcode = UitvoeringInfo.VerwerkingID
-	#dim Batch As TECH.String = $Extract(UitvoeringInfo.BatchID, *-2, *)
+	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.EtiketInfo).%New()
 	
+	Set Etiket.Barcode = UitvoeringInfo.VerwerkingID
+	Set Etiket.Lijn1 = ..GeefLijn1(UitvoeringInfo, LadeOnderdeel)
+	Set Etiket.Lijn2 = ..GeefLijn2(UitvoeringInfo)
+	Set Etiket.Lijn3 = ..GeefLijn3(UitvoeringInfo, LadeOnderdeel)
+	Set Etiket.Lijn4 = ..GeefLijn4(UitvoeringInfo, LadeOnderdeel)
+
+	Quit Etiket
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijn1">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
 	#dim Product As DOM.PM.TAORProduct.TAORLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeOnderdeel.GeefLade()
-	#dim LadeKleuren As %ArrayOfDataTypes = Lade.GeefKleuren()
-	Set Etiket.Lijn1 = $Select(UitvoeringInfo.IsRework:"RE"_..#Delimiter,1:"")_
-						..GeefLadeOnderdeelInfo(LadeOnderdeel, Product)_..#Delimiter_
-						..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel)_..#Delimiter_
-						..PlaatDimensieStringBepaler.GeefDimensieString(LadeOnderdeel)_..#Delimiter_
-						UitvoeringInfo.DossierCode_..#Delimiter_
-						..GeefAfdekkapBovenKleurString(Product)_..#Delimiter_
-						..GeefFrontString(Lade)_..#Delimiter_
-						..GeefVoormontageInfo(LadeOnderdeel)
+	#dim LijnItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	Set Etiket.Lijn2 = ..DateTimeAPI.Dag(UitvoeringInfo.DueOut) _ $Select(..DateTimeAPI.Uur(UitvoeringInfo.DueOutTijdstip)<=12:"a",1:"b") _ ..#Delimiter _
-						Batch_"("_UitvoeringInfo.SequentieNummer_")"_..#Delimiter_
-						..GeefAssemblageKarString(UitvoeringInfo)
+	Do:(UitvoeringInfo.IsRework) LijnItems.Insert("RE")	
+	Do LijnItems.Insert(..GeefLadeOnderdeelInfo(LadeOnderdeel, Product))
+	Do LijnItems.Insert(..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel))
+	Do LijnItems.Insert(..PlaatDimensieStringBepaler.GeefDimensieString(LadeOnderdeel))
+	Do LijnItems.Insert(UitvoeringInfo.DossierCode)
+	Do LijnItems.Insert(..GeefAfdekkapBovenKleurString(Product))
+	Do LijnItems.Insert(..GeefFrontString(LadeOnderdeel.GeefLade()))
+	Do LijnItems.Insert(..GeefVoormontageInfo(LadeOnderdeel))
 	
-	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(UitvoeringInfo.PartijID)
+	Quit ##class(TECH.ListUtils).ListToPieces(LijnItems, ..#Delimiter)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijn2">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Batch As TECH.String = $Extract(UitvoeringInfo.BatchID, *-2, *)
+	#dim LijnItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+
+	Do LijnItems.Insert(..DateTimeAPI.Dag(UitvoeringInfo.DueOut) _ $Select((..DateTimeAPI.Uur(UitvoeringInfo.DueOutTijdstip) <= 12):"a", 1:"b"))
+	Do LijnItems.Insert(Batch _ "(" _ UitvoeringInfo.SequentieNummer _ ")")
+	Do LijnItems.Insert(..GeefAssemblageKarString(UitvoeringInfo))
+	
+	Quit ##class(TECH.ListUtils).ListToPieces(LijnItems, ..#Delimiter)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijn3">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeOnderdeel.GeefLade()
 	#dim Verpakking As DOM.PM.Maatwerk.LadeInfo.Verpakking = Lade.GeefVerpakking()
-	Set Etiket.Lijn3 = ..AfwerkingBepaler.GeefAfwerking(Verpakking.GeefType())_..#Delimiter_
-						..GeefVerpakkingType(Verpakking)_..#Delimiter_
-						$$$UPPER($Extract(Partij.GeefNaam(),1,12))_..#Delimiter_
-						$Extract(UitvoeringInfo.ToeleveringID, *-3, *)
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(UitvoeringInfo.PartijID)
+	#dim LijnItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	Set Etiket.Lijn4 = UitvoeringInfo.VerwerkingID_..#Delimiter_
-						..DimensieStringBepaler.GeefDimensieString(LadeOnderdeel)
-	Quit Etiket
+	Do LijnItems.Insert(..AfwerkingBepaler.GeefAfwerking(Verpakking.GeefType()))
+	Do LijnItems.Insert(..GeefVerpakkingType(Verpakking))
+	Do LijnItems.Insert($$$UPPER($Extract(Partij.GeefNaam(), 1, 12)))
+	Do LijnItems.Insert($Extract(UitvoeringInfo.ToeleveringID, *-3, *))	
+
+	Quit ##class(TECH.ListUtils).ListToPieces(LijnItems, ..#Delimiter)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijn4">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim LijnItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+		
+	Do LijnItems.Insert(UitvoeringInfo.VerwerkingID)
+	Do LijnItems.Insert(..DimensieStringBepaler.GeefDimensieString(LadeOnderdeel))	
+	
+	Quit ##class(TECH.ListUtils).ListToPieces(LijnItems, ..#Delimiter)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFrontString">
 <FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim FrontString As TECH.String = ""
-	If ##class(TECH.StringUtils).Equals(Lade.GeefVerpakking().GeefType(), ##class(DOM.PM.enu.TAORVerpakkingType).V1(), ##class(DOM.PM.enu.TAORVerpakkingType).Probox(), ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()) {
-		Set FrontString = $Select(Lade.GeefFronten().Count()>0:"MET FRONT",1:"")
+	#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType = Lade.GeefVerpakking().GeefType()
+	
+	If ((VerpakkingType = ..Enum.VerpakkingType.V1) || (VerpakkingType = ..Enum.VerpakkingType.Probox) || (VerpakkingType = ..Enum.VerpakkingType.FlatpackV1)) {
+		Set:(Lade.GeefFronten().Count() > 0) FrontString = "MET FRONT"
 	}
+
 	Quit FrontString
 ]]></Implementation>
 </Method>
@@ -130,11 +184,16 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim AssemblageKarString As TECH.String = ""
-	If ..AssemblageKarRepository.GebruiktAssemblageKar(UitvoeringInfo.BatchID) {
+	
+	If (..AssemblageKarRepository.GebruiktAssemblageKar(UitvoeringInfo.BatchID)) {
 		#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GeefKar(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-		Set AssemblageKarString = "KAR "_..AssemblageKarRepository.GeefKarVolgnummer(UitvoeringInfo.BatchID, AssemblageKar.Kar)_":"_..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID)_..#Delimiter_
-									AssemblageKar.Vak_$Select(..AssemblageKarRepository.IsLaatsteItemInKar(AssemblageKar):"*", 1:"")
+
+		Set AssemblageKarString = AssemblageKarString _ "KAR "
+		Set AssemblageKarString = AssemblageKarString _ ..AssemblageKarRepository.GeefKarVolgnummer(UitvoeringInfo.BatchID, AssemblageKar.Kar) 
+		Set AssemblageKarString = AssemblageKarString _ ":" _ ..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID) _ ..#Delimiter
+		Set AssemblageKarString = AssemblageKarString _ AssemblageKar.Vak _ $Select(..AssemblageKarRepository.IsLaatsteItemInKar(AssemblageKar):"*", 1:"")
 	}
+	
 	Quit AssemblageKarString
 ]]></Implementation>
 </Method>
@@ -146,50 +205,90 @@
 <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()) {
+	
+	If (Product.GeefHalffabItemsBoom("").BevatRol(..Enum.Rol.AfdekkapBoven)) {
 		Set AfdekkapBovenKleurString = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.AfdekkapBovenKleur).LogicalToDisplay(TAORKenmerken.AfdekkapBovenKleur)
 	}
+	
 	Quit AfdekkapBovenKleurString
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLadeOnderdeelInfo">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Info As %String = $$$UPPER($Extract(LadeOnderdeel.GeefRol(),1,3))
-	if LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem() {
-		#dim SchroefkoppelingInfo As TECH.String = ""
-		if LadeOnderdeel.GeefFrontKoppelingType() = ##class(DOM.PM.enu.TAORKoppelingType).Schroef() {
-			#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom("")
-			#define BorenEnMonteren "BO+MO"
-			#define Boren "BO"
-			set SchroefkoppelingInfo = ":"_$Select(HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling()):$$$BorenEnMonteren, 1:$$$Boren)
-		}
-		set Info = Info_"(" _ $$$UPPER($Extract(LadeOnderdeel.GeefFrontKoppelingType(),1,3))_SchroefkoppelingInfo_")"
+	#dim LadeOnderdeelInfo As TECH.String = ""
+	#dim LadeOnderdeelCode As TECH.String = ##class(TECH.StringUtils).ToUpper($Extract(LadeOnderdeel.GeefRol(), 1, 3))
+	#dim IsBodem As %Boolean = (LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()) 
+
+	Set:(IsBodem) LadeOnderdeelInfo = "(" _ ..GeefBodemInfo(LadeOnderdeel, Product) _ ")"
+	
+	Quit LadeOnderdeelCode _ LadeOnderdeelInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefBodemInfo">
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.Bodem,Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemInfo As TECH.String = ""
+	#dim KoppelingTypeCode As TECH.String = ##class(TECH.StringUtils).ToUpper($Extract(Bodem.GeefFrontKoppelingType(), 1, 3))
+
+	If (Bodem.GeefFrontKoppelingType() = ..Enum.KoppelingType.Schroef) {
+		Set BodemInfo = ":" _ ..GeefBodemInfoVoorSchroefKoppeling(Product)
 	}
-	quit Info
+	
+	Quit KoppelingTypeCode _ BodemInfo
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBodemInfoVoorSchroefKoppeling">
+<FormalSpec>Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#define BorenEnMonteren "BO+MO"
+	#define Boren "BO"
+	
+	#dim BodemInfo As TECH.String
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom("")
+	#dim IsKoppelingAanwezig As %Boolean = HalffabItemsBoom.BevatRol(..Enum.Rol.Koppeling)
+	#dim IsGemonteerdeLade As %Boolean = ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(Product.GeefIngegevenKenmerken())
+
+	If (IsKoppelingAanwezig && IsGemonteerdeLade) {
+		Set BodemInfo = $$$BorenEnMonteren		
+	} Else {
+		Set BodemInfo = $$$Boren	
+	}
+
+	Quit BodemInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefVoormontageInfo">
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim VoormontageInfo As TECH.String = ""
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeOnderdeel.GeefLade()
-	If (Lade.GeefVerpakking().GeefType() = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
+	
+	If (Lade.GeefVerpakking().GeefType() = ..Enum.VerpakkingType.V1) {
 		#dim VoormontageOnderdelen As %ListOfDataTypes = Lade.GeefOnderdelenUitVoormontage()
-		Set VoormontageOnderdelenIt = ##class(TECH.ListIterator).%New(VoormontageOnderdelen)
-		While (VoormontageOnderdelenIt.HasNext()) {
-			#dim VoormontageOnderdeel As TECH.String = VoormontageOnderdelenIt.Next()
-			Set:(VoormontageOnderdeel=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang()) VoormontageOnderdeel = "SY"
-			Do VoormontageOnderdelen.SetAt($$$UPPER($Extract(VoormontageOnderdeel,1,2)), VoormontageOnderdelenIt.Key())
+		#dim VoormontageOnderdelenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(VoormontageOnderdelen)
+		
+		While (VoormontageOnderdelenIterator.HasNext()) {
+			#dim VoormontageOnderdeel As TECH.String = VoormontageOnderdelenIterator.Next()
+			Set:(VoormontageOnderdeel = ..Enum.Rol.TiponSynchronisatieStang) VoormontageOnderdeel = "SY"
+			Do VoormontageOnderdelen.SetAt($$$UPPER($Extract(VoormontageOnderdeel, 1, 2)), VoormontageOnderdelenIterator.Key())
 		}
-		Set VoormontageInfo = ##class(TECH.ListUtils).ListToPieces(VoormontageOnderdelen,"-")
+		
+		Set VoormontageInfo = ##class(TECH.ListUtils).ListToPieces(VoormontageOnderdelen, "-")
 	}
+	
 	Quit VoormontageInfo
 ]]></Implementation>
 </Method>
@@ -200,11 +299,13 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim VerpakkingType As TECH.String = ""
-	If Verpakking.GeefType() = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1() {
+	
+	If (Verpakking.GeefType() = ..Enum.VerpakkingType.FlatpackV1) {
 		Set VerpakkingType = Verpakking.GeefDoosVariant()
 	} Else {
 		Set VerpakkingType = $$$UPPER(..VerpakkingFormatter.Formatteer(Verpakking.GeefType()))
 	}
+	
 	Quit VerpakkingType
 ]]></Implementation>
 </Method>
FishEye: Tag 31947 refers to a dead (removed) revision in file `vhTest/Fake/DOM/PM/Maatwerk/LadeInfo/impl/DimensieNaarBalkDimensieConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?