Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r69229 -r69328
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 69229)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 69328)
@@ -24,15 +24,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AfbeeldingcodeBepaler">
+<Type>APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter="",Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter="",Logger:vhLib.Logger="",AfbeeldingcodeBepaler:APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BlumNaarAXKenmerkenConverter = $$$Inject(BlumNaarAXKenmerkenConverter, ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New())
 	Set ..BlumKenmerkNaarWinkelkarLijnInfoConverter = $$$Inject(BlumKenmerkenNaarWinkelkarLijnInfoConverter, ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New())
+	Set ..AfbeeldingcodeBepaler = $$$Inject(AfbeeldingcodeBepaler, ##class(APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("OCCService"))
 	
 	Quit $$$OK
@@ -117,7 +123,6 @@
 	
 	While (KenmerkenIterator.HasNext()) {
 		Set BlumKenmerk = KenmerkenIterator.Next()
-		
 		#dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
 		Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, GeconverteerdKenmerk)
 		
@@ -174,11 +179,17 @@
 	#dim VerpakkingTypeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk =  ..BlumNaarAXKenmerkenConverter.GeefKenmerk("Verpakkingtype", ##class(DOM.PM.enu.RVGVerpakkingType).Pallet())
 	Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, VerpakkingTypeKenmerk)
 	
-	#dim NominaleLengteRechts As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Nominalelengterechts")
-	#dim ProductieWijze As %String = $Select(NominaleLengteRechts = "450": ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd(), NominaleLengteRechts = "525": ##class(DOM.PM.enu.RVGProductieWijze).LosseComponentenOpMaat(), 1:##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten())
+	#dim ProductieWijze As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Productiewijze")
 	#dim ProductieWijzeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk =  ..BlumNaarAXKenmerkenConverter.GeefKenmerk("Productiewijze", ProductieWijze)
 	Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, ProductieWijzeKenmerk)
 	
+	#dim Toepassing As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Toepassing")
+	#dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
+	Set RVGKenmerken.Toepassing = Toepassing
+	#dim Afbeeldingcode As %String = ..AfbeeldingcodeBepaler.Bepaal(RVGKenmerken)
+	#dim AfbeeldingcodeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk =  ..BlumNaarAXKenmerkenConverter.GeefBerekendKenmerk("Afbeeldingcode", Afbeeldingcode)
+	Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, AfbeeldingcodeKenmerk)	
+	
 	#dim GenerischProductKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefGenerischProductKenmerk(AXConfiguratieArray)
 	Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, GenerischProductKenmerk)
 ]]></Implementation>
@@ -208,8 +219,8 @@
 <FormalSpec>AXConfiguratieArray:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
 	Set GenerischProductKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-	#dim NominaleLengteRechts As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Nominalelengterechts")
-	Set GenerischProductKenmerk.Value = $Select(NominaleLengteRechts = "450": "9.943.991.36", NominaleLengteRechts = "525": "9.956.074.36", 1:"9.953.041.36") // "9.061.336.37")
+	#dim ProductieWijze As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Productiewijze")
+	Set GenerischProductKenmerk.Value = $Select(ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd(): "9.943.991.36", ##class(DOM.PM.enu.RVGProductieWijze).LosseComponentenOpMaat(): "9.956.074.36", 1:"9.953.041.36")
 	Set GenerischProductKenmerk.Name = "Itemid"
 	
 	Quit GenerischProductKenmerk