Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenv000N.cls.xml =================================================================== diff -u -r57190 -r67541 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenv000N.cls.xml (.../TestHFAfdekkapBinnenv000N.cls.xml) (revision 57190) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenv000N.cls.xml (.../TestHFAfdekkapBinnenv000N.cls.xml) (revision 67541) @@ -5,6 +5,16 @@ 1 vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Afdekkappen.Base + +%String +ªB + + + +%String +ªb + + vhTest.Mock.DOM.PM.MaatwerkCalcAPI 1 @@ -35,7 +45,7 @@ #dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten = Afdekkap.GeefHalffab() Do $$$AssertTrue($IsObject(Halffab),"HalffabItem heeft een halffab") Do $$$AssertEquals(Halffab.GeefProductID(),1000) - Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, N") + Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, " _ ..#Bold _ "N" _ ..#UnBold) ]]> @@ -51,7 +61,7 @@ #dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten = Afdekkap.GeefHalffab() Do $$$AssertTrue($IsObject(Halffab),"HalffabItem heeft een halffab") Do $$$AssertEquals(Halffab.GeefProductID(),1004) - Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, N (uit V1 ladezijkant)") + Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, " _ ..#Bold _ "N" _ ..#UnBold _ " (uit V1 ladezijkant)") ]]> Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml =================================================================== diff -u -r59863 -r67541 --- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 59863) +++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 67541) @@ -206,6 +206,8 @@ } Else { Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,3) _ ..#Bold _ $Extract(Korttekst,4,4) _ ..#UnBold _ $Extract(Korttekst,5,*) } + } ElseIf (DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten()) { + Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,11) _ ..#Bold _ $Extract(Korttekst,12,14) _ ..#UnBold _ $Extract(Korttekst,15,*) } Else { Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst } Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabAfdekkapBinnen.cls.xml =================================================================== diff -u -r57188 -r67541 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabAfdekkapBinnen.cls.xml (.../HalffabAfdekkapBinnen.cls.xml) (revision 57188) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabAfdekkapBinnen.cls.xml (.../HalffabAfdekkapBinnen.cls.xml) (revision 67541) @@ -7,6 +7,16 @@ 1 DOM.PM.Maatwerk.Calc.HF.Halffab + +%String +ªB + + + +%String +ªb + + DOM.PM.enu.LBXLadeKleur @@ -31,7 +41,7 @@ #dim Omschrijving As %String = "Afdekkap binnenkant" Set Omschrijving = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Omschrijving,##class(DOM.PM.enu.LBXLadeKleur).LogicalToDisplay(..LadeKleur)) If (..LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()) { - Set Omschrijving = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Omschrijving,##class(DOM.PM.enu.LBXLadeHoogte).LogicalToDisplay(..LadeHoogte)) + Set Omschrijving = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Omschrijving, ..#Bold _ ##class(DOM.PM.enu.LBXLadeHoogte).LogicalToDisplay(..LadeHoogte) _ ..#UnBold) } Quit Omschrijving ]]>