Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/Base.cls.xml =================================================================== diff -u -r68019 -r74188 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/Base.cls.xml (.../Base.cls.xml) (revision 68019) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/Base.cls.xml (.../Base.cls.xml) (revision 74188) @@ -29,6 +29,19 @@ 1 + +APPS.PM.Maatwerk.impl.VhConfigRepository +1 + + + + + + aTestName:%String + +aTestCase:%String + + + VerwachteInfo:TECH.String 1 @@ -70,7 +92,7 @@ #dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance() #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, KlantId, Personality) - Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken, BerekeningsSpecificatie) + Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken, BerekeningsSpecificatie, , "DummyCID") ]]> Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml =================================================================== diff -u -r70286 -r74188 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml (.../Test.cls.xml) (revision 70286) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml (.../Test.cls.xml) (revision 74188) @@ -51,6 +51,9 @@ Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox() Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION() Set ..IngegevenKenmerken.InterneBreedte = 1100 + + Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = 18 + Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False Do ..BerekenHalffabItemsBoom() @@ -64,6 +67,9 @@ Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1() Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION() Set ..IngegevenKenmerken.InterneBreedte = 1100 + + Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = 18 + Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False Do ..BerekenHalffabItemsBoom() Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml =================================================================== diff -u -r70310 -r74188 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 70310) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 74188) @@ -73,6 +73,9 @@ Set ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free() Set ..IngegevenKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant() Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C() + + Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = 18 + Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False Do ..BerekenHalffabItemsBoom() Do ..AssertInfo("R:Free") @@ -87,6 +90,9 @@ Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C() Do ..IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant()) + + Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = 18 + Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False Do ..BerekenHalffabItemsBoom() Do ..AssertInfo("R:Free ZI") @@ -97,6 +103,9 @@