Index: DOM/PM/enu/TAORFrontBevestiging/AutoComplete.cls.xml
===================================================================
diff -u -r43557 -r50217
--- DOM/PM/enu/TAORFrontBevestiging/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 43557)
+++ DOM/PM/enu/TAORFrontBevestiging/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 50217)
@@ -10,30 +10,32 @@
 <Super>%SerialObject</Super>
 
 <Property name="Drevel">
-<Type>DOM.PM.enu.TAORFrontBevestiging</Type>
+<Type>%String</Type>
 <InitialExpression>"D"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="Expando">
-<Type>DOM.PM.enu.TAORFrontBevestiging</Type>
+<Type>%String</Type>
 <InitialExpression>"E"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="ExpandoT">
+<Type>%String</Type>
+<InitialExpression>"E-T"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Schroef">
-<Type>DOM.PM.enu.TAORFrontBevestiging</Type>
+<Type>%String</Type>
 <InitialExpression>"S"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<StreamLocation>^DOM.PM.enu.TA87D9.AutoCompleteS</StreamLocation>
-</Storage>
 </Class>
 
 
Index: DOM/PM/enu/TAORFrontBevestiging/Verwerker.cls.xml
===================================================================
diff -u -r30206 -r50217
--- DOM/PM/enu/TAORFrontBevestiging/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 30206)
+++ DOM/PM/enu/TAORFrontBevestiging/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 50217)
@@ -16,10 +16,12 @@
 		Do ..VerwerkDrevel()
 	} ElseIf TAORFrontBevestiging = "E" {
 		Do ..VerwerkExpando()
+	} ElseIf TAORFrontBevestiging = "E-T" {
+		Do ..VerwerkExpandoT()
 	} ElseIf TAORFrontBevestiging = "S" {
 		Do ..VerwerkSchroef()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORFrontBevestiging,"DOM.PM.enu.TAORFrontBevestiging")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORFrontBevestiging,"DOM.PM.enu.TAORFrontBevestiging",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
@@ -37,6 +39,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkExpandoT">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkSchroef">
 <Abstract>1</Abstract>
 <Private>1</Private>