Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35423 -r35454
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35423)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35454)
@@ -37,7 +37,7 @@
 	Set COASO.COASOHeader.MINNCR = ""
 	Set COASO.COASOHeader.MINNRE = ""
 	Set COASO.COASOHeader.MIACRQ = "1"
-	Set COASO.COASOHeader.MESPRO = "0"
+	Set COASO.COASOHeader.MESPRO = ""
 ]]></Implementation>
 </Method>
 
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35425 -r35454
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35425)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35454)
@@ -30,11 +30,12 @@
 <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 = 1
+	#dim RecordCount As %Integer = 0
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
 		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
+		Set RecordCount = RecordCount + 1
 
 		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
 		while ToeleveringDetailIterator.HasNext()
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35423 -r35454
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35423)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35454)
@@ -22,7 +22,7 @@
 	Do $$$AssertEquals(COASO.COASOHeader.MINNCR, "")
 	Do $$$AssertEquals(COASO.COASOHeader.MINNRE, "")
 	Do $$$AssertEquals(COASO.COASOHeader.MIACRQ, "1")
-	Do $$$AssertEquals(COASO.COASOHeader.MESPRO, "0")
+	Do $$$AssertEquals(COASO.COASOHeader.MESPRO, "")
 
 	Do $$$AssertEquals(COASO.ToeleveringList.Count(),1)
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.InternalOrderNumberBLUM,"745532")