Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml
===================================================================
diff -u -r56770 -r56814
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 56770)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 56814)
@@ -9,48 +9,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
-<Property name="AfkantenFineer">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN FINEER"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="AfkantenFineer9mm">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN FINEER 9MM"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="AfkantenFineerMetGroef">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN FINEER MET GROEF"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="AfkantenMelamine">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN MELAMINE"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="AfkantenMelamine9mm">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN MELAMINE 9MM"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="AfkantenMelamineMetGroef">
-<Type>%String</Type>
-<InitialExpression>"AFKANTEN MELAMINE MET GROEF"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="BE13">
 <Type>%String</Type>
 <InitialExpression>"BE_13"</InitialExpression>
@@ -170,13 +128,6 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Groef">
-<Type>%String</Type>
-<InitialExpression>"GROEF"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="MB13">
 <Type>%String</Type>
 <InitialExpression>"MB_13"</InitialExpression>
@@ -289,27 +240,6 @@
 <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>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="XE13">
 <Type>%String</Type>
 <InitialExpression>"XE_13"</InitialExpression>
@@ -372,27 +302,6 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Property name="ZonderSchieleAfkantenFineer">
-<Type>%String</Type>
-<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="ZonderSchieleAfkantenFineer9mm">
-<Type>%String</Type>
-<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER 9MM"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
-<Property name="ZonderSchieleAfkantenFineerMetGroef">
-<Type>%String</Type>
-<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER MET GROEF"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml
===================================================================
diff -u -r56770 -r56814
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 56770)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 56814)
@@ -4,100 +4,9 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;AFKANTEN FINEER;AFKANTEN FINEER 9MM;AFKANTEN FINEER MET GROEF;AFKANTEN MELAMINE;AFKANTEN MELAMINE 9MM;AFKANTEN MELAMINE MET GROEF;SCHIELE ZONDER GROEF;NE_13;ZY_13;NN_13;BE_13;SY_13;MB_13;XE_13;PVC_13;X_PVC_13;NE_9;ZY_9;NN_9;BE_9;SY_9;MB_9;XE_9;PVC_9;X_PVC_9;NE_13_G;ZY_13_G;NN_13_G;BE_13_G;SY_13_G;MB_13_G;XE_13_G;PVC_13_G;X_PVC_13_G;BI_NE_13;BI_ZY_13;BI_NN_13;BI_BE_13;BI_SY_13;BI_MB_13;BI_XE_13;BI_NE_13_G;BI_ZY_13_G;BI_NN_13_G;BI_BE_13_G;BI_SY_13_G;BI_MB_13_G;BI_XE_13_G;SCHIELE</Default>
+<Default>;NE_13;ZY_13;NN_13;BE_13;SY_13;MB_13;XE_13;PVC_13;X_PVC_13;NE_9;ZY_9;NN_9;BE_9;SY_9;MB_9;XE_9;PVC_9;X_PVC_9;NE_13_G;ZY_13_G;NN_13_G;BE_13_G;SY_13_G;MB_13_G;XE_13_G;PVC_13_G;X_PVC_13_G;BI_NE_13;BI_ZY_13;BI_NN_13;BI_BE_13;BI_SY_13;BI_MB_13;BI_XE_13;BI_NE_13_G;BI_ZY_13_G;BI_NN_13_G;BI_BE_13_G;BI_SY_13_G;BI_MB_13_G;BI_XE_13_G;SCHIELE</Default>
 </Parameter>
 
-<Method name="AfkantenFineer">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN FINEER"
-]]></Implementation>
-</Method>
-
-<Method name="AfkantenFineer9mm">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN FINEER 9MM"
-]]></Implementation>
-</Method>
-
-<Method name="AfkantenFineerMetGroef">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN FINEER MET GROEF"
-]]></Implementation>
-</Method>
-
-<Method name="AfkantenMelamine">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN MELAMINE"
-]]></Implementation>
-</Method>
-
-<Method name="AfkantenMelamine9mm">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN MELAMINE 9MM"
-]]></Implementation>
-</Method>
-
-<Method name="AfkantenMelamineMetGroef">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "AFKANTEN MELAMINE MET GROEF"
-]]></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>
-
-<Method name="ZonderSchieleAfkantenFineer">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER"
-]]></Implementation>
-</Method>
-
-<Method name="ZonderSchieleAfkantenFineerMetGroef">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER MET GROEF"
-]]></Implementation>
-</Method>
-
-<Method name="ZonderSchieleAfkantenFineer9mm">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
-<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER 9MM"
-]]></Implementation>
-</Method>
-
 <Method name="NE13">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml
===================================================================
diff -u -r56770 -r56814
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 56770)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 56814)
@@ -12,19 +12,7 @@
 <Final>1</Final>
 <FormalSpec>ProgrammaNaam:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
 <Implementation><![CDATA[
-	If ProgrammaNaam = "AFKANTEN FINEER" {
-		Do ..VerwerkAfkantenFineer()
-	} ElseIf ProgrammaNaam = "AFKANTEN FINEER 9MM" {
-		Do ..VerwerkAfkantenFineer9mm()
-	} ElseIf ProgrammaNaam = "AFKANTEN FINEER MET GROEF" {
-		Do ..VerwerkAfkantenFineerMetGroef()
-	} ElseIf ProgrammaNaam = "AFKANTEN MELAMINE" {
-		Do ..VerwerkAfkantenMelamine()
-	} ElseIf ProgrammaNaam = "AFKANTEN MELAMINE 9MM" {
-		Do ..VerwerkAfkantenMelamine9mm()
-	} ElseIf ProgrammaNaam = "AFKANTEN MELAMINE MET GROEF" {
-		Do ..VerwerkAfkantenMelamineMetGroef()
-	} ElseIf ProgrammaNaam = "BE_13" {
+	If ProgrammaNaam = "BE_13" {
 		Do ..VerwerkBE13()
 	} ElseIf ProgrammaNaam = "BE_13_G" {
 		Do ..VerwerkBE13G()
@@ -58,8 +46,6 @@
 		Do ..VerwerkBIZY13()
 	} ElseIf ProgrammaNaam = "BI_ZY_13_G" {
 		Do ..VerwerkBIZY13G()
-	} ElseIf ProgrammaNaam = "GROEF" {
-		Do ..VerwerkGroef()
 	} ElseIf ProgrammaNaam = "MB_13" {
 		Do ..VerwerkMB13()
 	} ElseIf ProgrammaNaam = "MB_13_G" {
@@ -92,12 +78,6 @@
 		Do ..VerwerkSY9()
 	} ElseIf ProgrammaNaam = "SCHIELE" {
 		Do ..VerwerkSchiele()
-	} ElseIf ProgrammaNaam = "SCHIELE MET GROEF" {
-		Do ..VerwerkSchieleMetGroef()
-	} ElseIf ProgrammaNaam = "SCHIELE ZIJKANTGROEF" {
-		Do ..VerwerkSchieleZijkantGroef()
-	} ElseIf ProgrammaNaam = "SCHIELE ZONDER GROEF" {
-		Do ..VerwerkSchieleZonderGroef()
 	} ElseIf ProgrammaNaam = "XE_13" {
 		Do ..VerwerkXE13()
 	} ElseIf ProgrammaNaam = "XE_13_G" {
@@ -116,55 +96,13 @@
 		Do ..VerwerkZY13G()
 	} ElseIf ProgrammaNaam = "ZY_9" {
 		Do ..VerwerkZY9()
-	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER" {
-		Do ..VerwerkZonderSchieleAfkantenFineer()
-	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER 9MM" {
-		Do ..VerwerkZonderSchieleAfkantenFineer9mm()
-	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER MET GROEF" {
-		Do ..VerwerkZonderSchieleAfkantenFineerMetGroef()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProgrammaNaam,"APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkAfkantenFineer">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkAfkantenFineer9mm">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkAfkantenFineerMetGroef">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkAfkantenMelamine">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkAfkantenMelamine9mm">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkAfkantenMelamineMetGroef">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkBE13">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -267,12 +205,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkGroef">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkMB13">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -369,24 +301,6 @@
 <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>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkXE13">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -440,24 +354,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="VerwerkZonderSchieleAfkantenFineer">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkZonderSchieleAfkantenFineer9mm">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwerkZonderSchieleAfkantenFineerMetGroef">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>