Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml
===================================================================
diff -u -r61977 -r62023
--- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 61977)
+++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 62023)
@@ -32,25 +32,26 @@
 <Implementation><![CDATA[
 	Set ..DocumentBuilder = ##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefTagBasedDocumentBuilder()
 	#dim DocumentAfdrukker As APPS.common.Document.DocumentAfdrukker = ##class(APPS.ApplicatieContext).%New().GeefDocumentAPI().GeefPDFDocumentAfdrukker()
-	Set ..PrinterAPI = ##class(APPS.ApplicatieContext).%New().GeefPrintAPI()	
-	#dim AantalPaginasPerSpaceStep As %Integer = 2
-	#dim HuidigSpacestepNr = 1
+	Set ..PrinterAPI = ##class(APPS.ApplicatieContext).%New().GeefPrintAPI()
 	
 	Set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
 	#dim LijstMetSpaceSteps As %ListOfObjects = ..GeefMaatwerkProductenLijstMetSpaceSteps(BatchID)
 	
 	If (LijstMetSpaceSteps.Count() > 0 ) {
 		#dim AantalSpaceSteps As %Integer = LijstMetSpaceSteps.Count()
 		#dim ProductIterator = ##class(TECH.ListIterator).%New(LijstMetSpaceSteps)
+		
+		#dim TotaalAantalPaginas As %Integer = LijstMetSpaceSteps.Count()
+		#dim HuidigSpacestepNr = 1
 	
 		while ProductIterator.HasNext() {
 			#dim Productkenmerken As APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken = ProductIterator.Next()
 			#dim SSTKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = Productkenmerken.Ingegevenkenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
 			
 			Set ..DocumentInhoudBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder).%New(Productkenmerken)
 			
-			Do DocumentBundel.VoegToeDocument(..MaakDocument(Productkenmerken,HuidigSpacestepNr,AantalSpaceSteps*AantalPaginasPerSpaceStep))
-			Set HuidigSpacestepNr = (HuidigSpacestepNr * AantalPaginasPerSpaceStep) + 1
+			Do DocumentBundel.VoegToeDocument(..MaakDocument(Productkenmerken,HuidigSpacestepNr,TotaalAantalPaginas))
+			Set HuidigSpacestepNr = HuidigSpacestepNr + 1
 		}
 		#dim Printer As APPS.common.Print.Printer = ..PrinterAPI.GeefPrinter(..GeefUitvoeringParameter(##class(APPS.Halux.PPS.enu.UitvoeringParameter).Printer()))
 		Do DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
@@ -61,12 +62,12 @@
 </Method>
 
 <Method name="MaakDocument">
-<FormalSpec>Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken,HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
+<FormalSpec>Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken,HuidigPaginaNr:%Integer,TotaalAantalPaginas:%Integer</FormalSpec>
 <ReturnType>APPS.common.Document.Blad</ReturnType>
 <Implementation><![CDATA[
 	#dim Document As APPS.common.Document.Blad	
 	#dim KopTekst As APPS.common.Document.KopTekst = ..GeefKopTekst(Product)
-	#dim VoetTekst As APPS.common.Document.VoetTekst = ..GeefVoetTekst(HuidigPaginaNr, TotaalAantalBladzijden)
+	#dim VoetTekst As APPS.common.Document.VoetTekst = ..GeefVoetTekst(HuidigPaginaNr, TotaalAantalPaginas)
 	#dim TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..DocumentInhoudBuilder.GeefInhoud()
 	
 	Do TagBasedDocumentInhoud.ZetFont($LB("8pt",##class(APPS.common.Document.TagBasedDocument.enu.DocBaseFontFamily).VeraSansMono()))
@@ -101,15 +102,14 @@
 </Method>
 
 <Method name="GeefVoetTekst">
-<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
+<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalPaginas:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.common.Document.VoetTekst</ReturnType>
 <Implementation><![CDATA[
 	#dim Tekst As %String = ""
 	Set VoetTekst = ##class(APPS.common.Document.impl.VoetTekst).%New()
 	
-	//Set Tekst = "blz. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden
-	//Set Tekst = "p. "_ HuidigPaginaNr + <PAGENUM/> "_"/"_TotaalAantalBladzijden
+	Set Tekst = "blz. "_HuidigPaginaNr_"/"_TotaalAantalPaginas
 	
 	Do VoetTekst.ZetTekstRechts(Tekst)
 	
@@ -149,7 +149,7 @@
 					Set KenmerkenVoormontageSST = ##class(APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken).%New()
 					Set KenmerkenVoormontageSST.BatchID 				= BatchID
 					Set KenmerkenVoormontageSST.ToeleveringID 			= Toelevering.GeefID()
-					Set KenmerkenVoormontageSST.ProductiesequentieNr 	= ProductLijn.GeefLijnVolgNr()
+					//Set KenmerkenVoormontageSST.ProductiesequentieNr 	= ProductLijn.GeefLijnVolgNr()
 					Set KenmerkenVoormontageSST.KlantId 				= Toelevering.GeefKlantID()
 					Set KenmerkenVoormontageSST.Korttekst 				= Product.GeefKorttekst()
 					Set KenmerkenVoormontageSST.ProductID 				= ProductLijn.GeefProductID()