Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r36665 -r36674
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36665)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36674)
@@ -27,36 +27,33 @@
 <Method name="Bewaar">
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
 <Implementation><![CDATA[
-	Set ..RecNr = 0
-	Set ..MsgNr = 99999999
-	Do ..ZetMsgNr()
+ 	Do ..SchrijfHeader("")
 	#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()
+		Do ..ZetMsgNr(Toelevering.ToeleveringHeader.CustomerOrderReference)
 		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
-		Set RecordCount = RecordCount + 1
 
 		#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())
-			Set RecordCount = RecordCount + 1
 		}
 	}
-	Set COASO.COASOHeader.MICOUN = RecordCount
+	Set COASO.COASOHeader.MICOUN = 0
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
 <Method name="ZetMsgNr">
+<FormalSpec>CustomerOrderReference:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
- 	Kill ^BLImp(..MsgNr)
- 	Do ..SchrijfHeader("")
+	Set ..RecNr = 0
+	Set ..MsgNr = CustomerOrderReference
+ 	Kill ^BLOrdRsp(..MsgNr)
 ]]></Implementation>
 </Method>
 
@@ -65,14 +62,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLImp(..MsgNr,..RecNr)=Record
+ 	Set ^BLOrdRsp(..MsgNr,..RecNr)=Record
 ]]></Implementation>
 </Method>
 
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLImp(..MsgNr)=Record
+<Implementation><![CDATA[ 	Set ^BLOrdRsp(0)=Record
 ]]></Implementation>
 </Method>
 </Class>