Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r35421 -r35422
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35421)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35422)
@@ -16,10 +16,10 @@
 	Set COASO.COASOHeader.MINETC = "C"
 	Set COASO.COASOHeader.MIOTCR = "17-06-16"
 	Set COASO.COASOHeader.MITICR = "2200"
-	Set COASO.COASOHeader.MIACRQ ="1922"
+	Set COASO.COASOHeader.MICOUN ="1922"
 	Set COASO.COASOHeader.MINNCR = "BRANDL A."
 	Set COASO.COASOHeader.MINNRE = "ROOS"
-	Set COASO.COASOHeader.MICOUN = "1"
+	Set COASO.COASOHeader.MIACRQ = "1"
 	Set COASO.COASOHeader.MESPRO = "1"
 	
 	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35421 -r35422
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35421)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35422)
@@ -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\1922\BRANDL A.\ROOS\1\1")
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr),"BAU16558\5005\COA\SO\C\17-06-16\2200\2\BRANDL A.\ROOS\1\1")
 
 	Kill ^BLImp(Bewaarder.MsgNr)
 ]]></Implementation>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35402 -r35422
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35402)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35422)
@@ -11,13 +11,8 @@
 
 	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
 
-	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = ORDERS05.IDOC.E1EDK01.BELNR
-	Set Toelevering.ToeleveringHeader.CustomerOrderReference = ORDERS05.IDOC.E1EDK02.BELNR
-	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
-	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
-	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
-	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
-	
+	Do ..VoegToeHeader(COASO, ORDERS05)
+	Do ..VoegToeToeleveringHeader(Toelevering, ORDERS05)
 	Do ..VoegToeCustomerOrderEntryDate(Toelevering, ORDERS05)
 	Do ..VoegToeCustomerNumbers(Toelevering, ORDERS05)	 
 	Do ..VoegToeToeleveringDetails(Toelevering, ORDERS05)	
@@ -27,6 +22,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeHeader">
+<FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set COASO.COASOHeader.MIIDEF = "BAU16558"
+	Set COASO.COASOHeader.LEVNUR = "5005"
+	Set COASO.COASOHeader.MIINTY = "COA"
+	Set COASO.COASOHeader.MIINTS = "SO"
+	Set COASO.COASOHeader.MINETC = "C"
+	Set COASO.COASOHeader.MIOTCR = "17-06-16"
+	Set COASO.COASOHeader.MITICR = "2200"
+	Set COASO.COASOHeader.MICOUN = "0"
+	Set COASO.COASOHeader.MINNCR = "BRANDL A."
+	Set COASO.COASOHeader.MINNRE = "ROOS"
+	Set COASO.COASOHeader.MIACRQ = "1"
+	Set COASO.COASOHeader.MESPRO = "0"
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeToeleveringHeader">
+<FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = ORDERS05.IDOC.E1EDK01.BELNR
+	Set Toelevering.ToeleveringHeader.CustomerOrderReference = ORDERS05.IDOC.E1EDK02.BELNR
+	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
+	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
+	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
+	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeCustomerOrderEntryDate">
 <FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
 <Private>1</Private>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35421 -r35422
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35421)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35422)
@@ -30,6 +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
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
@@ -40,8 +41,10 @@
 		{
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
 			Do ..SchrijfRecord(ToeleveringDetail.ToString())
+			Set RecordCount = RecordCount + 1
 		}
 	}
+	Set COASO.COASOHeader.MICOUN = RecordCount
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml
===================================================================
diff -u -r35420 -r35422
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 35420)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 35422)
@@ -13,10 +13,10 @@
 	Set COASOHeader.MINETC = "C"
 	Set COASOHeader.MIOTCR = "17-06-16"
 	Set COASOHeader.MITICR = "2200"
-	Set COASOHeader.MIACRQ ="1922"
+	Set COASOHeader.MICOUN ="1922"
 	Set COASOHeader.MINNCR = "BRANDL A."
 	Set COASOHeader.MINNRE = "ROOS"
-	Set COASOHeader.MICOUN = "1"
+	Set COASOHeader.MIACRQ = "1"
 	Set COASOHeader.MESPRO = "1"
 	
 	Do $$$AssertEquals(COASOHeader.ToString(),"BAU16558\5005\COA\SO\C\17-06-16\2200\1922\BRANDL A.\ROOS\1\1")
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml
===================================================================
diff -u -r35420 -r35422
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml	(.../COASOHeader.cls.xml)	(revision 35420)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml	(.../COASOHeader.cls.xml)	(revision 35422)
@@ -50,9 +50,9 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="MIACRQ">
+<Property name="MICOUN">
 <Description>
-indien 1 te bevestigen</Description>
+Aantal records in message</Description>
 <Type>%String</Type>
 </Property>
 
@@ -68,9 +68,9 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="MICOUN">
+<Property name="MIACRQ">
 <Description>
-Aantal records in message</Description>
+indien 1 te bevestigen</Description>
 <Type>%String</Type>
 </Property>
 
@@ -90,10 +90,10 @@
 	Set result = result _..MINETC _ "\"
 	Set result = result _..MIOTCR _ "\"
 	Set result = result _..MITICR _ "\"
-	Set result = result _..MIACRQ _ "\"
+	Set result = result _..MICOUN _ "\"	
 	Set result = result _..MINNCR _ "\"
 	Set result = result _..MINNRE _ "\"
-	Set result = result _..MICOUN _ "\"
+	Set result = result _..MIACRQ _ "\"
 	Set result = result _..MESPRO
 	Quit result
 ]]></Implementation>