Index: APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r30916 -r54561
--- APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 30916)
+++ APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 54561)
@@ -9,19 +9,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProgrammaNaam">
+<Type>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Definieer">
 <Implementation><![CDATA[
 	kill ^RES("APPS.Halux.Machine","PI","KantenbandProgramma","D")
-	Do ..BewaarProgramma("AFKANTEN FINEER", $$$False)
-	Do ..BewaarProgramma("AFKANTEN FINEER MET GROEF", $$$False)
-	Do ..BewaarProgramma("AFKANTEN FINEER 9MM",$$$False)
-	Do ..BewaarProgramma("AFKANTEN MELAMINE", $$$False)
-	Do ..BewaarProgramma("AFKANTEN MELAMINE MET GROEF", $$$False)
-	Do ..BewaarProgramma("AFKANTEN MELAMINE 9MM",$$$False)
-	Do ..BewaarProgramma("SCHIELE ZONDER GROEF", $$$True)
-	Do ..BewaarProgramma("SCHIELE MET GROEF", $$$True)
-	Do ..BewaarProgramma("SCHIELE ZIJKANTGROEF", $$$True)
-	Do ..BewaarProgramma("GROEF", $$$True)
+	
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenFineer, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenFineerMetGroef, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenFineer9mm, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenMelamine, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenMelamineMetGroef, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenMelamine9mm,$$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.SchieleZonderGroef, $$$True)
+	Do ..BewaarProgramma(..ProgrammaNaam.SchieleMetGroef, $$$True)
+	Do ..BewaarProgramma(..ProgrammaNaam.SchieleZijkantGroef, $$$True)
+	Do ..BewaarProgramma(..ProgrammaNaam.Groef, $$$True)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml
===================================================================
diff -u -r54542 -r54561
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 54542)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 54561)
@@ -49,12 +49,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Groef">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "GROEF"
+]]></Implementation>
+</Method>
+
 <Method name="SchieleZonderGroef">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
 <Implementation><![CDATA[	Quit "SCHIELE ZONDER GROEF"
 ]]></Implementation>
 </Method>
+
+<Method name="SchieleMetGroef">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "SCHIELE MET GROEF"
+]]></Implementation>
+</Method>
+
+<Method name="SchieleZijkantGroef">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "SCHIELE ZIJKANTGROEF"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml
===================================================================
diff -u -r54542 -r54561
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 54542)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 54561)
@@ -24,6 +24,12 @@
 		Do ..VerwerkAfkantenMelamine9mm()
 	} ElseIf ProgrammaNaam = "AFKANTEN MELAMINE MET GROEF" {
 		Do ..VerwerkAfkantenMelamineMetGroef()
+	} ElseIf ProgrammaNaam = "GROEF" {
+		Do ..VerwerkGroef()
+	} ElseIf ProgrammaNaam = "SCHIELE MET GROEF" {
+		Do ..VerwerkSchieleMetGroef()
+	} ElseIf ProgrammaNaam = "SCHIELE ZIJKANTGROEF" {
+		Do ..VerwerkSchieleZijkantGroef()
 	} ElseIf ProgrammaNaam = "SCHIELE ZONDER GROEF" {
 		Do ..VerwerkSchieleZonderGroef()
 	} Else {
@@ -69,6 +75,24 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkGroef">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSchieleMetGroef">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSchieleZijkantGroef">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkSchieleZonderGroef">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml
===================================================================
diff -u -r54542 -r54561
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 54542)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 54561)
@@ -51,6 +51,27 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Groef">
+<Type>%String</Type>
+<InitialExpression>"GROEF"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="SchieleMetGroef">
+<Type>%String</Type>
+<InitialExpression>"SCHIELE MET GROEF"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="SchieleZijkantGroef">
+<Type>%String</Type>
+<InitialExpression>"SCHIELE ZIJKANTGROEF"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="SchieleZonderGroef">
 <Type>%String</Type>
 <InitialExpression>"SCHIELE ZONDER GROEF"</InitialExpression>