Index: APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolommenDefinitie.cls.xml
===================================================================
diff -u
--- APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolommenDefinitie.cls.xml	(revision 0)
+++ APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolommenDefinitie.cls.xml	(revision 30430)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.Document.TagBasedDocument.KolommenDocument.dto.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="VoegToe">
+<FormalSpec>PropertyNaam:TECH.String,DisplayWaarde:TECH.String,MaximaleBreedteDataKolom:TECH.Integer,Uitlijning:TECH.enu.TextAlignment</FormalSpec>
+<Implementation><![CDATA[	Do ..Kolommen.InsertKeyValue(PropertyNaam, ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolomDefinitie).%New(DisplayWaarde, .MaximaleBreedteDataKolom, .Uitlijning))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolomDefinitie.cls.xml
===================================================================
diff -u -r30378 -r30430
--- APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolomDefinitie.cls.xml	(.../zTryout/PBO/TAXLC/PalletInhoud/KolomDefinitie.cls.xml)	(revision 30378)
+++ APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolomDefinitie.cls.xml	(.../APPS/common/Document/TagBasedDocument/KolommenDocument/dto/KolomDefinitie.cls.xml)	(revision 30430)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie">
+<Class name="APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolomDefinitie">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="Titel">
Index: APPS/common/Document/TagBasedDocument/KolommenDocument/impl/InhoudBuilder.cls.xml
===================================================================
diff -u -r30429 -r30430
--- APPS/common/Document/TagBasedDocument/KolommenDocument/impl/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 30429)
+++ APPS/common/Document/TagBasedDocument/KolommenDocument/impl/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 30430)
@@ -9,24 +9,24 @@
 </Property>
 
 <Property name="KolommenDefinitie">
-<Type>zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie</Type>
+<Type>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>InhoudBuilder:APPS.common.Document.TagBasedDocument.InhoudBuilder</FormalSpec>
+<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:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList</FormalSpec>
+<FormalSpec>Data:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</FormalSpec>
 <ReturnType>APPS.common.Document.Inhoud</ReturnType>
 <Implementation><![CDATA[
+	Set ..KolommenDefinitie = KolommenDefinitie
 	Do ..InhoudBuilder.MaakNieuweTagBasedTekst()
 	Do ..VoegToeLijnRij()
 	Do ..VoegToeTitelRij()
@@ -47,7 +47,6 @@
 <FormalSpec>Data:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set KolommenDefinitieIterator = ##class(TECH.ListIterator).%New(..KolommenDefinitie.Kolommen)
 	Set DataIterator = ##class(TECH.ListIterator).%New(Data)
 	While DataIterator.HasNext() {
 		Do ..VoegToeRij("DataRij", DataIterator.Next())
@@ -84,7 +83,7 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-		#dim KolomDefinitie As zTryout.PBO.TAXLC.PalletInhoud.KolomDefinitie = KolomMappingDefinitieDto.Value
+		#dim KolomDefinitie As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolomDefinitie = KolomMappingDefinitieDto.Value
 		
 		#dim VakString As TECH.String
 		If RijSoort = "LijnRij" {
Index: vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml
===================================================================
diff -u -r30429 -r30430
--- vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml	(.../Test.cls.xml)	(revision 30429)
+++ vhUnitTest/zTryout/PBO/TAXLC/PalletInhoud/DocumentInhoudBuilder/GeefInhoud/Test.cls.xml	(.../Test.cls.xml)	(revision 30430)
@@ -43,9 +43,10 @@
 	Do ##class(TECH.File.impl.DirectoryUtils).%New().CreateIfNotExists(BestandLocatie)
 	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Bestand.txt")
 	
+	Set KolommenDefinitie = ##class(zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie).%New()
 	Set InhoudBuilderSpy = ##class(vhTest.Spy.APPS.common.Document.TagBasedDocument.impl.InhoudBuilder).%New()
 	Set DocumentInhoudBuilder = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.impl.InhoudBuilder).%New(InhoudBuilderSpy)
-	Do DocumentInhoudBuilder.GeefInhoud(Data)
+	Do DocumentInhoudBuilder.GeefInhoud(Data, KolommenDefinitie)
 	
 	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
 	Do FileWriter.Open(BestandVolledigeNaam)
Index: zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml
===================================================================
diff -u -r30428 -r30430
--- zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 30428)
+++ zTryout/PBO/TAXLC/PalletInhoud/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 30430)
@@ -53,7 +53,8 @@
 <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)
+	Set KolommenDefinitie = ##class(zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie).%New()
+	#dim TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..DocumentInhoudBuilder.GeefInhoud(DataDto.DataRijDtoLijst, KolommenDefinitie)
 	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>
FishEye: Tag 30430 refers to a dead (removed) revision in file `zTryout/PBO/TAXLC/PalletInhoud/KolomDefinitie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml
===================================================================
diff -u -r30378 -r30430
--- zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml	(.../KolommenDefinitie.cls.xml)	(revision 30378)
+++ zTryout/PBO/TAXLC/PalletInhoud/KolommenDefinitie.cls.xml	(.../KolommenDefinitie.cls.xml)	(revision 30430)
@@ -1,32 +1,24 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.PBO.TAXLC.PalletInhoud.KolommenDefinitie">
-<Super>TECH.RegisteredObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</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"))
+	Do ..VoegToe("Toelevering", "Toe", 3)
+	Do ..VoegToe("Dossier", "Dos", 4)
+	Do ..VoegToe("Korttekst", "Korttekst", 26)
+	Do ..VoegToe("AantalBodemDozen", "BOD",3, ##class(TECH.enu.TextAlignment).Center())
+	Do ..VoegToe("AantalRugDozen", "RUG",3, ##class(TECH.enu.TextAlignment).Center())
+	Do ..VoegToe("AantalZijkantLinksDozen", "ZIJ L",, ##class(TECH.enu.TextAlignment).Center())
+	Do ..VoegToe("AantalZijkantRechtsDozen", "ZIJ R",, ##class(TECH.enu.TextAlignment).Center())
+	Do ..VoegToe("AantalFrontDozen", "FRO",3, ##class(TECH.enu.TextAlignment).Center())
+	Do ..VoegToe("AantalLosseOnderdelenDozen", "LO", 3, ##class(TECH.enu.TextAlignment).Center())
 	Quit $$$OK
 ]]></Implementation>
 </Method>