Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml	(revision 30606)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator">
+<Super>APPS.Halux.PPS.impl.UitvoeringInfoDeelVerwerker</Super>
+
+<Property name="DataDtos">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataDto</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="DocumentAfdrukker">
+<Type>APPS.common.Document.DocumentAfdrukker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentAfdrukker:APPS.common.Document.DocumentAfdrukker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..DocumentAfdrukker = $$$Implementation(DocumentAfdrukker,##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefPDFDocumentAfdrukker())
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelData">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
+<Implementation><![CDATA[
+	If $$$Not(..DataDtos.IsDefined(UitvoeringInfo.PartijID)) {
+		Set DataDto = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataDto).%New()
+		Set DataDto.Batch = ..BatchService.GeefBatch(UitvoeringInfo.BatchID)
+		Set DataDto.Klant = ..VerkoopAPI.GeefKlant(UitvoeringInfo.PartijID)
+		Set DataDto.DataRijDtoLijst = ##class(%ListOfObjects).%New()
+		Do ..DataDtos.SetAt(DataDto, UitvoeringInfo.PartijID)
+	}
+	
+	Set DataRijDto = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto).%New()
+	Set DataRijDto.AantalBodemDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	Set DataRijDto.AantalFrontDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	Set DataRijDto.AantalLosseOnderdelenDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	Set DataRijDto.AantalRugDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	Set DataRijDto.AantalZijkantLinksDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	Set DataRijDto.AantalZijkantRechtsDozen = UitvoeringInfo.KartonSnijdenData.AantalDozen
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(UitvoeringInfo.ProductID)
+	Set DataRijDto.Korttekst = Product.GeefKorttekst()
+	Set DataRijDto.Dossier = UitvoeringInfo.DossierCode
+	Set DataRijDto.Toelevering = $Extract(UitvoeringInfo.ToeleveringID,*-2,*)
+	
+	Do ..DataDtos.GetAt(UitvoeringInfo.PartijID).DataRijDtoLijst.Insert(DataRijDto)
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
+<Implementation><![CDATA[
+	set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
+	Set DocumentBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentBuilder).%New()
+	Set DataDtoIterator = ##class(TECH.ListIterator).%New(..DataDtos)
+	While DataDtoIterator.HasNext() {
+		#dim DataDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataDto = DataDtoIterator.Next()
+		Do DocumentBundel.VoegToeDocument(DocumentBuilder.MaakDocument(DataDto))
+	}
+	
+	#dim Printer As APPS.common.Print.Printer = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefPrinter(ActiviteitParameters.Printer)
+	do ..DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud.cls.xml	(revision 30606)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud">
+<Super>APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ##super()
+	Set ..UitvoeringInfoVerwerker = ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoUitgesteldeVerwerker).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StelInDeelverwerkers">
+<Implementation><![CDATA[	do ..UitvoeringInfoVerwerker.VoegToeDeelverwerker(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator).%New())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>