Index: zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml	(revision 0)
+++ zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml	(revision 30405)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXLC.PalletInhoud.DocumentBuilder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DocumentInhoudBuilder">
+<Type>zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DocumentBuilder">
+<Type>APPS.common.Document.DocumentBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieLijnFormatter">
+<Type>APPS.Halux.PPS.impl.Formatter.ProductieLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentBuilder:APPS.common.Document.DocumentBuilder="",BatchService:APPS.Halux.common.BatchService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DocumentInhoudBuilder = ##class(zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder).%New()
+	Set ..DocumentBuilder = $$$Implementation(DocumentBuilder,##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefTagBasedDocumentBuilder())
+	Set ..BatchService = $$$Implementation(BatchService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
+	Set ..ProductieLijnFormatter = ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Resolve("LijnFormatter")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakDocumenten">
+<FormalSpec>DataLijst:%ListOfObjects(ELEMENTTYPE="zTryout.PBO.TAXLC.PalletInhoud.DataDto")</FormalSpec>
+<ReturnType>APPS.common.Document.DocumentLijst</ReturnType>
+<Implementation><![CDATA[
+	Set DataLijstIterator = ##class(TECH.ListIterator).%New(DataLijst)
+	While DataLijstIterator.HasNext() {
+		Do ..MaakDocument(DataLijstIterator.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakDocument">
+<FormalSpec>DataDto:zTryout.PBO.TAXLC.PalletInhoud.DataDto</FormalSpec>
+<ReturnType>APPS.common.Document.Blad</ReturnType>
+<Implementation><![CDATA[
+	#dim TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..DocumentInhoudBuilder.GeefInhoud(DataDto.DataRijDtoLijst)
+	Do TagBasedDocumentInhoud.ZetFont($LB("10pt",##class(APPS.common.Document.TagBasedDocument.enu.DocBaseFontFamily).VeraSansMono()))
+	Quit ..DocumentBuilder.MaakDocument("TAGBASEDDOC", TagBasedDocumentInhoud, ..GeefKopTekst(DataDto.Batch, DataDto.Klant), ..GeefVoetTekst())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKopTekst">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.common.Document.KopTekst</ReturnType>
+<Implementation><![CDATA[
+	Set KopTekst = ##class(APPS.common.Document.impl.KopTekst).%New()
+	Do KopTekst.ZetTekstMidden("TAX Pallet inhoud - Lijn:"_..ProductieLijnFormatter.BepaalGeformatteerdeLijn(Batch)_" Batch:"_Batch.GeefID()_" - "_Klant.GeefNaam()_" ("_Klant.GeefID()_")")
+	Quit KopTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoetTekst">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.VoetTekst</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.common.Document.impl.VoetTekst).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>