Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35422 -r35425
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35422)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35425)
@@ -25,7 +25,7 @@
 	Do Bewaarder.Bewaar(COASODouble)
 	
 	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr),"BAU16558\5005\COA\SO\C\17-06-16\2200\2\BRANDL A.\ROOS\1\1")
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr),"BAU16558\5005\COA\SO\C\17-06-16\2200\3\BRANDL A.\ROOS\1\1")
 
 	Kill ^BLImp(Bewaarder.MsgNr)
 ]]></Implementation>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35422 -r35425
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35422)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35425)
@@ -30,7 +30,7 @@
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
 <Implementation><![CDATA[
 	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
-	#dim RecordCount As %Integer = 0
+	#dim RecordCount As %Integer = 1
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()