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
+
+