Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r59700 -r59827
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 59700)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 59827)
@@ -149,10 +149,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ConcatineerSymboolReference As %String = "X"
 	#dim RitID As %String = $$$Trim(Levering.GeefRitID())
-	#dim Uitlevering As %String = $$$Trim(Levering.GeefID())
-	#dim Reference As %String = RitID_ConcatineerSymboolReference_Uitlevering
+	#dim Uitlevering As %String = $Extract($$$Trim(Levering.GeefID()),*-4,*)
+	#dim Reference As %String = RitID_Uitlevering
 	Quit Reference
 ]]></Implementation>
 </Method>