Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35195 -r35208
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35195)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35208)
@@ -30,9 +30,6 @@
 		Do ..VoegToeE1EDK01(.ORDERS05)
 		Do ..VoegToeE1EDK03(.ORDERS05, Toelevering)
 		Do ..VoegToeE1EDK02(.ORDERS05, Toelevering)
-		Do ..VoegToeE1EDK17(.ORDERS05, Toelevering)
-		Do ..VoegToeE1EDK18(.ORDERS05, Toelevering)
-		Do ..VoegToeE1EDKT1(.ORDERS05, Toelevering)
 		Do ..VoegToeE1EDKA1(.ORDERS05, Toelevering)
 		
 		#Dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
@@ -96,29 +93,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeE1EDK17">
-<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.E1EDK17.SEGMENT = "1"
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeE1EDK18">
-<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.E1EDK18.SEGMENT = "1"
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeE1EDKT1">
-<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.E1EDKT1.SEGMENT = "1"
-	Set ORDERS05.IDOC.E1EDKT1.E1EDKT2.SEGMENT = "1"
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeE1EDKA1">
 <FormalSpec><![CDATA[&ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05,Toelevering:APPS.EDIExport.AankoopOrder.BLUM.dto.Toelevering]]></FormalSpec>
 <Private>1</Private>
@@ -133,6 +107,7 @@
 	Set E1EDKA1.SEGMENT = "1"
 	set E1EDKA1.PARVW = "WE"
 	set E1EDKA1.PARTN = Toelevering.ToeleveringHeader.CustomerNumberForShipment
+	set E1EDKA1.NAME1 = "Van Hoecke nv"
 	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
 
 	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
@@ -165,8 +140,6 @@
 	Set E1EDP01.E1EDP03.IDDAT = "002" ; (expected delivery date)
 	Set E1EDP01.E1EDP03.DATUM = "20" _ToeleveringDetail.DeliveryDateAxBUA ; Delivery date
 	
-	Set E1EDP01.E1EDPT1.SEGMENT = "1"
-
 	Do ..VoegToeE1EDP19(E1EDP01, ToeleveringDetail)
 	
 	Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01)
@@ -196,6 +169,7 @@
 	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
 	Set E1EDP19.SEGMENT = "1"
 	Set E1EDP19.QUALF = "001" ; ###Customer material number###
+	Set E1EDP19.IDTNR = ToeleveringDetail.ProductIdentificationCustomer
 	Set E1EDP19.KTEXT = ToeleveringDetail.ProductData.KortTekst
 	Do E1EDP01.E1EDP19.Insert(E1EDP19)