Index: DOM/PM/enu/MVXFrontBevestiging.cls.xml
===================================================================
diff -u -r64593 -r67254
--- DOM/PM/enu/MVXFrontBevestiging.cls.xml	(.../MVXFrontBevestiging.cls.xml)	(revision 64593)
+++ DOM/PM/enu/MVXFrontBevestiging.cls.xml	(.../MVXFrontBevestiging.cls.xml)	(revision 67254)
@@ -8,13 +8,20 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;D;E;ET;I;S</Default>
+<Default>;D;E;ET;I;S;A</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Drevel;Expando;ExpandoT;Inserta;Schroef</Default>
+<Default>;Drevel;Expando;ExpandoT;Inserta;Schroef;AluVolKern</Default>
 </Parameter>
 
+<Method name="AluVolkern">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.MVXFrontBevestiging</ReturnType>
+<Implementation><![CDATA[	Quit "A"
+]]></Implementation>
+</Method>
+
 <Method name="Drevel">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.MVXFrontBevestiging</ReturnType>
Index: DOM/PM/enu/MVXFrontBevestiging/AutoComplete.cls.xml
===================================================================
diff -u -r64593 -r67254
--- DOM/PM/enu/MVXFrontBevestiging/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64593)
+++ DOM/PM/enu/MVXFrontBevestiging/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67254)
@@ -9,6 +9,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
+<Property name="AluVolkern">
+<Type>%String</Type>
+<InitialExpression>"A"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Drevel">
 <Type>%String</Type>
 <InitialExpression>"D"</InitialExpression>
Index: DOM/PM/enu/MVXFrontBevestiging/Verwerker.cls.xml
===================================================================
diff -u -r64593 -r67254
--- DOM/PM/enu/MVXFrontBevestiging/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64593)
+++ DOM/PM/enu/MVXFrontBevestiging/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67254)
@@ -12,7 +12,9 @@
 <Final>1</Final>
 <FormalSpec>MVXFrontBevestiging:DOM.PM.enu.MVXFrontBevestiging</FormalSpec>
 <Implementation><![CDATA[
-	If MVXFrontBevestiging = "D" {
+	If MVXFrontBevestiging = "A" {
+		Do ..VerwerkAluVolkern()
+	} ElseIf MVXFrontBevestiging = "D" {
 		Do ..VerwerkDrevel()
 	} ElseIf MVXFrontBevestiging = "E" {
 		Do ..VerwerkExpando()
@@ -29,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkAluVolkern">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDrevel">
 <Abstract>1</Abstract>
 <Private>1</Private>