Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml =================================================================== diff -u -r71773 -r71840 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 71773) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 71840) @@ -78,11 +78,14 @@ #dim Waarde As %String = $Property(KenmerkenApps, PropertyNaam) #dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(KenmerkenApps.%ClassName(1), PropertyNaam) - #dim GeconverteerdeProertyNaam As %String = ..AppsNaarObjectiveConverter.Converteer(PropertyNaam) - #dim Naam As %String = "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ GeconverteerdeProertyNaam) + #dim GeconverteerdePropertyNaam As %String = ..AppsNaarObjectiveConverter.Converteer(PropertyNaam) + #dim Naam As %String = "-" _ ##class(TECH.StringUtils).ToFirstCase(VoorvoegselNaam _ GeconverteerdePropertyNaam) 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).ToFirstCase(KenmerkenApps.GeefVariant()))) + Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesUitsparingData(KenmerkenApps, SequentieNummerLade, VoorvoegselNaam)) Quit LijstOpties Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml =================================================================== diff -u -r71788 -r71840 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71788) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71840) @@ -45,11 +45,13 @@ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock) #dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo) - Do $$$AssertEquals(Resultaat.Size, 49) + 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_pure") + Do ProductMock.Verifieer() Do ProductApiMock.Verifieer() ]]> @@ -69,7 +71,7 @@ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock) #dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo) - Do $$$AssertEquals(Resultaat.Size, 49) + Do $$$AssertEquals(Resultaat.Size, 51) // Voor fase MES M1 eruit laten ;Do ..AssertOptie(Resultaat.GetAt(51), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Mat.breedte", 800) ;Do ..AssertOptie(Resultaat.GetAt(59), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Mat.kleur", "W") @@ -101,27 +103,27 @@ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock) #dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo) - Do $$$AssertEquals(Resultaat.Size, 49) - Do ..AssertOptie(Resultaat.GetAt(30), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.uitsparingaantal", "Dubbel") - Do ..AssertOptie(Resultaat.GetAt(31), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.breedte", 150) - Do ..AssertOptie(Resultaat.GetAt(32), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.hoogte", "M") - Do ..AssertOptie(Resultaat.GetAt(33), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.materiaal", "Hout") - Do ..AssertOptie(Resultaat.GetAt(34), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.breedte", 150) - Do ..AssertOptie(Resultaat.GetAt(35), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.hoogte", "M") - Do ..AssertOptie(Resultaat.GetAt(36), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.materiaal", "Hout") - Do ..AssertOptie(Resultaat.GetAt(37), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.breedte", 140) - Do ..AssertOptie(Resultaat.GetAt(38), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.hoogte", "M") - Do ..AssertOptie(Resultaat.GetAt(39), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.materiaal", "Hout") - Do ..AssertOptie(Resultaat.GetAt(40), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.breedte", 300) - Do ..AssertOptie(Resultaat.GetAt(41), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.hoogte", "M") - Do ..AssertOptie(Resultaat.GetAt(42), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.diepte", 250) - Do ..AssertOptie(Resultaat.GetAt(43), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.vorm", "Recht") - Do ..AssertOptie(Resultaat.GetAt(44), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.materiaal", "Staal") - Do ..AssertOptie(Resultaat.GetAt(45), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.breedte", 160) - Do ..AssertOptie(Resultaat.GetAt(46), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.hoogte", "M") - Do ..AssertOptie(Resultaat.GetAt(47), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.diepte", 250) - Do ..AssertOptie(Resultaat.GetAt(48), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.vorm", "Recht") - Do ..AssertOptie(Resultaat.GetAt(49), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.materiaal", "Staal") + Do $$$AssertEquals(Resultaat.Size, 51) + Do ..AssertOptie(Resultaat.GetAt(32), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.uitsparingaantal", "Dubbel") + Do ..AssertOptie(Resultaat.GetAt(33), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.breedte", 150) + Do ..AssertOptie(Resultaat.GetAt(34), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.hoogte", "M") + Do ..AssertOptie(Resultaat.GetAt(35), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.x.materiaal", "Hout") + Do ..AssertOptie(Resultaat.GetAt(36), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.breedte", 150) + Do ..AssertOptie(Resultaat.GetAt(37), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.hoogte", "M") + Do ..AssertOptie(Resultaat.GetAt(38), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.y.materiaal", "Hout") + Do ..AssertOptie(Resultaat.GetAt(39), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.breedte", 140) + Do ..AssertOptie(Resultaat.GetAt(40), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.hoogte", "M") + Do ..AssertOptie(Resultaat.GetAt(41), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.m.materiaal", "Hout") + Do ..AssertOptie(Resultaat.GetAt(42), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.breedte", 300) + Do ..AssertOptie(Resultaat.GetAt(43), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.hoogte", "M") + Do ..AssertOptie(Resultaat.GetAt(44), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.diepte", 250) + Do ..AssertOptie(Resultaat.GetAt(45), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.vorm", "Recht") + Do ..AssertOptie(Resultaat.GetAt(46), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z1.materiaal", "Staal") + Do ..AssertOptie(Resultaat.GetAt(47), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.breedte", 160) + Do ..AssertOptie(Resultaat.GetAt(48), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.hoogte", "M") + Do ..AssertOptie(Resultaat.GetAt(49), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.diepte", 250) + Do ..AssertOptie(Resultaat.GetAt(50), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.vorm", "Recht") + Do ..AssertOptie(Resultaat.GetAt(51), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Uitsparingdata.z2.materiaal", "Staal") Do ProductMock.Verifieer() Do ProductApiMock.Verifieer() Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGeneratorLbx.cls.xml =================================================================== diff -u -r71552 -r71840 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGeneratorLbx.cls.xml (.../BatchNaarObjectiveDataGeneratorLbx.cls.xml) (revision 71552) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGeneratorLbx.cls.xml (.../BatchNaarObjectiveDataGeneratorLbx.cls.xml) (revision 71840) @@ -24,7 +24,6 @@ Set ..RollenEnStuklijstOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx).%New() Set ..AlgemeneKenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New() - Quit $$$OK ]]>