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
]]>