Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r35399 -r35421
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35399)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35421)
@@ -8,6 +8,20 @@
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
 <Implementation><![CDATA[
 	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New()
+	
+	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.MIACRQ ="1922"
+	Set COASO.COASOHeader.MINNCR = "BRANDL A."
+	Set COASO.COASOHeader.MINNRE = "ROOS"
+	Set COASO.COASOHeader.MICOUN = "1"
+	Set COASO.COASOHeader.MESPRO = "1"
+	
 	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
 	
 	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = "745532"
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35409 -r35421
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35409)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35421)
@@ -24,14 +24,28 @@
 	
 	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")
+
+	Kill ^BLImp(Bewaarder.MsgNr)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO Toeleveringheader in BLImp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+	
 	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,1)))
 	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,1),"""112122500121225001277788      000745532      W30G L 151221                     """)
 
 	Kill ^BLImp(Bewaarder.MsgNr)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO detail in BLImp">
+<Method name="Test : Bewaar COASO Toeleveringdetail in BLImp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35420 -r35421
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35420)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35421)
@@ -42,6 +42,7 @@
 			Do ..SchrijfRecord(ToeleveringDetail.ToString())
 		}
 	}
+	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
@@ -50,7 +51,7 @@
 <Implementation><![CDATA[
 	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
  	Kill ^BLImp(..MsgNr)
- 	Set ^BLImp(..MsgNr) = ""
+ 	Do ..SchrijfHeader("")
 ]]></Implementation>
 </Method>
 
@@ -62,6 +63,13 @@
  	Set ^BLImp(..MsgNr,..RecNr)=Record
 ]]></Implementation>
 </Method>
+
+<Method name="SchrijfHeader">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[ 	Set ^BLImp(..MsgNr)=Record
+]]></Implementation>
+</Method>
 </Class>