Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71621 -r71652
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71621)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71652)
@@ -256,7 +256,7 @@
 		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
 		Set DnaCode = DnaCodeObject.DnaCode
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("Er zijn '" _ DnaCodeLijst.Size _ "' DnaCodes gevonden in plaats van 1."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("Er zijn '" _ DnaCodeLijst.Size _ "' DnaCodes gevonden in plaats van 1 voor BatchId '" _ BatchId _" en SequentieNummer '" _ Sequentienummer _ "'."))
 	}
 	
 	Quit DnaCode