Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35379 -r35380
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35379)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35380)
@@ -9,15 +9,41 @@
 <Implementation><![CDATA[
 	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New()
 	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
+
 	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = ORDERS05.IDOC.E1EDK01.BELNR
+	Set Toelevering.ToeleveringHeader.CustomerOrderReference = ORDERS05.IDOC.E1EDK02.BELNR
+	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
+	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
+	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
+	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
 	
+	Do ..VoegToeCustomerOrderEntryDate(Toelevering, ORDERS05)
+	Do ..VoegToeCustomerNumbers(Toelevering, ORDERS05)	 
+
+	Do ..VoegToeToeleveringDetails(Toelevering, ORDERS05)	
+	
+	Do COASO.ToeleveringList.Insert(Toelevering)
+	Quit COASO
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCustomerOrderEntryDate">
+<FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,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") Toelevering.ToeleveringHeader.CustomerOrderEntryDate = $EXTRACT(E1EDK03.DATUM,3,*)
 	}
-	
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCustomerNumbers">
+<FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#dim E1EDKA1Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDKA1)
 	While E1EDKA1Iterator.HasNext()
 	{
@@ -26,17 +52,22 @@
 		Set:(E1EDKA1.PARVW="AG") Toelevering.ToeleveringHeader.CustomerNumberForInvoice = E1EDKA1.PARTN
 		
 	}
-	
-	Set Toelevering.ToeleveringHeader.CustomerOrderReference = ORDERS05.IDOC.E1EDK02.BELNR
-	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
-	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
-	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
-	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
-	
-	Do COASO.ToeleveringList.Insert(Toelevering)
-	Quit COASO
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeToeleveringDetails">
+<FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim E1EDP01Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDP01)
+	While E1EDP01Iterator.HasNext()
+	{
+		#Dim E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 = E1EDP01Iterator.Next()
+		#Dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+		Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+	}
+]]></Implementation>
+</Method>
 </Class>