Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r70354 -r70392
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 70354)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 70392)
@@ -832,6 +832,8 @@
 	#dim MaxProdLen,MaxOrdLen As %Integer = 0
 	#dim UnitNr As %Integer = ""
 	#dim VHOSSOrder As %Integer = ##class(BL.PPS.TBX.Sequencer).VHOSSOrder()
+	#dim OrderRef As %String = ""
+	Set VhossDocsUtils = ##class(APPS.Halux.PPS.Document.impl.LBX.VHossDocumentAfdrukker).%New()   ; TO DO : een échte Utils-klasse maken en de method omtrent UnitReferentie daarheen verplaatsen. 
 	For  Set UnitNr=$O(Sort(UnitNr),VHOSSOrder) Quit:UnitNr=""   Do
 	. Set pxUnit=##class(BL.PPS.TBX.sub.pxVHossUnit).%New()
 	. Set SubNr=""
@@ -868,7 +870,12 @@
 	. . Set pxUnit.WeekID=TransportRef
 	. Else  Do ; Klantnaam
 	. . Quit:$G(KLNr)=""
-	. . Set pxUnit.WeekID=..GeefKlantnaamVoorVhossDocs(KLNm,KLNr)_$S(KLNr=$$$KlantDedecker:":"_OrderRef,1:"") ; klantnaam
+	. . Set pxUnit.WeekID=..GeefKlantnaamVoorVhossDocs(KLNm,KLNr)
+	. 
+	. If ($Get(KLNr) = $$$KlantDedecker) Do
+	. . Set:($$$HasLength(OrderRef)) pxUnit.mdUnitReferentie(OrderRef) = ""
+	. . Set pxUnit.UnitReferentie = VhossDocsUtils.GeefUnitReferentieVanMultiDimPropt(pxUnit)
+	. 
 	. Do pxUnits.Units.SetAt(pxUnit,UnitNr)
 
 	If ..ProdGrp="+" Do ; Voor Keller steeds dezelfde waarden