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