Index: APPS/Halux/Machine/Kantenband/enu/LijmProgramma/Verwerker.cls.xml
===================================================================
diff -u -r34430 -r63860
--- APPS/Halux/Machine/Kantenband/enu/LijmProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 34430)
+++ APPS/Halux/Machine/Kantenband/enu/LijmProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63860)
@@ -20,12 +20,18 @@
 		Do ..VerwerkC()
 	} ElseIf LijmProgramma = "D" {
 		Do ..VerwerkD()
+	} ElseIf LijmProgramma = "G" {
+		Do ..VerwerkG()
+	} ElseIf LijmProgramma = "H" {
+		Do ..VerwerkH()
 	} ElseIf LijmProgramma = "L" {
 		Do ..VerwerkL()
 	} ElseIf LijmProgramma = "R" {
 		Do ..VerwerkR()
 	} ElseIf LijmProgramma = "X" {
 		Do ..VerwerkX()
+	} ElseIf LijmProgramma = "Y" {
+		Do ..VerwerkY()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(LijmProgramma,"APPS.Halux.Machine.Kantenband.enu.LijmProgramma",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -57,6 +63,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkG">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkH">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkL">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -74,6 +92,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkY">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/enu/LijmProgramma.cls.xml
===================================================================
diff -u -r34430 -r63860
--- APPS/Halux/Machine/Kantenband/enu/LijmProgramma.cls.xml	(.../LijmProgramma.cls.xml)	(revision 34430)
+++ APPS/Halux/Machine/Kantenband/enu/LijmProgramma.cls.xml	(.../LijmProgramma.cls.xml)	(revision 63860)
@@ -6,12 +6,12 @@
 
 <Parameter name="DISPLAYLIST">
 <Type>%String</Type>
-<Default>;A;B;C;D;L;R;X</Default>
+<Default>;A;B;C;D;G;H;L;R;Y;X</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
 <Type>%String</Type>
-<Default>;A;B;C;D;L;R;X</Default>
+<Default>;A;B;C;D;G;H;L;R;Y;X</Default>
 </Parameter>
 
 <Method name="A">
@@ -42,6 +42,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="G">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
+<Implementation><![CDATA[	Quit "G"
+]]></Implementation>
+</Method>
+
+<Method name="H">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
+<Implementation><![CDATA[	Quit "H"
+]]></Implementation>
+</Method>
+
 <Method name="L">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
@@ -56,6 +70,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Y">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
+<Implementation><![CDATA[	Quit "Y"
+]]></Implementation>
+</Method>
+
 <Method name="X">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
Index: APPS/Halux/Machine/Kantenband/enu/LijmProgramma/AutoComplete.cls.xml
===================================================================
diff -u -r43455 -r63860
--- APPS/Halux/Machine/Kantenband/enu/LijmProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 43455)
+++ APPS/Halux/Machine/Kantenband/enu/LijmProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63860)
@@ -37,6 +37,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="G">
+<Type>%String</Type>
+<InitialExpression>"G"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="H">
+<Type>%String</Type>
+<InitialExpression>"H"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="L">
 <Type>%String</Type>
 <InitialExpression>"L"</InitialExpression>
@@ -58,6 +72,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Y">
+<Type>%String</Type>
+<InitialExpression>"Y"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <StreamLocation>^APPS.Halux.Ma6BC6.AutoCompleteS</StreamLocation>