Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml =================================================================== diff -u -r71564 -r71567 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71564) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71567) @@ -25,11 +25,11 @@ 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, 31) + Do $$$AssertEquals(Resultaat.Size, 51) Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-AantalDwarsverdelingen", 2) Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-BodemKleur", "WI") Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-HeeftOpvullijstLinks", "False") - + Do ProductMock.Verifieer() Do ProductApiMock.Verifieer() ]]> @@ -58,10 +58,67 @@ 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, 51) - Do ..AssertOptie(Resultaat.GetAt(32), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Breedte", 800) - Do ..AssertOptie(Resultaat.GetAt(40), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Kleur", "W") + Do $$$AssertEquals(Resultaat.Size, 71) + Do ..AssertOptie(Resultaat.GetAt(52), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Breedte", 800) + Do ..AssertOptie(Resultaat.GetAt(60), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Kleur", "W") + + Do ProductMock.Verifieer() + Do ProductApiMock.Verifieer() +]]> + + + + Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml =================================================================== diff -u -r71560 -r71567 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 71560) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 71567) @@ -18,6 +18,10 @@ 1 + +ECONimpl.PM.Maatwerk.AppsConverter + + ProductApi:DOM.PM.ProductAPI="" 1 @@ -28,6 +32,7 @@ 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() Quit $$$OK ]]> @@ -67,10 +72,52 @@ Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ VoorvoegselNaam _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type))) } + Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesUitsparingData(KenmerkenApps, SequentieNummerBinnenToelevering, VoorvoegselNaam)) + Quit LijstOpties ]]> + +KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerBinnenToelevering:%String,VoorvoegselNaam:%String="" +1 +%ListOfObjects + + + KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerBinnenToelevering:%String 1