Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml
===================================================================
diff -u -r69528 -r69530
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 69528)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 69530)
@@ -41,8 +41,15 @@
 	Set RvgKenmerken.CorpusConstructie = ""
 	Set RvgKenmerken.InstelZijde = ""
 	Set RvgKenmerken.DeurSteunNaarBinnen = ""
+	Set RvgKenmerken.DecornaamA = ""
+	Set RvgKenmerken.DecornummerA = ""
+	Set RvgKenmerken.Krasbescherming = ""
+	Set RvgKenmerken.LeverancierA = ""
+	Set RvgKenmerken.MateriaalOpties = ""
+	Set RvgKenmerken.ProductieWijze = ""
+	Set RvgKenmerken.TypeMateriaalOppervlakteA = ""
 	
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|FRONT_PROTRUSION_LEFT:=200|FRONT_PROTRUSION_RIGHT:=314|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=unilin|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_links|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|FRONT_PROTRUSION_LEFT:=200|FRONT_PROTRUSION_RIGHT:=314|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|NOMINAL_LENGTH:=500|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|APPLICATION:=801_links|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3")
 ]]></Implementation>
 </Method>
 
@@ -141,6 +148,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Conversie TypeMateriaalOppervlakteA en B">
+<Implementation><![CDATA[
+	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
+	Set RvgKenmerken.TypeMateriaalOppervlakteA = "DummyMateriaalOppervlakA"
+	Set RvgKenmerken.TypeMateriaalOppervlakteB = "DummyMateriaalOppervlakB"
+	
+	Set RvgKenmerken.MateriaalOpties = "TweeKleuren"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|OPTIONS:=Wooden components with Fronts ? Two Colors|TYPE_OF_MATERIAL_SURFACE_FRONT:=DummyMateriaalOppervlakA|TYPE_OF_MATERIAL_SURFACE_POCKETS:=DummyMateriaalOppervlakB")
+	
+	Set RvgKenmerken.MateriaalOpties = "EenKleur"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|OPTIONS:=Wooden components with Fronts ? One Color|TYPE_OF_MATERIAL_SURFACE_POCKET_AND_FRONT:=DummyMateriaalOppervlakA")
+	
+	Set RvgKenmerken.MateriaalOpties = "GeenFront"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|OPTIONS:=Wooden components without Fronts|TYPE_OF_MATERIAL_SURFACE_POCKET:=DummyMateriaalOppervlakA")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie DecornummerA en B">
+<Implementation><![CDATA[
+	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
+	Set RvgKenmerken.DecornummerA = "DummyDecornummerA"
+	Set RvgKenmerken.DecornummerB = "DummyDecornummerB"
+	
+	Set RvgKenmerken.MateriaalOpties = "TweeKleuren"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_FRONT:=DummyDecornummerA|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKETS:=DummyDecornummerB|OPTIONS:=Wooden components with Fronts ? Two Colors")
+	
+	Set RvgKenmerken.MateriaalOpties = "EenKleur"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET_AND_FRONT:=DummyDecornummerA|OPTIONS:=Wooden components with Fronts ? One Color")
+	
+	Set RvgKenmerken.MateriaalOpties = "GeenFront"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=DummyDecornummerA|OPTIONS:=Wooden components without Fronts")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie DecornaamA en B">
+<Implementation><![CDATA[
+	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
+	Set RvgKenmerken.DecornaamA = "DummyDecornaamA"
+	Set RvgKenmerken.DecornaamB = "DummyDecornaamB"
+	
+	Set RvgKenmerken.MateriaalOpties = "TweeKleuren"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_FRONT:=DummyDecornaamA|DECOR_NAME_POCKETS:=DummyDecornaamB|OPTIONS:=Wooden components with Fronts ? Two Colors")
+	
+	Set RvgKenmerken.MateriaalOpties = "EenKleur"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_POCKET_AND_FRONT:=DummyDecornaamA|OPTIONS:=Wooden components with Fronts ? One Color")
+	
+	Set RvgKenmerken.MateriaalOpties = "GeenFront"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_POCKET:=DummyDecornaamA|OPTIONS:=Wooden components without Fronts")
+]]></Implementation>
+</Method>
+
 <Method name="AssertConversieIngegegevenKenmerkNaarImosKenmerken">
 <FormalSpec>RvgKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken,VerwachtResultaat:%String=""</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml
===================================================================
diff -u -r69528 -r69530
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 69528)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 69530)
@@ -122,7 +122,8 @@
 	Quit:(RvgProperty = "ProductieWijze") "SERVICE_LEVEL"
 	Quit:(RvgProperty = "MateriaalOpties") "OPTIONS"
 	Quit:(RvgProperty = "Krasbescherming") "SCUFF_GUARD"
-	Quit:((RvgProperty = "LeverancierA") || (RvgProperty = "LeverancierB")) ..ConverteerRvgPropertyAOfB(RvgProperty, RvgKenmerken.MateriaalOpties)
+	Quit:((RvgProperty = "LeverancierA") || (RvgProperty = "TypeMateriaalOppervlakteA") || (RvgProperty = "DecornummerA") || (RvgProperty = "DecornaamA")) ..ConverteerRvgPropertyAOfB(RvgProperty, RvgKenmerken.MateriaalOpties)
+	Quit:((RvgProperty = "LeverancierB") || (RvgProperty = "TypeMateriaalOppervlakteB") || (RvgProperty = "DecornummerB") || (RvgProperty = "DecornaamB")) ..ConverteerRvgPropertyAOfB(RvgProperty, RvgKenmerken.MateriaalOpties)
 
 	Quit ""
 ]]></Implementation>
@@ -132,17 +133,27 @@
 <FormalSpec>RvgProperty:%String,MateriaalOpties:DOM.PM.enu.RVGMateriaalOpties</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim GeconverteerdeProperty As %String = ""
+	#dim Type As %String = ""
+	
+	Set:(##class(TECH.StringUtils).StartsWith(RvgProperty, "Leverancier")) GeconverteerdeProperty = "SUPPLIER_"
+	Set:(##class(TECH.StringUtils).StartsWith(RvgProperty, "TypeMateriaalOppervlakte")) GeconverteerdeProperty = "TYPE_OF_MATERIAL_SURFACE_"
+	Set:(##class(TECH.StringUtils).StartsWith(RvgProperty, "Decornummer")) GeconverteerdeProperty = "SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_"
+	Set:(##class(TECH.StringUtils).StartsWith(RvgProperty, "Decornaam")) GeconverteerdeProperty = "DECOR_NAME_"
+	
 	If (MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
-		Quit:(RvgProperty = "LeverancierA") "SUPPLIER_FRONT"
-		Quit:(RvgProperty = "LeverancierB") "SUPPLIER_POCKETS"
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "A")) Type = "FRONT"
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "B")) Type = "POCKETS"
 	} ElseIf (MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).EenKleur()) {
-		Quit:(RvgProperty = "LeverancierA") "SUPPLIER_POCKET_AND_FRONT"
-		Quit:(RvgProperty = "LeverancierB") ""
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "A")) Type = "POCKET_AND_FRONT"
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "B")) Type = ""
 	} ElseIf (MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()) {
-		Quit:(RvgProperty = "LeverancierA") "SUPPLIER_POCKET"
-		Quit:(RvgProperty = "LeverancierB") ""
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "A")) Type = "POCKET"
+		Set:(##class(TECH.StringUtils).EndsWith(RvgProperty, "B")) Type = ""
 	}
 	
+	Quit:($$$HasLength(Type)) GeconverteerdeProperty _ Type
+	
 	Quit ""
 ]]></Implementation>
 </Method>