Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35402 -r35423
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35402)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35423)
@@ -10,6 +10,20 @@
 	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
 	
 	Do $$$AssertIsObject(COASO)
+
+	Do $$$AssertEquals(COASO.COASOHeader.MIIDEF, "BAU745532") 
+	Do $$$AssertEquals(COASO.COASOHeader.LEVNUR, "5005")
+	Do $$$AssertEquals(COASO.COASOHeader.MIINTY, "COA")
+	Do $$$AssertEquals(COASO.COASOHeader.MIINTS, "SO")
+	Do $$$AssertEquals(COASO.COASOHeader.MINETC, "C")
+	Do $$$AssertEquals(COASO.COASOHeader.MIOTCR, "21-12-15")
+	Do $$$AssertEquals(COASO.COASOHeader.MITICR, "1200")
+	Do $$$AssertEquals(COASO.COASOHeader.MICOUN, "0")
+	Do $$$AssertEquals(COASO.COASOHeader.MINNCR, "")
+	Do $$$AssertEquals(COASO.COASOHeader.MINNRE, "")
+	Do $$$AssertEquals(COASO.COASOHeader.MIACRQ, "1")
+	Do $$$AssertEquals(COASO.COASOHeader.MESPRO, "0")
+
 	Do $$$AssertEquals(COASO.ToeleveringList.Count(),1)
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.InternalOrderNumberBLUM,"745532")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CustomerOrderEntryDate,"151221")
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35422 -r35423
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35422)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35423)
@@ -26,16 +26,16 @@
 <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.MIIDEF = "BAU" _ ORDERS05.IDOC.E1EDK01.BELNR 
 	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"
+	Do ..VoegToeMIOTCR(COASO, ORDERS05)
+	Set COASO.COASOHeader.MITICR = "1200"
 	Set COASO.COASOHeader.MICOUN = "0"
-	Set COASO.COASOHeader.MINNCR = "BRANDL A."
-	Set COASO.COASOHeader.MINNRE = "ROOS"
+	Set COASO.COASOHeader.MINNCR = ""
+	Set COASO.COASOHeader.MINNRE = ""
 	Set COASO.COASOHeader.MIACRQ = "1"
 	Set COASO.COASOHeader.MESPRO = "0"
 ]]></Implementation>
@@ -54,6 +54,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeMIOTCR">
+<FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim E1EDK03Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDK03)
+	While E1EDK03Iterator.HasNext()
+	{
+		#dim E1EDK03 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03 = E1EDK03Iterator.Next()
+		Set:(E1EDK03.IDDAT="11") COASO.COASOHeader.MIOTCR = $EXTRACT(E1EDK03.DATUM,7,8) _"-" _$EXTRACT(E1EDK03.DATUM,5,6) _"-" _$EXTRACT(E1EDK03.DATUM,3,4)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeCustomerOrderEntryDate">
 <FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
 <Private>1</Private>