Index: APPS/TRANSP/GLS/impl/EtiketService.cls.xml
===================================================================
diff -u -r40507 -r40510
--- APPS/TRANSP/GLS/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 40507)
+++ APPS/TRANSP/GLS/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 40510)
@@ -10,7 +10,7 @@
 	Set Computernaam = ##class(TECH.StringUtils).ToUpper(Computernaam)
 	#dim LabelPrinter As APPS.common.Print.LabelPrinter = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("TRANSP_DI1",Computernaam)
 	
-	Set EtiketBouwerResponseVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
+	Set EtiketBouwerResponseVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New()
 	
 	#dim DistributeurDataIDs As %ListOfDataTypes = Levering.GeefDistributeurDataIDs()
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(DistributeurDataIDs)
Index: APPS/TRANSP/GLS/GLSv1/impl/Etiket/Freight.cls.xml
===================================================================
diff -u -r40367 -r40510
--- APPS/TRANSP/GLS/GLSv1/impl/Etiket/Freight.cls.xml	(.../Etiket/impl/Freight.cls.xml)	(revision 40367)
+++ APPS/TRANSP/GLS/GLSv1/impl/Etiket/Freight.cls.xml	(.../GLSv1/impl/Etiket/Freight.cls.xml)	(revision 40510)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Etiket.impl.Freight">
-<Super>APPS.TRANSP.GLS.Etiket.Etiket</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.Etiket.Freight">
+<Super>APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base</Super>
 
 <Method name="%OnNew">
 <FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
Index: APPS/TRANSP/GLS/GLSv1/impl/EtiketBouwerResponseVisitor.cls.xml
===================================================================
diff -u -r40367 -r40510
--- APPS/TRANSP/GLS/GLSv1/impl/EtiketBouwerResponseVisitor.cls.xml	(.../impl/EtiketBouwerResponseVisitor.cls.xml)	(revision 40367)
+++ APPS/TRANSP/GLS/GLSv1/impl/EtiketBouwerResponseVisitor.cls.xml	(.../GLSv1/impl/EtiketBouwerResponseVisitor.cls.xml)	(revision 40510)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor">
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor">
 <Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.ResponseVisitor</Super>
 
 <Property name="Response">
@@ -17,9 +17,9 @@
 <FormalSpec>FreightResponse:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim T979 As %String = FreightResponse.T979 
+	#dim T979 As %String = FreightResponse.T979
 	Set FreightResponse.T979 = $Piece($Piece(T979,"ABXPCLNUM,",2),";",1)
-	Set ..Etiket = ##class(APPS.TRANSP.GLS.Etiket.impl.Freight).%New(FreightResponse)
+	Set ..Etiket = ##class(APPS.TRANSP.GLS.GLSv1.impl.Etiket.Freight).%New(FreightResponse)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -34,7 +34,7 @@
 	
 	Set ParselResponse.T8902 = PrimaryBarcode	
 	Set ParselResponse.T8903 = SecondaryBarcode
-	Set ..Etiket = ##class(APPS.TRANSP.GLS.Etiket.impl.Parcel).%New(ParselResponse)
+	Set ..Etiket = ##class(APPS.TRANSP.GLS.GLSv1.impl.Etiket.Parcel).%New(ParselResponse)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/GLS/GLSv1/impl/Etiket/Parcel.cls.xml
===================================================================
diff -u -r40367 -r40510
--- APPS/TRANSP/GLS/GLSv1/impl/Etiket/Parcel.cls.xml	(.../Etiket/impl/Parcel.cls.xml)	(revision 40367)
+++ APPS/TRANSP/GLS/GLSv1/impl/Etiket/Parcel.cls.xml	(.../GLSv1/impl/Etiket/Parcel.cls.xml)	(revision 40510)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.TRANSP.GLS.Etiket.impl.Parcel">
-<Super>APPS.TRANSP.GLS.Etiket.Etiket</Super>
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.Etiket.Parcel">
+<Super>APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base</Super>
 
 <Method name="%OnNew">
 <FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
FishEye: Tag 40510 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/impl/EtiketBouwerResponseVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml
===================================================================
diff -u -r40367 -r40510
--- vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml	(.../TestEtiketBouwerResponseVisitor.cls.xml)	(revision 40367)
+++ vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml	(.../TestEtiketBouwerResponseVisitor.cls.xml)	(revision 40510)
@@ -22,9 +22,9 @@
 	Set Response.T979 = Input
 	
 	;Act
-	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
+	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkFreightResponse(Response)
-	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()		
+	#dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket()		
 	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = Etiket.Response
 	
 	;Assert
@@ -39,9 +39,9 @@
 	Set Response.T8902 = "Test15CharsLang"
 	
 	;Act
-	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
+	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkParcelResponse(Response)
-	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()
+	#dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket()
 	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response
 	
 	;Assert
@@ -57,9 +57,9 @@
 	Set Response.T8903 = "T]nog tekst]nog iets]nog wat]abc"
 	
 	;Act
-	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New()
+	Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New()
 	Do EtiketBouwerVisitor.VerwerkParcelResponse(Response)
-	#dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket()
+	#dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket()
 	#dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response
 	
 	;Assert
Index: APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml	(revision 40510)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base">
+<Abstract>1</Abstract>
+<Super>BL.Sys.pxLabel</Super>
+
+<Property name="Response">
+<Type>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</Type>
+</Property>
+
+<Property name="TeExporterenProperties">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Response = Response
+	Set ..Aantal = 1
+	Set ..Taal = "N"
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim Request As %String = ""
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(..Response.%ClassName(1))
+	Set Iterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
+	While (Iterator.HasNext())
+	{
+		#dim Property As %Dictionary.CompiledProperty = Iterator.Next()
+		If ..IsPropertyTeExporteren(Property,Klasse)
+		{
+			Do ..TeExporterenProperties.Insert(Property.Name)
+			Write Property.Name,$C(9)
+		}
+	}
+	Write $C(13,10)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim Request As %String = ""
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(..Response.%ClassName(1))
+	Set Iterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
+	While (Iterator.HasNext())
+	{
+		#dim Property As %Dictionary.CompiledProperty = Iterator.Next()
+		If ..IsPropertyTeExporteren(Property,Klasse)
+		{
+			Write $PROPERTY(..Response,Property.Name),$C(9)
+		}	
+	}
+	Write $C(13,10)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsPropertyTeExporteren">
+<FormalSpec>Property:%Dictionary.CompiledProperty,Klasse:%Dictionary.CompiledClass</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((('Property.Private) && ('Property.Internal) && (Property.Origin '[ "%")) && (Property.Name '= "T084") && (Property.Name '= "T205"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 40510 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Etiket/impl/Freight.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 40510 refers to a dead (removed) revision in file `APPS/TRANSP/GLS/Etiket/impl/Parcel.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?