Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml
===================================================================
diff -u -r74257 -r74349
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 74257)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 74349)
@@ -114,17 +114,7 @@
%DataType
= 2) {
- If (PropertyNaam = "MatKleur") {
- Set GeconverteerdeWaarde = ##class(DOM.PM.enu.MATKleur).LogicalToDisplay(Waarde)
- }
- If (PropertyNaam = "MatMateriaal") {
- Set GeconverteerdeWaarde = ##class(DOM.PM.enu.MATMateriaal).LogicalToDisplay(Waarde)
- }
- }
-
If (Type = "%Library.Boolean") {
Set:(Waarde = 0) GeconverteerdeWaarde = "false"
Set:(Waarde = 1) GeconverteerdeWaarde = "true"
@@ -166,7 +156,7 @@
}
If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Opvullijst()) && (HuidigeMesFase >= 2)) {
- If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) {
+ If (HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) && $$$Not(HalffabItem.AfmetingTeBekomen = 486)) { //Workaround om in .NET geen wijziging te moeten doen voor opvullijsten
Set RolNaam = "DistanceTrim.Processed"
} Else {
Set RolNaam = "DistanceTrim.Standard"
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r74257 -r74349
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 74257)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 74349)
@@ -132,6 +132,9 @@
If (GekoppeldIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) {
Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesSpaceStepKenmerken(GekoppeldIK.IngegevenKenmerken, SequentieNummerLade, GekoppeldIK.Key _ "."))
}
+ If (GekoppeldIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()) {
+ Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesMatKenmerken(GekoppeldIK.IngegevenKenmerken, SequentieNummerLade, ""))
+ }
}
Quit LijstOpties
@@ -154,6 +157,23 @@
Quit LijstOpties
]]>
+
+
+KenmerkenObjt:APPS.PM.Maatwerk.dto.MATKenmerken,SequentieNummerLade:%String,VoorvoegselNaam:%String=""
+1
+%ListOfObjects
+= 2) {
+ Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ "matkleur"), ##class(DOM.PM.enu.MATKleur).LogicalToDisplay(KenmerkenObjt.Kleur)))
+ Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ "matmateriaal"), ##class(DOM.PM.enu.MATMateriaal).LogicalToDisplay(KenmerkenObjt.Materiaal)))
+ }
+
+ Quit LijstOpties
+]]>
+