Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71765 -r71777
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71765)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71777)
@@ -4,13 +4,13 @@
 <Abstract>1</Abstract>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="ToeleveringAantalRollenOptiesGenerator">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator</Type>
+<Property name="HoofdDataGeneratorFactory">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.HoofdDataGeneratorFactory</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DataVoorToeleveringGenerator">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator</Type>
+<Property name="ToeleveringAantalRollenOptiesGenerator">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator</Type>
 <Private>1</Private>
 </Property>
 
@@ -35,8 +35,8 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..HoofdDataGeneratorFactory = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.HoofdDataGeneratorFactory).%New()
 	Set ..ToeleveringAantalRollenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator).%New()
-	Set ..DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New()
 	Set ..SequentieOptieGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.SequentieOptiesGenerator).%New()
 	Set ..ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New()
 	Set ..IngegevenKenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New()
@@ -45,13 +45,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerBatchDataVoorToelevering">
+<Method name="GenereerDataVoorToelevering">
 <FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
-<Implementation><![CDATA[	Quit ..DataVoorToeleveringGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering)
+<Implementation><![CDATA[
+	#dim DataVoorToeleveringGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator = ..HoofdDataGeneratorFactory.MaakDataVoorToeleveringGenerator()
+	Quit DataVoorToeleveringGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering)
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerDataVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
+<Implementation><![CDATA[
+	#dim DataVoorBatchGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorBatchGenerator = ..HoofdDataGeneratorFactory.MaakDataVoorBatchGenerator()
+	Quit DataVoorBatchGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering)
+]]></Implementation>
+</Method>
+
 <Method name="GenereerOptiesVoorLadePerUitvoeringInfo">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorBatchGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorBatchGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorBatchGenerator.cls.xml	(revision 71777)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorBatchGenerator">
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator</Super>
+
+<Method name="GeefToeleveringId">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Id As %String = ""
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	
+	Do ToeleveringIterator.Reset()
+	
+	While ToeleveringIterator.HasNext() {
+		Set Toelevering = ToeleveringIterator.Next()
+		Set Id = Id _ Toelevering.GeefID() _ ";"
+	}
+
+	Quit $Extract(Id, 1, $Length(Id) -1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalLades">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit Batch.GeefAantalProductenBijStart()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71772 -r71777
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71772)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71777)
@@ -76,9 +76,9 @@
 		
 		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {
 			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
-				Set BatchDataLijst = ..GeefBatchDataLijstVoorVhoss(Batch, UitvoeringInfoLijstIterator)
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
 			} Else {
-				Set BatchDataLijst = ..GeefBatchDataLijstVoorNietVhoss(Batch, UitvoeringInfoLijstIterator)
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
 			}	
 			
 		}
@@ -88,15 +88,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBatchDataLijstVoorVhoss">
+<Method name="GeefVhossBatchDataLijst">
 <FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, 1)	
+	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, 1)
 	Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
 	
 	While ToeleveringenIterator.HasNext() {		
@@ -111,7 +111,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBatchDataLijstVoorNietVhoss">
+<Method name="GeefStandaardBatchDataLijst">
 <FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -124,7 +124,7 @@
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		Set IndexToelevering = IndexToelevering + 1
 		
-		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering)
+		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
 		Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
 		Do BatchDataLijst.Insert(BatchData)
 	}
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator.cls.xml	(revision 71777)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator">
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator</Super>
+
+<Method name="GeefToeleveringId">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Toelevering.GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalLades">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit Toelevering.GeefAantalProducten()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/HoofdDataGeneratorFactory.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/HoofdDataGeneratorFactory.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/HoofdDataGeneratorFactory.cls.xml	(revision 71777)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.HoofdDataGeneratorFactory">
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator</Super>
+
+<Method name="MaakDataVoorBatchGenerator">
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorBatchGenerator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorBatchGenerator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="MaakDataVoorToeleveringGenerator">
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(revision 71777)
@@ -0,0 +1,172 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BatchPitchExportedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BatchPitchExportedRepository = $$$Inject(BatchPitchExportedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator"))
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerData">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
+<Implementation><![CDATA[
+	Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData).%New()
+	
+	Set BatchNaarObjectiveData.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
+	Set BatchNaarObjectiveData.ReceptNaam = "Template Lade TLM.Template Lade TLM M1.11" // Receptnaam tijdelijk invullen als vaste waarde
+	
+	Set BatchNaarObjectiveData.Id = ..GeefWaardeOfNull(Toelevering.GeefID())
+	Set BatchNaarObjectiveData.Omschrijving = ..GeefWaardeOfNull("Productieorder gegenereerd vanuit Caché")
+	
+	Set BatchNaarObjectiveData.ToeleveringId = ..GeefWaardeOfNull(..GeefToeleveringId(Batch, Toelevering))
+	Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(..GeefAantalLades(Batch, Toelevering))	
+	
+	Set BatchNaarObjectiveData.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
+	Set BatchNaarObjectiveData.ProductieLijn = ..GeefWaardeOfNull(Batch.GeefLijn())
+	Set BatchNaarObjectiveData.DueBefore = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
+	Set BatchNaarObjectiveData.DueOut = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
+	
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
+	Set BatchNaarObjectiveData.VerkoopOrderId = ..GeefWaardeOfNull(Order.GeefAxSalesId())
+	Set BatchNaarObjectiveData.OrderReferentie = ..GeefWaardeOfNull(Order.GeefOrderReferentie())
+	Set BatchNaarObjectiveData.CommisieReferentie = ..GeefWaardeOfNull(Order.GeefCommissieReferentie())
+	Set BatchNaarObjectiveData.Verzendwijze = ..GeefWaardeOfNull($Piece(Order.GeefVerzendingWijze(), ";", 1))
+	Set BatchNaarObjectiveData.KlantOrderId = ..GeefWaardeOfNull(Order.GeefDocumentReferenties().KlantOrderNummer)
+	
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
+	Set BatchNaarObjectiveData.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
+	Set BatchNaarObjectiveData.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
+	
+	Set BatchNaarObjectiveData.MultipersonalityKlant1 = ..GeefWaardeOfNull("")
+	Set BatchNaarObjectiveData.MultipersonalityKlant2 = ..GeefWaardeOfNull("")
+	
+	Quit BatchNaarObjectiveData
+]]></Implementation>
+</Method>
+
+<Method name="FormateerHorolog">
+<FormalSpec>Horolog:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Timestamp As %String = ##class(TECH.DateTime).HorologToTimeStamp(Horolog)	
+	#dim Datum As %String = $Piece(Timestamp, " ", 1)
+	#dim Tijdstip As %String = $Piece(Timestamp, " ", 2)
+	
+	Quit Datum _ "T" _ Tijdstip _ ".000Z"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalRangorde">
+<FormalSpec>BatchId:%String,SequentieNummerToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Rangorde As %String = ""
+	#dim BatchPitchExportedIterator As TECH.Iterator = ..BatchPitchExportedRepository.ZoekViaBatchId(BatchId)
+	#dim BatchPitchExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(BatchPitchExportedIterator)
+	
+	If (BatchPitchExportedLijst.Size = 1) {
+		#dim BatchPitchExported As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = BatchPitchExportedLijst.GetAt(1)
+		#dim Volgnummer As %String = BatchPitchExported.Volgnummer
+		
+		Set Rangorde = Volgnummer _ "_" _ ..PrependNul(SequentieNummerToelevering)
+	} ElseIf (BatchPitchExportedLijst.Size > 1) {
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("De rangorde kan niet worden bepaald voor BatchId '" _ BatchId _ "', aangezien er meerdere batches zijn gepitcht.")
+		Do ..Logger.Error("BepaalRangorde", Exception.GeefOmschrijving())
+		
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} Else {
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '" _ BatchId _ "'.")
+		Do ..Logger.Error("BepaalRangorde", Exception.GeefOmschrijving())
+		
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit Rangorde
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringId">
+<Abstract>1</Abstract>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefAantalLades">
+<Abstract>1</Abstract>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="PrependNul">
+<FormalSpec>Getal:%String,Lengte:%Integer=5</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	While ($Length(Getal) < Lengte) {
+		Set Getal = "0" _ Getal
+	}
+	
+	Quit Getal
+]]></Implementation>
+</Method>
+
+<Method name="GeefWaardeOfNull">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (Waarde = "") {
+		Set Waarde = "null"
+	}
+	
+	Quit Waarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 71777 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?