Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r71540 -r72924
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 71540)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 72924)
@@ -79,6 +79,8 @@
 		Set MateriaalCode = "M"
 	} ElseIf (IngegevenKenmerken.TypeMateriaalOppervlakteA = ..Enum.TypeMateriaalOppervlakte.HPL) {
 		Set MateriaalCode = "H"
+	} ElseIf (IngegevenKenmerken.TypeMateriaalOppervlakteA = ..Enum.TypeMateriaalOppervlakte.Raw) {
+		Set MateriaalCode = "R"
 	}
 	
 	If (IngegevenKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
@@ -90,6 +92,16 @@
 		If ((IngegevenKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).HPL()) && (IngegevenKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine())) {
 			Set MateriaalCode = "B"
 		}
+		
+		//Pocket Raw en front niet Raw
+		If ((IngegevenKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw()) && $$$Not(IngegevenKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw())) {
+			Set MateriaalCode = "C"
+		}
+		
+		//Pocket niet Raw en front Raw
+		If ((IngegevenKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw()) && $$$Not(IngegevenKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw())) {
+			Set MateriaalCode = "D"
+		}
 	}
 	
 	If $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
Index: vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r71540 -r72924
--- vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 71540)
+++ vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72924)
@@ -104,6 +104,9 @@
 <Implementation><![CDATA[
 	Do ..AssertPositiesInKorttekst("M", 8)
 	
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw()
+	Do ..AssertPositiesInKorttekst("R", 8)
+	
 	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).HPL()
 	Do ..AssertPositiesInKorttekst("H", 8)
 	
@@ -115,6 +118,14 @@
 	Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).HPL()
 	Do ..AssertPositiesInKorttekst("B", 8)
 	
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw()
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).HPL()
+	Do ..AssertPositiesInKorttekst("D", 8)
+	
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine()
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Raw()
+	Do ..AssertPositiesInKorttekst("C", 8)
+	
 	Set ..RVGKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()
 	Do ..AssertPositiesInKorttekst(" ", 8)
 ]]></Implementation>