Index: APPS/common/Document/impl/DefaultVoetTekst.cls.xml
===================================================================
diff -u -r60887 -r60936
--- APPS/common/Document/impl/DefaultVoetTekst.cls.xml	(.../DefaultVoetTekst.cls.xml)	(revision 60887)
+++ APPS/common/Document/impl/DefaultVoetTekst.cls.xml	(.../DefaultVoetTekst.cls.xml)	(revision 60936)
@@ -4,18 +4,22 @@
 <Super>APPS.common.Document.impl.VoetTekst</Super>
 
 <Method name="%OnNew">
-<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ..ZetTekstLinks($$FormatDateTime^vhLib("dd/mm/jjjj hh:nn",##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()))
 	Do ..ZetTekstMidden("")
-	Do ..ZetTekstRechts("p. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="ZetPaginaNrEnTotaalAantalBladzijden">
+<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetTekstRechts("p. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/PickingDocumentGenerator.cls.xml
===================================================================
diff -u -r60887 -r60936
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/PickingDocumentGenerator.cls.xml	(.../PickingDocumentGenerator.cls.xml)	(revision 60887)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/PickingDocumentGenerator.cls.xml	(.../PickingDocumentGenerator.cls.xml)	(revision 60936)
@@ -39,19 +39,19 @@
 	set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
 	
 	#dim TrayID As %String = ""
-	for { set TrayID = $order(..ZijkantPlaatPickingUitvoeringInfo(TrayID)) quit:TrayID="" 
+	for { Set TrayID = $Order(..ZijkantPlaatPickingUitvoeringInfo(TrayID)) Quit:TrayID="" 
 		#dim ZijkantPlaatPickingUitvoeringInfoPerTray As List of ZijkantPlaatPickingUitvoeringInfo = ##class(%ListOfObjects).%New()
 		#dim SlotNr As %String =""
-		for { set SlotNr = $order(..ZijkantPlaatPickingUitvoeringInfo(TrayID,SlotNr)) quit:SlotNr="" 
+		For { Set SlotNr = $Order(..ZijkantPlaatPickingUitvoeringInfo(TrayID,SlotNr)) Quit:SlotNr="" 
 			do ZijkantPlaatPickingUitvoeringInfoPerTray.Insert(..ZijkantPlaatPickingUitvoeringInfo(TrayID,SlotNr))
 		}
-		set DocumentBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.ZijkantPlaatPicking.DocumentBuilder).%New()
-		do DocumentBundel.VoegToeDocument(DocumentBuilder.MaakDocument(ZijkantPlaatPickingUitvoeringInfoPerTray, HuidigPaginaNr, TotaalAantalBladzijden))
+		Set DocumentBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.ZijkantPlaatPicking.DocumentBuilder).%New()
+		Do DocumentBundel.VoegToeDocument(DocumentBuilder.MaakDocument(ZijkantPlaatPickingUitvoeringInfoPerTray, HuidigPaginaNr, TotaalAantalBladzijden))
 		Set HuidigPaginaNr = HuidigPaginaNr + 1
 	}
 	
 	#dim Printer As APPS.common.Print.Printer = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefPrinter(ActiviteitParameters.Printer)
-	do ..DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
+	Do ..DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
 ]]></Implementation>
 </Method>
 
@@ -62,9 +62,10 @@
 	#dim TrayID As %String = ""
 	#dim AantalBladzijden As %Integer = 0
 	
-	for { set TrayID = $order(..ZijkantPlaatPickingUitvoeringInfo(TrayID)) quit:TrayID="" 
+	For { Set TrayID = $Order(..ZijkantPlaatPickingUitvoeringInfo(TrayID)) Quit:TrayID="" 
 		Set AantalBladzijden = AantalBladzijden +1
 	}
+	
 	Quit AantalBladzijden
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/DocumentBuilder.cls.xml
===================================================================
diff -u -r60887 -r60936
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 60887)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/ZijkantPlaatPicking/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 60936)
@@ -30,12 +30,12 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..TaorPickingDocumentInhoudBuilder = $$$Implementation(TaorPickingDocumentInhoudBuilder,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.ZijkantPlaatPicking.DocumentInhoudBuilder).%New()) 
-	set ..DocumentBuilder = $$$Implementation(DocumentBuilder,##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefTagBasedDocumentBuilder()).%New()
-	set ..BatchService = $$$Implementation(BatchService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
-	set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..TaorPickingDocumentInhoudBuilder = $$$Implementation(TaorPickingDocumentInhoudBuilder,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.ZijkantPlaatPicking.DocumentInhoudBuilder).%New()) 
+	Set ..DocumentBuilder = $$$Implementation(DocumentBuilder,##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefTagBasedDocumentBuilder()).%New()
+	Set ..BatchService = $$$Implementation(BatchService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
+	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -46,7 +46,7 @@
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ZijkantPlaatPickingUitvoeringInfoLijstenLijst)
 	while (Iterator.HasNext()) {
 		#dim ZijkantPlaatPickingUitvoeringInfoLijst As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.ZijkantPlaatPickingUitvoeringInfoList = Iterator.Next()
-		do ..MaakDocument(ZijkantPlaatPickingUitvoeringInfoLijst)
+		Do ..MaakDocument(ZijkantPlaatPickingUitvoeringInfoLijst)
 	}
 ]]></Implementation>
 </Method>
@@ -58,19 +58,20 @@
 	#dim Document As APPS.common.Document.Blad
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ZijkantPlaatPickingUitvoeringInfoLijst)
 
-	if (Iterator.HasNext()) {
+	If (Iterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.ZijkantPlaatPickingUitvoeringInfo = Iterator.Next()
 		#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(UitvoeringInfo.BatchID)		
 		#dim KopTekst As APPS.common.Document.KopTekst = ..GeefKopTekst(UitvoeringInfo.IsRework, Batch, HuidigPaginaNr, TotaalAantalBladzijden)
-		#dim VoetTekst As APPS.common.Document.VoetTekst = ##class(APPS.common.Document.impl.DefaultVoetTekst).%New(HuidigPaginaNr, TotaalAantalBladzijden)
+		#dim VoetTekst As APPS.common.Document.VoetTekst = ##class(APPS.common.Document.impl.DefaultVoetTekst).%New()
+		Do VoetTekst.ZetPaginaNrEnTotaalAantalBladzijden(HuidigPaginaNr, TotaalAantalBladzijden)
 		#dim TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..TaorPickingDocumentInhoudBuilder.GeefInhoud(ZijkantPlaatPickingUitvoeringInfoLijst)
 
-		set Document = ..DocumentBuilder.MaakDocument("TAGBASEDDOC", TagBasedDocumentInhoud, KopTekst, VoetTekst)
-	} else {
-		set Document = ##class(APPS.common.Document.impl.InhoudsloosDocument).%New()
+		Set Document = ..DocumentBuilder.MaakDocument("TAGBASEDDOC", TagBasedDocumentInhoud, KopTekst, VoetTekst)
+	} Else {
+		Set Document = ##class(APPS.common.Document.impl.InhoudsloosDocument).%New()
 	}
 	
-	quit Document
+	Quit Document
 ]]></Implementation>
 </Method>
 
@@ -81,11 +82,11 @@
 <Implementation><![CDATA[
 	#dim KopTekst As APPS.common.Document.KopTekst = ##class(APPS.common.Document.impl.KopTekst).%New()
 	
-	do KopTekst.ZetTekstLinks("TAX pickinglijst zijkantplaten - Batch " _ Batch.GeefCode() _ $Select(IsRework:" (Rework)", 1:""))
-	do KopTekst.ZetTekstMidden("Huidige tray: "_HuidigeTray_"/"_AantalTrays)
-	do KopTekst.ZetTekstRechts("Dueout " _ ..FormatAPI.FormatTimeStamp(Batch.GeefVroegsteDueOut(), "dd/mm/jjjj "))
+	Do KopTekst.ZetTekstLinks("TAX pickinglijst zijkantplaten - Batch " _ Batch.GeefCode() _ $Select(IsRework:" (Rework)", 1:""))
+	Do KopTekst.ZetTekstMidden("Huidige tray: "_HuidigeTray_"/"_AantalTrays)
+	Do KopTekst.ZetTekstRechts("Dueout " _ ..FormatAPI.FormatTimeStamp(Batch.GeefVroegsteDueOut(), "dd/mm/jjjj "))
 	
-	quit KopTekst
+	Quit KopTekst
 ]]></Implementation>
 </Method>
 </Class>