Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler.cls.xml	(revision 34406)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler">
+<Super>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="EnumLadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeelInfo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>DOM.PM.TAORProduct.TAORLade</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Bepaal">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..LadeOnderdeel = LadeOnderdeel
+	Set ..LadeOnderdeelInfo = ..GeefLadeOnderdeelCode(LadeOnderdeel)
+	Set ..Product = Product
+	
+	Do ..Verwerk(LadeOnderdeel.GeefRol())
+
+	Quit ..LadeOnderdeelInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeOnderdeelCode">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).ToUpper($Extract(LadeOnderdeel.GeefRol(), 1, 3))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBodem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LadeOnderdeel
+	#dim KoppelingTypeCode As TECH.String = ##class(TECH.StringUtils).ToUpper($Extract(Bodem.GeefFrontKoppelingType(), 1, 3))
+	
+	Set ..LadeOnderdeelInfo = ..LadeOnderdeelInfo _ "("
+	Set ..LadeOnderdeelInfo = ..LadeOnderdeelInfo _ KoppelingTypeCode
+
+	If (Bodem.GeefFrontKoppelingType() = ..Enum.KoppelingType.Schroef) {
+		Set ..LadeOnderdeelInfo = ..LadeOnderdeelInfo _ ":" _ ..GeefBodemInfoVoorSchroefKoppeling(..Product)
+	}
+	
+	Set ..LadeOnderdeelInfo = ..LadeOnderdeelInfo _ ")"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFront">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkRug">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZijkant">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..LadeOnderdeel
+	
+	Set ..LadeOnderdeelInfo = ..LadeOnderdeelInfo _ "-" _ ##class(TECH.StringUtils).ToUpper($Extract(Zijkant.GeefZijkantRol(), 1, 1))
+]]></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>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r34394 -r34406
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 34394)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 34406)
@@ -58,13 +58,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeOnderdeelInfoBepaler">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Toeleveringen">
 <Type>%ArrayOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI="",LadeOnderdeelInfoBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -84,6 +89,8 @@
 	Set ..AfwerkingBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.AfwerkingBepaler).%New()
 	Set ..Toeleveringen = ##class(%ArrayOfDataTypes).%New()
 	
+	Set ..LadeOnderdeelInfoBepaler = $$$Inject(LadeOnderdeelInfoBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -113,7 +120,7 @@
 	#dim LijnItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
 	Do:(UitvoeringInfo.IsRework) LijnItems.Insert("RE")	
-	Do LijnItems.Insert(..GeefLadeOnderdeelInfo(LadeOnderdeel, Product))
+	Do LijnItems.Insert(..LadeOnderdeelInfoBepaler.Bepaal(LadeOnderdeel, Product))
 	Do LijnItems.Insert(..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel))
 	Do LijnItems.Insert(..PlaatDimensieStringBepaler.GeefDimensieString(LadeOnderdeel))
 	Do LijnItems.Insert(UitvoeringInfo.DossierCode)
@@ -243,70 +250,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLadeOnderdeelInfo">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Product:DOM.PM.TAORProduct.TAORLade</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#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())
-	#dim IsZijkant As %Boolean = (LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()) 
-
-	Set:(IsBodem) LadeOnderdeelInfo = "(" _ ..GeefBodemInfo(LadeOnderdeel, Product) _ ")"
-	Set:(IsZijkant) LadeOnderdeelInfo = ..GeefZijkantInfo(LadeOnderdeel)
-	
-	Quit LadeOnderdeelCode _ LadeOnderdeelInfo
-]]></Implementation>
-</Method>
-
-<Method name="GeefZijkantInfo">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit "-" _ ##class(TECH.StringUtils).ToUpper($Extract(Zijkant.GeefZijkantRol(), 1, 1))
-]]></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 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>