Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml =================================================================== diff -u -r71442 -r71445 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71442) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71445) @@ -68,6 +68,24 @@ Quit RolNaam ]]> + + +Waarde:%DataType,Type:%Dictionary.CacheClassname +1 +%DataType + + Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml =================================================================== diff -u -r71442 -r71445 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 71442) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 71445) @@ -52,8 +52,8 @@ APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml =================================================================== diff -u -r71443 -r71445 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml (.../KenmerkenOptiesGenerator.cls.xml) (revision 71443) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml (.../KenmerkenOptiesGenerator.cls.xml) (revision 71445) @@ -119,7 +119,8 @@ #dim PropertyNaam As %String = GefilterdePropertiesIterator.Next() #dim Waarde As %String = $Property(LbxKenmerkenApps, PropertyNaam) - Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , Waarde)) + #dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(LbxKenmerkenApps.%ClassName(1), PropertyNaam) + Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type))) } Quit LijstOpties