Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(revision 35396)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder.Bewaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLImp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLImp
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO header in BLImp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().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)))
+	Kill ^BLImp(Bewaarder.MsgNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(revision 35396)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefCOASO">
+<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()
+	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
+	
+	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = "745532"
+	Set Toelevering.ToeleveringHeader.CustomerOrderEntryDate = "151221"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForShipment = "212250"
+	Set Toelevering.ToeleveringHeader.CustomerOrderReference = "277788"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForInvoice = "212250"
+	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
+	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
+	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
+	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
+
+	
+	Do COASO.ToeleveringList.Insert(Toelevering)
+	
+	Quit COASO
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 35396)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MsgNr">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="RecNr">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..ZetMsgNr()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
+	while ToeleveringIterator.HasNext()
+	{
+		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
+		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
+
+		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
+		while ToeleveringDetailIterator.HasNext()
+		{
+			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
+			Do ..SchrijfRecord(ToeleveringDetail.ToString())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetMsgNr">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MsgNr=+$O(^BLImp(..MsgNr),-1)+1
+ 	Kill ^BLImp(MsgNr)
+ 	Set ^BLImp(MsgNr)=""
+ 	set ..MsgNr = MsgNr
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfRecord">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..RecNr = ..RecNr + 1
+ 	Set ^BLImp(..MsgNr,..RecNr)=Record
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35395 -r35396
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35395)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35396)
@@ -58,7 +58,7 @@
 <Implementation><![CDATA[
 	try
 	{
-		#dim COASOList As %ListOfObjects = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
+		#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
 		// Schrijf dto naar bestand in IN map of ^BLimp
 	} 
 	catch