Index: APPS/Halux/PPS/Activiteit/impl/MVX/VHossDocs.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/VHossDocs.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/VHossDocs.cls.xml	(revision 65934)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.VHossDocs">
+<Super>APPS.Halux.PPS.Activiteit.VHossProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>MVXVHossDocs</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXVHossDocs</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>VHossDocs</Default>
+</Parameter>
+
+<Method name="MaakActiviteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiviteitGroepID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
+<Implementation><![CDATA[
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.VHossDocs = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.VHossDocumentAfdrukker).%ClassName(1), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim SuperStatus As %Status = ##super()
+	Do ..UitvoeringInfoLijstVerwerkerKlasseNamen.SetAt("APPS.Halux.PPS.Document.impl.MVX.VHossDocumentAfdrukker", ..#InformatieID)
+	Quit SuperStatus
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductieSequentieItem">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..#NietBewaren
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVHOSSProductieSequentieItem">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..#Bewaren
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/MVX/VHossDocumentAfdrukker.cls.xml	(revision 65934)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.MVX.VHossDocumentAfdrukker">
+<Super>APPS.Halux.PPS.Document.impl.VHossDocumentAfdrukker</Super>
+
+<Method name="GeefAantalExemplarenTePrinten">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossUnits">
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.PPS.TBX.sub.pxVHossUnits</ReturnType>
+<Implementation><![CDATA[
+	Set VHossUnits = ##class(BL.PPS.TBX.sub.pxVHossUnits).%New()
+	
+	#dim MaxProdLen,MaxOrdLen As %Integer = 0
+	
+	#dim UitvoeringInfoIt As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijst)
+	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 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{
+			Set Slot.KlantOrdRef = KlantRefData.OrderRef
+		}
+		Set Slot.KlantProdRef = ..GeefProductInfo(UitvoeringInfo.ProductID)
+		
+		Set:(MaxOrdLen < $Length(Slot.KlantOrdRef)) MaxOrdLen = $Length(Slot.KlantOrdRef)	
+		Set:(MaxProdLen < $Length(Slot.KlantProdRef)) MaxProdLen = $Length(Slot.KlantProdRef)	
+		
+		Do SubUnit.Slots.SetAt(Slot,UitvoeringInfo.KlantSequentieNummer)
+	}
+	
+	; Instellen van de max. waarde in de verschillend e	
+	Set:MaxProdLen<10 MaxProdLen=10 
+	Set:MaxOrdLen<10 MaxOrdLen=10 
+	#dim UnitPtr As %String = ""
+	For  Set pxUnit=VHossUnits.Units.GetNext(.UnitPtr) Quit:UnitPtr=""  Do
+	. Set SubPtr=""
+	. For  Set pxSub=pxUnit.Subs.GetNext(.SubPtr) Quit:SubPtr=""  Do
+	. . Set pxSub.ProductLen=MaxProdLen
+	. . Set pxSub.OrderLen=MaxOrdLen
+	. . Set VolgNr = 0
+	. . Set SlotPtr=""
+	. . For  Set pxSlot=pxSub.Slots.GetNext(.SlotPtr) Quit:SlotPtr=""  Do
+	. . . Set pxSlot.VolgNr = $Increment(VolgNr)
+	
+	Quit VHossUnits
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductInfo">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+
+	#dim LadeCode As %String = IngegevenKenmerken.LadeHoogte
+	#dim LadeDiepte As %String = IngegevenKenmerken.LadeDiepte
+	#dim CorpusBreedte As %String = IngegevenKenmerken.InterneBreedte
+	#dim ProductInfo As %String = LadeCode_" "_LadeDiepte_"x"_CorpusBreedte
+	Quit ProductInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefUnitVanUnits">
+<FormalSpec><![CDATA[&VHossUnits:BL.PPS.TBX.sub.pxVHossUnits,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossDocsUitvoeringInfo]]></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()
+		}
+		Do VHossUnits.Units.SetAt(Unit,UitvoeringInfo.VHOSSID)	
+	}Else{
+		Set Unit = VHossUnits.Units.GetAt(UitvoeringInfo.VHOSSID)	
+	}
+	Quit Unit
+]]></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>
+<ReturnType>BL.PPS.TBX.sub.pxVHossSubUnit</ReturnType>
+<Implementation><![CDATA[
+	#dim SubUnit As BL.PPS.TBX.sub.pxVHossSubUnit
+	If ($IsObject(Unit.Subs) && 'Unit.Subs.IsDefined(UitvoeringInfo.VHOSSID)){
+		#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(UitvoeringInfo.PartijID)		
+		Set SubUnit = ##class(BL.PPS.TBX.sub.pxVHossSubUnit).%New()
+		Set SubUnit.ZijkantID = ##class(APPS.Halux.common.impl.VHossService).%New().GeefZijkantCodeVanZijkantID(UitvoeringInfo.ZijVlakID)
+		Do Unit.Subs.SetAt(SubUnit,UitvoeringInfo.VHOSSID)	
+	}Else{
+		Set SubUnit = Unit.Subs.GetAt(UitvoeringInfo.VHOSSID)	
+	}
+	Quit SubUnit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>