Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml
===================================================================
diff -u -r72869 -r73838
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml	(.../DomRollenNaarObjective.cls.xml)	(revision 72869)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml	(.../DomRollenNaarObjective.cls.xml)	(revision 73838)
@@ -130,11 +130,16 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GeconverteerdeWaarde = Waarde
+	#dim HuidigeMesFase As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+	#dim NieuweLiReLogicaLiveVanafFase As %Integer = 2
 	
 	If ((Waarde = "sifonkap.z1") || (Waarde = "sifonkap.z2")) {
 		Set GeconverteerdeWaarde = "Sifonkap"
 	} ElseIf ((##class(TECH.StringUtils).EndsWith(Waarde, "links")) || ##class(TECH.StringUtils).EndsWith(Waarde, "rechts")) {
-		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).GetFirstPart(Waarde, ".")
+		If (HuidigeMesFase < NieuweLiReLogicaLiveVanafFase)
+		{
+			Set GeconverteerdeWaarde = ##class(TECH.StringUtils).GetFirstPart(Waarde, ".")
+		}
 	} ElseIf (##class(TECH.StringUtils).StartsWith(Waarde, "verpakking.")) {
 		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).GetLastPart(Waarde, ".")
 	} ElseIf (##class(TECH.StringUtils).StartsWith(Waarde, "mat_standaard")) {
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml
===================================================================
diff -u -r73610 -r73838
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml	(.../OptieGenerator.cls.xml)	(revision 73610)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml	(.../OptieGenerator.cls.xml)	(revision 73838)
@@ -72,16 +72,31 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim RolNaam As %String = HalffabItem.GeefRol()
-
+	
+	#dim HuidigeMesFase As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+	#dim NieuweLiReLogicaLiveVanafFase As %Integer = 2
+	
+	If (##class(TECH.StringUtils).Equals(RolNaam, "Links", "Rechts") && (HuidigeMesFase >= NieuweLiReLogicaLiveVanafFase)) {
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItem.GeefHalffab()
+		
+		If (Halffab.LiRe = "LI") {
+			Set RolNaam = "Li"
+		} ElseIf (Halffab.LiRe = "RE") {
+			Set RolNaam = "Re"
+		} Else {
+			Set RolNaam = "LiRe"
+		}
+	}
+	
 	If ($IsObject(HalffabItem.ParentItem) &&  $$$Not(HalffabItem.ParentItem.GeefRol() = IngegevenKenmerken.GeefVariant())) {
 		Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam
 	}
 	
-	Set RolNaam = ##class(TECH.StringUtils).ToFirstCase(RolNaam)	
+	Set RolNaam = ##class(TECH.StringUtils).ToFirstCase(RolNaam)
 	Set Converter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective).%New()
 	Set RolNaam = Converter.Converteer(RolNaam, IngegevenKenmerken)
 	Set RolNaam = ##class(TECH.StringUtils).Replace(RolNaam, " ", "")
-
+	
 	Quit RolNaam
 ]]></Implementation>
 </Method>