Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml
===================================================================
diff -u -r71595 -r71596
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71595)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71596)
@@ -54,25 +54,25 @@
 	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 = Toelevering.GeefID()
-	Set BatchNaarObjectiveData.Omschrijving = "Productieorder gegenereerd vanuit Caché"
-	Set BatchNaarObjectiveData.ToeleveringId = Toelevering.GeefID()
-	Set BatchNaarObjectiveData.BatchId = Batch.GeefID()
-	Set BatchNaarObjectiveData.ProductieLijn = Batch.GeefLijn()
-	Set BatchNaarObjectiveData.AantalLades = Toelevering.GeefAantalProducten()
-	Set BatchNaarObjectiveData.DueBefore = ..FormateerHorolog(Toelevering.GeefDueOutTime())
-	Set BatchNaarObjectiveData.DueOut = ..FormateerHorolog(Toelevering.GeefDueOutTime())
+	Set BatchNaarObjectiveData.Id = ..GeefWaardeOfNull(Toelevering.GeefID())
+	Set BatchNaarObjectiveData.Omschrijving = ..GeefWaardeOfNull("Productieorder gegenereerd vanuit Caché")
+	Set BatchNaarObjectiveData.ToeleveringId = ..GeefWaardeOfNull(Toelevering.GeefID())
+	Set BatchNaarObjectiveData.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
+	Set BatchNaarObjectiveData.ProductieLijn = ..GeefWaardeOfNull(Batch.GeefLijn())
+	Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(Toelevering.GeefAantalProducten())
+	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 = Order.GeefAxSalesId()
-	Set BatchNaarObjectiveData.OrderReferentie = Order.GeefOrderReferentie()
-	Set BatchNaarObjectiveData.CommisieReferentie = Order.GeefCommissieReferentie()
-	Set BatchNaarObjectiveData.Verzendwijze = $Piece(Order.GeefVerzendingWijze(), ";", 1)
-	Set BatchNaarObjectiveData.KlantOrderId = Order.GeefDocumentReferenties().KlantOrderNummer
+	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 = Partij.GeefNaam()
-	Set BatchNaarObjectiveData.KlantId = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())
+	Set BatchNaarObjectiveData.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
+	Set BatchNaarObjectiveData.KlantId = ..GeefWaardeOfNull(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID()))
 	
 	Quit BatchNaarObjectiveData
 ]]></Implementation>
@@ -123,6 +123,7 @@
 
 <Method name="FormateerSequentieNummer">
 <FormalSpec>Getal:%String,Lengte:%Integer=5</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	While ($Length(Getal) < Lengte) {
@@ -132,6 +133,19 @@
 	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>