Index: vhTest/Fake/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml =================================================================== diff -u -r29059 -r57936 --- vhTest/Fake/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 29059) +++ vhTest/Fake/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 57936) @@ -32,6 +32,13 @@ + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Boolean + + Index: APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml =================================================================== diff -u -r57209 -r57936 --- APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 57209) +++ APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 57936) @@ -56,6 +56,9 @@ If ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) { Set Info = ..GeefInfoMetMelding(Info,"SIFON") } + If ..IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) { + Set Info = ..GeefInfoMetMelding(Info,"SMAL") + } if ..MeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) { Set Info = ..GeefInfoMetMelding(Info,"SYNCST") } Index: APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen.cls.xml =================================================================== diff -u -r30711 -r57936 --- APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen.cls.xml (.../LBXLadePersen.cls.xml) (revision 30711) +++ APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen.cls.xml (.../LBXLadePersen.cls.xml) (revision 57936) @@ -93,7 +93,7 @@ #dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = DomeinContext.GeefIngegevenKenmerkenTypeAPI() - If IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) { + If IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) { Set UitvoeringInfo.Breedte = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefNietTePersenBreedteBepaler().BepaalNietTePersenBreedte()*10 Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietTePersen() } Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml =================================================================== diff -u -r57209 -r57936 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml (.../Test.cls.xml) (revision 57209) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo1/Test.cls.xml (.../Test.cls.xml) (revision 57936) @@ -17,6 +17,7 @@ Set ..IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New() Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSpoelbaklade", ..IngegevenKenmerken).DanReturn($$$True) Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSifonlade", ..IngegevenKenmerken).DanReturn($$$False) + Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSmalleLade", ..IngegevenKenmerken).DanReturn($$$False) Do ..AssertInfo("R:SPOELBAK") ]]> @@ -27,11 +28,23 @@ Set ..IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New() Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSpoelbaklade", ..IngegevenKenmerken).DanReturn($$$False) Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSifonlade", ..IngegevenKenmerken).DanReturn($$$True) + Do ..IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSmalleLade", ..IngegevenKenmerken).DanReturn($$$False) Do ..AssertInfo("R:SIFON") ]]> + + + +