Index: APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml
===================================================================
diff -u -r65934 -r70399
--- APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 65934)
+++ APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 70399)
@@ -23,16 +23,18 @@
 	While UitvoeringInfoIt.HasNext()
 	{
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo = UitvoeringInfoIt.Next()
-		#dim Unit As BL.PPS.TBX.sub.pxVHossUnit = ..GeefUnitVanUnits(.VHossUnits,UitvoeringInfo)
+		#dim KlantRefData As BL.PPS.TBX.dto.KlantRefData = ##class(BL.PPS.TBX.DocsProPlus).%New().GeefKlantRefData(UitvoeringInfo.ToeleveringID,UitvoeringInfo.ToeleveringLijnID,UitvoeringInfo.ProductID)
+		
+		#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
 		Set Slot.PRNr = UitvoeringInfo.ProductID
 		
-		#dim KlantRefData As BL.PPS.TBX.dto.KlantRefData = ##class(BL.PPS.TBX.DocsProPlus).%New().GeefKlantRefData(UitvoeringInfo.ToeleveringID,UitvoeringInfo.ToeleveringLijnID,UitvoeringInfo.ProductID)
-		
 		If $Length(KlantRefData.KlantOrdRef) {
 			Set Slot.KlantOrdRef = KlantRefData.KlantOrdRef
 		}Else{
@@ -83,28 +85,82 @@
 </Method>
 
 <Method name="GeefUnitVanUnits">
-<FormalSpec><![CDATA[&VHossUnits:BL.PPS.TBX.sub.pxVHossUnits,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo]]></FormalSpec>
+<FormalSpec><![CDATA[&VHossUnits:BL.PPS.TBX.sub.pxVHossUnits,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo,KlantRefData:BL.PPS.TBX.dto.KlantRefData]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>BL.PPS.TBX.sub.pxVHossUnit</ReturnType>
 <Implementation><![CDATA[
 	#dim Unit As BL.PPS.TBX.sub.pxVHossUnit
 	If ($IsObject(VHossUnits.Units) && 'VHossUnits.Units.IsDefined(UitvoeringInfo.VHOSSID)){
-		#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(UitvoeringInfo.PartijID)		
 		Set Unit = ##class(BL.PPS.TBX.sub.pxVHossUnit).%New()
 		Set Unit.UnitID = UitvoeringInfo.VHOSSID		
-		Set Unit.WeekID = Partij.GeefNaam()
-		If Partij.GeefID() = ##class(DOM.VKP.enu.Klant).DeDecker(){
-			#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(UitvoeringInfo.ToeleveringID)
-			Set Unit.WeekID = Unit.WeekID_":"_Toelevering.GeefReferentie()
-		}
+		Set Unit.WeekID = ##class(BL.PPS.TBX.DocsProPlus).GeefKlantnaamVoorVhossDocs(KlantRefData.KLNm, KlantRefData.KLNr)
 		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>