Index: APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/AutoComplete.cls.xml	(revision 0)
+++ APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/AutoComplete.cls.xml	(revision 58926)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.EtiketService.enu.ZaagEtiketType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Sifon">
+<Type>%String</Type>
+<InitialExpression>"Si"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Spoelbak">
+<Type>%String</Type>
+<InitialExpression>"Sp"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Standaard">
+<Type>%String</Type>
+<InitialExpression>"St"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Tipon">
+<Type>%String</Type>
+<InitialExpression>"Ti"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/Verwerker.cls.xml
===================================================================
diff -u -r29361 -r58926
--- APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 29361)
+++ APPS/Halux/PPS/EtiketService/enu/ZaagEtiketType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58926)
@@ -21,7 +21,7 @@
 	} ElseIf ZaagEtiketType = "Ti" {
 		Do ..VerwerkTipon()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ZaagEtiketType,"APPS.Halux.PPS.EtiketService.enu.ZaagEtiketType")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ZaagEtiketType,"APPS.Halux.PPS.EtiketService.enu.ZaagEtiketType",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>