Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35380 -r35381
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35380)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35381)
@@ -8,6 +8,7 @@
 <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
@@ -19,7 +20,6 @@
 	
 	Do ..VoegToeCustomerOrderEntryDate(Toelevering, ORDERS05)
 	Do ..VoegToeCustomerNumbers(Toelevering, ORDERS05)	 
-
 	Do ..VoegToeToeleveringDetails(Toelevering, ORDERS05)	
 	
 	Do COASO.ToeleveringList.Insert(Toelevering)
@@ -64,10 +64,57 @@
 	{
 		#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()
+
+		Set ToeleveringDetail.OrderQuantity = E1EDP01.MENGE
+		Do ..VoegToeOrderLineIdentificationCustomer(ToeleveringDetail,E1EDP01)
+		Do ..VoegToeOrderLineIdentNumberSupplierBAU(ToeleveringDetail,E1EDP01)
+		
 		Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeOrderLineIdentificationCustomer">
+<FormalSpec>ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,E1EDP01:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim E1EDP02Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP02)
+	While E1EDP02Iterator.HasNext()
+	{
+		#dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = E1EDP02Iterator.Next()
+		Set:(E1EDP02.QUALF="001") ToeleveringDetail.OrderLineIdentificationCustomer = E1EDP02.BELNR _"." _E1EDP02.ZEILE _"  "
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeOrderLineIdentNumberSupplierBAU">
+<FormalSpec>ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,E1EDP01:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim E1EDP19Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP19)
+	While E1EDP19Iterator.HasNext()
+	{
+		#dim E1EDP19 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP19 = E1EDP19Iterator.Next()
+		Set:(E1EDP19.QUALF="002") ToeleveringDetail.IdentNumberSupplierBAU = E1EDP19.IDTNR
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method VoegToeOrderQuantityEnDeliveryDateAxBUA(ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail, E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01) [ Private ]
+{
+	#dim E1EDP20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP20)
+	While E1EDP20Iterator.HasNext()
+	{
+		#dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = E1EDP20Iterator.Next()
+		Set ToeleveringDetail.OrderQuantity = E1EDP20.BELNR
+		Set ToeleveringDetail.DeliveryDateAxBUA = E1EDP20.BELNR
+	}
+}
+*/
+]]></Content>
+</UDLText>
 </Class>