Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml =================================================================== diff -u -r37294 -r37402 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 37294) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 37402) @@ -15,7 +15,7 @@ #dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade() Set MatFormatterMock = ##class(vhTest.Mock.APPS.Halux.PPS.impl.Formatter.Mat).%New() - Do MatFormatterMock.VerwachtMethodCall("GeefLangeNotatie",MatKenmerken.Materiaal,MatKenmerken.Kleur).DanReturn("Lange notatie") + Do MatFormatterMock.VerwachtMethodCall("GeefKorteNotatie",MatKenmerken.Materiaal,MatKenmerken.Kleur).DanReturn("Kort") Do ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Register("MatFormatter",MatFormatterMock) @@ -25,7 +25,7 @@ Do ..IngegevenKenmerkenAPI.IndienMethodCall("HeeftGekoppeldeMat", ..IngegevenKenmerken).DanReturn($$$True) Do ..IngegevenKenmerkenAPI.IndienMethodCall("GeefGekoppeldeKenmerken",..IngegevenKenmerken,$$$ElkeWaarde).DanReturn(MatKenmerken) - Do ..AssertInfo("R:Mat:Lange notatie") + Do ..AssertInfo("R:Mat:Kort") Do MatFormatterMock.Verifieer() @@ -38,7 +38,7 @@ #dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).StandaardLade() Set MatFormatterMock = ##class(vhTest.Mock.APPS.Halux.PPS.impl.Formatter.Mat).%New() - Do MatFormatterMock.VerwachtMethodCall("GeefLangeNotatie",MatKenmerken.Materiaal,MatKenmerken.Kleur).DanReturn("Lange notatie") + Do MatFormatterMock.VerwachtMethodCall("GeefKorteNotatie",MatKenmerken.Materiaal,MatKenmerken.Kleur).DanReturn("Kort") Do ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Register("MatFormatter",MatFormatterMock) @@ -49,7 +49,7 @@ Do ..IngegevenKenmerkenAPI.IndienMethodCall("HeeftGekoppeldeMat", ..IngegevenKenmerken).DanReturn($$$True) Do ..IngegevenKenmerkenAPI.IndienMethodCall("GeefGekoppeldeKenmerken",..IngegevenKenmerken,$$$ElkeWaarde).DanReturn(MatKenmerken) - Do ..AssertInfo("R:Front; Mat:Lange notatie") + Do ..AssertInfo("R:Front; Mat:Kort") Do MatFormatterMock.Verifieer() Index: BL/PPS/TBX/WPPers.cls.xml =================================================================== diff -u -r37293 -r37402 --- BL/PPS/TBX/WPPers.cls.xml (.../WPPers.cls.xml) (revision 37293) +++ BL/PPS/TBX/WPPers.cls.xml (.../WPPers.cls.xml) (revision 37402) @@ -545,7 +545,7 @@ Set:ODSP'="" PersStatus="?" Set (Info1,Info2)="" Set:LT="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"FRONT" - Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_..MatFormatter.GeefLangeNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM)) + Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM)) Set:ODSP'="" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPECIAAL : "_$CASE(ODSP,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:ODSP) Set:IsSpoel Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPOELBAK/SYFON" Set:BM="T" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"TIP-ON" Index: APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml =================================================================== diff -u -r37294 -r37402 --- APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 37294) +++ APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 37402) @@ -79,7 +79,7 @@ } If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken){ #dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(IngegevenKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) - Set Info = ..GeefInfoMetMelding(Info, "Mat:"_..MatFormatter.GeefLangeNotatie(MatKenmerken.Materiaal,MatKenmerken.Kleur)) + Set Info = ..GeefInfoMetMelding(Info, "Mat:"_..MatFormatter.GeefKorteNotatie(MatKenmerken.Materiaal,MatKenmerken.Kleur)) } If IngegevenKenmerken.AantalDwarsverdelingen>0 { Set Info = ..GeefInfoMetMelding(Info, "DWV:"_IngegevenKenmerken.AantalDwarsverdelingen)