Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71840 -r71885
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 71840)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 71885)
@@ -53,9 +53,12 @@
 	#dim SequentieNummerLade = UitvoeringInfo.SequentieNummerLade
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+	#dim Variant As DOM.PM.enu.Variant = Ingegevenkenmerken.GeefVariant()
+	Do ##class(Tools.Wlip).%New(26).ObjToText(Ingegevenkenmerken)
+	Do ##class(Tools.Wlip).%New(26).String(Variant)
 	#dim KenmerkenApps As APPS.PM.Maatwerk.dto.LadeKenmerken = ..DomNaarAppsConverter.GeefIngegevenKenmerken(Ingegevenkenmerken)
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenApps, SequentieNummerLade))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenApps, Variant, SequentieNummerLade))
 	// Voor fase MES M1 eruit laten
 	; Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesGekoppeldeIngegevenKenmerken(KenmerkenApps, SequentieNummerLade))
 	
@@ -64,7 +67,7 @@
 </Method>
 
 <Method name="GeefOptiesIngegegevenKenmerken">
-<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
+<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,Variant:DOM.PM.enu.Variant,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -84,7 +87,7 @@
 	}
 	
 	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-Familie", ##class(TECH.StringUtils).ToFirstCase(KenmerkenApps.GeefFamilie())))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-Variant", ##class(TECH.StringUtils).ToFirstCase(KenmerkenApps.GeefVariant())))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-Variant", ##class(TECH.StringUtils).ToFirstCase(Variant)))
 	
 	Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesUitsparingData(KenmerkenApps, SequentieNummerLade, VoorvoegselNaam))