FishEye: Tag 72077 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/AppsKenmerkenNaarObjective.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 72077 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/PropertyFilter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r72066 -r72077
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 72066)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 72077)
@@ -8,11 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProperyFilter">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DomNaarAppsConverter">
 <Type>APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor</Type>
 <Private>1</Private>
@@ -24,7 +19,7 @@
 </Property>
 
 <Property name="AppsNaarObjectiveConverter">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.AppsKenmerkenNaarObjective</Type>
+<Type>OBJTimpl.PM.Maatwerk.AppsConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -36,10 +31,9 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
-	Set ..ProperyFilter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter).%New()
 	Set ..DomNaarAppsConverter = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
 	Set ..AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.AppsConverter).%New()
-	Set ..AppsNaarObjectiveConverter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.AppsKenmerkenNaarObjective).%New()
+	Set ..AppsNaarObjectiveConverter = ##class(OBJTimpl.PM.Maatwerk.AppsConverter).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -55,8 +49,9 @@
 	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
 	#dim Variant As DOM.PM.enu.Variant = Ingegevenkenmerken.GeefVariant()
 	#dim KenmerkenApps As APPS.PM.Maatwerk.dto.LadeKenmerken = ..DomNaarAppsConverter.GeefIngegevenKenmerken(Ingegevenkenmerken)
+	#dim KenmerkenObjt As OBJT.PM.Maatwerk.dto.LadeKenmerken = ..AppsNaarObjectiveConverter.ConverteerAppsNaarObjt(KenmerkenApps)
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenApps, Variant, SequentieNummerLade))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenObjt, Variant, SequentieNummerLade))
 	// Voor fase MES M1 eruit laten
 	; Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesGekoppeldeIngegevenKenmerken(KenmerkenApps, SequentieNummerLade))
 	
@@ -65,45 +60,38 @@
 </Method>
 
 <Method name="GeefOptiesIngegegevenKenmerken">
-<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,Variant:DOM.PM.enu.Variant,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
+<FormalSpec>KenmerkenObjt:OBJT.PM.Maatwerk.dto.LadeKenmerken,Variant:DOM.PM.enu.Variant,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOpties = ##class(%ListOfObjects).%New()
-	
-	#dim GefilterdePropertiesIterator As TECH.ListIterator = ..ProperyFilter.Filter(KenmerkenApps)
-	Do ##class(Tools.Wlip).%New(26).String("Gefilterd")
-	While (GefilterdePropertiesIterator.HasNext()) {
-		Do ##class(Tools.Wlip).%New(26).String("Has next")
-		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()
-		#dim Waarde As %String = $Property(KenmerkenApps, PropertyNaam)
+	Set PropertyIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(KenmerkenObjt.%ClassName(1)))
+
+	While (PropertyIterator.HasNext()) {
+		#dim PropertyNaam As %String = PropertyIterator.Next()
+		continue:(PropertyNaam = "UitsparingData")
+		#dim Waarde As %String = $Property(KenmerkenObjt, PropertyNaam)
 		
-		#dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(KenmerkenApps.%ClassName(1), PropertyNaam)
-		#dim GeconverteerdePropertyNaam As %String = ..AppsNaarObjectiveConverter.Converteer(PropertyNaam)
-		#dim Naam As %String = "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ GeconverteerdePropertyNaam)
+		#dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(KenmerkenObjt.%ClassName(1), PropertyNaam)
+		#dim Naam As %String = "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ PropertyNaam)
 		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, Naam, ..ConverteerWaarde(Waarde, Property.Type)))
 	}
 	
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-Familie", ##class(TECH.StringUtils).ToFirstCase(KenmerkenApps.GeefFamilie())))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-Variant", ##class(TECH.StringUtils).ToUpper(..AppsNaarObjectiveConverter.Converteer(Variant))))
+	Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesUitsparingData(KenmerkenObjt, SequentieNummerLade, VoorvoegselNaam))
 	
-	Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesUitsparingData(KenmerkenApps, SequentieNummerLade, VoorvoegselNaam))
-	
 	Quit LijstOpties
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOptiesUitsparingData">
-<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
+<FormalSpec>KenmerkenObjt:OBJT.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerLade:%String,VoorvoegselNaam:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOpties = ##class(%ListOfObjects).%New()
-	
-	#dim GeconverteerdeEconKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = ..AppsNaarEconConverter.ConverteerAppsNaarEcon(KenmerkenApps)
 		
-	If ((GeconverteerdeEconKenmerken.Variant = "LBX") || (##class(TECH.StringUtils).StartsWith(GeconverteerdeEconKenmerken.Variant, "Mat"))) {
-		#dim UitsparingData As ECON.PM.Maatwerk.dto.CommonKenmerken.Uitsparingdata = GeconverteerdeEconKenmerken.UitsparingData
+	If ((KenmerkenObjt.Variant = "LBX") || (##class(TECH.StringUtils).StartsWith(KenmerkenObjt.Variant, "Mat"))) {
+		#dim UitsparingData As ECON.PM.Maatwerk.dto.CommonKenmerken.Uitsparingdata = KenmerkenObjt.UitsparingData
 		
 		If ($IsObject(UitsparingData)) {
 			Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ "Uitsparingdata.UitsparingAantal"), UitsparingData.UitsparingAantal))
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71887 -r72077
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71887)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72077)
@@ -46,11 +46,12 @@
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 51)
-	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dwarsverdelingaantal", 2)
-	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodemkleur", "WI")
-	Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Heeftopvullijstlinks", "false")	
-	do ..AssertOptie(Resultaat.GetAt(30), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Familie", "Lade")
-	do ..AssertOptie(Resultaat.GetAt(31), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Variant", "LBX")
+	
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodemkleur", "WI")
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dwarsverdelingaantal", 2)
+	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Heeftopvullijstlinks", "false")	
+	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Familie", "Lade")
+	Do ..AssertOptie(Resultaat.GetAt(26), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Variant", "LBX")
 		
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()