Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63102 -r63119
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63102)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63119)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderAPI">
+<Type>DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler=""</FormalSpec>
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..PartijAPI = $$$Inject(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..HtmlInhoudProboxEtiketBepaler = $$$Inject(HtmlInhoudProboxEtiketBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New())
+	Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -45,6 +51,8 @@
 	#dim KlantNummer As %String = DnaCode.KlantNummer
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer)
 	
+	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId)
+	
 	Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New()
  	Set ProboxInhoudLabel.Device = LabelDevice
  	
@@ -53,6 +61,7 @@
  	Set ProboxInhoudLabel.InhoudAlsHTML = ..HtmlInhoudProboxEtiketBepaler.BepaalHtmlInhoudProboxEtiket(DnaCodeIterator)
  	Set ProboxInhoudLabel.PalletBarcode = PalletId
  	Set ProboxInhoudLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletId)
+	Set ProboxInhoudLabel.OrderRef = Order.GeefOrderReferentie()
 
  	Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)