Index: APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml
===================================================================
diff -u -r29059 -r70355
--- APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/LBX/VHossDocumentAfdrukker.cls.xml	(.../VHossDocumentAfdrukker.cls.xml)	(revision 70355)
@@ -23,16 +23,16 @@
 	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 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,23 +83,30 @@
 </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)
+		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(){
+			Set Unit.WeekID = Unit.WeekID_";"_KlantRefData.OrderRef
+		}
+		
 	}
 	Quit Unit
 ]]></Implementation>