Index: vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml =================================================================== diff -u -r69526 -r69535 --- vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 69526) +++ vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 69535) @@ -111,6 +111,9 @@ Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGPlaatMateriaalType).Melamine() Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGPlaatMateriaalType).HPL() Do ..AssertPositiesInKorttekst("B", 8) + + Set ..RVGKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten() + Do ..AssertPositiesInKorttekst(" ", 8) ]]> Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml =================================================================== diff -u -r69526 -r69535 --- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 69526) +++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 69535) @@ -90,6 +90,10 @@ } } + If $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) { + Set MateriaalCode = " " + } + Quit MateriaalCode ]]>