Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35250 -r35376
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35250)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35376)
@@ -7,6 +7,93 @@
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</ReturnType>
 <Implementation><![CDATA[
 	#dim ORDERS05 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New()
+	Set ORDERS05.IDOC.EDIDC40.TABNAM = "EDI_DC40"
+	Set ORDERS05.IDOC.EDIDC40.MANDT = "200"
+	Set ORDERS05.IDOC.EDIDC40.DOCREL = "620"
+	Set ORDERS05.IDOC.EDIDC40.STATUS = "30"
+	Set ORDERS05.IDOC.EDIDC40.DIRECT = "1"
+	Set ORDERS05.IDOC.EDIDC40.OUTMOD = "4"
+	Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "ORDERS05"
+	Set ORDERS05.IDOC.EDIDC40.MESTYP = "ORDRSP"
+	Set ORDERS05.IDOC.EDIDC40.STDMES = "ORDRSP"
+	Set ORDERS05.IDOC.EDIDC40.SNDPOR = "BLUM"
+	Set ORDERS05.IDOC.EDIDC40.SNDPRT = "LI"
+	Set ORDERS05.IDOC.EDIDC40.SNDPFC = "LF"
+	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "5415001000006"
+	Set ORDERS05.IDOC.EDIDC40.RCVPOR = "SAPT31"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRT = "LS"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "LVH"
+	Set ORDERS05.IDOC.EDIDC40.CREDAT = "20151221"
+	Set ORDERS05.IDOC.EDIDC40.CRETIM = "163714"
+	Set ORDERS05.IDOC.EDIDC40.SERIAL = "STD"
+	
+	Set ORDERS05.IDOC.E1EDK01.ACTION  = "0"
+	Set ORDERS05.IDOC.E1EDK01.BELNR  = "745532"
+	
+	#dim E1EDK03 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03).%New()
+	Do ORDERS05.IDOC.E1EDK03.Insert(E1EDK03)
+	Set ORDERS05.IDOC.E1EDK03.GetAt(1).IDDAT  = "11"
+	Set ORDERS05.IDOC.E1EDK03.GetAt(1).DATUM  = "20151221"
+	
+	Set E1EDK03  = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03).%New()
+	Do ORDERS05.IDOC.E1EDK03.Insert(E1EDK03)
+	Set ORDERS05.IDOC.E1EDK03.GetAt(2).IDDAT  = "12"
+	Set ORDERS05.IDOC.E1EDK03.GetAt(2).DATUM  = "20151221"
+	
+	#dim E1EDKA1 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARVW  = "WE"
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARTN  = "212250"
+
+	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARVW  = "LF"
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARTN  = "9002617000009"
+
+	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARVW  = "AG"
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARTN  = "212250"
+	Set ORDERS05.IDOC.E1EDKA1.GetAt(3).LIFNR  = "5415001000006"
+	
+	Set ORDERS05.IDOC.E1EDK02.QUALF  = "001"
+	Set ORDERS05.IDOC.E1EDK02.BELNR  = "277788"
+	
+	#dim E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01).%New()
+	Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).POSEX  = "01"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENGE  = "500"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENEE  = "PCE"
+
+	#dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New()
+	Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.Insert(E1EDP02)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).QUALF  = "001"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR  = "277788"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE  = "01"
+	#dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New()
+	Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.Insert(E1EDP20)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).WMENG  = "500"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).EDATU  = "20160106"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.QUALF  = "002"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.IDTNR  = "09002253"
+
+	Set E1EDP01 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01).%New()
+	Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).POSEX  = "44"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENGE  = "5"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENEE  = "PCE"
+	Set E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New()
+	Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.Insert(E1EDP02)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).QUALF  = "001"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).BELNR  = "277788"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).ZEILE  = "44"
+	Set E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New()
+	Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.Insert(E1EDP20)
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).WMENG  = "5"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).EDATU  = "20160106"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.QUALF  = "002"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.IDTNR  = "03695500"
+
 	Quit ORDERS05
 ]]></Implementation>
 </Method>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35250 -r35376
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35250)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35376)
@@ -60,7 +60,7 @@
 	{
 		#dim COASOList As %ListOfObjects = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
 		// Converteer naar dto
-		// Schrijf dto naar bestand in IN map
+		// Schrijf dto naar bestand in IN map of ^BLimp
 	} 
 	catch 
 	{