Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r1133 -r3701
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 1133)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 3701)
@@ -80,10 +80,9 @@
 	While (Iterator.HasNext())
 	{
 		Set ToeleveringNummer = Iterator.Next()
-		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
-		If ($IsObject(Toelevering))
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringNummer))
 		{
-			Do Toeleveringen.Insert(Toelevering)
+			Do Toeleveringen.Insert(ToeleveringAPI.GeefToelevering(ToeleveringNummer))
 		}
 	}
 	Quit ##class(TECH.ListIterator).%New(Toeleveringen)