Index: APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r41816 -r41831
--- APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41816)
+++ APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41831)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.GLS.GLSv1.impl.GLSEigenschappen">
-<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.GLSEigenschappen</Super>
+<Super>APPS.TRANSP.GLS.GLSv1.impl.RegisteredObject,APPS.TRANSP.GLS.GLSv1.GLSEigenschappen</Super>
 
 <Parameter name="FreightGebruikerID">
 <Description>
@@ -37,14 +37,14 @@
 
 <Property name="DienstBepaler">
 <Type>APPS.TRANSP.GLS.GLSv1.impl.DienstBepaler</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim CommunicatieService As APPS.TRANSP.GLS.impl.CommunicatieServiceLocator = ##class(APPS.TRANSP.GLS.GLSv1.impl.CommunicatieServiceLocator).%New()
 	Set ..DienstBepaler = CommunicatieService.GeefDienstBepaler()
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -57,9 +57,9 @@
 <Implementation><![CDATA[
 	#dim GLSContactID As %String
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = ..DienstBepaler.GeefDienst(VerzendWijze)
-	If (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight()){
+	If (Dienst = ..Enum.Dienst.Freight){
 		Set GLSContactID = ..#FreightGLSContactID
-	}ElseIf (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel()){
+	}ElseIf (Dienst = ..Enum.Dienst.Parcel){
 		Set GLSContactID = ..#ParcelGLSContactID	
 	}else {
 		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_VerzendWijze_"' is niet ondersteund.")
@@ -77,9 +77,9 @@
 <Implementation><![CDATA[
 	#dim GLSGebruikerID As %String
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = ..DienstBepaler.GeefDienst(VerzendWijze)
-	If (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight()){
+	If (Dienst = ..Enum.Dienst.Freight){
 		Set GLSGebruikerID = ..#FreightGLSGebruikerID
-	}ElseIf (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel()){
+	}ElseIf (Dienst = ..Enum.Dienst.Parcel){
 		Set GLSGebruikerID = ..#ParcelGLSGebruikerID
 	}else {
 		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_VerzendWijze_"' is niet ondersteund.")
@@ -97,9 +97,9 @@
 <Implementation><![CDATA[
 	#dim GebruikerID As %String
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = ..DienstBepaler.GeefDienst(VerzendWijze)
-	If (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight()){
+	If (Dienst = ..Enum.Dienst.Freight){
 		Set GebruikerID = ..#FreightGebruikerID
-	}ElseIf (Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel()){
+	}ElseIf (Dienst = ..Enum.Dienst.Parcel){
 		Set GebruikerID = ..#ParcelGebruikerID
 	}else {
 		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_VerzendWijze_"' is niet ondersteund.")
@@ -117,11 +117,11 @@
 	
 	#dim Bereik As TECH.Bereik
 	
-	If (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()) {
+	If (VerzendWijze = ..Enum.VerzendWijze.Parcel) {
 		Set Bereik = ..GeefBereikParcel()
-	} ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){			
+	} ElseIf VerzendWijze = ..Enum.VerzendWijze.ParcelCashOnDeliver{			
 		Set Bereik = ..GeefBereikParcelCashOnDelivery()
-	} ElseIf ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())) {
+	} ElseIf ((VerzendWijze = ..Enum.VerzendWijze.Freight)) {
 		Set Bereik = ..GeefBereikFreight()
 	}
 	Quit Bereik
@@ -132,9 +132,9 @@
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[
-	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
-	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),HuidigeRange,"Ondergrens")
-	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),HuidigeRange,"Bovengrens")
+	#dim BereikId As %Integer = ..GeefBereikIdVoorVerzendWijze(..Enum.VerzendWijze.Parcel)
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.Parcel,BereikId,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.Parcel,BereikId,"Bovengrens")
 	
 	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
@@ -144,9 +144,9 @@
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[
-	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())	
-	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),HuidigeRange,"Ondergrens")
-	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),HuidigeRange,"Bovengrens")
+	#dim BereikId As %Integer = ..GeefBereikIdVoorVerzendWijze(..Enum.VerzendWijze.ParcelCashOnDelivery)	
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.ParcelCashOnDeliver,BereikId,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.ParcelCashOnDeliver,BereikId,"Bovengrens")
 
 	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
@@ -156,9 +156,9 @@
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[
-	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())	
-	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),HuidigeRange,"Ondergrens")
-	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),HuidigeRange,"Bovengrens")
+	#dim BereikId As %Integer = ..GeefBereikIdVoorVerzendWijze(..Enum.VerzendWijze.Freight)	
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.Freight,BereikId,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(..Enum.VerzendWijze.Freight,BereikId,"Bovengrens")
 
 	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
@@ -176,9 +176,9 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
-	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
-	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery()
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,..Enum.VerzendWijze.Parcel,..Enum.VerzendWijze.ParcelDeposit)) ..Enum.VerzendWijze.Parcel
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,..Enum.VerzendWijze.Freight,..Enum.VerzendWijze.FreightCashOnDelivery)) ..Enum.VerzendWijze.Freight
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,..Enum.VerzendWijze.ParcelCashOnDeliver)) ..Enum.VerzendWijze.ParcelCashOnDeliver
 
 	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"' is niet ondersteund."))
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/AutoComplete.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/AutoComplete.cls.xml	(revision 41831)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze.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="Freight">
+<Type>%String</Type>
+<InitialExpression>"Freight"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="FreightCashOnDelivery">
+<Type>%String</Type>
+<InitialExpression>"FreightCOD"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Parcel">
+<Type>%String</Type>
+<InitialExpression>"Parcel"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ParcelCashOnDelivery">
+<Type>%String</Type>
+<InitialExpression>"ParcelCOD"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ParcelDeposit">
+<Type>%String</Type>
+<InitialExpression>"ParcelDeposit"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/enu/Dienst.cls.xml
===================================================================
diff -u -r40358 -r41831
--- APPS/TRANSP/GLS/GLSv1/enu/Dienst.cls.xml	(.../Dienst.cls.xml)	(revision 40358)
+++ APPS/TRANSP/GLS/GLSv1/enu/Dienst.cls.xml	(.../Dienst.cls.xml)	(revision 41831)
@@ -3,7 +3,7 @@
 <Class name="APPS.TRANSP.GLS.GLSv1.enu.Dienst">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%EnumString</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="MAXLEN">
 <Type>%Integer</Type>
Index: APPS/TRANSP/GLS/GLSv1/impl/RegisteredObject.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/impl/RegisteredObject.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/impl/RegisteredObject.cls.xml	(revision 41831)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.RegisteredObject">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Enum">
+<Type>APPS.TRANSP.GLS.GLSv1.impl.Enum</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/enu/Dienst/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/enu/Dienst/Verwerker.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/enu/Dienst/Verwerker.cls.xml	(revision 41831)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.enu.Dienst.Verwerker">
+<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 methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Dienst:APPS.TRANSP.GLS.GLSv1.enu.Dienst</FormalSpec>
+<Implementation><![CDATA[
+	If Dienst = "Freight" {
+		Do ..VerwerkFreight()
+	} ElseIf Dienst = "Parcel" {
+		Do ..VerwerkParcel()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Dienst,"APPS.TRANSP.GLS.GLSv1.enu.Dienst",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFreight">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkParcel">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/impl/Enum.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/impl/Enum.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/impl/Enum.cls.xml	(revision 41831)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.Enum">
+<Super>%Library.SerialObject</Super>
+
+<Property name="VerzendWijze">
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze.AutoComplete</Type>
+</Property>
+
+<Property name="Dienst">
+<Type>APPS.TRANSP.GLS.GLSv1.enu.Dienst.AutoComplete</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>EnumState</State>
+<StreamLocation>^APPS.TRANSP.GLS.GLSv1222E.EnumS</StreamLocation>
+<Data name="EnumState">
+<Value name="1">
+<Value>VerzendWijze</Value>
+</Value>
+<Value name="2">
+<Value>Dienst</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml
===================================================================
diff -u -r40367 -r41831
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 40367)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 41831)
@@ -24,7 +24,7 @@
 	} ElseIf VerzendWijze = "ParcelDeposit" {
 		Do ..VerwerkParcelDeposit()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VerzendWijze,"APPS.TRANSP.GLS.Bericht.enu.VerzendWijze")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VerzendWijze,"APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/enu/Dienst/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/enu/Dienst/AutoComplete.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/enu/Dienst/AutoComplete.cls.xml	(revision 41831)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.enu.Dienst.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="Freight">
+<Type>%String</Type>
+<InitialExpression>"Freight"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Parcel">
+<Type>%String</Type>
+<InitialExpression>"Parcel"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>