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