Index: DOM/PM/enu/TAORConcept/Verwerker.cls.xml
===================================================================
diff -u -r29411 -r33818
--- DOM/PM/enu/TAORConcept/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 29411)
+++ DOM/PM/enu/TAORConcept/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 33818)
@@ -17,8 +17,10 @@
 		Do ..VerwerkBaliko()
 	} ElseIf TAORConcept = "V" {
 		Do ..VerwerkValinge()
+	} ElseIf TAORConcept = "VB" {
+		Do ..VerwerkValingeBaliko()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORConcept,"DOM.PM.enu.TAORConcept")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORConcept,"DOM.PM.enu.TAORConcept",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
@@ -35,6 +37,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkValingeBaliko">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/enu/TAORConcept/AutoComplete.cls.xml
===================================================================
diff -u -r30453 -r33818
--- DOM/PM/enu/TAORConcept/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 30453)
+++ DOM/PM/enu/TAORConcept/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 33818)
@@ -22,6 +22,13 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="ValingeBaliko">
+<Type>DOM.PM.enu.TAORConcept</Type>
+<InitialExpression>"VB"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
 </Class>
 
 
Index: DOM/PM/enu/TAORConcept.cls.xml
===================================================================
diff -u -r29059 -r33818
--- DOM/PM/enu/TAORConcept.cls.xml	(.../TAORConcept.cls.xml)	(revision 29059)
+++ DOM/PM/enu/TAORConcept.cls.xml	(.../TAORConcept.cls.xml)	(revision 33818)
@@ -5,26 +5,33 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Valinge;Baliko</Default>
+<Default>;Valinge;Baliko;ValingeBaliko</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>;V;B</Default>
+<Default>;V;B;ValingeBaliko</Default>
 </Parameter>
 
 <Method name="Valinge">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
-<Implementation><![CDATA[	quit "V"
+<Implementation><![CDATA[	Quit "V"
 ]]></Implementation>
 </Method>
 
 <Method name="Baliko">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
-<Implementation><![CDATA[	quit "B"
+<Implementation><![CDATA[	Quit "B"
 ]]></Implementation>
 </Method>
+
+<Method name="ValingeBaliko">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
+<Implementation><![CDATA[	Quit "VB"
+]]></Implementation>
+</Method>
 </Class>