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