Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35250 -r35379
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35250)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35379)
@@ -8,6 +8,32 @@
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
 <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
+	
+	#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,*)
+	}
+	
+	#dim E1EDKA1Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDKA1)
+	While E1EDKA1Iterator.HasNext()
+	{
+		#dim E1EDKA1 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1 = E1EDKA1Iterator.Next()
+		Set:(E1EDKA1.PARVW="WE") Toelevering.ToeleveringHeader.CustomerNumberForShipment = E1EDKA1.PARTN
+		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>