Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r67595 -r69502
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 67595)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 69502)
@@ -94,7 +94,13 @@
 	Set ProboxInhoudLabel.OrderNr = Order.GeefID()
 	Set ProboxInhoudLabel.ToeleveringNr = ToeleveringId
 	Set ProboxInhoudLabel.VerzendingWijze = Order.GeefVerzendingWijze()
+	Set ProboxInhoudLabel.KlantOrderNummer = ""
 	
+	If (##class(APPS.common.impl.KlantInstellingenService).%New().GebruiktKlantOrderNummer(Partij.GeefID())) {
+		#dim DocRef As DOM.VKP.DocumentReferenties = Order.GeefDocumentReferenties()
+		Set ProboxInhoudLabel.KlantOrderNummer = DocRef.KlantOrderNummer
+	}
+	
 	If ($IsObject(Toelevering)) {
 		Set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
 	} Else {
Index: BL/Etiket/ProboxInhoud.cls.xml
===================================================================
diff -u -r64644 -r69502
--- BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 64644)
+++ BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 69502)
@@ -64,6 +64,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="KlantOrderNummer">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -89,6 +94,7 @@
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..VerzendingWijze),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..ProductieWeek),$$$TAB	
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..CommissieReferentie),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantOrderNummer),$$$TAB
 	
 	Write $$$CRLF
 	Quit $$$OK
Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml
===================================================================
diff -u -r67595 -r69502
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 67595)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 69502)
@@ -235,7 +235,7 @@
 </Method>
 
 <Method name="AssertTicket">
-<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String</FormalSpec>
+<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String,KlantOrderNummer:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Etiket.Device, Device)
@@ -252,6 +252,7 @@
 	Do $$$AssertEquals(Etiket.ProductieWeek, ProductieWeek)
 	Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
 	Do $$$AssertEquals(Etiket.Logo, Logo)
+	Do $$$AssertEquals(Etiket.KlantOrderNummer, KlantOrderNummer)
 ]]></Implementation>
 </Method>
 </Class>