Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml
===================================================================
diff -u -r71291 -r71529
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 71291)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 71529)
@@ -39,6 +39,7 @@
 	
 	Quit:(Toepassing="") ""
 	Quit:(Toepassing=##class(DOM.PM.enu.RVGToepassing).UnoLinks()) "801_links"
+	Quit:(Toepassing=##class(DOM.PM.enu.RVGToepassing).UnoUno()) "801_801"
 	Quit:(Toepassing=##class(DOM.PM.enu.RVGToepassing).UnoDuo()) "801_links_802_rechts"
 	Quit:(Toepassing=##class(DOM.PM.enu.RVGToepassing).UnoRechts()) "801_rechts"
 	Quit:(Toepassing=##class(DOM.PM.enu.RVGToepassing).DuoLinks()) "802_links"
@@ -70,13 +71,14 @@
 		#dim GeconverteerdeWaarde As %String = ..ConverteerRvgValue(Value, Property)
 		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).Replace(GeconverteerdeWaarde, "-", "_")
 		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).Replace(GeconverteerdeWaarde, "?", "_")
-		
 				
 		If ($$$HasLength(GeconverteerdeProperty) && $$$HasLength(GeconverteerdeWaarde)) {
 			Set GeconverteerdeKenmerken = GeconverteerdeKenmerken _ GeconverteerdeProperty _ ..#GelijkAanTeken_GeconverteerdeWaarde_ ..#Delimiter
 		}
 	}
 	
+	Set GeconverteerdeKenmerken = GeconverteerdeKenmerken _ ..GeefExtraGeconcateneerdeVelden(RvgKenmerken, GeconverteerdeKenmerken)
+	
 	If ($$$HasLength(GeconverteerdeKenmerken) && ##class(TECH.StringUtils).EndsWith(GeconverteerdeKenmerken, ..#Delimiter)) {
 		Set GeconverteerdeKenmerken = $Extract(GeconverteerdeKenmerken,0,*-1)
 	}
@@ -198,14 +200,14 @@
 		Set PropertyNaam = Property.Name
 	}
 	
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGDeurOndersteuning).DecoratiefPaneelKastZijwand()) "Abschlussseite"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand()) "Stellseite"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGCorpusConstructie).MetSokkel()) "mit_Sockel"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGCorpusConstructie).ZonderSokkel()) "ohne_Sockel"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGDeurOndersteuning).DecoratiefPaneelKastZijwand()) "for decor panel/cabinet side"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand()) "for partition side"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGCorpusConstructie).MetSokkel()) "with plinth"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGCorpusConstructie).ZonderSokkel()) "without plinth"
 	Quit:(RvgValue = ##class(DOM.PM.enu.Variant).Revego()) "REVEGO"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) "Voorgemonteerd"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponentenOpMaat()) "LosseComponentenOpMaat"
-	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()) "LosseComponenten"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) "assembled"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponentenOpMaat()) "components sized"
+	Quit:(RvgValue = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()) "components only"
 	Quit:(RvgValue = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) "Wooden components with Fronts_Two Colors"
 	Quit:(RvgValue = ##class(DOM.PM.enu.RVGMateriaalOpties).EenKleur()) "Wooden components with Fronts_One Color"
 	Quit:(RvgValue = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()) "Wooden components without Fronts"
@@ -226,9 +228,9 @@
 	#dim GeconverteerdeBoolean As %String = ""
 	
 	If (RvgKenmerk = $$$True) {
-		Set GeconverteerdeBoolean = "ja"
+		Set GeconverteerdeBoolean = "yes"
 	} Else {
-		Set GeconverteerdeBoolean = "nein"
+		Set GeconverteerdeBoolean = "no"
 	}
 	
 	Quit GeconverteerdeBoolean
@@ -303,6 +305,45 @@
 	Quit DataMProduct.GeefKorttekst()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExtraGeconcateneerdeVelden">
+<FormalSpec>RvgKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken,GeconverteerdeKenmerken:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EtraGeconcateneerdeVelden, PocketMateriaal, PocketKleur, FrontMateriaal, FrontKleur As %String = ""
+	
+	If (RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
+		Set PocketMateriaal  = $Piece($Piece(GeconverteerdeKenmerken, "TYPE_OF_MATERIAL_SURFACE_POC"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set PocketKleur = $Piece($Piece(GeconverteerdeKenmerken, "DECOR_NAME_POCKET"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set FrontMateriaal  = $Piece($Piece(GeconverteerdeKenmerken, "TYPE_OF_MATERIAL_SURFACE_FRO"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set FrontKleur = $Piece($Piece(GeconverteerdeKenmerken, "DECOR_NAME_FRONT"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Do ##class(Tools.Wlip).%New(110).String("hierin ja")
+	} ElseIf (RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).EenKleur()) {
+		Set PocketMateriaal  = $Piece($Piece(GeconverteerdeKenmerken, "TYPE_OF_MATERIAL_SURFACE_POC"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set PocketKleur = $Piece($Piece(GeconverteerdeKenmerken, "DECOR_NAME_POCKET_AND_FRONT"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set FrontMateriaal = PocketMateriaal
+		Set FrontKleur = PocketKleur
+	} ElseIf (RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()) {
+		Set PocketMateriaal  = $Piece($Piece(GeconverteerdeKenmerken, "TYPE_OF_MATERIAL_SURFACE_POC"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+		Set PocketKleur = $Piece($Piece(GeconverteerdeKenmerken, "DECOR_NAME_POCKET"_..#GelijkAanTeken, 2), ..#Delimiter, 1)
+	}
+	
+	Set PocketKleur = ##class(TECH.StringUtils).Replace(PocketKleur, "-", "_")
+	Set PocketKleur = ##class(TECH.StringUtils).Replace(PocketKleur, " ", "_")
+	Set FrontKleur = ##class(TECH.StringUtils).Replace(PocketKleur, "-", "_")
+	Set FrontKleur = ##class(TECH.StringUtils).Replace(PocketKleur, " ", "_")
+	
+	If ($$$HasLength(PocketMateriaal) && $$$HasLength(PocketKleur)) {
+		Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET" _ ..#GelijkAanTeken_PocketMateriaal_"_"_PocketKleur_ ..#Delimiter
+		If ($$$Not(RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront())) && ($$$HasLength(FrontMateriaal) && $$$HasLength(FrontKleur)) {
+			Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_FRONT" _ ..#GelijkAanTeken_FrontMateriaal_"_"_FrontKleur_ ..#Delimiter
+			Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET_AND_FRONT" _ ..#GelijkAanTeken_PocketMateriaal_"_"_PocketKleur_"_"_FrontMateriaal_"_"_FrontKleur_ ..#Delimiter
+		}
+	}
+	
+	Quit EtraGeconcateneerdeVelden
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml
===================================================================
diff -u -r71291 -r71529
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 71291)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 71529)
@@ -89,10 +89,10 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	
 	Set RvgKenmerken.InstelZijde = $$$True		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|PARTITION_SIDE:=ja")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|PARTITION_SIDE:=yes")
 	
 	Set RvgKenmerken.InstelZijde = $$$False		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|PARTITION_SIDE:=nein")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|PARTITION_SIDE:=no")
 ]]></Implementation>
 </Method>
 
@@ -101,7 +101,7 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	Set RvgKenmerken.DeurOndersteuning = "DecoratiefPaneelKastZijwand"
 		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DOOR_SUPPORT:=Abschlussseite")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DOOR_SUPPORT:=for decor panel/cabinet side")
 ]]></Implementation>
 </Method>
 
@@ -110,7 +110,7 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	Set RvgKenmerken.DeurOndersteuning = "PartitieZijwand"
 		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DOOR_SUPPORT:=Stellseite")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DOOR_SUPPORT:=for partition side")
 ]]></Implementation>
 </Method>
 
@@ -119,7 +119,7 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	Set RvgKenmerken.CorpusConstructie = "MetSokkel"
 		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|CABINET_DESIGN:=mit_Sockel")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|CABINET_DESIGN:=with plinth")
 ]]></Implementation>
 </Method>
 
@@ -128,7 +128,7 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	Set RvgKenmerken.CorpusConstructie = "ZonderSokkel"
 		
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|CABINET_DESIGN:=ohne_Sockel")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|CABINET_DESIGN:=without plinth")
 ]]></Implementation>
 </Method>
 
@@ -137,13 +137,13 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	
 	Set RvgKenmerken.ProductieWijze = "VG"
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=Voorgemonteerd")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=assembled")
 	
 	Set RvgKenmerken.ProductieWijze = "LCM"
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=LosseComponentenOpMaat")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=components sized")
 	
 	Set RvgKenmerken.ProductieWijze = "LC"
-	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=LosseComponenten")
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|SERVICE_LEVEL:=components only")
 ]]></Implementation>
 </Method>
 
@@ -230,6 +230,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Conversie DecornaamA en B en TypeMateriaalOppervlakteA 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.TypeMateriaalOppervlakteA = "DummyMateriaalOppervlakA"
+	Set RvgKenmerken.TypeMateriaalOppervlakteB = "DummyMateriaalOppervlakB"
+	
+	Set RvgKenmerken.MateriaalOpties = "TweeKleuren"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_POCKET:=DummyDecornaamA|DECOR_NAME_FRONT:=DummyDecornaamB|OPTIONS:=Wooden components with Fronts_Two Colors|TYPE_OF_MATERIAL_SURFACE_POC:=DummyMateriaalOppervlakA|TYPE_OF_MATERIAL_SURFACE_FRO:=DummyMateriaalOppervlakB|BOARD_MATERIAL_POCKET:=DummyMateriaalOppervlakA_DummyDecornaamA|BOARD_MATERIAL_FRONT:=DummyMateriaalOppervlakB_DummyDecornaamA|BOARD_MATERIAL_POCKET_AND_FRONT:=DummyMateriaalOppervlakA_DummyDecornaamA_DummyMateriaalOppervlakB_DummyDecornaamA")
+	
+	Set RvgKenmerken.MateriaalOpties = "EenKleur"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_POCKET_AND_FRONT:=DummyDecornaamA|OPTIONS:=Wooden components with Fronts_One Color|TYPE_OF_MATERIAL_SURFACE_POC:=DummyMateriaalOppervlakA|BOARD_MATERIAL_POCKET:=DummyMateriaalOppervlakA_DummyDecornaamA|BOARD_MATERIAL_FRONT:=DummyMateriaalOppervlakA_DummyDecornaamA|BOARD_MATERIAL_POCKET_AND_FRONT:=DummyMateriaalOppervlakA_DummyDecornaamA_DummyMateriaalOppervlakA_DummyDecornaamA")
+	
+	Set RvgKenmerken.MateriaalOpties = "GeenFront"
+	Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|DECOR_NAME_POCKET:=DummyDecornaamA|OPTIONS:=Wooden components without Fronts|TYPE_OF_MATERIAL_SURFACE_POC:=DummyMateriaalOppervlakA|BOARD_MATERIAL_POCKET:=DummyMateriaalOppervlakA_DummyDecornaamA")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Conversie Nominale lengte exact">
 <Implementation><![CDATA[
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()