Index: vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml =================================================================== diff -u -r69748 -r71540 --- vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 69748) +++ vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 71540) @@ -58,6 +58,9 @@ Set ..RVGKenmerken.Toepassing = ..#RandomInput Do ..AssertPositiesInKorttekst(" ", 5, 6) + Set ..RVGKenmerken.Toepassing = ..Enum.Toepassing.UnoUno + Do ..AssertPositiesInKorttekst("11", 5, 6) + Set ..RVGKenmerken.Toepassing = ..Enum.Toepassing.UnoLinks Do ..AssertPositiesInKorttekst("10", 5, 6) Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml =================================================================== diff -u -r69748 -r71540 --- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 69748) +++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 71540) @@ -31,6 +31,8 @@ If (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoLinks) { Set ToepassingCode = "10" + } ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoUno) { + Set ToepassingCode = "11" } ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.DuoLinks) { Set ToepassingCode = "20" } ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoRechts) {