Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml =================================================================== diff -u -r71877 -r71908 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml (.../AlgemeneKenmerkenOptiesGenerator.cls.xml) (revision 71877) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml (.../AlgemeneKenmerkenOptiesGenerator.cls.xml) (revision 71908) @@ -78,8 +78,8 @@ Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, Product, SequentieNummerLade)) Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugBreedte(IngegevenKenmerken, Product, SequentieNummerLade)) Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugHoogteInMm(IngegevenKenmerken, Product, SequentieNummerLade)) - Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, Product, SequentieNummerLade)) Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, Product, SequentieNummerLade)) + Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, Product, SequentieNummerLade)) Quit LijstBijkomendeOpties ]]> Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml =================================================================== diff -u -r71787 -r71908 --- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71787) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71908) @@ -3,28 +3,36 @@ vhUnitTest.APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.BaseLbx - + +vhTest.Mock.APPS.PM.Maatwerk.impl.AfbeeldingService +1 + + + +%String +DummyAfbeeldingCode + + + +aTestCase:%String + + + +X").DanReturn(..GeefDummyBewerktHalffabItem()) + #dim HalffabItemBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemBoomMock($$$True, $$$True) + #dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(DummyLadeCode, HalffabItemBoomMock) + #dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ..GeefProductApiMock(ProductMock) - Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New() - Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(..LbxKenmerken) - Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId) - Do ProductMock.VerwachtMethodCall("GeefLadeCode").DanReturn(DummyLadeCode) - Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemBoomMock) - - Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() - Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock) - - Set AfbeeldingServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.AfbeeldingService).%New() - Do AfbeeldingServiceMock.VerwachtMethodCall("GeefImageCodeVoorIngegevenKenmerken", ..LbxKenmerken).DanReturn(DummyAfbeeldingCode) - - Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, AfbeeldingServiceMock) + Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock) #dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo) Do $$$AssertEquals(Resultaat.Size, 10) @@ -36,22 +44,120 @@ Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodembreedte", 1) Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugbreedte", 1) Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rughoogteinmm", 78.5) - Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalkleuren", "WI") - Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Stalenrugbreedte", "null") + Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Stalenrugbreedte", "null") + Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalkleuren", "WI") Do HalffabItemBoomMock.Verifieer() Do ProductMock.Verifieer() Do ProductApiMock.Verifieer() - Do AfbeeldingServiceMock.Verifieer() ]]> + + + + + + + + + +IsBodemBewerkbaar:%Boolean,IsRugBewerkbaar:%Boolean +vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +X").DanReturn(..GeefDummyBewerktHalffabItem(IsRugBewerkbaar)) + + Quit HalffabItemBoomMock +]]> + + +IsBewerkbaar:%Boolean 1 vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.ZijkantGewichtBepaler.DummyBewerktHalffabItem - + + +LadeCode:%String,HalffabItemBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 +vhTest.Mock.DOM.PM.MaatwerkProduct + + + + +Product:DOM.PM.MaatwerkProduct +1 +vhTest.Mock.DOM.PM.ProductAPI + + + + + + Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml =================================================================== diff -u -r71877 -r71908 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml (.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml) (revision 71877) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml (.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml) (revision 71908) @@ -45,11 +45,13 @@ 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions @@ -66,7 +68,7 @@ #dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte() #dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom) - Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie) + Set:(..IsBewerkingNodigVoorRug(RugItem)) RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie) } Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte) @@ -88,6 +90,23 @@ ]]> + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String +1 +APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String 1 @@ -97,8 +116,10 @@ #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom() #dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()) + #dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur - #dim BodemKleur2de As %String = ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar) + #dim BodemKleur2de As %String = BodemKleurZichtbaar + Set:(..IsBewerkingNodigVoorBodem(BodemItem)) BodemKleur2de = ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar) If (BodemKleurZichtbaar = BodemKleur2de) { Set PlaatmateriaalKleuren = BodemKleurZichtbaar @@ -110,21 +131,23 @@ ]]> - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String + +BodemItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem 1 -APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions +%Boolean + - If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) { - Set StalenRugBreedte = ..RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID) - } + +RugItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem +1 +%Boolean + Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/DummyBewerktHalffabItem.cls.xml =================================================================== diff -u -r71571 -r71908 --- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/DummyBewerktHalffabItem.cls.xml (.../DummyBewerktHalffabItem.cls.xml) (revision 71571) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/DummyBewerktHalffabItem.cls.xml (.../DummyBewerktHalffabItem.cls.xml) (revision 71908) @@ -3,12 +3,35 @@ vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem + +%Boolean +1 + + + +Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext=##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New("","","",""),Rol:%String="TestRol",Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab=##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(),IsBewerkbaar:%Boolean +1 +1 +%Status + + + BewerkingDimensie:DOM.PM.enu.BewerkingDimensie TECH.String + + +Dimensie:%String +%Boolean + +