Index: APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml
===================================================================
diff -u -r31693 -r31723
--- APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 31693)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 31723)
@@ -60,11 +60,16 @@
#dim Info As TECH.String = ""
#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = Item.GeefIngegevenKenmerken()
+ #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
If (IngegevenKenmerken.IsBinnenlade) {
Set Info = ..GeefInfoMetMelding(Info, "Front")
}
If (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) {
- Set Info = ..GeefInfoMetMelding(Info, "Free")
+ #dim FreeString As TECH.String = "Free"
+ If $$$Not(HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())){
+ Set FreeString = FreeString_" ZI"
+ }
+ Set Info = ..GeefInfoMetMelding(Info, FreeString)
}
If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken){
Set Info = ..GeefInfoMetMelding(Info, "Mat")
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml
===================================================================
diff -u -r31693 -r31723
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 31693)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 31723)
@@ -48,10 +48,28 @@
Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
Set ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+ Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
+ Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
+ Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken,BerekeningsSpecificatie)
+
Do ..AssertInfo("R:Free")
]]>
+
+
+
+
InfoBepaler:APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen.InfoBepaler,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem
1