Index: APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml	(.../UnitIDBepaler.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml	(.../UnitIDBepaler.cls.xml)	(revision 40367)
@@ -31,16 +31,16 @@
 </Method>
 
 <Method name="GeefUnitID">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-    #dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
+#dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
 	
-	If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
-		Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()
+	If VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
+		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
 	}		
-	If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit(){
-		Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()
+	If VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit(){
+		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
 	}
 	
 	#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
@@ -105,13 +105,13 @@
 </Method>
 
 <Method name="RangeBijnaOpgebruikt">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze,VolgendeID:%Integer,Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VolgendeID:%Integer,Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If '$Data(^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt)) || ('^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt))
 	{
 		#dim Procent As %String = (ProcentOpgebruikt*100)_"%"
-		#dim Onderwerp As %String = Procent_" range opgebruikt voor verzendwijze '"_##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"'."
+		#dim Onderwerp As %String = Procent_" range opgebruikt voor verzendwijze '"_##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"'."
 		#dim Inhoud As %String = Onderwerp_$$$CRLF_$$$CRLF
 		Set Inhoud = Inhoud_"Het bereik voor ID's gaat van '"_Bereik.GeefOndergrens()_"' tot '"_Bereik.GeefBovengrens()_"'."_$$$CRLF
 		Set Inhoud = Inhoud_"Nu is ID '"_VolgendeID_"' gebruikt, reeds "_Procent_" opgebruikt."