FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/VerzendWijze.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/data/VerzendData.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 40367)
@@ -9,20 +9,20 @@
 </Property>
 
 <Property name="VerzendWijze">
-<Type>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</Type>
 <Required>1</Required>
 </Property>
 
 <Property name="Status">
-<Type>APPS.TRANSP.GLS.Bericht.enu.Status</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status</Type>
 </Property>
 
 <Property name="LaatsteRequestType">
-<Type>APPS.TRANSP.GLS.Bericht.enu.RequestType</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</Type>
 </Property>
 
 <Property name="Response">
-<Type>APPS.TRANSP.GLS.Bericht.dto.Response</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Type>
 <Parameter name="CLASSNAME" value="1"/>
 </Property>
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringBuitenEuropaMetColli.cls.xml
===================================================================
diff -u -r32434 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringBuitenEuropaMetColli.cls.xml	(.../TestLeveringBuitenEuropaMetColli.cls.xml)	(revision 32434)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringBuitenEuropaMetColli.cls.xml	(.../TestLeveringBuitenEuropaMetColli.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -15,9 +15,9 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do $$$AssertEquals(Request.T210,"20","Freight Terms")
 	Do $$$AssertEquals(Request.T8748,"","Mag enkel voor landen BE,DE,PL,PT,AT,LU en IE er in zitten, als leeg is, dan wordt de tag niet geëxporteerd naar gls.")
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/UnitIDBepalerMock.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/UnitIDBepalerMock.cls.xml	(.../UnitIDBepalerMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/UnitIDBepalerMock.cls.xml	(.../UnitIDBepalerMock.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 <Super>APPS.TRANSP.GLS.impl.UnitIDBepaler</Super>
 
 <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[	quit ##class(TECH.StringUtils).AddLeadingChar(VerzendWijze,"0",12)
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryRequest.cls.xml	(.../Bericht/dto/FreightCashOnDeliveryRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryRequest.cls.xml	(.../GLSv1/Bericht/dto/FreightCashOnDeliveryRequest.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest">
-<Super>APPS.TRANSP.GLS.Bericht.dto.FreightRequest</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest</Super>
 
 <Property name="T203">
 <Description>
@@ -19,6 +19,10 @@
 <Required>1</Required>
 <Parameter name="MAXLEN" value="100"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml	(.../Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml	(.../GLSv1/Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelResponse,APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse,APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelDeposit.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelDeposit.cls.xml	(.../TestLeveringMetParcelDeposit.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelDeposit.cls.xml	(.../TestLeveringMetParcelDeposit.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -20,10 +20,10 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())
 	If $$$AssertEquals(Requests.Count(),1){
-		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest")){
-			#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)
+		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest")){
+			#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)
 	
 			Do ..AssertGLSBasis(Request)
 			Do ..AssertAdressen(Request)
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/Status.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelReleaseResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/RequestType.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/RequestType.cls.xml	(.../Bericht/enu/RequestType.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/RequestType.cls.xml	(.../GLSv1/Bericht/enu/RequestType.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.RequestType">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Enumeration</Super>
@@ -15,21 +15,21 @@
 
 <Method name="Registratie">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
 <Implementation><![CDATA[	quit "Registratie"
 ]]></Implementation>
 </Method>
 
 <Method name="Annulatie">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
 <Implementation><![CDATA[	quit "Annulatie"
 ]]></Implementation>
 </Method>
 
 <Method name="Confirmatie">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
 <Implementation><![CDATA[	quit "Confirmatie"
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelRequest.cls.xml	(.../Bericht/dto/ParcelRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelRequest.cls.xml	(.../GLSv1/Bericht/dto/ParcelRequest.cls.xml)	(revision 40367)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelRequest">
-<Super>APPS.TRANSP.GLS.Bericht.dto.Request</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</Super>
 
 <Property name="T206">
 <Description>
 Product type</Description>
-<Type>APPS.TRANSP.GLS.Bericht.enu.ServiceType</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType</Type>
 </Property>
 
 <Property name="T530">
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml
===================================================================
diff -u -r31998 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml	(.../TestLeveringMetFreightCashOnDelivery.cls.xml)	(revision 31998)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightCashOnDelivery.cls.xml	(.../TestLeveringMetFreightCashOnDelivery.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 500
@@ -21,10 +21,10 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
 	If $$$AssertEquals(Requests.Count(),1){
-		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest")){
-			#dim Request As APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(1)
+		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest")){
+			#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(1)
 	
 			Do ..AssertGLSBasis(Request)
 			Do ..AssertAdressen(Request)
@@ -40,7 +40,7 @@
 
 <Method name="TestMultiPallet">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 633
@@ -51,15 +51,15 @@
 	Set VerpakkingEenheid.Aantal = 3
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
 	
 	#dim RequestCount As %Integer = 3
 	
 	If $$$AssertEquals(Requests.Count(),RequestCount) {
 		#dim RequestItemIndex As %Integer
 		for RequestItemIndex = 1 : 1 : RequestCount  {
-			If $$$AssertTrue(Requests.GetAt(RequestItemIndex).%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest")) {
-				#dim Request As APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(RequestItemIndex)	
+			If $$$AssertTrue(Requests.GetAt(RequestItemIndex).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest")) {
+				#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(RequestItemIndex)	
 				Do ..AssertGLSBasis(Request)
 				Do ..AssertAdressen(Request)
 				Do ..AssertRequestBasis(Request)
@@ -75,7 +75,7 @@
 </Method>
 
 <Method name="AssertStandaardCOD">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T750,"CASH-SERVICE")
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml
===================================================================
diff -u -r29575 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml	(.../TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml)	(revision 29575)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml	(.../TestLeveringMetFreightLanggoedEnColliCashOnDelivery.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 
 <Method name="TestCODEnkelOpEersteVerzendwijzeType">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 500
@@ -24,21 +24,21 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
 	If $$$AssertEquals(Requests.Count(),3){
-		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest")){
-			#dim Request As APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(1)
+		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest")){
+			#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest = Requests.GetAt(1)
 					
 			Do ..AssertCODIngevuld(Request)
 		}
 		
-		If $$$AssertTrue(Requests.GetAt(2).%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightRequest")){
+		If $$$AssertTrue(Requests.GetAt(2).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest")){
 			Set Request = Requests.GetAt(2)	
 			
 			Do ..AssertGeenCODIngevuld(Request)
 		}
 		
-		If $$$AssertTrue(Requests.GetAt(3).%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightRequest")){
+		If $$$AssertTrue(Requests.GetAt(3).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest")){
 			Set Request = Requests.GetAt(3)	
 			
 			Do ..AssertGeenCODIngevuld(Request)
@@ -48,7 +48,7 @@
 </Method>
 
 <Method name="AssertGeenCODIngevuld">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.FreightRequest</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T203,"")
@@ -60,7 +60,7 @@
 </Method>
 
 <Method name="AssertCODIngevuld">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.FreightRequest</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T203,"C")
Index: vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml	(.../TestEtiketBouwerResponseVisitor.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml	(.../TestEtiketBouwerResponseVisitor.cls.xml)	(revision 40367)
@@ -18,14 +18,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	;Arrange
-	#dim Response As %String = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightResponse).%New()
+	#dim Response As %String = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse).%New()
 	Set Response.T979 = Input
 	
 	;Act
 	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkFreightResponse(Response)
 	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()		
-	#dim VerwerkteResponse As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = Etiket.Response
+	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = Etiket.Response
 	
 	;Assert
 	Do $$$AssertEquals(VerwerkteResponse.T979,"22720256904005")
@@ -35,14 +35,14 @@
 <Method name="TestT8902InParcelResponse">
 <Implementation><![CDATA[
 	;Arrange
-	#dim Response As %String = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New()
+	#dim Response As %String = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New()
 	Set Response.T8902 = "Test15CharsLang"
 	
 	;Act
 	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkParcelResponse(Response)
 	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()
-	#dim VerwerkteResponse As APPS.TRANSP.GLS.Bericht.dto.ParcelResponse = Etiket.Response
+	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response
 	
 	;Assert
 	Do $$$AssertEquals(VerwerkteResponse.T8902,##class(TECH.StringUtils).AddTrailingSpace("Test15CharsLang",123),"Trailing space toegevoegd.")
@@ -53,14 +53,14 @@
 <Method name="TestT8903InParcelResponse">
 <Implementation><![CDATA[
 	;Arrange
-	#dim Response As %String = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New()
+	#dim Response As %String = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New()
 	Set Response.T8903 = "T]nog tekst]nog iets]nog wat]abc"
 	
 	;Act
 	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkParcelResponse(Response)
 	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()
-	#dim VerwerkteResponse As APPS.TRANSP.GLS.Bericht.dto.ParcelResponse = Etiket.Response
+	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response
 	
 	;Assert
 	Do $$$AssertEquals(VerwerkteResponse.T8903,##class(TECH.StringUtils).AddTrailingSpace("T|nog tekst|nog iets|nog wat|abc",127),"Trailing space toegevoegd.")
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/dto/Helper.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/dto/Helper.cls.xml	(.../Helper.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/dto/Helper.cls.xml	(.../Helper.cls.xml)	(revision 40367)
@@ -5,9 +5,9 @@
 
 <Method name="GeefFreightStandaardDto">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.FreightRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest</ReturnType>
 <Implementation><![CDATA[
-		Set dto = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightRequest).%New()
+		Set dto = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest).%New()
 		Set dto.T050 = "Shipping Software"
 		Set dto.T051 = "V 12"
 		Set dto.T100 = "BE"
@@ -32,17 +32,17 @@
 		Set dto.T8905 = "002"
 		Set dto.T8914 = "HILDADOI"
 		Set dto.T8915 = "0561000542"
-		Set dto.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).Pallet()	
+		Set dto.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).Pallet()	
 		
 		Quit dto
 ]]></Implementation>
 </Method>
 
 <Method name="GeefParcelStandaardDto">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</ReturnType>
 <Implementation><![CDATA[
-		Set dto = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelRequest).%New()
+		Set dto = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest).%New()
 		Set dto.T050 = "Shipping Software"
 		Set dto.T051 = "V 12"
 		Set dto.T100 = "BE"
@@ -74,9 +74,9 @@
 
 <Method name="GeefParcelNederlandDto">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</ReturnType>
 <Implementation><![CDATA[
-		Set dto = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelRequest).%New()
+		Set dto = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest).%New()
 		Set dto.T050 = "Shipping Software"
 		Set dto.T051 = "V 12"
 		Set dto.T100 = "NL"
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml
===================================================================
diff -u -r29393 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml	(.../Bericht/enu/VerzendWijze/Verwerker.cls.xml)	(revision 29393)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml	(.../GLSv1/Bericht/enu/VerzendWijze/Verwerker.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.VerzendWijze.Verwerker">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze.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
@@ -11,7 +11,7 @@
 
 <Method name="Verwerk">
 <Final>1</Final>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Implementation><![CDATA[
 	If VerzendWijze = "Freight" {
 		Do ..VerwerkFreight()
Index: APPS/TRANSP/GLS/GLSv1/ResponseVisitor.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/ResponseVisitor.cls.xml	(.../ResponseVisitor.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/ResponseVisitor.cls.xml	(.../ResponseVisitor.cls.xml)	(revision 40367)
@@ -5,14 +5,14 @@
 
 <Method name="VerwerkParcelResponse">
 <Abstract>1</Abstract>
-<FormalSpec>ParselResponse:APPS.TRANSP.GLS.Bericht.dto.ParcelResponse</FormalSpec>
+<FormalSpec>ParselResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkFreightResponse">
 <Abstract>1</Abstract>
-<FormalSpec>FreightResponse:APPS.TRANSP.GLS.Bericht.dto.FreightResponse</FormalSpec>
+<FormalSpec>FreightResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerNietGelukteRequests.cls.xml
===================================================================
diff -u -r40364 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerNietGelukteRequests.cls.xml	(.../AnnuleerNietGelukteRequests.cls.xml)	(revision 40364)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerNietGelukteRequests.cls.xml	(.../AnnuleerNietGelukteRequests.cls.xml)	(revision 40367)
@@ -8,7 +8,7 @@
 	quit:$$$Not(..IsActief())	
 
 	#dim Query As %String = "SELECT ID FROM APPS_TRANSP_GLS_data.VerzendData WHERE Status = ?  AND LaatsteRequestType = ?"
-	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(##class(APPS.TRANSP.GLS.Bericht.enu.Status).Started(),##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Confirmatie()))
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Started(),##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Confirmatie()))
 	While ResultSet.Next(){
 		#dim ID As %String = ResultSet.Data("ID")
 		#dim VerzendData As APPS.TRANSP.GLS.data.VerzendData = ##class(APPS.TRANSP.GLS.data.VerzendData).OpenId(ID)
@@ -23,8 +23,8 @@
 
 <Method name="GeefRequestType">
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Annulatie()
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Annulatie()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseRequest.cls.xml	(.../Bericht/dto/ParcelReleaseRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseRequest.cls.xml	(.../GLSv1/Bericht/dto/ParcelReleaseRequest.cls.xml)	(revision 40367)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest">
 <ClassType>serial</ClassType>
-<Super>%SerialObject,APPS.TRANSP.GLS.Bericht.dto.AbstractRequest</Super>
+<Super>%SerialObject,APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest</Super>
 
 <Property name="T400">
 <Description>
@@ -68,8 +68,6 @@
 <State>ParcelReleaseRequestState</State>
 <StreamLocation>^APPS.TRANS4539.ParcelRelea78E6S</StreamLocation>
 <Data name="ParcelReleaseRequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T400</Value>
 </Value>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r40358 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../Bericht/impl/RequestDataBouwer.cls.xml)	(revision 40358)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../GLSv1/Bericht/impl/RequestDataBouwer.cls.xml)	(revision 40367)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer">
-<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.Bericht.RequestDataBouwer</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer">
+<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer</Super>
 
 <Property name="T854SuffixBepaler">
-<Type>APPS.TRANSP.GLS.Bericht.impl.T854SuffixBepaler</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,15 +14,15 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..T854SuffixBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.T854SuffixBepaler).%New()
+	set ..T854SuffixBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="MaakReleaseRequests">
 <FormalSpec>LijstVerzendData:APPS.TRANSP.GLS.dto.VerzendDataLijst</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.TRANSP.GLS.Bericht.dto.AbstractRequest"</ReturnTypeParams>
+<ReturnTypeParams>ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set ReleaseRequests = ##class(%ListOfObjects).%New()
 	
@@ -74,7 +74,7 @@
 	set itLijstVerzendData = ##class(TECH.ListIterator).%New(LijstVerzendData)
 	while itLijstVerzendData.HasNext() {
 		#dim VerzendData As APPS.TRANSP.GLS.dto.VerzendData = itLijstVerzendData.Next()
-		#dim VerzendWijze As APPS.TRANSP.GLS.Bericht.enu.VerzendWijze = VerzendData.VerzendWijze
+		#dim VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze = VerzendData.VerzendWijze
 		if $$$Not(VerzendDataPerVerzendWijze.IsDefined(VerzendWijze)) { 
 			do VerzendDataPerVerzendWijze.SetAt(##class(%ListOfObjects).%New(),VerzendWijze)
 		}
@@ -87,12 +87,12 @@
 
 <Method name="MaakReleaseRequest">
 <FormalSpec>VerzendData:APPS.TRANSP.GLS.dto.VerzendData,IsLaatsteUnit:%Boolean=0</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest</ReturnType>
 <Implementation><![CDATA[
 	#dim CommunicatieService As APPS.TRANSP.GLS.CommunicatieService = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefCommunicatieService(##class(DOM.TRANSP.enu.Transporteur).GLSBelgium())
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = CommunicatieService.GeefDienstBepaler().GeefDienst(VerzendData.VerzendWijze)
 	
-	#dim ReleaseRequest As APPS.TRANSP.GLS.Bericht.dto.ReleaseRequest
+	#dim ReleaseRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ReleaseRequest
 	if Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight() {
 		 set ReleaseRequest = ..MaakFreightReleaseRequest(VerzendData.ID,VerzendData.UnitID , IsLaatsteUnit)
 	} elseif Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel() {
@@ -105,9 +105,9 @@
 <Method name="MaakFreightReleaseRequest">
 <FormalSpec>VerzendDataID:%String,UnitID:%String,IsLaatsteUnit:%Boolean</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest</ReturnType>
 <Implementation><![CDATA[
-	set ReleaseRequest = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest).%New(VerzendDataID)
+	set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest).%New(VerzendDataID)
 	set ReleaseRequest.T090 = "DAYEND"_$select(IsLaatsteUnit:"-END",1:"")
 	set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
 	set ReleaseRequest.T400 = UnitID
@@ -118,9 +118,9 @@
 <Method name="MaakParcelReleaseRequest">
 <FormalSpec>VerzendDataID:%String,UnitID:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest</ReturnType>
 <Implementation><![CDATA[
-	set ReleaseRequest = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest).%New(VerzendDataID)
+	set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest).%New(VerzendDataID)
 	set ReleaseRequest.T090 = "UPDATE"
 	set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
 	set ReleaseRequest.T400 = UnitID
@@ -131,19 +131,19 @@
 
 <Method name="MaakAnnulatieRequest">
 <FormalSpec>VerzendData:APPS.TRANSP.GLS.dto.VerzendData</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest</ReturnType>
 <Implementation><![CDATA[
-	set AnnulatieRequest = ##class(APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest).%New(VerzendData.ID)
+	set AnnulatieRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest).%New(VerzendData.ID)
 	set AnnulatieRequest.T000 = VerzendData.UnitID
 	set AnnulatieRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(VerzendData.VerzendWijze)
 	quit AnnulatieRequest
 ]]></Implementation>
 </Method>
 
 <Method name="MaakRequests">
-<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.TRANSP.GLS.Bericht.dto.Request"</ReturnTypeParams>
+<ReturnTypeParams>ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set Requests = ##class(%ListOfObjects).%New()
 	
@@ -152,8 +152,8 @@
 	#dim VerpakkingEenheidType As DOM.TRANSP.enu.VerpakkingEenheidType = ""
 	while itVerpakkingEenheden.HasNext() {
 		#dim VerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid = itVerpakkingEenheden.Next()		
-		If ($Length(VerpakkingEenheidType) && (VerpakkingEenheidType '= VerpakkingEenheid.Type)) && (VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery()){
-			Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()
+		If ($Length(VerpakkingEenheidType) && (VerpakkingEenheidType '= VerpakkingEenheid.Type)) && (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery()){
+			Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
 		}		
 		#dim i As %Integer
 		For i=1:1:VerpakkingEenheid.Aantal {
@@ -172,28 +172,28 @@
 </Method>
 
 <Method name="MaakRequest">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VolgNr:%Integer,Lengte:%Integer=0</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VolgNr:%Integer,Lengte:%Integer=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery() && (VolgNr '= 1)){
-		Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()
+	If (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery() && (VolgNr '= 1)){
+		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
 	}
 	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.Request
-	If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight(){			
-		Set Request = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightRequest).%New()
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request
+	If VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(){			
+		Set Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest).%New()
 		Set Request = ..VulInFreightRequest(Request, Lengte)
-	}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
-		Set Request = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest).%New()
+	}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
+		Set Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest).%New()
 		Set Request = ..VulInFreightCashOnDeliveryRequest(Request, LeveringInfo)
-	}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){
-		Set Request = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest).%New()
+	}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){
+		Set Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest).%New()
 		Set Request = ..VulInParcelCashOnDeliveryRequest(Request, LeveringInfo)
-	}ElseIf(VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()){
-		Set Request = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelRequest).%New()
+	}ElseIf(VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()){
+		Set Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest).%New()
 		Set Request = ..VulInParcelRequest(Request,LeveringInfo)	
-	}ElseIf(VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit()){
-		Set Request = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest).%New()
+	}ElseIf(VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit()){
+		Set Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest).%New()
 		Set Request = ..VulInParcelDepositRequest(Request,LeveringInfo)	
 	}
 	
@@ -204,15 +204,15 @@
 	
 	set Request.T854 = Request.T854_..T854SuffixBepaler.GeefSuffix(VerzendWijze)
 	
-	#dim VerpakkingEenheidVisitorDtoMaker = ##class(APPS.TRANSP.GLS.Bericht.impl.VerpakkingEenheidVisitorDtoMaker).%New(Request,LeveringInfo)
+	#dim VerpakkingEenheidVisitorDtoMaker = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.VerpakkingEenheidVisitorDtoMaker).%New(Request,LeveringInfo)
 	Do VerpakkingEenheidVisitorDtoMaker.Maak(VerpakkingEenheid)
 	
 	quit Request
 ]]></Implementation>
 </Method>
 
 <Method name="PlaatsAlgemeneDataOpRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen()	
@@ -244,7 +244,7 @@
 	#dim Land As DOM.common.Land = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI().GeefLand($$LAND^vhRtn1(LeveringAdres.LandCode,"I"))
 	If 'Land.IsLidVanEU(){ /// For non-EC or third countries a freigth term (incoterm) has to be entered. The only accepted value to be used in TAG210 is 20.
 						  /// this corresponds to Franco or Free House, duty paid
-		Set Request.T210 = ##class(APPS.TRANSP.GLS.Bericht.enu.FreightTerms).Franco()
+		Set Request.T210 = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.FreightTerms).Franco()
 	}
 	
 	Set Request.T400 = ..GeefUnitID(VerzendWijze)
@@ -267,9 +267,9 @@
 </Method>
 
 <Method name="VulInFreightRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.FreightRequest,Lengte:%Integer=0</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest,Lengte:%Integer=0</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.FreightRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest</ReturnType>
 <Implementation><![CDATA[
 	Set Request.T1267 = "Y"
 	If (Lengte > 2) {
@@ -285,9 +285,9 @@
 </Method>
 
 <Method name="VulInFreightCashOnDeliveryRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest</ReturnType>
 <Implementation><![CDATA[
 	Set Request = ..VulInFreightRequest(Request)
 	Set Request.T203 = "C"
@@ -300,26 +300,26 @@
 </Method>
 
 <Method name="VulInParcelRequest">
-<FormalSpec>ParcelRequest:APPS.TRANSP.GLS.Bericht.dto.ParcelRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>ParcelRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</ReturnType>
 <Implementation><![CDATA[
 	Set ParcelRequest.T8700 = "BE6700" // vraag aan GLS gesteld op 25/06/2013 : T8700 moet zijn BE 610 ipv BE 061 (foutje in de documentatie) 
 									   // Update : Op 16/7 stuurden we jullie een e-mail met de PRODUCTIE parameters gelink aan depot 61 (Puurs). Operationele zullen jullie goederen afgehandeld worden door het depot 67 (Gent), wat reeds nu het geval is. Hierdoor zijn we genoodzaakt om het klantennumer en de ranges te wijzigen. 
 	If ..IsLeveringInLand(LeveringInfo,##class(TECH.ListUtils).CreateListOfDataTypes("BE","DE","PL","PT","AT","LU","IE")){
 		Set ParcelRequest.T8748 = " " // vraag aan GLS gesteld op 25/06/2013 :  T8748:No value -> de "No value" weglaten, dezetag is gewoon leeg maar moet wel gestuurd worden in request. 
 	}
-	Set ParcelRequest.T206 = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringInfo).GeefServiceType()
+	Set ParcelRequest.T206 = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringInfo).GeefServiceType()
 	
 	Set ParcelRequest.T1229 = LeveringInfo.EmailVoorBevestiging 
 	Quit ParcelRequest
 ]]></Implementation>
 </Method>
 
 <Method name="VulInParcelDepositRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</ReturnType>
 <Implementation><![CDATA[
 	Set Request = ..VulInParcelRequest(Request,LeveringInfo)
 	Set Request.T207 = "DEP"
@@ -333,9 +333,9 @@
 </Method>
 
 <Method name="VulInParcelCashOnDeliveryRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest</ReturnType>
 <Implementation><![CDATA[
 	#dim Munt As %String = LeveringInfo.MuntRembours
 	Set Request = ..VulInParcelRequest(Request,LeveringInfo)
@@ -352,7 +352,7 @@
 </Method>
 
 <Method name="GeefUnitID">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelDepositRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/DienstBepaler/TestDienstBepaler.cls.xml
===================================================================
diff -u -r40358 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/DienstBepaler/TestDienstBepaler.cls.xml	(.../TestDienstBepaler.cls.xml)	(revision 40358)
+++ vhUnitTest/APPS/TRANSP/GLS/DienstBepaler/TestDienstBepaler.cls.xml	(.../TestDienstBepaler.cls.xml)	(revision 40367)
@@ -6,16 +6,16 @@
 <Method name="Test">
 <Implementation><![CDATA[
 	
-	do ..AssertDienst(##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
-	do ..AssertDienst(##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
+	do ..AssertDienst(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
+	do ..AssertDienst(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
 	
-	do ..AssertDienst(##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
-	do ..AssertDienst(##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
+	do ..AssertDienst(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
+	do ..AssertDienst(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery(),##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertDienst">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze,RefDienst:APPS.TRANSP.GLS.GLSv1.enu.Dienst</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,RefDienst:APPS.TRANSP.GLS.GLSv1.enu.Dienst</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Commentaar As %String = VerzendWijze_" - "_RefDienst
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightReleaseResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/RequestDataBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/DienstBepaler.cls.xml
===================================================================
diff -u -r40358 -r40367
--- APPS/TRANSP/GLS/impl/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40358)
+++ APPS/TRANSP/GLS/impl/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefDienst">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.enu.Dienst</ReturnType>
 <Implementation><![CDATA[
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = ""
Index: APPS/TRANSP/GLS/GLSv1/Bericht/ResponseDataBouwer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/ResponseDataBouwer.cls.xml	(.../Bericht/ResponseDataBouwer.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/ResponseDataBouwer.cls.xml	(.../GLSv1/Bericht/ResponseDataBouwer.cls.xml)	(revision 40367)
@@ -1,13 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.ResponseDataBouwer">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.ResponseDataBouwer">
 <Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
 <Method name="MaakResponse">
 <Abstract>1</Abstract>
-<FormalSpec>dtoRequest:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<FormalSpec>dtoRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestStringBouwer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestStringBouwer.cls.xml	(.../Bericht/impl/RequestStringBouwer.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestStringBouwer.cls.xml	(.../GLSv1/Bericht/impl/RequestStringBouwer.cls.xml)	(revision 40367)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer">
-<Super>%RegisteredObject,APPS.TRANSP.GLS.Bericht.RequestStringBouwer</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer">
+<Super>%RegisteredObject,APPS.TRANSP.GLS.GLSv1.Bericht.RequestStringBouwer</Super>
 
 <Method name="MaakRequest">
-<FormalSpec>dtoRequest:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>dtoRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ValidateStatus As %Status = dtoRequest.%ValidateObject()
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightReleaseRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/ServiceType.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r40358 -r40367
--- APPS/TRANSP/GLS/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40358)
+++ APPS/TRANSP/GLS/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40367)
@@ -84,7 +84,7 @@
 <Method name="GeefGLSContactID">
 <Description>
 T8914 : GLS Contat ID (EDIname)</Description>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GLSContactID As %String
@@ -104,7 +104,7 @@
 <Method name="GeefGLSGebruikerID">
 <Description>
 T8915 : GLS Customer ID (SAP account number)</Description>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GLSGebruikerID As %String
@@ -124,7 +124,7 @@
 <Method name="GeefGebruikerID">
 <Description>
 T805 : Customer number GLS BD</Description>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GebruikerID As %String
@@ -142,20 +142,20 @@
 </Method>
 
 <Method name="GeefBereikVoorVerzendWijze">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[
 		#dim Bereik As TECH.Bereik
-		If ((VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
-			|| ( VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit())){
+		If ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
+			|| ( VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())){
 			Set Bereik = ..GeefBereikParcel()
-		}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){
+		}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){
 			Set Bereik = ..GeefBereikParcelCashOnDelivery()
-		}ElseIf ((VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()) 
-			|| (VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery())){
+		}ElseIf ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()) 
+			|| (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())){
 			Set Bereik = ..GeefBereikFreight()
 		}Else{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"' is niet ondersteund."))	
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"' is niet ondersteund."))	
 		}
 		Quit Bereik
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseResponse.cls.xml	(.../Bericht/dto/FreightReleaseResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseResponse.cls.xml	(.../GLSv1/Bericht/dto/FreightReleaseResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,85 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightReleaseResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest,APPS.TRANSP.GLS.Bericht.dto.Response</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest,APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="FreightReleaseRequestState">
+<Value name="1">
+<Value>T090</Value>
+</Value>
+<Value name="2">
+<Value>T805</Value>
+</Value>
+<Value name="3">
+<Value>T400</Value>
+</Value>
+<Value name="4">
+<Value>VerzendDataID</Value>
+</Value>
+<Value name="5">
+<Value>E000</Value>
+</Value>
+<Value name="6">
+<Value>E001</Value>
+</Value>
+<Value name="7">
+<Value>E002</Value>
+</Value>
+<Value name="8">
+<Value>E003</Value>
+</Value>
+<Value name="9">
+<Value>E006</Value>
+</Value>
+<Value name="10">
+<Value>E666</Value>
+</Value>
+<Value name="11">
+<Value>E999</Value>
+</Value>
+<Value name="12">
+<Value>T000</Value>
+</Value>
+<Value name="13">
+<Value>LabelVersion</Value>
+</Value>
+<Value name="14">
+<Value>T800</Value>
+</Value>
+<Value name="15">
+<Value>T105</Value>
+</Value>
+<Value name="16">
+<Value>T851</Value>
+</Value>
+<Value name="17">
+<Value>T853</Value>
+</Value>
+<Value name="18">
+<Value>T859</Value>
+</Value>
+<Value name="19">
+<Value>T8956</Value>
+</Value>
+<Value name="20">
+<Value>T8957</Value>
+</Value>
+<Value name="21">
+<Value>T8958</Value>
+</Value>
+<Value name="22">
+<Value>T8959</Value>
+</Value>
+<Value name="23">
+<Value>T8960</Value>
+</Value>
+<Value name="24">
+<Value>T8965</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 
 
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml	(.../TestLeveringMetPallet.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetPallet.cls.xml	(.../TestLeveringMetPallet.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 60
@@ -21,9 +21,9 @@
 	
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 	If $$$AssertEquals(Requests.Count(),2)	{
-		#dim Request1 As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 		Do ..AssertGLSBasis(Request1)
 		Do ..AssertAdressen(Request1)
@@ -42,7 +42,7 @@
 		Do $$$AssertEquals(Request1.T8914,"HOECKE","GLSContactID")
 		Do $$$AssertEquals(Request1.T8915,"0565017834","GLSGebruikerID")
 		
-		#dim Request2 As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(2)
+		#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(2)
 		Do $$$AssertEquals(Request2.T8904,"002","VolgNr")
 		Do $$$AssertEquals(Request2.T8905,"002","Aantal")		
 		Do $$$AssertEquals(Request1.T530,"30,0","Gewicht: 60,0/2")
@@ -52,7 +52,7 @@
 
 <Method name="TestGrootGewicht">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.AantalVerpakkingEenhedenTotaal = 1
@@ -61,8 +61,8 @@
 	set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
 	set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do $$$AssertEquals(Request.T530,"1523,2","Er is een komma ipv een punt gebruikt.")
 ]]></Implementation>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightErrorResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml	(.../Bericht/dto/Error.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml	(.../GLSv1/Bericht/dto/Error.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.Error">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error">
 <Super>%RegisteredObject</Super>
 
 <Property name="ErrorCode">
@@ -58,7 +58,7 @@
 	#dim Type As %String
 	for Type = "Parcel","Freight" {
 		continue:$length(Info)
-		#dim CompiledPropertyName As %String = "APPS.TRANSP.GLS.Bericht.dto."_Type_"ErrorResponse||"_..ErrorCode
+		#dim CompiledPropertyName As %String = "APPS.TRANSP.GLS.GLSv1.Bericht.dto."_Type_"ErrorResponse||"_..ErrorCode
 		if ##class(%Dictionary.CompiledProperty).%ExistsId(CompiledPropertyName) {
 			set CompiledProperty = ##class(%Dictionary.CompiledProperty).%OpenId(CompiledPropertyName)
 			set Info = CompiledProperty.Description
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelDepositResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/ServiceType.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/ServiceType.cls.xml	(.../Bericht/enu/ServiceType.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/ServiceType.cls.xml	(.../GLSv1/Bericht/enu/ServiceType.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.ServiceType">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType">
 <Description>
 Waardes voor veld T206</Description>
 <ClassType>datatype</ClassType>
Index: APPS/TRANSP/GLS/GLSv1/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r40364 -r40367
--- APPS/TRANSP/GLS/GLSv1/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40364)
+++ APPS/TRANSP/GLS/GLSv1/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="VerzendWijze">
-<Type>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="RequestBouwer">
-<Type>APPS.TRANSP.GLS.Bericht.RequestDataBouwer</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer</Type>
 <Private>1</Private>
 </Property>
 
@@ -49,34 +49,34 @@
 <Method name="GeefRequestType">
 <Abstract>1</Abstract>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerzendBericht">
 <Final>1</Final>
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[
 	#dim SocketFactory As APPS.TRANSP.GLS.GLSv1.Socket.Factory = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSSocketFactory()		
 	#dim Socket As APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket = SocketFactory.GeefSocket(Request)
 	
-	set RequestStringBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	set RequestStringBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	#dim RequestString As %String = RequestStringBouwer.MaakRequest(Request)
 	
 	#dim ResponseString As %String = Socket.Send(RequestString)
 	
-	set ResponseBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.ResponseDataBouwer).%New()
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.Response = ResponseBouwer.MaakResponse(Request,ResponseString)
+	set ResponseBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ResponseDataBouwer).%New()
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response = ResponseBouwer.MaakResponse(Request,ResponseString)
 	
 	quit Response
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRequest">
 <Final>1</Final>
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerzendData As APPS.TRANSP.GLS.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
@@ -89,24 +89,24 @@
 	}
 	set VerzendData.LaatsteRequestType = ..GeefRequestType()
 	
-	set VerzendData.Status = ##class(APPS.TRANSP.GLS.Bericht.enu.Status).Started()
+	set VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Started()
 	do VerzendData.Save()
 	
 	if IsNieuweVerzendData Do ..VerwerkVerzendDataID(VerzendData.%Id())
 	
 	Try {
-		#dim Response As APPS.TRANSP.GLS.Bericht.dto.Response = ..VerzendBericht(Request)
+		#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response = ..VerzendBericht(Request)
 	}Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).%New("GLS").ErrorMail("VerwerkRequest","Verzenden bericht mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
-		Set Error =##class(APPS.TRANSP.GLS.Bericht.dto.Error).%New("E999",Exception.GeefOmschrijving())
+		Set Error =##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error).%New("E999",Exception.GeefOmschrijving())
 		do ..ThrowError(Error,VerzendData)
 	}
 
 	set VerzendData.Response = Response
 	
 	If ..CommunicatieService.ResponseBevatFout(Response) {
-		set VerzendData.Status = ##class(APPS.TRANSP.GLS.Bericht.enu.Status).Failed()
+		set VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Failed()
 		do VerzendData.Save()
 		Set Error = ..CommunicatieService.GeefFoutInResponse(Response)
 		do ..ThrowError(Error, VerzendData)
@@ -117,7 +117,7 @@
 		Set VerzendData.TrackAndTraceID = TrackAndTraceID
 	}
 	
-	set VerzendData.Status = ##class(APPS.TRANSP.GLS.Bericht.enu.Status).Finished()
+	set VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Finished()
 	do VerzendData.Save()
 ]]></Implementation>
 </Method>
@@ -129,7 +129,7 @@
 </Method>
 
 <Method name="BepaalTrackAndTraceID">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -144,7 +144,7 @@
 </Method>
 
 <Method name="BepaalReferentie">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -158,7 +158,7 @@
 
 <Method name="ThrowError">
 <Final>1</Final>
-<FormalSpec>Error:APPS.TRANSP.GLS.Bericht.dto.Error,VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
+<FormalSpec>Error:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error,VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BerichtVoorGebruiker As %String = ""
@@ -202,7 +202,7 @@
 </Method>
 
 <Method name="GeefBerichtVoorICT">
-<FormalSpec>Error:APPS.TRANSP.GLS.Bericht.dto.Error</FormalSpec>
+<FormalSpec>Error:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ReleaseResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ReleaseResponse.cls.xml	(.../Bericht/dto/ReleaseResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ReleaseResponse.cls.xml	(.../GLSv1/Bericht/dto/ReleaseResponse.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ReleaseResponse">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ReleaseResponse">
 <Super>%RegisteredObject</Super>
 </Class>
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelResponse.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelResponse.cls.xml	(.../Bericht/dto/ParcelResponse.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelResponse.cls.xml	(.../GLSv1/Bericht/dto/ParcelResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest,APPS.TRANSP.GLS.Bericht.dto.ParcelErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest,APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelErrorResponse</Super>
 
 <Method name="Accept">
 <FormalSpec>Visitor:APPS.TRANSP.GLS.GLSv1.ResponseVisitor</FormalSpec>
@@ -564,8 +564,6 @@
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="RequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T050</Value>
 </Value>
Index: APPS/TRANSP/GLS/impl/EtiketBouwerResponseVisitor.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/impl/EtiketBouwerResponseVisitor.cls.xml	(.../EtiketBouwerResponseVisitor.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/impl/EtiketBouwerResponseVisitor.cls.xml	(.../EtiketBouwerResponseVisitor.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.ResponseVisitor</Super>
 
 <Property name="Response">
-<Type>APPS.TRANSP.GLS.Bericht.dto.Response</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,7 +14,7 @@
 </Property>
 
 <Method name="VerwerkFreightResponse">
-<FormalSpec>FreightResponse:APPS.TRANSP.GLS.Bericht.dto.FreightResponse</FormalSpec>
+<FormalSpec>FreightResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim T979 As %String = FreightResponse.T979 
@@ -25,7 +25,7 @@
 </Method>
 
 <Method name="VerwerkParcelResponse">
-<FormalSpec>ParselResponse:APPS.TRANSP.GLS.Bericht.dto.ParcelResponse</FormalSpec>
+<FormalSpec>ParselResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim PrimaryBarcode = ##class(TECH.StringUtils).AddTrailingSpace(ParselResponse.T8902,123)
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseRequest.cls.xml	(.../Bericht/dto/FreightReleaseRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightReleaseRequest.cls.xml	(.../GLSv1/Bericht/dto/FreightReleaseRequest.cls.xml)	(revision 40367)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest">
 <ClassType>serial</ClassType>
-<Super>%SerialObject,APPS.TRANSP.GLS.Bericht.dto.AbstractRequest</Super>
+<Super>%SerialObject,APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest</Super>
 
 <Property name="T090">
 <Description>
@@ -33,8 +33,6 @@
 <State>FreightReleaseRequestState</State>
 <StreamLocation>^APPS.TRANS4539.FreightReleD229S</StreamLocation>
 <Data name="FreightReleaseRequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T090</Value>
 </Value>
Index: APPS/TRANSP/GLS/CommunicatieService.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40367)
@@ -24,7 +24,7 @@
 
 <Method name="GeefRequestBouwer">
 <Abstract>1</Abstract>
-<ReturnType>APPS.TRANSP.GLS.Bericht.RequestDataBouwer</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightResponse.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightResponse.cls.xml	(.../Bericht/dto/FreightResponse.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightResponse.cls.xml	(.../GLSv1/Bericht/dto/FreightResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.FreightRequest,APPS.TRANSP.GLS.Bericht.dto.FreightErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest,APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightErrorResponse</Super>
 
 <Method name="Accept">
 <FormalSpec>Visitor:APPS.TRANSP.GLS.GLSv1.ResponseVisitor</FormalSpec>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/RequestStringBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositRequest.cls.xml	(.../Bericht/dto/ParcelDepositRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositRequest.cls.xml	(.../GLSv1/Bericht/dto/ParcelDepositRequest.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</Super>
 
 <Property name="T207">
 <Description>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/ParcelServiceTypeBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/CommunicatieService/BevestigLevering.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService/BevestigLevering.cls.xml	(.../BevestigLevering.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/BevestigLevering.cls.xml	(.../BevestigLevering.cls.xml)	(revision 40367)
@@ -11,16 +11,16 @@
 
 	set RequestIt = ##class(TECH.ListIterator).%New(Requests)
 	while RequestIt.HasNext(){
-		#dim Request As APPS.TRANSP.GLS.Bericht.dto.Request = RequestIt.Next()
+		#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = RequestIt.Next()
 		do ..VerwerkRequest(Request)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRequestType">
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Confirmatie()
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Confirmatie()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/GLS/impl/StatusControleurDistributeurDataVisitor.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/impl/StatusControleurDistributeurDataVisitor.cls.xml	(.../StatusControleurDistributeurDataVisitor.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/impl/StatusControleurDistributeurDataVisitor.cls.xml	(.../StatusControleurDistributeurDataVisitor.cls.xml)	(revision 40367)
@@ -16,7 +16,7 @@
 <FormalSpec>DistributeurData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	If (DistributeurData.Status '= ##class(APPS.TRANSP.GLS.Bericht.enu.Status).Finished())
+	If (DistributeurData.Status '= ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Finished())
 	{
 		Set ..ZijnAlleStatussenInOrde = 0
 		Do ..NietInOrdeDistributeurDataIDs.Insert(DistributeurData.GeefID())
Index: APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 40367)
@@ -9,7 +9,8 @@
 <Method name="GeefVerzendWijze">
 <Abstract>1</Abstract>
 <FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/TRANSP/GLS/EtiketService.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 40367)
@@ -17,7 +17,7 @@
 	While DistributeurDataIDIt.HasNext(){
 		#dim DistributeurDataID As %String = DistributeurDataIDIt.Next()
 		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
-		#dim Response As APPS.TRANSP.GLS.Bericht.dto.Response = DistributeurData.Response
+		#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response = DistributeurData.Response
 		Do Response.Accept(EtiketBouwerResponseVisitor)
 		#dim Etiket As BL.Sys.pxLabel = EtiketBouwerResponseVisitor.GeefEtiket()
 		Do LabelPrinter.AddLabel(Etiket)
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml	(.../Test.cls.xml)	(revision 40367)
@@ -33,7 +33,7 @@
 <Method name="TestEenParcel">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("UnitID0001")
@@ -48,7 +48,7 @@
 <Method name="TestEenFreight">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 	
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("UnitID0001")
@@ -63,8 +63,8 @@
 <Method name="TestEenFreightEenParcel">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
-	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("UnitID0001")
@@ -80,8 +80,8 @@
 <Method name="TestEenParcelEenFreight">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
-	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
+	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("UnitID0002")
@@ -97,8 +97,8 @@
 <Method name="TestTweeFreights">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
-	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("UnitID0002")
@@ -114,8 +114,8 @@
 <Method name="TestTweeParcels">
 <Implementation><![CDATA[
 	;Arrange
-	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
-	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	do ..VoegToeVerzendData("UnitID0001",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
+	do ..VoegToeVerzendData("UnitID0002",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 
 	;Act
 	#dim Requests As %ListOfObjects = ..MaakReleaseRequests("")
@@ -129,7 +129,7 @@
 </Method>
 
 <Method name="AssertFreightReleaseRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest,T400:%String,T090:%String</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest,T400:%String,T090:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	do $$$AssertEquals(Request.T090,T090)
@@ -139,7 +139,7 @@
 </Method>
 
 <Method name="AssertParcelReleaseRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest,T400:%String</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest,T400:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	do $$$AssertEquals(Request.T090,"UPDATE")	
@@ -153,7 +153,7 @@
 </Method>
 
 <Method name="VoegToeVerzendData">
-<FormalSpec>UnitID:%String,VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>UnitID:%String,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	set VerzendData = ##class(APPS.TRANSP.GLS.dto.VerzendData).%New($$$DummyInteger,UnitID,VerzendWijze)
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelCashOnDeliveryResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightCashOnDeliveryResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/TestParcelServiceTypeBepaler.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/TestParcelServiceTypeBepaler.cls.xml	(.../TestParcelServiceTypeBepaler.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/TestParcelServiceTypeBepaler.cls.xml	(.../TestParcelServiceTypeBepaler.cls.xml)	(revision 40367)
@@ -6,32 +6,32 @@
 <Method name="TestBusinessParcelMax32kg">
 <Implementation><![CDATA[
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringDataMetGewicht(30)
-	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
+	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
 	
-	#dim ServiceType As APPS.TRANSP.GLS.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
-	Do $$$AssertEquals(ServiceType,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).BusinessParcel())
+	#dim ServiceType As APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
+	Do $$$AssertEquals(ServiceType,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).BusinessParcel())
 ]]></Implementation>
 </Method>
 
 <Method name="TestEuroBusinessParcelMax50kgEuroBusinessParcel">
 <Implementation><![CDATA[
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringDataMetGewicht(38)
 	Set LeveringData.LeverAdres.LandCode = "NL"
-	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
+	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
 	
-	#dim ServiceType As APPS.TRANSP.GLS.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
-	Do $$$AssertEquals(ServiceType,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).EuroBusinessParcel())
+	#dim ServiceType As APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
+	Do $$$AssertEquals(ServiceType,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).EuroBusinessParcel())
 ]]></Implementation>
 </Method>
 
 <Method name="TestTeZwaarGewicht">
 <Implementation><![CDATA[
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringDataMetGewicht(60)
-	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
+	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
 	
 	#dim IsErrorGeraised As %Boolean = 0
 	Try {
-		#dim ServiceType As APPS.TRANSP.GLS.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
+		#dim ServiceType As APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
 	}Catch{
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do $$$AssertContains(Exception.GeefOmschrijving(),"Voor parcel mag het gewicht niet groter zijn dan 32kg voor BusinessParcel.")
@@ -45,11 +45,11 @@
 <Implementation><![CDATA[
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringDataMetGewicht(60)
 	Set LeveringData.LeverAdres.LandCode = "NL"
-	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
+	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
 	
 	#dim IsErrorGeraised As %Boolean = 0
 	Try {
-		#dim ServiceType As APPS.TRANSP.GLS.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
+		#dim ServiceType As APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
 	}Catch{
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do $$$AssertContains(Exception.GeefOmschrijving(),"Voor parcel mag het gewicht niet groter zijn dan 50kg voor EuroBusinessParcel")
@@ -62,11 +62,11 @@
 <Method name="TestVerkeerdeVerpakking">
 <Implementation><![CDATA[
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringDataVerkeerdeVerpakking()
-	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
+	Set ParcelServiceTypeBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringData)
 	
 	#dim IsErrorGeraised As %Boolean = 0
 	Try {
-		#dim ServiceType As APPS.TRANSP.GLS.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
+		#dim ServiceType As APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType = ParcelServiceTypeBepaler.GeefServiceType()
 	}Catch{
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do $$$AssertContains(Exception.GeefOmschrijving(),"Niet toegestaan verpakkingtype voor Parcel")
Index: APPS/TRANSP/GLS/GLSv1/Socket/Factory.cls.xml
===================================================================
diff -u -r40359 -r40367
--- APPS/TRANSP/GLS/GLSv1/Socket/Factory.cls.xml	(.../Factory.cls.xml)	(revision 40359)
+++ APPS/TRANSP/GLS/GLSv1/Socket/Factory.cls.xml	(.../Factory.cls.xml)	(revision 40367)
@@ -5,15 +5,15 @@
 
 <Method name="GeefSocket">
 <Abstract>1</Abstract>
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefNieuwResponse">
 <Abstract>1</Abstract>
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml
===================================================================
diff -u -r30995 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 30995)
+++ vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40367)
@@ -24,7 +24,7 @@
 </Method>
 
 <Method name="GeefBereikVoorVerzendWijze">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.Bereik).%New(..Min,..Max)
 ]]></Implementation>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightRequest.cls.xml	(.../Bericht/dto/FreightRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightRequest.cls.xml	(.../GLSv1/Bericht/dto/FreightRequest.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightRequest">
-<Super>APPS.TRANSP.GLS.Bericht.dto.Request</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</Super>
 
 <Property name="T000">
 <Description>
@@ -134,16 +134,14 @@
 <Property name="TPT">
 <Description>
 Package type (11.2)</Description>
-<Type>APPS.TRANSP.GLS.Bericht.enu.PackageType</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</Type>
 <Required>1</Required>
 <Parameter name="MAXLEN" value="2"/>
 </Property>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="RequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T050</Value>
 </Value>
@@ -321,6 +319,9 @@
 <Value name="59">
 <Value>TPT</Value>
 </Value>
+<Value name="60">
+<Value>VerzendDataID</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightErrorResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightErrorResponse.cls.xml	(.../Bericht/dto/FreightErrorResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightErrorResponse.cls.xml	(.../GLSv1/Bericht/dto/FreightErrorResponse.cls.xml)	(revision 40367)
@@ -1,14 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightErrorResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightErrorResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ErrorResponse</Super>
 
 <Property name="E666">
 <Description>
 The information in T8914 is not valid (anymore).</Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="500"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ReleaseResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml	(.../TestResponse.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml	(.../TestResponse.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 
 <Method name="TestGeenFoutenMetOKE000">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	set Response.E000 = "OK"
 	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
@@ -15,7 +15,7 @@
 
 <Method name="TestGeenFoutenMetLegeE000">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	set Response.E000 = ""
 	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
@@ -25,7 +25,7 @@
 
 <Method name="TestGeenFoutenMetNumeriekeE000">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	set Response.E000 = "123456"
 	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
@@ -35,7 +35,7 @@
 
 <Method name="TestGeenFoutenMetToegestandeFoutE000">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	
 	set Response.E000 = "no errors have occured"	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
@@ -49,7 +49,7 @@
 
 <Method name="TestMetFoutenInE013">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New()
 	set Response.E013 = "ONBEKENDE FOUT"	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
 	do $$$AssertTrue(CommunicatieService.ResponseBevatFout(Response))
@@ -58,7 +58,7 @@
 
 <Method name="TestMetFouten">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	set Response.E001 = "We hebben een error gekregen van GLS"
 	
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
@@ -68,11 +68,11 @@
 
 <Method name="TestGeefFout">
 <Implementation><![CDATA[
-	set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.Response).%New()
+	set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response).%New()
 	set Response.E006 = "Dit is een foutmelding."
 
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
-	#dim Error As APPS.TRANSP.GLS.Bericht.dto.Error = CommunicatieService.GeefFoutInResponse(Response)
+	#dim Error As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error = CommunicatieService.GeefFoutInResponse(Response)
 	do $$$AssertEquals("not able to make the routing : Dit is een foutmelding.",Error.Omschrijving)
 	do $$$AssertEquals("E006",Error.ErrorCode)
 ]]></Implementation>
@@ -102,9 +102,9 @@
 <FormalSpec>Property:%String,VerwachtNiveau:TECH.Exceptions.enu.Niveau,Type:%String(VALUELIST=",P,F")="P"</FormalSpec>
 <Implementation><![CDATA[
 	set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.ErrorResponse = $select(Type="P":##class(APPS.TRANSP.GLS.Bericht.dto.ParcelErrorResponse).%New(),1:##class(APPS.TRANSP.GLS.Bericht.dto.FreightErrorResponse).%New())
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ErrorResponse = $select(Type="P":##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelErrorResponse).%New(),1:##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightErrorResponse).%New())
 	set $property(Response,Property)="Foutmelding"
-	#dim Error As APPS.TRANSP.GLS.Bericht.dto.Error = CommunicatieService.GeefFoutInResponse(Response)
+	#dim Error As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error = CommunicatieService.GeefFoutInResponse(Response)
 	do $$$AssertEquals(VerwachtNiveau,Error.Niveau , Error.ErrorCode)
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseResponse.cls.xml	(.../Bericht/dto/ParcelReleaseResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelReleaseResponse.cls.xml	(.../GLSv1/Bericht/dto/ParcelReleaseResponse.cls.xml)	(revision 40367)
@@ -1,14 +1,134 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest,APPS.TRANSP.GLS.Bericht.dto.ParcelErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest,APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelErrorResponse</Super>
 
 <Property name="T510">
 <Description>
 Station-Id</Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="3"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="ParcelReleaseRequestState">
+<Value name="1">
+<Value>T400</Value>
+</Value>
+<Value name="2">
+<Value>T090</Value>
+</Value>
+<Value name="3">
+<Value>T805</Value>
+</Value>
+<Value name="4">
+<Value>T545</Value>
+</Value>
+<Value name="5">
+<Value>T050</Value>
+</Value>
+<Value name="6">
+<Value>T051</Value>
+</Value>
+<Value name="7">
+<Value>T084</Value>
+</Value>
+<Value name="8">
+<Value>VerzendDataID</Value>
+</Value>
+<Value name="9">
+<Value>E000</Value>
+</Value>
+<Value name="10">
+<Value>E001</Value>
+</Value>
+<Value name="11">
+<Value>E002</Value>
+</Value>
+<Value name="12">
+<Value>E003</Value>
+</Value>
+<Value name="13">
+<Value>E006</Value>
+</Value>
+<Value name="14">
+<Value>E017</Value>
+</Value>
+<Value name="15">
+<Value>E018</Value>
+</Value>
+<Value name="16">
+<Value>E820</Value>
+</Value>
+<Value name="17">
+<Value>E998</Value>
+</Value>
+<Value name="18">
+<Value>T800</Value>
+</Value>
+<Value name="19">
+<Value>T105</Value>
+</Value>
+<Value name="20">
+<Value>T851</Value>
+</Value>
+<Value name="21">
+<Value>T853</Value>
+</Value>
+<Value name="22">
+<Value>T859</Value>
+</Value>
+<Value name="23">
+<Value>T8956</Value>
+</Value>
+<Value name="24">
+<Value>T8957</Value>
+</Value>
+<Value name="25">
+<Value>T8958</Value>
+</Value>
+<Value name="26">
+<Value>T8959</Value>
+</Value>
+<Value name="27">
+<Value>T8960</Value>
+</Value>
+<Value name="28">
+<Value>T8965</Value>
+</Value>
+<Value name="29">
+<Value>E007</Value>
+</Value>
+<Value name="30">
+<Value>E012</Value>
+</Value>
+<Value name="31">
+<Value>E013</Value>
+</Value>
+<Value name="32">
+<Value>E014</Value>
+</Value>
+<Value name="33">
+<Value>E015</Value>
+</Value>
+<Value name="34">
+<Value>E666</Value>
+</Value>
+<Value name="35">
+<Value>E999</Value>
+</Value>
+<Value name="36">
+<Value>LabelVersion</Value>
+</Value>
+<Value name="37">
+<Value>T000</Value>
+</Value>
+<Value name="38">
+<Value>T510</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/ResponseDataBouwer.cls.xml
===================================================================
diff -u -r40359 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/ResponseDataBouwer.cls.xml	(.../Bericht/impl/ResponseDataBouwer.cls.xml)	(revision 40359)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/ResponseDataBouwer.cls.xml	(.../GLSv1/Bericht/impl/ResponseDataBouwer.cls.xml)	(revision 40367)
@@ -1,22 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.ResponseDataBouwer">
-<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.Bericht.ResponseDataBouwer</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.ResponseDataBouwer">
+<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.Bericht.ResponseDataBouwer</Super>
 
 <Method name="MaakResponse">
-<FormalSpec>dtoRequest:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<FormalSpec>dtoRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[
 	#dim SocketFactory As APPS.TRANSP.GLS.GLSv1.Socket.Factory = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSSocketFactory()				
-	#dim dtoResponse As APPS.TRANSP.GLS.Bericht.dto.Response = SocketFactory.GeefNieuwResponse(dtoRequest)
+	#dim dtoResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response = SocketFactory.GeefNieuwResponse(dtoRequest)
 	Set dtoResponse = ..VulInResponse(Response,dtoResponse)
 	Quit dtoResponse
 ]]></Implementation>
 </Method>
 
 <Method name="VulInResponse">
-<FormalSpec>Response:%String,dtoResponse:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Request</ReturnType>
+<FormalSpec>Response:%String,dtoResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</ReturnType>
 <Implementation><![CDATA[
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(dtoResponse.%ClassName(1))
 	
@@ -41,7 +41,7 @@
 </Method>
 
 <Method name="MeldNietBestaandeProperty">
-<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
+<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Melding As %String = ..GeefMeldingMeldNietBestaandeProperty(PropertyNaam,PropertyWaarde,dtoResponse,Response)
@@ -50,7 +50,7 @@
 </Method>
 
 <Method name="GeefMeldingMeldNietBestaandeProperty">
-<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
+<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Melding As %String = "Property "_PropertyNaam_" bestaat niet, en is niet kunnen mappen op het Response-dto ("_dtoResponse.%ClassName(1)_") object. (waarde : '"_PropertyWaarde_"')"
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestParcelRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestParcelRequest.cls.xml	(.../TestParcelRequest.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestParcelRequest.cls.xml	(.../TestParcelRequest.cls.xml)	(revision 40367)
@@ -5,9 +5,9 @@
 
 <Method name="TestStandaardBericht">
 <Implementation><![CDATA[
-	#dim ParcelRequest As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefParcelStandaardDto()
+	#dim ParcelRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefParcelStandaardDto()
 	
-	Set Builder = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	Set Builder = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	#dim Request As %String = Builder.MaakRequest(ParcelRequest)
 	
 	Do ..AssertRequest(Request,"T050:Shipping Software |T051:V 12 |T084:P |T090:NOPRINT |T100:BE |T330:1040 |T400:001234567895 |T530:55,0 |T545:20.06.2009 |T805:12134567 |T810:Test Customer |T820:Test Street 12 |T821:BE |T822:9999 |T823:Somewhere |T854:MyReference |T860:COMPANY NAME. |T861:COMPANY SECOND NAME |T863:COMPANY STREET 00 |T864:ETTERBEEK |T8700:BE7100 |T8748:  |T8904:002 |T8905:002 |T8914:HILDADOI |T8915:0561000542 |")
@@ -16,9 +16,9 @@
 
 <Method name="TestBerichtNederland">
 <Implementation><![CDATA[
-	#dim ParcelRequest As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefParcelNederlandDto()
+	#dim ParcelRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefParcelNederlandDto()
 	
-	Set Builder = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	Set Builder = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	#dim Request As %String = Builder.MaakRequest(ParcelRequest)
 	
 	Do ..AssertRequest(Request,"T050:Shipping Software |T051:V 12 |T084:P |T090:NOPRINT |T100:NL |T330:1040 |T400:001234567895 |T530:55,0 |T545:20.06.2009 |T805:12134567 |T810:Test Customer |T820:Test Street 12 |T821:NL |T822:9999 |T823:Somewhere |T854:MyReference |T860:COMPANY NAME. |T861:COMPANY SECOND NAME |T863:COMPANY STREET 00 |T864:ETTERBEEK |T8700:BE7100 |T8904:002 |T8905:002 |T8914:HILDADOI |T8915:0561000542 |")
@@ -27,9 +27,9 @@
 
 <Method name="TestRequiredVelden">
 <Implementation><![CDATA[
-	Set SimpelDto = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelRequest).%New()
+	Set SimpelDto = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest).%New()
 	Set SimpelDto.T051 = "V 1.5.2"
-	Set Builder = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	Set Builder = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	Try {
 		#dim Request As %String = Builder.MaakRequest(SimpelDto)
 	}Catch{
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/Error.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 40367)
@@ -45,8 +45,8 @@
 
 <Method name="GeefRequestType">
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Registratie()
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Registratie()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestParcelAnnulatie.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestParcelAnnulatie.cls.xml	(.../TestParcelAnnulatie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestParcelAnnulatie.cls.xml	(.../TestParcelAnnulatie.cls.xml)	(revision 40367)
@@ -6,11 +6,11 @@
 <Method name="Test">
 <Implementation><![CDATA[
 	
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
-	Set VerzendData = ##class(APPS.TRANSP.GLS.dto.VerzendData).%New($$$DummyInteger,"Unit1",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set VerzendData = ##class(APPS.TRANSP.GLS.dto.VerzendData).%New($$$DummyInteger,"Unit1",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 		
 	;Act
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest =  RequestBouwer.MaakAnnulatieRequest(VerzendData)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest = RequestBouwer.MaakAnnulatieRequest(VerzendData)
 	
 	;Assert
 	do $$$AssertEquals(Request.T000,"Unit1")
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelCashOnDelivery.cls.xml
===================================================================
diff -u -r29575 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelCashOnDelivery.cls.xml	(.../TestLeveringMetParcelCashOnDelivery.cls.xml)	(revision 29575)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetParcelCashOnDelivery.cls.xml	(.../TestLeveringMetParcelCashOnDelivery.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -21,10 +21,10 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())
 	If $$$AssertEquals(Requests.Count(),1){
-		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest")){
-			#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)
+		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest")){
+			#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)
 	
 			Do ..AssertGLSBasis(Request)
 			Do ..AssertAdressen(Request)
@@ -46,7 +46,7 @@
 
 <Method name="TestMultiColli">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 9
@@ -57,11 +57,11 @@
 	Set VerpakkingEenheid.Aantal = 3
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())
 	If $$$AssertEquals(Requests.Count(),3){
-		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest")){
+		If $$$AssertTrue(Requests.GetAt(1).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest")){
 			
-			#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)	
+			#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest = Requests.GetAt(1)	
 			Do ..AssertGLSBasis(Request)
 			Do ..AssertAdressen(Request)
 			Do ..AssertRequestBasis(Request)
@@ -79,11 +79,11 @@
 			Do $$$AssertEquals(Request.T753,..#Referentie)
 		}
 		
-		If $$$AssertEquals(Requests.GetAt(2).%ClassName(1),"APPS.TRANSP.GLS.Bericht.dto.ParcelRequest"){
+		If $$$AssertEquals(Requests.GetAt(2).%ClassName(1),"APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest"){
 			
-			Do $$$AssertFalse(Requests.GetAt(2).%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest"))
+			Do $$$AssertFalse(Requests.GetAt(2).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest"))
 			
-			#dim Request2 As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(2)	
+			#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(2)	
 			Do ..AssertGLSBasis(Request2)
 			Do ..AssertAdressen(Request2)
 			Do ..AssertRequestBasis(Request2)
@@ -99,7 +99,7 @@
 			Do $$$AssertEquals(Request2.T753,"")
 		}
 		
-		Do $$$AssertTrue(Requests.GetAt(3).%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelRequest"))
+		Do $$$AssertTrue(Requests.GetAt(3).%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest"))
 	}
 ]]></Implementation>
 </Method>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/AnnulatieRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/FreightTerms.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml	(.../TestLeveringEuropaMetColli.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml	(.../TestLeveringEuropaMetColli.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -20,9 +20,9 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do ..AssertGLSBasis(Request)
 	Do ..AssertAdressen(Request)
Index: APPS/TRANSP/GLS/GLSv1/DienstBepaler.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40367)
@@ -6,7 +6,7 @@
 
 <Method name="GeefDienst">
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.enu.Dienst</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml
===================================================================
diff -u -r29627 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml	(.../Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml)	(revision 29627)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml	(.../GLSv1/Bericht/impl/VerpakkingEenheidVisitorDtoMaker.cls.xml)	(revision 40367)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.VerpakkingEenheidVisitorDtoMaker">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.VerpakkingEenheidVisitorDtoMaker">
 <Super>APPS.TRANSP.VerpakkingEenheidVisitor,%RegisteredObject</Super>
 
 <Property name="Request">
-<Type>APPS.TRANSP.GLS.Bericht.dto.Request</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</Type>
 </Property>
 
 <Property name="LeveringInfo">
@@ -16,7 +16,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Request = Request
@@ -39,7 +39,7 @@
 <FormalSpec>Colli:APPS.TRANSP.dto.VerpakkingEenheid.Colli</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).Parcel()
+	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).Parcel()
 	Do ..VulInGewicht()
 	Quit $$$OK
 ]]></Implementation>
@@ -49,7 +49,7 @@
 <FormalSpec>Europallet:APPS.TRANSP.dto.VerpakkingEenheid.Europallet</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).Pallet()	
+	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).Pallet()	
 	Set ..Request.T854 = ..Request.T854 _ "PL"
 	Do ..VulInGewicht()
 	Quit $$$OK
@@ -60,7 +60,7 @@
 <FormalSpec>HalveEuropallet:APPS.TRANSP.dto.VerpakkingEenheid.HalveEuropallet</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).MiniPallet()	
+	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).MiniPallet()	
 	Set ..Request.T854 = ..Request.T854 _ "PL"
 	Do ..VulInGewicht()
 	Quit $$$OK
@@ -71,7 +71,7 @@
 <FormalSpec>Langgoed:APPS.TRANSP.dto.VerpakkingEenheid.Langgoed</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).Length()
+	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).Length()
 	If (..LeveringInfo.GewichtReedsVerdeeld > 0){
 		Set ..Request.T530 = ..GeefGeformateerdGewicht((Langgoed.Gewicht / Langgoed.Aantal))
 	}Else{
@@ -85,7 +85,7 @@
 <FormalSpec>BuitenmaatsPallet:APPS.TRANSP.dto.VerpakkingEenheid.BuitenmaatsPallet</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.Bericht.enu.PackageType).Pallet()
+	Set:(..IsTPTTagVerplicht()) ..Request.TPT = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType).Pallet()
 	Set ..Request.T854 = ..Request.T854 _ "PL"
 	Do ..VulInGewicht()
 	Quit $$$OK
Index: APPS/TRANSP/GLS/dto/VerzendData.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/dto/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/dto/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 40367)
@@ -8,11 +8,11 @@
 </Property>
 
 <Property name="VerzendWijze">
-<Type>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ID:%String,UnitID:%String,VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>ID:%String,UnitID:%String,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/CommunicatieServiceMock.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/CommunicatieServiceMock.cls.xml	(.../CommunicatieServiceMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/CommunicatieServiceMock.cls.xml	(.../CommunicatieServiceMock.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.impl.CommunicatieService</Super>
 
 <Method name="ValideerResponse">
-<FormalSpec>Response:%String,dtoResponse:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Response:%String,dtoResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml	(.../TestLeveringMetLanggoed.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetLanggoed.cls.xml	(.../TestLeveringMetLanggoed.cls.xml)	(revision 40367)
@@ -10,24 +10,24 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
 	Set LeveringData.AantalVerpakkingEenhedenTotaal = 2
 	
 	do LeveringData.VerpakkingEenheden.Insert(..GeefTweeStukkenLanggoed(3,2))
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 	if $$$AssertEquals(Requests.Count(),2){
-		#dim Request1 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(1)
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(1)
 		do ..AssertRequest(Request1,1,2)		
 		do $$$AssertEquals(Request1.TLG,"300","Lengte")
 		do $$$AssertEquals(Request1.T750,"LENGTH GOODS")
 		do $$$AssertEquals(Request1.T751,"LENGTH: 300 CENTIMETERS")
 		do $$$AssertEquals(Request1.T530,"1,2","Gewicht, afgerond van 2,3/2")
 		
-		#dim Request2 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(2)
+		#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(2)
 		do ..AssertRequest(Request2,2,2)
 		do $$$AssertEquals(Request2.TLG,"","Lengte")
 		do $$$AssertEquals(Request2.T750,"")
@@ -39,7 +39,7 @@
 
 <Method name="TestLanggoedEnPalletten">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 85.25
@@ -57,33 +57,33 @@
 	Set HalveEuropallet.Aantal = 1
 	Do LeveringData.VerpakkingEenheden.Insert(HalveEuropallet)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 	if $$$AssertEquals(Requests.Count(),4){
-		#dim Request1 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(1)
+		#dim Request1 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(1)
 		do ..AssertRequest(Request1,1,4,"F")				
 		do $$$AssertEquals(Request1.TPT,"CO","Request1")
 		do $$$AssertEquals(Request1.TLG,"300","Request1")
 		do $$$AssertEquals(Request1.T750,"LENGTH GOODS","Request1")
 		do $$$AssertEquals(Request1.T751,"LENGTH: 300 CENTIMETERS","Request1")
 		do $$$AssertEquals(Request1.T530,"1,2","Gewicht, afgerond van 2,3/2")
 		
-		#dim Request2 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(2)
+		#dim Request2 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(2)
 		do ..AssertRequest(Request2,2,4,"F")
 		do $$$AssertEquals(Request2.TPT,"CO","Request2")
 		do $$$AssertEquals(Request2.TLG,"280","Request2")
 		do $$$AssertEquals(Request2.T750,"LENGTH GOODS","Request2")
 		do $$$AssertEquals(Request2.T751,"LENGTH: 280 CENTIMETERS","Request2")
 		do $$$AssertEquals(Request2.T530,"1,2","Gewicht, afgerond van 2,3/2")
 		
-		#dim Request3 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(3)
+		#dim Request3 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(3)
 		do ..AssertRequest(Request3,3,4,"FPL")
 		do $$$AssertEquals(Request3.TPT,"PL","Request3")
 		do $$$AssertEquals(Request3.TLG,"","Request3")
 		do $$$AssertEquals(Request3.T750,"","Request3")
 		do $$$AssertEquals(Request3.T751,"","Request3")
 		do $$$AssertEquals(Request3.T530,"41,5","Gewicht, afgerond van (85.25-2,3)/2")
 		
-		#dim Request4 As APPS.TRANSP.GLS.Bericht.dto.Request = Requests.GetAt(4)
+		#dim Request4 As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = Requests.GetAt(4)
 		do ..AssertRequest(Request4,4,4,"FPL")
 		do $$$AssertEquals(Request4.TPT,"PL","Request4")
 		do $$$AssertEquals(Request4.T530,"41,5","Gewicht, afgerond van (85.25-2,3)/2")
@@ -105,10 +105,10 @@
 </Method>
 
 <Method name="AssertRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request,VolgNr:%Integer,Aantal:%Integer,ReferentieSuffix:%String=..#ReferentieSuffix</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,VolgNr:%Integer,Aantal:%Integer,ReferentieSuffix:%String=..#ReferentieSuffix</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do $$$AssertEquals(Request.%ClassName(1),"APPS.TRANSP.GLS.Bericht.dto.FreightRequest")
+	do $$$AssertEquals(Request.%ClassName(1),"APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest")
 	do ..AssertGLSBasis(Request)
 	do ..AssertAdressen(Request)
 	do ..AssertRequestBasis(Request, ReferentieSuffix)
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/AdditionalServicesT200.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/AdditionalServicesT200.cls.xml	(.../Bericht/enu/AdditionalServicesT200.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/AdditionalServicesT200.cls.xml	(.../GLSv1/Bericht/enu/AdditionalServicesT200.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.AdditionalServicesT200">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.AdditionalServicesT200">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%EnumString</Super>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryResponse.cls.xml	(.../Bericht/dto/FreightCashOnDeliveryResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/FreightCashOnDeliveryResponse.cls.xml	(.../GLSv1/Bericht/dto/FreightCashOnDeliveryResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.FreightResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse</Super>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositResponse.cls.xml	(.../Bericht/dto/ParcelDepositResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelDepositResponse.cls.xml	(.../GLSv1/Bericht/dto/ParcelDepositResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelDepositResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelResponse,APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse,APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml	(.../TestLeveringMetColli.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml	(.../TestLeveringMetColli.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -20,16 +20,16 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do ..AssertGLSBasis(Request)
 	Do ..AssertAdressen(Request)
 	Do ..AssertRequestBasis(Request)
 	
 	Do $$$AssertEquals(Request.T530,"2,3","Gewicht")
-	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
+	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
 	Do $$$AssertEquals(Request.T8748," ","Required voor BE,DE,PL,PT,AT,LU en IE maar moet leeg zijn (= spatie)")
 	
 	Do $$$AssertEquals(Request.T8904,"001","VolgNr")
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringParcelServiceTypes.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringParcelServiceTypes.cls.xml	(.../TestLeveringParcelServiceTypes.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringParcelServiceTypes.cls.xml	(.../TestLeveringParcelServiceTypes.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 
 <Method name="TestLaagGewicht">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 2.3
@@ -15,18 +15,18 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do $$$AssertEquals(Request.T530,"2,3","Gewicht")
-	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
+	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGemiddeldGewicht">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 40
@@ -37,12 +37,12 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do $$$AssertEquals(Request.T530,"40,0","Gewicht")
-	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).EuroBusinessParcel(),"Euro Business Parcel")
+	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).EuroBusinessParcel(),"Euro Business Parcel")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieResponse.cls.xml	(.../Bericht/dto/AnnulatieResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieResponse.cls.xml	(.../GLSv1/Bericht/dto/AnnulatieResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.AnnulatieResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest,APPS.TRANSP.GLS.Bericht.dto.ErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest,APPS.TRANSP.GLS.GLSv1.Bericht.dto.ErrorResponse</Super>
 
 <Property name="T510">
 <Type>%String</Type>
@@ -17,8 +17,6 @@
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="AnnulatieRequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T000</Value>
 </Value>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/T854SuffixBepaler.cls.xml
===================================================================
diff -u -r29393 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/T854SuffixBepaler.cls.xml	(.../Bericht/impl/T854SuffixBepaler.cls.xml)	(revision 29393)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/T854SuffixBepaler.cls.xml	(.../GLSv1/Bericht/impl/T854SuffixBepaler.cls.xml)	(revision 40367)
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.T854SuffixBepaler">
-<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.Bericht.enu.VerzendWijze.Verwerker</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler">
+<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze.Verwerker</Super>
 
 <Property name="Suffix">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="GeefSuffix">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set ..Suffix = ""
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ErrorResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ErrorResponse.cls.xml	(.../Bericht/dto/ErrorResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ErrorResponse.cls.xml	(.../GLSv1/Bericht/dto/ErrorResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ErrorResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.Response</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ErrorResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Super>
 
 <Property name="E000">
 <Description>
Index: vhDeploy/D20170308xAanpassenKlasseGLSdtoRequestData.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170308xAanpassenKlasseGLSdtoRequestData.cls.xml	(revision 0)
+++ vhDeploy/D20170308xAanpassenKlasseGLSdtoRequestData.cls.xml	(revision 40367)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20170308xAanpassenKlasseGLSdtoRequestData">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanpassen Klasse GLS dto Request Data</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Index As TECH.String = ""
+	for { set Index = $order(^DOM.TRANSP.DistributeurDataD(Index)) quit:Index=""
+		#dim Value = $lg(^DOM.TRANSP.DistributeurDataD(Index,"VerzendData"),5)
+		
+		set $li(Value,2)=$replace($li(Value,2),"GLS.Bericht.dto","GLS.GLSv1.Bericht.dto")
+		set $li(^DOM.TRANSP.DistributeurDataD(Index,"VerzendData"),5)= Value
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/AdditionalServicesT200.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40367)
@@ -49,7 +49,7 @@
 </Method>
 
 <Method name="ResponseBevatFout">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim BevatFout As %Boolean = 0
@@ -74,10 +74,10 @@
 </Method>
 
 <Method name="GeefFoutInResponse">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Error</ReturnType>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error</ReturnType>
 <Implementation><![CDATA[
-	set Fout = ##class(APPS.TRANSP.GLS.Bericht.dto.Error).%New()
+	set Fout = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error).%New()
 	
 	set Filter = ##class(TECH.ClassUtils.PropertyFilter).%New()
 	set Filter.BeginnendMet = "E"
@@ -87,7 +87,7 @@
 		#dim Property As %String = itProperties.Next()
 		#dim Waarde As %String = $property(Response,Property)
 		if $length(Waarde) {
-			set Fout = ##class(APPS.TRANSP.GLS.Bericht.dto.Error).%New(Property,Waarde)
+			set Fout = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error).%New(Property,Waarde)
 		}
 	}
 	
@@ -102,8 +102,8 @@
 </Method>
 
 <Method name="GeefRequestBouwer">
-<ReturnType>APPS.TRANSP.GLS.Bericht.RequestDataBouwer</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 ]]></Implementation>
 </Method>
 
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/ResponseDataBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ErrorResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/CommunicatieService/Template.cls.xml
===================================================================
diff -u -r40364 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService/Template.cls.xml	(.../Template.cls.xml)	(revision 40364)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/Template.cls.xml	(.../Template.cls.xml)	(revision 40367)
@@ -19,7 +19,7 @@
 </Property>
 
 <Property name="VerzendWijze">
-<Type>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</Type>
 <Private>1</Private>
 </Property>
 
@@ -47,7 +47,7 @@
 
 <Method name="GeefBerichtVoorICT">
 <Final>1</Final>
-<FormalSpec>Error:APPS.TRANSP.GLS.Bericht.dto.Error</FormalSpec>
+<FormalSpec>Error:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml
===================================================================
diff -u -r35164 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 35164)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 40367)
@@ -31,7 +31,7 @@
 </Method>
 
 <Method name="AssertGLSBasis">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T050,"VanHoecke","Software name")	
@@ -40,7 +40,7 @@
 </Method>
 
 <Method name="AssertRequestBasis">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request,ReferentieSuffix:%String=..#ReferentieSuffix</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,ReferentieSuffix:%String=..#ReferentieSuffix</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T545,##class(TECH.DateTime).GeefDatumInPuntNotatieLang(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()),"Datum doorsturen naar GLS bij etiket.")
@@ -51,7 +51,7 @@
 </Method>
 
 <Method name="AssertAdressen">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ..AssertAfzenderAdres(Request)
@@ -60,7 +60,7 @@
 </Method>
 
 <Method name="AssertAfzenderAdres">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T810,"AfzenderNaam")
@@ -73,7 +73,7 @@
 </Method>
 
 <Method name="AssertLeverAdres">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T860,"LeverNaam")
@@ -87,7 +87,7 @@
 </Method>
 
 <Method name="AssertFalseHeeftProperty">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request,PropertyNaam:%String</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,PropertyNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[	Do $$$AssertFalse(##class(%Dictionary.CompiledProperty).%ExistsId(Request.%ClassName(1)_"||"_PropertyNaam),Request.%ClassName(1)_" heeft geen property met naam '"_PropertyNaam_"'")
 ]]></Implementation>
Index: vhTest/Mock/APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhTest/Mock/APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/TRANSP/GLS/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 40367)
@@ -7,7 +7,7 @@
 
 <Method name="GeefVerzendWijze">
 <FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze",LeveringInfo)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/UnitIDHelper/GLSEigenschappen.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/UnitIDHelper/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/UnitIDHelper/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.impl.GLSEigenschappen</Super>
 
 <Method name="GeefBereikVoorVerzendWijze">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(533534018,533534030,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
Index: vhTest/Mock/APPS/TRANSP/GLS/CommunicatieService.cls.xml
===================================================================
diff -u -r40366 -r40367
--- vhTest/Mock/APPS/TRANSP/GLS/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40366)
+++ vhTest/Mock/APPS/TRANSP/GLS/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40367)
@@ -16,7 +16,7 @@
 </Method>
 
 <Method name="GeefRequestBouwer">
-<ReturnType>APPS.TRANSP.GLS.Bericht.RequestDataBouwer</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRequestBouwer")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetZwaardereColli.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetZwaardereColli.cls.xml	(.../TestLeveringMetZwaardereColli.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetZwaardereColli.cls.xml	(.../TestLeveringMetZwaardereColli.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 
 <Method name="TestNormaal">
 <Implementation><![CDATA[
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
 	
 	#dim LeveringData As APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringData()
 	Set LeveringData.Gewicht = 30
@@ -20,16 +20,16 @@
 	Set VerpakkingEenheid.Aantal = 1
 	do LeveringData.VerpakkingEenheden.Insert(VerpakkingEenheid)
 			
-	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel())
+	#dim Requests As List Of APPS.TRANSP.GLS.Bericht.dto.Request =  RequestBouwer.MaakRequests(LeveringData,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
 	Do $$$AssertEquals(Requests.Count(),1)	
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.ParcelRequest = Requests.GetAt(1)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest = Requests.GetAt(1)
 	
 	Do ..AssertGLSBasis(Request)
 	Do ..AssertAdressen(Request)
 	Do ..AssertRequestBasis(Request)
 	
 	Do $$$AssertEquals(Request.T530,"30,0","Gewicht")
-	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
+	Do $$$AssertEquals(Request.T206,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).BusinessParcel(),"Business Parcel")
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/T854SuffixBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/RequestStringBouwer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/RequestStringBouwer.cls.xml	(.../Bericht/RequestStringBouwer.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/RequestStringBouwer.cls.xml	(.../GLSv1/Bericht/RequestStringBouwer.cls.xml)	(revision 40367)
@@ -1,12 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.RequestStringBouwer">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.RequestStringBouwer">
 <Super>TECH.Interface</Super>
 
 <Method name="MaakRequest">
 <Abstract>1</Abstract>
-<FormalSpec>dtoRequest:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>dtoRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSEigenschappen.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40367)
@@ -7,30 +7,34 @@
 <Description>
 T8914 : GLS Contat ID (EDIname)</Description>
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefGLSGebruikerID">
 <Description>
 T8915 : GLS Customer ID (SAP account number)</Description>
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefGebruikerID">
 <Description>
 T805 : Customer number GLS BD</Description>
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefBereikVoorVerzendWijze">
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestFreightRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestFreightRequest.cls.xml	(.../TestFreightRequest.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestStringBouwer/TestFreightRequest.cls.xml	(.../TestFreightRequest.cls.xml)	(revision 40367)
@@ -5,9 +5,9 @@
 
 <Method name="TestStandaardBericht">
 <Implementation><![CDATA[
-	#dim FreightRequest As APPS.TRANSP.GLS.Bericht.dto.FreightRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefFreightStandaardDto()
+	#dim FreightRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.dto.Helper).GeefFreightStandaardDto()
 	
-	Set RequestStringBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	Set RequestStringBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	#dim Request As %String = RequestStringBouwer.MaakRequest(FreightRequest)
 	
 	Do ..AssertRequest(Request,"T050:Shipping Software |T051:V 12 |T090:NOPRINT |T100:BE |T1267:Y |T330:1040 |T400:001234567895 |T530:250,0 |T545:20.06.2009 |T805:12134567 |T810:Test Customer |T820:Test Street 12 |T821:BE |T822:9999 |T823:Somewhere |T852:  |T854:MyReference |T860:COMPANY NAME. |T861:COMPANY SECOND NAME |T863:COMPANY STREET 00 |T864:ETTERBEEK |T8904:002 |T8905:002 |T8914:HILDADOI |T8915:0561000542 |TPT:PL |")
@@ -18,10 +18,10 @@
 
 <Method name="TestRequiredVelden">
 <Implementation><![CDATA[
-	Set SimpelDto = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightRequest).%New()
+	Set SimpelDto = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest).%New()
 	Set SimpelDto.T000 = 1234567891
 	Set SimpelDto.T051 = "V 1.5.2"
-	Set RequestStringBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestStringBouwer).%New()
+	Set RequestStringBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestStringBouwer).%New()
 	Try {
 		#dim Request As %String = RequestStringBouwer.MaakRequest(SimpelDto)
 	}Catch{
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestParcelResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestParcelResponse.cls.xml	(.../TestParcelResponse.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestParcelResponse.cls.xml	(.../TestParcelResponse.cls.xml)	(revision 40367)
@@ -7,7 +7,7 @@
 <Implementation><![CDATA[
 	#dim ParcelResponse As %String = "T050:Shipping software|T051:V 12|T330:9800|T400:612402399089|T545:15.05.2013|T805:100610778|T810:VAN HOECKE nv|T811:HOECKE|T820:EUROPARK - NOORD 9|T821:BE|T822:9100|T823:SINT-NIKLAAS|T854:Eigen Referentie|T860:F.S. KEUKENS|T861:KREATIEVE KEUKENARCHITECTUUR|T863:GAVERSESTEENWEG 64|T864:DEINZE|T8700:BE6800|T8748:No value|T8904:001|T8905:001|T8914:056aaabECi|T8915:0560005353|T080:V79_5_0005|T520:25062013|T510:aj|T500:BE6800|T103:BE6800|T560:BE01|T8797:IBOXCUS|T540:15.05.2013|T541:08:49|T8749:S|T100:BE|CTRA2:BE|T210:|ARTNO:Standard|T530:4.80|T206:BP|ALTZIP:9800|FLOCCODE:BE6701|OWNER:2|TOURNO:3010|T320:301|TOURTYPE:21102|SORT1:0|T310:0|T331:9800|T890:9056|ROUTENO:2154922|ROUTE1:B61|T110:B61|FLOCNO:1533|T101:6701|T105:BE|T300:05667108|NDI:|T8970:A|T8971:A|T8975:100610778|T8980:AA|T8974:|T8916:612402399089|T8950:Tour|T8951:ZipCode|T8952:Your GLS Track ID|T8953:Product|T8954:Service Code|T8955:Delivery Address|T8956:Contact|T8958:Contact|T8957:Customer ID|T8959:Phone|T8960:Note|T8961:Parcel|T8962:Weight|T8965:Contact ID|T8913:ZI6ZFTPG|T8972:ZI6ZFTPG|T8902:ABE6800BE67010560005353056aaabECiZI6ZFTPGAA          0B6130109800   00480001001100610778                                   |T8903:A¬F.S. KEUKENS¬GAVERSESTEENWEG 64¬DEINZE¬¬Eigen Referentie¬¬                                                     |T102:BE6701|PRINTINFO:|PRINT1:|RESULT:E000:612402399089|T565:084931|PRINT0:xxGLSintermecpf4i200.int01|NDI:UTTest|CTRNUM:UTctrnum|PRINT1:UTprint1|PRINTINFO:UTprintinfo|ROUTE2:UTroute2|ROUTE3:UTroute3|SORT2:UTsort2|SORT3:UTsort3"
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim ResponseDto As APPS.TRANSP.GLS.Bericht.dto.ParcelResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New())
+	#dim ResponseDto As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New())
 	
 	Do $$$AssertEquals(ResponseDto.LabelVersion,"B2.00.0","Label Version, fixed tekst voor Parcel")
 	
@@ -43,7 +43,7 @@
 	
 	#dim ParcelResponse As %String = ..MaakBericht("RESULT:E006:UnitTestFout")
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim ResponseDto As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New())
+	#dim ResponseDto As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New())
 	
 	Do $$$AssertEquals(ResponseDto.E006,"UnitTestFout")
 ]]></Implementation>
@@ -54,7 +54,7 @@
 	
 	#dim ParcelResponse As %String = ..MaakBericht("RESULT:E013:")
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim ResponseDto As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New())
+	#dim ResponseDto As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(ParcelResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New())
 	
 	Do $$$AssertEquals(ResponseDto.E013,"ONBEKENDE FOUT")
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/RequestDataBouwerMock.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/RequestDataBouwerMock.cls.xml	(.../RequestDataBouwerMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/RequestDataBouwerMock.cls.xml	(.../RequestDataBouwerMock.cls.xml)	(revision 40367)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.RequestDataBouwerMock">
 <IncludeCode>vhLib.Macro</IncludeCode>
-<Super>APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer</Super>
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer</Super>
 
 <Property name="LaatsteUnitIDVanRit">
 <Type>%String</Type>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelReleaseRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/ResponseDataBouwerMock.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/ResponseDataBouwerMock.cls.xml	(.../ResponseDataBouwerMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/ResponseDataBouwerMock.cls.xml	(.../ResponseDataBouwerMock.cls.xml)	(revision 40367)
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock">
-<Super>APPS.TRANSP.GLS.Bericht.impl.ResponseDataBouwer</Super>
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.impl.ResponseDataBouwer</Super>
 
 <Property name="NietBestaandeProperties">
 <Type>%String</Type>
 <Collection>array</Collection>
 </Property>
 
 <Method name="MeldNietBestaandeProperty">
-<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
+<FormalSpec>PropertyNaam:%String,PropertyWaarde:%String,dtoResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[	Do ..NietBestaandeProperties.SetAt(1,PropertyNaam)
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/AbstractRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/AbstractRequest.cls.xml	(.../Bericht/dto/AbstractRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/AbstractRequest.cls.xml	(.../GLSv1/Bericht/dto/AbstractRequest.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.AbstractRequest">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest">
 <Abstract>1</Abstract>
 
 <Property name="VerzendDataID">
Index: APPS/TRANSP/GLS/Etiket/Etiket.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/Etiket/Etiket.cls.xml	(.../Etiket.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/Etiket/Etiket.cls.xml	(.../Etiket.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 <Super>BL.Sys.pxLabel</Super>
 
 <Property name="Response">
-<Type>APPS.TRANSP.GLS.Bericht.dto.Response</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Type>
 </Property>
 
 <Property name="TeExporterenProperties">
@@ -14,7 +14,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Response = Response
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/ResponseDataBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml	(.../Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml	(.../GLSv1/Bericht/dto/ParcelCashOnDeliveryRequest.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ParcelRequest</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</Super>
 
 <Property name="T203">
 <Description>
@@ -67,6 +67,10 @@
 <Required>1</Required>
 <Parameter name="MAXLEN" value="20"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze.cls.xml	(.../Bericht/enu/VerzendWijze.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/VerzendWijze.cls.xml	(.../GLSv1/Bericht/enu/VerzendWijze.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.VerzendWijze">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Enumeration</Super>
@@ -22,35 +22,35 @@
 
 <Method name="Parcel">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit "Parcel"
 ]]></Implementation>
 </Method>
 
 <Method name="ParcelCashOnDelivery">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit "ParcelCOD"
 ]]></Implementation>
 </Method>
 
 <Method name="ParcelDeposit">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit "ParcelDeposit"
 ]]></Implementation>
 </Method>
 
 <Method name="Freight">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit "Freight"
 ]]></Implementation>
 </Method>
 
 <Method name="FreightCashOnDelivery">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit "FreightCOD"
 ]]></Implementation>
 </Method>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/FreightCashOnDeliveryRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
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."
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/Response.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/Response.cls.xml	(.../Bericht/dto/Response.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/Response.cls.xml	(.../GLSv1/Bericht/dto/Response.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.Response">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response">
 <ClassType>serial</ClassType>
 <Super>%SerialObject</Super>
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestFreightAnnulatie.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestFreightAnnulatie.cls.xml	(.../TestFreightAnnulatie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestFreightAnnulatie.cls.xml	(.../TestFreightAnnulatie.cls.xml)	(revision 40367)
@@ -6,11 +6,11 @@
 <Method name="Test">
 <Implementation><![CDATA[
 	;Arrange
-	Set RequestBouwer = ##class(APPS.TRANSP.GLS.Bericht.impl.RequestDataBouwer).%New()
-	Set VerzendData = ##class(APPS.TRANSP.GLS.dto.VerzendData).%New($$$DummyInteger,"Unit1",##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight())
+	Set RequestBouwer = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.RequestDataBouwer).%New()
+	Set VerzendData = ##class(APPS.TRANSP.GLS.dto.VerzendData).%New($$$DummyInteger,"Unit1",##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
 		
 	;Act
-	#dim Request As APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest =  RequestBouwer.MaakAnnulatieRequest(VerzendData)
+	#dim Request As APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest = RequestBouwer.MaakAnnulatieRequest(VerzendData)
 	
 	;Assert
 	do $$$AssertEquals(Request.T000,"Unit1")
Index: APPS/TRANSP/GLS/Etiket/impl/Freight.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/Etiket/impl/Freight.cls.xml	(.../Freight.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/Etiket/impl/Freight.cls.xml	(.../Freight.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.Etiket.Etiket</Super>
 
 <Method name="%OnNew">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Do ##super(Response)
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/impl/RequestStringBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Socket/impl/Factory/TestGeefSocket.cls.xml
===================================================================
diff -u -r40359 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Socket/impl/Factory/TestGeefSocket.cls.xml	(.../TestGeefSocket.cls.xml)	(revision 40359)
+++ vhUnitTest/APPS/TRANSP/GLS/Socket/impl/Factory/TestGeefSocket.cls.xml	(.../TestGeefSocket.cls.xml)	(revision 40367)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="Request">
-<Type>APPS.TRANSP.GLS.Bericht.dto.Request</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</Type>
 <Private>1</Private>
 </Property>
 
@@ -18,7 +18,7 @@
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	set ..Factory = ##class(APPS.TRANSP.GLS.GLSv1.Socket.impl.Factory).%New()	
-	set ..Request = ##class(APPS.TRANSP.GLS.Bericht.dto.Request).%New()
+	set ..Request = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request).%New()
 ]]></Implementation>
 </Method>
 
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/Status.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/Status.cls.xml	(.../Bericht/enu/Status.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/Status.cls.xml	(.../GLSv1/Bericht/enu/Status.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.Status">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Enumeration</Super>
@@ -15,21 +15,21 @@
 
 <Method name="Started">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.Status</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status</ReturnType>
 <Implementation><![CDATA[	quit "Started"
 ]]></Implementation>
 </Method>
 
 <Method name="Finished">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.Status</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status</ReturnType>
 <Implementation><![CDATA[	quit "Finished"
 ]]></Implementation>
 </Method>
 
 <Method name="Failed">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.Status</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status</ReturnType>
 <Implementation><![CDATA[	quit "Failed"
 ]]></Implementation>
 </Method>
Index: vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/UnitIDBepalerMock.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/UnitIDBepalerMock.cls.xml	(.../UnitIDBepalerMock.cls.xml)	(revision 29059)
+++ vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/UnitIDBepalerMock.cls.xml	(.../UnitIDBepalerMock.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 <Super>APPS.TRANSP.GLS.impl.UnitIDBepaler</Super>
 
 <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[
 	If '$D(%UnitID) {
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/PackageType.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/Request.cls.xml
===================================================================
diff -u -r31779 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/Request.cls.xml	(.../Bericht/dto/Request.cls.xml)	(revision 31779)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/Request.cls.xml	(.../GLSv1/Bericht/dto/Request.cls.xml)	(revision 40367)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.Request">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request">
 <ClassType>serial</ClassType>
 <IncludeCode>vhLib.Macro</IncludeCode>
-<Super>APPS.TRANSP.GLS.Bericht.dto.AbstractRequest,%SerialObject</Super>
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest,%SerialObject</Super>
 
 <Property name="T050">
 <Description>
@@ -42,7 +42,7 @@
 <Property name="T200">
 <Description>
 Combination of national product type (see 11.1)</Description>
-<Type>APPS.TRANSP.GLS.Bericht.enu.AdditionalServicesT200</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.AdditionalServicesT200</Type>
 </Property>
 
 <Property name="T201">
@@ -66,7 +66,7 @@
 </Property>
 
 <Property name="T210">
-<Type>APPS.TRANSP.GLS.Bericht.enu.FreightTerms</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.FreightTerms</Type>
 </Property>
 
 <Property name="T330">
Index: APPS/TRANSP/GLS/GLSv1/Socket/impl/Factory.cls.xml
===================================================================
diff -u -r40359 -r40367
--- APPS/TRANSP/GLS/GLSv1/Socket/impl/Factory.cls.xml	(.../Factory.cls.xml)	(revision 40359)
+++ APPS/TRANSP/GLS/GLSv1/Socket/impl/Factory.cls.xml	(.../Factory.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.GLSv1.Socket.Factory,%RegisteredObject</Super>
 
 <Method name="GeefSocket">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket</ReturnType>
 <Implementation><![CDATA[
 	#dim Socket As APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket
@@ -37,26 +37,26 @@
 </Method>
 
 <Method name="GeefNieuwResponse">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.Response
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response
 	If Request.%ClassName(0)["Annulatie"{
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.AnnulatieResponse).%New()	
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightReleaseRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightReleaseResponse).%New()	
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelReleaseResponse).%New()	
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightCashOnDeliveryResponse).%New()	
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelCashOnDeliveryResponse).%New()
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelDepositRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelDepositResponse).%New()
-	}ElseIf Request.%IsA("APPS.TRANSP.GLS.Bericht.dto.ParcelRequest"){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.ParcelResponse).%New()
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieResponse).%New()	
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseResponse).%New()	
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseResponse).%New()	
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightCashOnDeliveryResponse).%New()	
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryResponse).%New()
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositResponse).%New()
+	}ElseIf Request.%IsA("APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest"){
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse).%New()
 	}ElseIf ..IsFreight(Request){
-		Set Response = ##class(APPS.TRANSP.GLS.Bericht.dto.FreightResponse).%New()	
+		Set Response = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse).%New()	
 	}Else{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New("Kan geen repsonse dto voor request '"_Request.%ClassName(1)_"' maken."))
 	}
@@ -65,15 +65,15 @@
 </Method>
 
 <Method name="IsFreight">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (Request.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight()))
 ]]></Implementation>
 </Method>
 
 <Method name="IsParcel">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (Request.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel()))
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/ParcelErrorResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/AbstractRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r33233 -r40367
--- APPS/TRANSP/GLS/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 33233)
+++ APPS/TRANSP/GLS/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 40367)
@@ -5,9 +5,9 @@
 
 <Method name="GeefVerzendWijze">
 <FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.TRANSP.GLS.Bericht.enu.VerzendWijze
+	#dim VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze
 	#dim IsMeestBeperkendeVerzendWijze As %Boolean = 1
 	Set VerpakkingEenheidIt = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
 	While (VerpakkingEenheidIt.HasNext() && IsMeestBeperkendeVerzendWijze)
@@ -29,18 +29,18 @@
 		 ((GemiddeldGewicht > 32) && ..IsLeveringInBelgie(LeveringInfo)) ||
 		 (IsCashOnDelivery && '(..IsLeveringInBelgie(LeveringInfo))) {
 			If (IsCashOnDelivery){
-				Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery()
+				Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery()
 			}Else{
-				Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()
+				Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
 			}
 			Set IsMeestBeperkendeVerzendWijze = 0
 		}Elseif VerpakkingEenheid.%ClassName()="Colli" {
 			If (IsCashOnDelivery) {
-				Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelCashOnDelivery()
+				Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery()
 			}ElseIf (..IsDeposit(LeveringInfo)) {
-				Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit()
+				Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit()
 			}Else{
-				Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()	
+				Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()	
 			}
 		} else {
 			set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_"is niet ondersteund")
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/AnnulatieResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieRequest.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieRequest.cls.xml	(.../Bericht/dto/AnnulatieRequest.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/AnnulatieRequest.cls.xml	(.../GLSv1/Bericht/dto/AnnulatieRequest.cls.xml)	(revision 40367)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest">
 <ClassType>serial</ClassType>
-<Super>%SerialObject,APPS.TRANSP.GLS.Bericht.dto.AbstractRequest</Super>
+<Super>%SerialObject,APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest</Super>
 
 <Property name="T000">
 <Description>
@@ -43,8 +43,6 @@
 <State>AnnulatieRequestState</State>
 <StreamLocation>^APPS.TRANS4539.AnnulatieRe3EC6S</StreamLocation>
 <Data name="AnnulatieRequestState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>T000</Value>
 </Value>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/Request.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/RequestType.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/SocketFactoryMock.cls.xml
===================================================================
diff -u -r40359 -r40367
--- vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/SocketFactoryMock.cls.xml	(.../SocketFactoryMock.cls.xml)	(revision 40359)
+++ vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/SocketFactoryMock.cls.xml	(.../SocketFactoryMock.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.GLSv1.Socket.impl.Factory,Tools.Mock.MockClassBase</Super>
 
 <Method name="GeefSocket">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket</ReturnType>
 <Implementation><![CDATA[	quit ##class(vhTest.Integratie.Magazijn.Transport.GLS.BerichtEnEtiket.SocketMock).%New()
 ]]></Implementation>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/dto/Response.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaBase.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaBase.cls.xml	(.../TestLeveringEuropaBase.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaBase.cls.xml	(.../TestLeveringEuropaBase.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>vhUnitTest.APPS.TRANSP.GLS.Bericht.RequestDataBouwer.TestBase</Super>
 
 <Method name="AssertLeverAdres">
-<FormalSpec>Request:APPS.TRANSP.GLS.Bericht.dto.Request</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Request.T860,"LeverNaam")
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/PackageType.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/PackageType.cls.xml	(.../Bericht/enu/PackageType.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/PackageType.cls.xml	(.../GLSv1/Bericht/enu/PackageType.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.PackageType">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%EnumString</Super>
@@ -22,70 +22,70 @@
 
 <Method name="Carton">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "CO"
 ]]></Implementation>
 </Method>
 
 <Method name="Bag">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "CO"
 ]]></Implementation>
 </Method>
 
 <Method name="Parcel">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "CO"
 ]]></Implementation>
 </Method>
 
 <Method name="Bundle">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "CO"
 ]]></Implementation>
 </Method>
 
 <Method name="Length">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "CO"
 ]]></Implementation>
 </Method>
 
 <Method name="MiniPallet">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "PL"
 ]]></Implementation>
 </Method>
 
 <Method name="BlockPallet">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "PL"
 ]]></Implementation>
 </Method>
 
 <Method name="OversizedPallet">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "PL"
 ]]></Implementation>
 </Method>
 
 <Method name="Pallet">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "PL"
 ]]></Implementation>
 </Method>
 
 <Method name="RollCage">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.PackageType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.PackageType</ReturnType>
 <Implementation><![CDATA[	Quit "PL"
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/ParcelServiceTypeBepaler.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/ParcelServiceTypeBepaler.cls.xml	(.../Bericht/impl/ParcelServiceTypeBepaler.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/ParcelServiceTypeBepaler.cls.xml	(.../GLSv1/Bericht/impl/ParcelServiceTypeBepaler.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.impl.ParcelServiceTypeBepaler">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler">
 <Super>%RegisteredObject</Super>
 
 <Property name="LeveringInfo">
@@ -17,9 +17,9 @@
 </Method>
 
 <Method name="GeefServiceType">
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.ServiceType</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType</ReturnType>
 <Implementation><![CDATA[
-	#dim ServiceType As %String = ##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).BusinessParcel()
+	#dim ServiceType As %String = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).BusinessParcel()
 	#dim TotaalGewicht As %Decimal = ..LeveringInfo.Gewicht
 	#dim GemiddeldGewicht As %Decimal = (TotaalGewicht/..LeveringInfo.AantalVerpakkingEenhedenTotaal)
 	#dim VerpakkingEenheidIt As TECH.Iterator = ##class(TECH.ListIterator).%New(..LeveringInfo.VerpakkingEenheden)
@@ -45,7 +45,7 @@
 			Set Bericht = "Voor parcel mag het gewicht niet groter zijn dan 32kg voor BusinessParcel."_$C(13,10)
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Bericht_LeveringInfoString))
 		}ElseIf ('..IsNationaleZending()) {
-			Set ServiceType = ##class(APPS.TRANSP.GLS.Bericht.enu.ServiceType).EuroBusinessParcel()
+			Set ServiceType = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.ServiceType).EuroBusinessParcel()
 		}
 	}
 	Quit ServiceType
Index: APPS/OV/impl/GLSTrackAndTrace.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 40366)
+++ APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 40367)
@@ -146,7 +146,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.TRANSP.GLS.Bericht.enu.VerzendWijze = ""
+	#dim VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze = ""
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	If DistributeurDataIDIt.HasNext() {
 		#dim DistributeurDataID As %String = DistributeurDataIDIt.Next()
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/enu/VerzendWijze/Verwerker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/TestAnnuleerNietGelukteEnConfirmeer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/TestAnnuleerNietGelukteEnConfirmeer.cls.xml	(.../TestAnnuleerNietGelukteEnConfirmeer.cls.xml)	(revision 29059)
+++ vhTest/Integratie/Magazijn/Transport/GLS/BerichtEnEtiket/TestAnnuleerNietGelukteEnConfirmeer.cls.xml	(.../TestAnnuleerNietGelukteEnConfirmeer.cls.xml)	(revision 40367)
@@ -16,9 +16,9 @@
 	do ##super(TestName)
 	Set VerzendData = ##class(APPS.TRANSP.GLS.data.VerzendData).%New()
 	Set VerzendData.UnitID = "UTUnitID"
-	Set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Confirmatie()
-	Set VerzendData.Status = ##class(APPS.TRANSP.GLS.Bericht.enu.Status).Started()
-	Set VerzendData.VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()
+	Set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Confirmatie()
+	Set VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Started()
+	Set VerzendData.VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
 	Do VerzendData.Save()
 ]]></Implementation>
 </Method>
FishEye: Tag 40367 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Bericht/RequestDataBouwer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TRANSP/GLS/Etiket/impl/Parcel.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/Etiket/impl/Parcel.cls.xml	(.../Parcel.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/Etiket/impl/Parcel.cls.xml	(.../Parcel.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>APPS.TRANSP.GLS.Etiket.Etiket</Super>
 
 <Method name="%OnNew">
-<FormalSpec>Response:APPS.TRANSP.GLS.Bericht.dto.Response</FormalSpec>
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Do ##super(Response)
Index: APPS/TRANSP/GLS/GLSv1/Bericht/enu/FreightTerms.cls.xml
===================================================================
diff -u -r32436 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/enu/FreightTerms.cls.xml	(.../Bericht/enu/FreightTerms.cls.xml)	(revision 32436)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/enu/FreightTerms.cls.xml	(.../GLSv1/Bericht/enu/FreightTerms.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.enu.FreightTerms">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.enu.FreightTerms">
 <Description>
 Freight terms (see 11.3) // Incoterm (e.g. Switserland)</Description>
 <ClassType>datatype</ClassType>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestFreightResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestFreightResponse.cls.xml	(.../TestFreightResponse.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer/TestFreightResponse.cls.xml	(.../TestFreightResponse.cls.xml)	(revision 40367)
@@ -7,7 +7,7 @@
 <Implementation><![CDATA[
 	#dim FreightResponse As %String = "T050:Shipping software|T051:V 12|T330:9800|T400:612402399089|T545:15.05.2013|T805:100610778|T810:VAN HOECKE nv|T811:HOECKE|T820:EUROPARK - NOORD 9|T821:BE|T822:9100|T823:SINT-NIKLAAS|T854:Eigen Referentie|T860:F.S. KEUKENS|T861:KREATIEVE KEUKENARCHITECTUUR|T863:GAVERSESTEENWEG 64|T864:DEINZE|T8904:001|T8905:001|T540:20.01.2013|T541:12:22|T100:UT|T101:UTUT|T1267:UT1267|T310:999|T500:UT500|T510:UT|T520:999|T8914:UT8914|T8915:UT8915|T979:UT979|TPT:PL"
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.Bericht.dto.FreightResponse).%New())	
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse).%New())	
 		
 	Do $$$AssertEquals(Response.LabelVersion,"FR1.00.0","Label Version, fixed tekst voor Freight")
 	
@@ -23,7 +23,7 @@
 <Implementation><![CDATA[
 	#dim FreightResponse As %String = ..MaakBericht("E006:UnitTestFout")
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.Bericht.dto.FreightResponse).%New())	
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse).%New())	
 	
 	Do $$$AssertEquals(Response.E006,"UnitTestFout")
 ]]></Implementation>
@@ -33,7 +33,7 @@
 <Implementation><![CDATA[
 	#dim FreightResponse As %String = ..MaakBericht("E006:UnitTestFout|NIETBESTAAND:Waarde")
 	Set ResponseDataBouwer = ##class(vhUnitTest.APPS.TRANSP.GLS.Bericht.ResponseDataBouwer.ResponseDataBouwerMock).%New()
-	#dim Response As APPS.TRANSP.GLS.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.Bericht.dto.FreightResponse).%New())	
+	#dim Response As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = ResponseDataBouwer.VulInResponse(FreightResponse,##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse).%New())	
 		
 	Do $$$AssertTrue(ResponseDataBouwer.NietBestaandeProperties.IsDefined("NIETBESTAAND"))
 ]]></Implementation>
Index: APPS/TRANSP/GLS/GLSv1/UnitIdBepaler.cls.xml
===================================================================
diff -u -r40366 -r40367
--- APPS/TRANSP/GLS/GLSv1/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 40366)
+++ APPS/TRANSP/GLS/GLSv1/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 40367)
@@ -5,7 +5,7 @@
 
 <Method name="GeefUnitID">
 <Abstract>1</Abstract>
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/RequestDataBouwer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/RequestDataBouwer.cls.xml	(.../Bericht/RequestDataBouwer.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/RequestDataBouwer.cls.xml	(.../GLSv1/Bericht/RequestDataBouwer.cls.xml)	(revision 40367)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.RequestDataBouwer">
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer">
 <Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
@@ -15,13 +15,13 @@
 <Method name="MaakAnnulatieRequest">
 <Abstract>1</Abstract>
 <FormalSpec>VerzendData:APPS.TRANSP.GLS.dto.VerzendData</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.AnnulatieRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakRequests">
 <Abstract>1</Abstract>
-<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.TRANSP.GLS.Bericht.dto.Request"</ReturnTypeParams>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/APPS/TRANSP/GLS/DienstBepaler.cls.xml
===================================================================
diff -u -r40366 -r40367
--- vhTest/Mock/APPS/TRANSP/GLS/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40366)
+++ vhTest/Mock/APPS/TRANSP/GLS/DienstBepaler.cls.xml	(.../DienstBepaler.cls.xml)	(revision 40367)
@@ -10,7 +10,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefDienst">
-<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.enu.Dienst</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDienst",VerzendWijze)
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml
===================================================================
diff -u -r30995 -r40367
--- vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml	(.../TestUnitIDBepaler.cls.xml)	(revision 30995)
+++ vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml	(.../TestUnitIDBepaler.cls.xml)	(revision 40367)
@@ -4,7 +4,7 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="VerzendWijze">
-<Type>APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</Type>
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</Type>
 <InitialExpression>"UnitTestVerzendWijze"</InitialExpression>
 </Property>
 
Index: vhTest/Mock/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer.cls.xml
===================================================================
diff -u -r29059 -r40367
--- vhTest/Mock/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer.cls.xml	(.../ResponseDataBouwer.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/TRANSP/GLS/Bericht/ResponseDataBouwer.cls.xml	(.../ResponseDataBouwer.cls.xml)	(revision 40367)
@@ -5,12 +5,12 @@
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.TRANSP.GLS.Bericht.ResponseDataBouwer,Tools.Mock.MockClassBase</Super>
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.ResponseDataBouwer,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="MaakResponse">
-<FormalSpec>dtoRequest:APPS.TRANSP.GLS.Bericht.dto.Request,Response:%String</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.Bericht.dto.Response</ReturnType>
+<FormalSpec>dtoRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,Response:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakResponse",dtoRequest,Response)
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelErrorResponse.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelErrorResponse.cls.xml	(.../Bericht/dto/ParcelErrorResponse.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/ParcelErrorResponse.cls.xml	(.../GLSv1/Bericht/dto/ParcelErrorResponse.cls.xml)	(revision 40367)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Bericht.dto.ParcelErrorResponse">
-<Super>APPS.TRANSP.GLS.Bericht.dto.ErrorResponse</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelErrorResponse">
+<Super>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ErrorResponse</Super>
 
 <Property name="E007">
 <Description>
@@ -69,8 +69,6 @@
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="ResponseState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>E000</Value>
 </Value>
Index: APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerLevering.cls.xml
===================================================================
diff -u -r29059 -r40367
--- APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerLevering.cls.xml	(.../AnnuleerLevering.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/AnnuleerLevering.cls.xml	(.../AnnuleerLevering.cls.xml)	(revision 40367)
@@ -21,8 +21,8 @@
 
 <Method name="GeefRequestType">
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.Bericht.enu.RequestType</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.Bericht.enu.RequestType).Annulatie()
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Annulatie()
 ]]></Implementation>
 </Method>
 </Class>