Index: APPS/TRANSP/VRD/TransportInschatting.cls.xml
===================================================================
diff -u -r60516 -r60657
--- APPS/TRANSP/VRD/TransportInschatting.cls.xml	(.../TransportInschatting.cls.xml)	(revision 60516)
+++ APPS/TRANSP/VRD/TransportInschatting.cls.xml	(.../TransportInschatting.cls.xml)	(revision 60657)
@@ -32,8 +32,13 @@
 <Implementation><![CDATA[
 	try {
 
-		#dim Root as APPS.TRANSP.VRD.XML.Root = ..ConverteerLijstNaarXml()
-		Do ..VerzendInschattingNaarVRD(Root)
+		#dim Lijst as %ListOfObjects = ..VRDLijst()
+		if Lijst.Count() > 0 {
+			#dim Root as APPS.TRANSP.VRD.XML.Root = ..ConverteerLijstNaarXml(Lijst)
+			Do ..VerzendInschattingNaarVRD(Root)
+		} else {
+			Do ..Logger.Info("VRD Inschatting","Geen zendingen om op voorhand aan te melden aan VRD")
+		}
 				
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -93,11 +98,12 @@
 </Method>
 
 <Method name="ConverteerLijstNaarXml">
+<FormalSpec>Lijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.VRD.XML.Root</ReturnType>
 <Implementation><![CDATA[
 	
-	set DetailIterator = ##class(TECH.ListIterator).%New(..VRDLijst())
+	set DetailIterator = ##class(TECH.ListIterator).%New(Lijst)
 	If DetailIterator.HasNext(){
 		#dim Root as APPS.TRANSP.VRD.XML.Root=..GeefRoot()
 		While(DetailIterator.HasNext()){