Index: zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder.cls.xml	(revision 0)
+++ zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder.cls.xml	(revision 30378)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="InhoudBuilder">
+<Type>APPS.common.Document.TagBasedDocument.InhoudBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KolommenDefinitie">
+<Type>zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>InhoudBuilder:APPS.common.Document.TagBasedDocument.InhoudBuilder</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..InhoudBuilder = $$$Implementation(InhoudBuilder,##class(APPS.common.Document.TagBasedDocument.impl.InhoudBuilder).%New())
+	Set ..KolommenDefinitie = ##class(zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInhoud">
+<FormalSpec>Data:%ListOfObjects(ELEMENTTYPE="zTryout.PBO.TAXLC.PalletInhoud.DataDto")</FormalSpec>
+<Implementation><![CDATA[
+	Do ..InhoudBuilder.MaakNieuweTagBasedTekst()
+	Do ..VoegToeLijnRij()
+	Do ..VoegToeTitelRij()
+	Do ..VoegToeLijnRij()
+	Do ..VoegToeData(Data)
+	Do ..VoegToeLijnRij()
+	Quit ..InhoudBuilder.GeefInhoud()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTitelRij">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Set KolommenDefinitieIterator = ##class(TECH.ListIterator).%New(..KolommenDefinitie.Kolommen)
+	While KolommenDefinitieIterator.HasNext() {
+		#dim KolomDefinitie As zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie = KolommenDefinitieIterator.Next().Value
+		Do ..InhoudBuilder.VoegToeTekst(##class(TECH.StringUtils).AddTrailingChar(KolomDefinitie.Titel, " ",KolomDefinitie.Breedte))
+		If KolommenDefinitieIterator.HasNext() {
+			Do ..InhoudBuilder.VoegToeTekst(" | ")
+		}
+	}
+	Do ..InhoudBuilder.VoegToeNieuweLijn()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeData">
+<FormalSpec>Data:%ListOfObjects(ELEMENTTYPE="zTryout.PBO.TAXLC.PalletInhoud.DataDto")</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Set KolommenDefinitieIterator = ##class(TECH.ListIterator).%New(..KolommenDefinitie.Kolommen)
+	Set DataIterator = ##class(TECH.ListIterator).%New(Data)
+	While DataIterator.HasNext() {
+		#dim RijData As zTryout.PBO.TAXLC.PalletInhoud.DataDto = DataIterator.Next()
+		Do KolommenDefinitieIterator.Reset()
+		While KolommenDefinitieIterator.HasNext() {
+			#dim KolomMappingDefinitieDto As TECH.KeyValuePair = KolommenDefinitieIterator.Next()
+			#dim KolomDefinitie As zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie = KolomMappingDefinitieDto.Value
+			#dim PropertyNaamDataDto As TECH.String = KolomMappingDefinitieDto.Key
+			Do ..InhoudBuilder.VoegToeTekst(##class(TECH.StringUtils).Align($Property(RijData, PropertyNaamDataDto), KolomDefinitie.Breedte, KolomDefinitie.Uitlijning, " "))
+			If KolommenDefinitieIterator.HasNext() {
+				Do ..InhoudBuilder.VoegToeTekst(" | ")
+			}
+		}
+		Do ..InhoudBuilder.VoegToeNieuweLijn()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijnRij">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KolommenDefinitieIterator = ##class(TECH.ListIterator).%New(..KolommenDefinitie.Kolommen)
+	Do KolommenDefinitieIterator.Reset()
+	While KolommenDefinitieIterator.HasNext() {
+		#dim KolomDefinitie As zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie = KolommenDefinitieIterator.Next().Value
+		Do ..InhoudBuilder.VoegToeTekst(##class(TECH.StringUtils).AddTrailingChar("", "-",KolomDefinitie.Breedte))
+		If KolommenDefinitieIterator.HasNext() {
+			Do ..InhoudBuilder.VoegToeTekst("-|-")
+		}
+	}
+	Do ..InhoudBuilder.VoegToeNieuweLijn()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXLC/PalletInhoud/DataDto.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXLC/PalletInhoud/DataDto.cls.xml	(revision 0)
+++ zTryout/PBO/TAXLC/PalletInhoud/DataDto.cls.xml	(revision 30378)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXLC.PalletInhoud.DataDto">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Toelevering">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Dossier">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Korttekst">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalBodemDozen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalRugDozen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalZijkantLinksDozen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalZijkantRechtsDozen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalFrontDozen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalLosseOnderdelenDozen">
+<Type>TECH.String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/Spy/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml
===================================================================
diff -u
--- vhTest/Spy/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml	(revision 0)
+++ vhTest/Spy/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml	(revision 30378)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.APPS.common.Document.TagBasedDocument.impl.InhoudBuilder">
+<Super>APPS.common.Document.TagBasedDocument.impl.InhoudBuilder</Super>
+
+<Property name="Inhoud">
+<Type>%CharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakNieuweTagBasedTekst">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..Inhoud = ##class(%GlobalCharacterStream).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTekst">
+<FormalSpec>Tekst:%String,Formatteringen...:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Inhoud.Write(Tekst)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeNieuweLijn">
+<Implementation><![CDATA[
+	Do ##super()
+	Do ..Inhoud.WriteLine("")
+]]></Implementation>
+</Method>
+
+<Method name="GeefInhoudStream">
+<ReturnType>%CharacterStream</ReturnType>
+<Implementation><![CDATA[	Quit ..Inhoud
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXLC/PalletInhoud/KolomDefinitie.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXLC/PalletInhoud/KolomDefinitie.cls.xml	(revision 0)
+++ zTryout/PBO/TAXLC/PalletInhoud/KolomDefinitie.cls.xml	(revision 30378)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Titel">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Breedte">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Uitlijning">
+<Type>TECH.enu.TextAlignment</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Titel:TECH.String,Breedte:TECH.Integer=-1,Uitlijning:TECH.enu.TextAlignment=##class(TECH.enu.TextAlignment).Left()</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Titel = Titel
+	Set ..Breedte = Breedte
+	Set ..Uitlijning = Uitlijning
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BreedteGet">
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	If i%Breedte < 0 {
+		Quit $length(..Titel)
+	} Else {
+		Quit i%Breedte
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml	(revision 0)
+++ zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml	(revision 30378)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Kolommen">
+<Type>TECH.KeyValue.List</Type>
+</Property>
+
+<Property name="Uitlijning">
+<Type>APPS.common.Print.Kolommen.TekstUitlijning</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Kolommen = ##class(TECH.KeyValue.List).%New()
+	Do ..Kolommen.InsertKeyValue("Toelevering", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("Toe", 3))
+	Do ..Kolommen.InsertKeyValue("Dossier", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("Dos", 4))
+	Do ..Kolommen.InsertKeyValue("Korttekst", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("Korttekst", 26))
+	Do ..Kolommen.InsertKeyValue("AantalBodemDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("BOD",3, "C"))
+	Do ..Kolommen.InsertKeyValue("AantalRugDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("RUG",3, "C"))
+	Do ..Kolommen.InsertKeyValue("AantalZijkantLinksDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("ZIJ L",, "C"))
+	Do ..Kolommen.InsertKeyValue("AantalZijkantRechtsDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("ZIJ R",, "C"))
+	Do ..Kolommen.InsertKeyValue("AantalFrontDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("FRO",3, "C"))
+	Do ..Kolommen.InsertKeyValue("AantalLosseOnderdelenDozen", ##class(zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie).%New("LO", 3, "C"))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml	(revision 30378)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder.GeefInhoud.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set Data = ##class(%ListOfObjects).%New()
+	
+	Set DataRij = ##class(zTryout.PBO.TAXLC.PalletInhoud.DataDto).%New()
+	Set DataRij.AantalBodemDozen = 1
+	Set DataRij.AantalRugDozen = 2
+	Set DataRij.AantalZijkantLinksDozen = 3
+	Set DataRij.AantalZijkantRechtsDozen = 4
+	Set DataRij.AantalFrontDozen = 5
+	Set DataRij.AantalLosseOnderdelenDozen = "x"
+	Set DataRij.Korttekst = "UT_KORTTEKST 1234567891234"
+	Set DataRij.Dossier = "ABCD"
+	Set DataRij.Toelevering = 123
+	Do Data.Insert(DataRij)
+	
+	Set DataRij = ##class(zTryout.PBO.TAXLC.PalletInhoud.DataDto).%New()
+	Set DataRij.AantalBodemDozen = 15
+	Set DataRij.AantalRugDozen = 16
+	Set DataRij.AantalZijkantLinksDozen = 17
+	Set DataRij.AantalZijkantRechtsDozen = 18
+	Set DataRij.AantalFrontDozen = 19
+	Set DataRij.AantalLosseOnderdelenDozen = 10
+	Set DataRij.Korttekst = "UT_KORTTEKST 9874561320568"
+	Set DataRij.Dossier = "DEFG"
+	Set DataRij.Toelevering = 124
+	Do Data.Insert(DataRij)
+	
+	Do ..AssertBestanden(Data)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBestanden">
+<FormalSpec>Data:%ListOfObjects(ELEMENTTYPE="zTryout.PBO.TAXLC.PalletInhoud.DataDto")</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BestandLocatie As TECH.String = ..GeefBestandLocatie()
+	Do ##class(TECH.File.impl.DirectoryUtils).%New().CreateIfNotExists(BestandLocatie)
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Bestand.txt")
+	
+	Set InhoudBuilderSpy = ##class(vhTest.Spy.APPS.common.Document.TagBasedDocument.impl.InhoudBuilder).%New()
+	Set DocumentInhoudBuilder = ##class(zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder).%New(InhoudBuilderSpy)
+	Do DocumentInhoudBuilder.GeefInhoud(Data)
+	
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(BestandVolledigeNaam)
+	Do FileWriter.WriteStream(InhoudBuilderSpy.GeefInhoudStream())
+	Do FileWriter.Close()
+	Do $$$AssertCorrectGemaakteBestanden(BestandLocatie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/UnitTests/zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder.GeefInhoud/Test/Test/Bestand.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder.GeefInhoud/Test/Test/Bestand.txt	(revision 0)
+++ vhTestFiles/UnitTests/zTryout.PBO.TAXLC.PalletInhoud.DocumentInhoudBuilder.GeefInhoud/Test/Test/Bestand.txt	(revision 30378)
@@ -0,0 +1,6 @@
+----|------|----------------------------|-----|-----|-------|-------|-----|----
+Toe | Dos  | Korttekst                  | BOD | RUG | ZIJ L | ZIJ R | FRO | LO 
+----|------|----------------------------|-----|-----|-------|-------|-----|----
+123 | ABCD | UT_KORTTEKST 1234567891234 |  1  |  2  |   3   |   4   |  5  |  x 
+124 | DEFG | UT_KORTTEKST 9874561320568 | 15  | 16  |  17   |  18   | 19  | 10 
+----|------|----------------------------|-----|-----|-------|-------|-----|----