Index: APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml
===================================================================
diff -u -r65660 -r69314
--- APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 65660)
+++ APPS/PM/Maatwerk/impl/AfbeeldingService.cls.xml	(.../AfbeeldingService.cls.xml)	(revision 69314)
@@ -99,6 +99,15 @@
 <Method name="VerwerkTBXKenmerken">
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 </Method>
+
+<Method name="VerwerkRVGKenmerken">
+<FormalSpec>RVGKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	Set ..AfbeeldingCodeBepaler = $$$LazyLoad(..AfbeeldingCodeBepaler, ##class(APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler).%New())
+	Set ..ImageCode = ..AfbeeldingCodeBepaler.Bepaal(RVGKenmerken)
+	Set ..AfbeeldingType = "RVG"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/PM/Maatwerk/impl/RVG/AfbeeldingCodeBepaler.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/RVG/AfbeeldingCodeBepaler.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/RVG/AfbeeldingCodeBepaler.cls.xml	(revision 69314)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler">
+<Super>APPS.PM.Maatwerk.AfbeeldingCodeBepaler,DOM.PM.Maatwerk.RVG.impl.Base</Super>
+
+<Method name="Bepaal">
+<FormalSpec>RVGKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfbeeldingCode As %String
+	
+	If (RVGKenmerken.Toepassing = ..Enum.Toepassing.UnoLinks) {
+		Set AfbeeldingCode = "UnoLinks"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.UnoRechts) {
+		Set AfbeeldingCode = "UnoRechts"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.DuoLinks) {
+		Set AfbeeldingCode = "DuoLinks"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.DuoRechts) {
+		Set AfbeeldingCode = "DuoRechts"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.UnoDuo) {
+		Set AfbeeldingCode = "UnoDuo"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.DuoUno) {
+		Set AfbeeldingCode = "DuoUno"
+	} ElseIf (RVGKenmerken.Toepassing = ..Enum.Toepassing.DuoDuo) {
+		Set AfbeeldingCode = "DuoDuo"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Afbeeldingcode voor RVG kan niet worden bepaald. Toepassing '" _RVGKenmerken.Toepassing_"' is niet gekend."))	
+	}
+	
+	Quit AfbeeldingCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml	(revision 69314)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.RVG.Test">
+<Super>vhUnitTest.APPS.PM.Maatwerk.AfbeeldingCodeBepaler.Base,DOM.PM.Maatwerk.RVG.impl.Base</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..AfbeeldingCodeBepaler = ##class(APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor toepassing UnoLinks">
+<Implementation><![CDATA[
+	#dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
+
+	Do ..AssertAfbeeldingCode(RVGKenmerken, "UnoLinks")
+]]></Implementation>
+</Method>
+
+<Method name="Test: AfbeeldingCode voor onbekende toepassing">
+<Implementation><![CDATA[
+	#dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
+	Set RVGKenmerken.Toepassing = "Dummy"
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Afbeeldingcode voor RVG kan niet worden bepaald. Toepassing '" _ RVGKenmerken.Toepassing _"' is niet gekend.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException", Substrings))
+	Do ..AssertAfbeeldingCode(RVGKenmerken, "UnoLinks")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>