Index: BL/Etiket/VRDDueOut.cls.xml
===================================================================
diff -u -r66962 -r68991
--- BL/Etiket/VRDDueOut.cls.xml	(.../VRDDueOut.cls.xml)	(revision 66962)
+++ BL/Etiket/VRDDueOut.cls.xml	(.../VRDDueOut.cls.xml)	(revision 68991)
@@ -19,6 +19,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="BONNr">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -35,6 +40,7 @@
 <Implementation><![CDATA[
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Dag),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Maand),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..BONNr),$$$TAB
 	
 	Write $$$CRLF
 	Quit $$$OK
Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r68369 -r68991
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68369)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68991)
@@ -281,8 +281,8 @@
 </Method>
 
 <Method name="VRDDueOutEtiket">
-<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VRDDueOutEtiket",Dag,Maand,LabelPrinter,Aantal)
+<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VRDDueOutEtiket",Dag,Maand,LabelPrinter,Aantal,BONNr)
 ]]></Implementation>
 </Method>
 
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r68388 -r68991
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68388)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68991)
@@ -1677,13 +1677,14 @@
 </Method>
 
 <Method name="VRDDueOutEtiket">
-<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1</FormalSpec>
+<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""</FormalSpec>
 <Implementation><![CDATA[
  	Do ..blLabelPrinter.Clear()
  	Set VRDDueOutLabel = ##class(BL.Etiket.VRDDueOut).%New()
  	Set VRDDueOutLabel.Dag = Dag
  	Set VRDDueOutLabel.Maand = Maand
  	Set VRDDueOutLabel.Device = LabelPrinter
+ 	Set VRDDueOutLabel.BONNr = BONNr
  	for i=1:1:Aantal {
 	 	Do ..blLabelPrinter.Add(VRDDueOutLabel)
  	}
Index: vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r68369 -r68991
--- vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68369)
+++ vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 68991)
@@ -21,8 +21,7 @@
 
 <Method name="ProboxBarcodeEtiketten">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VRDDueOutEtiket">
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 {