Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml =================================================================== diff -u -r53057 -r63655 --- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml (.../Test.cls.xml) (revision 53057) +++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/TAX/Test.cls.xml (.../Test.cls.xml) (revision 63655) @@ -87,6 +87,15 @@ Do ..AssertAfbeeldingCode(TAORKenmerken, "CY_Z_x2_RugM") ]]> + + + + Index: APPS/PM/Maatwerk/impl/TAX/AfbeeldingCodeBepaler.cls.xml =================================================================== diff -u -r34462 -r63655 --- APPS/PM/Maatwerk/impl/TAX/AfbeeldingCodeBepaler.cls.xml (.../AfbeeldingCodeBepaler.cls.xml) (revision 34462) +++ APPS/PM/Maatwerk/impl/TAX/AfbeeldingCodeBepaler.cls.xml (.../AfbeeldingCodeBepaler.cls.xml) (revision 63655) @@ -10,7 +10,11 @@ #dim AfbeeldingCode As %String = TAORKenmerken.GeefLadeCode() Set AfbeeldingCode = $Translate(AfbeeldingCode, "/Z", "_Z") - Set AfbeeldingCode = AfbeeldingCode _ $$$IfLength(TAORKenmerken.ProductieWijze,"_","") + If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) { + Set AfbeeldingCode = AfbeeldingCode _ $$$IfLength(##class(DOM.PM.enu.TAORProductieWijze).Front(),"_","") + } Else { + Set AfbeeldingCode = AfbeeldingCode _ $$$IfLength(TAORKenmerken.ProductieWijze,"_","") + } Set AfbeeldingCode = AfbeeldingCode _ ..GeefVerlaagdeRugCode(TAORKenmerken) Quit AfbeeldingCode