Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r69438 -r69526
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69438)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69526)
@@ -79,6 +79,17 @@
 		Set MateriaalCode = "H"
 	}
 	
+	If (IngegevenKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
+		//Pocket Melamine en front HPL
+		If ((IngegevenKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGPlaatMateriaalType).HPL()) && (IngegevenKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGPlaatMateriaalType).Melamine())) {
+			Set MateriaalCode = "A"
+		}
+		//Pocket HPL en front Melamine
+		If ((IngegevenKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGPlaatMateriaalType).HPL()) && (IngegevenKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGPlaatMateriaalType).Melamine())) {
+			Set MateriaalCode = "B"
+		}
+	}
+	
 	Quit MateriaalCode
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r69438 -r69526
--- vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69438)
+++ vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69526)
@@ -97,8 +97,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 8 is de MateriaalCode, maar voorlopig enkel een spatie">
-<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("M", 8)
+<Method name="Test: Positie 8 is de MateriaalCode">
+<Implementation><![CDATA[
+	Do ..AssertPositiesInKorttekst("M", 8)
+	
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGPlaatMateriaalType).HPL()
+	Do ..AssertPositiesInKorttekst("H", 8)
+	
+	Set ..RVGKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGPlaatMateriaalType).Melamine()
+	Do ..AssertPositiesInKorttekst("A", 8)
+	
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGPlaatMateriaalType).Melamine()
+	Set ..RVGKenmerken.TypeMateriaalOppervlakteB = ##class(DOM.PM.enu.RVGPlaatMateriaalType).HPL()
+	Do ..AssertPositiesInKorttekst("B", 8)
 ]]></Implementation>
 </Method>