Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml
===================================================================
diff -u -r35364 -r35420
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml	(.../COASOHeader.cls.xml)	(revision 35364)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader.cls.xml	(.../COASOHeader.cls.xml)	(revision 35420)
@@ -4,166 +4,145 @@
 <ClassType>serial</ClassType>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 
-<Property name="MIIDEF1">
+<Property name="MIIDEF">
 <Description>
-LVH 7,3 (indien transimmsion number 8 lang, dan hoort DEF1 en DEF2 samen.)</Description>
+Message identification ///  BAU + Nr</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MIIDEF2">
+<Property name="LEVNUR">
 <Description>
-16370 10, 5 (VolgNummer. is dit transmission number ??)</Description>
+BLUMNR\</Description>
 <Type>%String</Type>
+<InitialExpression>"5005"</InitialExpression>
 </Property>
 
-<Property name="MICODE">
-<Description>
-A 15, 1</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="MIIDTR">
-<Description>
-LVH 16, 3</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="MIIORE">
-<Description>
-BAU 19, 3</Description>
-<Type>%String</Type>
-</Property>
-
 <Property name="MIINTY">
 <Description>
-COM 22, 3 (Type : COM,COA,CSB,DMS,MSG)</Description>
+Property MIINTY As %String;</Description>
 <Type>%String</Type>
+<InitialExpression>"COA"</InitialExpression>
 </Property>
 
 <Property name="MIINTS">
 <Description>
-SO 25, 2 (Subtype : SO,DO,PR)</Description>
+SO (Standaard Order of DO Direct Order</Description>
 <Type>%String</Type>
+<InitialExpression>"SO"</InitialExpression>
 </Property>
 
 <Property name="MINETC">
-<Description>
-N 27,1</Description>
+<Description><![CDATA[
+Indien = N -> Volledige transmissie , Indien = C -> Changes only]]></Description>
 <Type>%String</Type>
+<InitialExpression>"C"</InitialExpression>
 </Property>
 
-<Property name="MIOITTR">
-<Description>
-160606 28, 6 (datum ?)</Description>
-<Type>%String</Type>
-</Property>
-
 <Property name="MIOTCR">
 <Description>
-160606 34,6 (datum ?)</Description>
+Datum dd-mm-yy</Description>
 <Type>%String</Type>
 </Property>
 
 <Property name="MITICR">
 <Description>
-1431 40, 4 (uur ?)</Description>
+uur hhmm</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MINNCR">
+<Property name="MIACRQ">
 <Description>
-KURT TEST 44,10</Description>
+indien 1 te bevestigen</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MISTTR">
+<Property name="MINNCR">
 <Description>
-6 54, 1</Description>
+Naam zender</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MIACRC">
+<Property name="MINNRE">
 <Description>
- 55, 1</Description>
+Naam ontvanger</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MIACRQ">
-<Description>
-1 56,1</Description>
-<Type>%String</Type>
-</Property>
-
 <Property name="MICOUN">
 <Description>
-00011 57,5</Description>
+Aantal records in message</Description>
 <Type>%String</Type>
 </Property>
 
-<Property name="MINNRE">
+<Property name="MESPRO">
 <Description>
-62,10      </Description>
+indien verwerkt dan is dit veld 1</Description>
 <Type>%String</Type>
 </Property>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = ..MIIDEF _ "\"
+	Set result = result _..LEVNUR _ "\"
+	Set result = result _..MIINTY _ "\"
+	Set result = result _..MIINTS _ "\"
+	Set result = result _..MINETC _ "\"
+	Set result = result _..MIOTCR _ "\"
+	Set result = result _..MITICR _ "\"
+	Set result = result _..MIACRQ _ "\"
+	Set result = result _..MINNCR _ "\"
+	Set result = result _..MINNRE _ "\"
+	Set result = result _..MICOUN _ "\"
+	Set result = result _..MESPRO
+	Quit result
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>COASOHeaderState</State>
 <StreamLocation>^APPS.EDIExportC6E.COASOHeaderS</StreamLocation>
 <Data name="COASOHeaderState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
-<Value>MIIDEF1</Value>
+<Value>MIIDEF</Value>
 </Value>
 <Value name="2">
-<Value>MIIDEF2</Value>
+<Value>LEVNUR</Value>
 </Value>
 <Value name="3">
-<Value>MICODE</Value>
+<Value>MIINTY</Value>
 </Value>
 <Value name="4">
-<Value>MIIDTR</Value>
+<Value>MIINTS</Value>
 </Value>
 <Value name="5">
-<Value>MIIORE</Value>
+<Value>MINETC</Value>
 </Value>
 <Value name="6">
-<Value>MIINTY</Value>
+<Value>MIOTCR</Value>
 </Value>
 <Value name="7">
-<Value>MIINTS</Value>
+<Value>MITICR</Value>
 </Value>
 <Value name="8">
-<Value>MINETC</Value>
+<Value>MIACRQ</Value>
 </Value>
 <Value name="9">
-<Value>MIOITTR</Value>
+<Value>MINNCR</Value>
 </Value>
 <Value name="10">
-<Value>MIOTCR</Value>
+<Value>MINNRE</Value>
 </Value>
 <Value name="11">
-<Value>MITICR</Value>
+<Value>MICOUN</Value>
 </Value>
 <Value name="12">
-<Value>MINNCR</Value>
+<Value>Processed</Value>
 </Value>
 <Value name="13">
-<Value>MISTTR</Value>
+<Value>MESPRO</Value>
 </Value>
-<Value name="14">
-<Value>MIACRC</Value>
-</Value>
-<Value name="15">
-<Value>MIACRQ</Value>
-</Value>
-<Value name="16">
-<Value>MICOUN</Value>
-</Value>
-<Value name="17">
-<Value>MINNRE</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASOHeader/ToString/Test.cls.xml	(revision 35420)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASOHeader.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : COASOHeader Object geeft seperated string weer.">
+<Implementation><![CDATA[
+	#Dim COASOHeader As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASOHeader = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASOHeader).%New()
+	Set COASOHeader.MIIDEF = "BAU16558"
+	Set COASOHeader.LEVNUR = "5005"
+	Set COASOHeader.MIINTY = "COA"
+	Set COASOHeader.MIINTS = "SO"
+	Set COASOHeader.MINETC = "C"
+	Set COASOHeader.MIOTCR = "17-06-16"
+	Set COASOHeader.MITICR = "2200"
+	Set COASOHeader.MIACRQ ="1922"
+	Set COASOHeader.MINNCR = "BRANDL A."
+	Set COASOHeader.MINNRE = "ROOS"
+	Set COASOHeader.MICOUN = "1"
+	Set COASOHeader.MESPRO = "1"
+	
+	Do $$$AssertEquals(COASOHeader.ToString(),"BAU16558\5005\COA\SO\C\17-06-16\2200\1922\BRANDL A.\ROOS\1\1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35406 -r35420
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35406)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35420)
@@ -50,6 +50,7 @@
 <Implementation><![CDATA[
 	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
  	Kill ^BLImp(..MsgNr)
+ 	Set ^BLImp(..MsgNr) = ""
 ]]></Implementation>
 </Method>