Index: APPS/Halux/common/impl/ToeleveringException.cls.xml
===================================================================
diff -u -r1969 -r2134
--- APPS/Halux/common/impl/ToeleveringException.cls.xml	(.../ToeleveringException.cls.xml)	(revision 1969)
+++ APPS/Halux/common/impl/ToeleveringException.cls.xml	(.../ToeleveringException.cls.xml)	(revision 2134)
@@ -22,7 +22,14 @@
 
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Toelevering kon niet worden toegevoegd aan de batch"
+<Implementation><![CDATA[
+	Set ToString = "Toelevering: "_..BatchError.ToeleveringNummer
+	Set Iterator = ##class(TECH.ListIterator).%New(..BatchError.Boodschappen)
+	While (Iterator.HasNext())
+	{
+		Set ToString = ToString_", "_Iterator.Next()
+	}
+	Quit ToString
 ]]></Implementation>
 </Method>
 
@@ -35,13 +42,7 @@
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ToString = "Toelevering: "_..BatchError.ToeleveringNummer
-	Set Iterator = ##class(TECH.ListIterator).%New(..BatchError.Boodschappen)
-	While (Iterator.HasNext())
-	{
-		Set ToString = ToString_", "_Iterator.Next()
-	}
-	Set ToString = ToString_$C(13,10)_##super()
+	Set ToString = ..GeefOmschrijving()_$C(13,10)_##super()
 	Quit ToString
 ]]></Implementation>
 </Method>