Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68262 -r68278
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 68262)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 68278)
@@ -19,15 +19,21 @@
 	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
 	#dim IdentnummerIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumIdentnummers)
 	#dim IsTestRequest As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test")
-	
+	#dim Variant As %String = ..GeefVariant(KenmerkenIterator)
+
 	If IsTestRequest {
 		Set AXConfiguratieArray = ..GeefTestAXConfiguratieArray()
+	} ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) {
+		
+	} Else {
+		#dim OPCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OPCKenmerkenRequest.Header
+
 	}
 	
 	Set NaarAXGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse).%New()
 	Set NaarAXGeconverteerdeKenmerkenResponse.AxKenmerken = AXConfiguratieArray
 	Set NaarAXGeconverteerdeKenmerkenResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker
-	
+
 	Quit NaarAXGeconverteerdeKenmerkenResponse
 ]]></Implementation>
 </Method>
@@ -55,6 +61,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVariant">
+<FormalSpec>KenmerkenIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Variant As %String = ""
+	#dim IsKenmerkNameGevonden As %Boolean = $$$False
+	#dim Kenmerk As WS.Vhisie4.OCC.dto.Kenmerk
+	#dim MeldingAanGebruiker As %String
+	
+	Do KenmerkenIterator.Reset()
+	While (KenmerkenIterator.HasNext() & $$$Not(IsKenmerkNameGevonden)) {
+		Set Kenmerk = KenmerkenIterator.Next()
+		If (##class(TECH.StringUtils).ToLower(Kenmerk.Name) = "programme") {
+			If (##class(TECH.StringUtils).ToLower(Kenmerk.Value) = "revego") {
+				Set Variant = ##class(DOM.PM.enu.Variant).Revego()
+			} Else {
+				Set Variant = Kenmerk.Value
+			}
+			Set IsKenmerkNameGevonden = $$$True
+		}
+	}
+	Do KenmerkenIterator.Reset()
+
+	If ($$$Not($$$HasLength(Variant))) {
+		Set MeldingAanGebruiker = "Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welke 'Variant' het gaat."
+		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
+	} ElseIf ($$$Not(Variant = ##class(DOM.PM.enu.Variant).Revego())) {
+		Set MeldingAanGebruiker = "Het kenmerk 'Programme' bevat een ongeldige waarde '"_Kenmerk.Value_"'. Enkel 'REVEGO' wordt ondersteund."
+		Do ..MeldingenAanGebruiker.Insert(MeldingAanGebruiker)
+	}
+	
+	Quit Variant
+]]></Implementation>
+</Method>
+
 <Method name="GeefTestAXConfiguratieArray">
 <Private>1</Private>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r68262 -r68278
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68262)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68278)
@@ -20,7 +20,7 @@
 <Method name="Test: Request met test-kenmerk geeft response met dummy kenmerken">
 <Implementation><![CDATA[
 	#dim VoegToeTestRequestKenmerk As %Boolean = $$$True
-	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(VoegToeTestRequestKenmerk)
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(0, VoegToeTestRequestKenmerk)
 	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
 	
 	Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 30)
@@ -57,25 +57,76 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: MeldingenAanGebruiker is leeg vanwege het kenmerk &apos;Programme&apos; = &apos;REVEGO&apos;">
+<Implementation><![CDATA[
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,$$$False,"REVEGO")
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MeldingenAanGebruiker indien kenmerk Programme = leeg">
+<Implementation><![CDATA[
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,$$$False,"")
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welke 'Variant' het gaat.")
+]]></Implementation>
+</Method>
+
+<Method name="Test: MeldingenAanGebruiker indien kenmerk Programme = NIET leeg MAAR ook NIET &apos;TANDEMBOX antaro&apos; of &apos;LEGRABOX&apos;">
+<Implementation><![CDATA[
+	#dim DummyVariant As %String = "DummyVariant"
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1,$$$False, DummyVariant)
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New()
+	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1)
+	Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'Programme' bevat een ongeldige waarde '"_DummyVariant_"'. Enkel 'REVEGO' wordt ondersteund.")
+]]></Implementation>
+</Method>
+
 <Method name="GeefRequestMetKenmerken">
-<FormalSpec>IsTestRequest:%Boolean=0</FormalSpec>
+<FormalSpec>AantalKenmerken:%Integer,IsTestRequest:%Boolean=0,ValueKenmerkProgramme:%String="REVEGO"</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest</ReturnType>
 <Implementation><![CDATA[
 	Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest).%New()
 	Set BlumKenmerken = ##class(%ListOfObjects).%New()
 		
 	If IsTestRequest {
-		Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+		Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 		Set Kenmerk.Name = "test"
 		Do BlumKenmerken.Insert(Kenmerk)
 	}
 	
+	If (AantalKenmerken > 0) {
+		Do ..VoegToeVariantKenmerkInBlumKenmerkenLijst(BlumKenmerken, ValueKenmerkProgramme)
+	}
+	
 	Set OPCKenmerkenRequest.BlumKenmerken = BlumKenmerken
 	
 	Quit OPCKenmerkenRequest
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeVariantKenmerkInBlumKenmerkenLijst">
+<FormalSpec>BlumKenmerken:%ListOfObjects,ValueKenmerkProgramme:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set Kenmerk.Name = "Programme"
+	Set Kenmerk.Value = ValueKenmerkProgramme
+	Do BlumKenmerken.Insert(Kenmerk)
+]]></Implementation>
+</Method>
 </Class>