Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r66966 -r68991
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 66966)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 68991)
@@ -136,7 +136,7 @@
 		#dim Maand = $$$UCase($Piece($ZD(PickupDate,2)," ",2))	
 		#dim BartenderPrinter as %String = ..PrintAPI.GeefLabelPrinter("TRANSP_DI1",ComputerNaam).GeefDevice()
 		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()
-		do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal)		
+		do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))		
 
 	} else {