Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml =================================================================== diff -u -r56066 -r58568 --- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml (.../LosseComponentKorttekstBepaler.cls.xml) (revision 56066) +++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml (.../LosseComponentKorttekstBepaler.cls.xml) (revision 58568) @@ -109,7 +109,13 @@ Set $Extract(Korttekst, 19, 21) = "V" _ ..BestelService.GeefBestelEenheid(TAORKenmerken) - Set $Extract(Korttekst, 22, 23) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Buitenkant), " ", 2) + #dim Positie22Tot23 As %String = " " + + If (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) { + Set Positie22Tot23 = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Buitenkant), " ", 2) + } + + Set $Extract(Korttekst, 22, 23) = Positie22Tot23 Set $Extract(Korttekst, 24, 25) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(..Const.Binnenkant), " ", 2) Quit Korttekst