Index: APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml
===================================================================
diff -u -r70356 -r70389
--- APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 70356)
+++ APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 70389)
@@ -28,6 +28,8 @@
 		#dim Unit As BL.PPS.TBX.sub.pxVHossUnit = ..GeefUnitVanUnits(.VHossUnits,UitvoeringInfo, KlantRefData)
 		#dim SubUnit As BL.PPS.TBX.sub.pxVHossSubUnit = ..GeefSubUnitVanUnits(.Unit,UitvoeringInfo)
 		
+		Set Unit.UnitReferentie = ..GeefUnitReferentieVanMultiDimPropt(Unit)
+		
 		Set Slot = ##class(BL.PPS.TBX.sub.pxVHossSlot).%New()
 		Set Slot.SlotID = UitvoeringInfo.SlotID
 		Set Slot.Referentie = "Batch:"_UitvoeringInfo.BatchID_";Toelevering:"_UitvoeringInfo.ToeleveringID_";DossierCode:"_UitvoeringInfo.DossierCode_";SequentieNummer:"_UitvoeringInfo.SequentieNummer
@@ -92,22 +94,73 @@
 		Set Unit = ##class(BL.PPS.TBX.sub.pxVHossUnit).%New()
 		Set Unit.UnitID = UitvoeringInfo.VHOSSID		
 		Set Unit.WeekID = ##class(BL.PPS.TBX.DocsProPlus).GeefKlantnaamVoorVhossDocs(KlantRefData.KLNm, KlantRefData.KLNr)
-		If UitvoeringInfo.PartijID = ##class(DOM.VKP.enu.Klant).DeDecker(){
-			#dim OrderRef As %String = KlantRefData.OrderRef
-			If (OrderRef = "") {
-				#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(UitvoeringInfo.ToeleveringID)
-				Set OrderRef = Toelevering.GeefReferentie()   ; Fallback naar vorige implementatie, maar eigenlijk heeft DeDecker niets aan deze info. 
-			}
-			Set Unit.WeekID = Unit.WeekID_":"_OrderRef
-		}
 		Do VHossUnits.Units.SetAt(Unit,UitvoeringInfo.VHOSSID)	
 	}Else{
 		Set Unit = VHossUnits.Units.GetAt(UitvoeringInfo.VHOSSID)	
 	}
+	
+	If UitvoeringInfo.PartijID = ##class(DOM.VKP.enu.Klant).DeDecker() {
+		#dim OrderRef As %String = KlantRefData.OrderRef
+		If $$$HasLength(OrderRef) {
+			Set Unit.mdUnitReferentie(OrderRef) = ""
+		}
+	}
+	
 	Quit Unit
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUnitReferentieVanMultiDimPropt">
+<FormalSpec>Unit:BL.PPS.TBX.sub.pxVHossUnit</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim RefLijst As %ListOfDataTypes = ..GeefUnitRefLijstVanMultiDimPropt(Unit)
+	Quit ..GeefGeformatteerdeUnitReferentie(RefLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefUnitRefLijstVanMultiDimPropt">
+<FormalSpec>Unit:BL.PPS.TBX.sub.pxVHossUnit</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set RefLijst = ##class(%ListOfDataTypes).%New()
+	
+	#dim Ref As %String = ""
+	For { 
+		Set Ref = $Order(Unit.mdUnitReferentie(Ref))
+		Quit:(Ref = "")
+		Do RefLijst.Insert(Ref)
+	}
+	
+	Quit RefLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeformatteerdeUnitReferentie">
+<FormalSpec>RefLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim TekstblokRef As %String = ""
+	
+	#dim RefsTeller As %Integer = 0
+	#dim AantalRefs As %Integer = RefLijst.Count()
+	#dim MaxRefsPerRij As %Integer = 3
+	Set:(AantalRefs>12) MaxRefsPerRij = 4   ; indien meer dan 12 refs, dan 4 kolommen. 
+	Set:(AantalRefs=4) MaxRefsPerRij = 2    ; indien 4 dan blokje van 2x2, anders 3 kolommen x N rijen. 
+	
+	Set RefsIterator = ##class(TECH.ListIterator).%New(RefLijst)
+	While (RefsIterator.HasNext()) {
+		#dim Ref As %String = RefsIterator.Next()
+		Set RefsTeller = RefsTeller + 1
+		Set TekstblokRef = TekstblokRef _ ##class(TECH.StringUtils).AddTrailingSpace(Ref,12) _ $Select(RefsTeller#MaxRefsPerRij = 0 : $$$CRLF, 1:"   ")
+	}
+	
+	Quit TekstblokRef
+]]></Implementation>
+</Method>
+
 <Method name="GeefSubUnitVanUnits">
 <FormalSpec><![CDATA[&Unit:BL.PPS.TBX.sub.pxVHossUnit,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo]]></FormalSpec>
 <Private>1</Private>