Index: APPS/Halux/PPS/Document/impl/MVX/OnderdelenPicking.cls.xml =================================================================== diff -u -r70037 -r70402 --- APPS/Halux/PPS/Document/impl/MVX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 70037) +++ APPS/Halux/PPS/Document/impl/MVX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 70402) @@ -108,8 +108,7 @@ Do ..VoegToeWeerTeGevenRol(GeenFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).MeenemerHuis()) Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingZijkant()) Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcap()) - Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverVoor()) - Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverAchter()) + Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcover()) Do ..VoegToeWeerTeGevenRol(ProductieRouteFilter, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementZijkant()) ]]> @@ -217,6 +216,18 @@ } 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.MVXRol).AfdekkapBinnen()) { + If ($Extract(Korttekst, 5, 5) = "N") { + Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,4) _ ..#Bold _ $Extract(Korttekst,5,5) _ ..#UnBold _ $Extract(Korttekst,6,*) + } Else { + Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst + } + } ElseIf (DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBuiten()) { + If ($Extract(Korttekst, 5, 5) = "N") { + Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,4) _ ..#Bold _ $Extract(Korttekst,5,5) _ ..#UnBold _ $Extract(Korttekst,6,*) + } Else { + Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst + } } Else { Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst }