Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35118 -r35153
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35118)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35153)
@@ -1,19 +1,75 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder">
-<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Property name="COMSO">
+<Type>APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Converteer">
-<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</FormalSpec>
+<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+	Set ..COMSO = COMSO
+	
 	#dim List As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	Do List.Insert(##class(APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).%New())
+	#Dim ToeleveringList As TECH.ListIterator = ##class(TECH.ListIterator).%New(..COMSO.ToeleveringList)
 	
+	while ToeleveringList.HasNext()
+	{
+		#Dim Toelevering As APPS.EDIExport.AankoopOrder.BLUM.dto.Toelevering = ToeleveringList.Next()
+		
+		#dim ORDERS05 As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).%New()
+		
+		Do ..GeefEDIDC40(.ORDERS05)
+		Do ..GeefE1EDK01(.ORDERS05)
+		Do ..GeefE1EDK03(.ORDERS05, Toelevering)
+		Do ..GeefE1EDKA1(.ORDERS05, Toelevering)
+		
+		Do List.Insert(ORDERS05)
+	}
 	Quit List
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEDIDC40">
+<FormalSpec><![CDATA[&ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	 Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "ORDERS05"
+]]></Implementation>
+</Method>
+
+<Method name="GeefE1EDK01">
+<FormalSpec><![CDATA[&ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ORDERS05.IDOC.E1EDK01.CURCY = "EUR"
+]]></Implementation>
+</Method>
+
+<Method name="GeefE1EDK03">
+<FormalSpec><![CDATA[&ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05,Toelevering:APPS.EDIExport.AankoopOrder.BLUM.dto.Toelevering]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ORDERS05.IDOC.E1EDK03.DATUM = "20" _Toelevering.ToeleveringHeader.CustomerOrderEntryDate
+]]></Implementation>
+</Method>
+
+<Method name="GeefE1EDKA1">
+<FormalSpec><![CDATA[&ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05,Toelevering:APPS.EDIExport.AankoopOrder.BLUM.dto.Toelevering]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim E1EDKA1 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+
+	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+
+	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
+]]></Implementation>
+</Method>
 </Class>