Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35184 -r35195
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35184)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35195)
@@ -159,7 +159,8 @@
 	Set E1EDP01.NETWR = ToeleveringDetail.NetPrice
 	Set E1EDP01.PEINH = ..BepaalPUINH(ToeleveringDetail.PriceDimension)
 	Set E1EDP01.VPREI = ((E1EDP01.MENGE * E1EDP01.NETWR) / E1EDP01.PEINH ) 
-
+	Set E1EDP01.PREIS = ToeleveringDetail.ProductData.BrutoAankoopPrijs
+	
 	Set E1EDP01.E1EDP03.SEGMENT = "1"
 	Set E1EDP01.E1EDP03.IDDAT = "002" ; (expected delivery date)
 	Set E1EDP01.E1EDP03.DATUM = "20" _ToeleveringDetail.DeliveryDateAxBUA ; Delivery date
@@ -195,6 +196,7 @@
 	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
 	Set E1EDP19.SEGMENT = "1"
 	Set E1EDP19.QUALF = "001" ; ###Customer material number###
+	Set E1EDP19.KTEXT = ToeleveringDetail.ProductData.KortTekst
 	Do E1EDP01.E1EDP19.Insert(E1EDP19)
 
 	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
@@ -205,7 +207,8 @@
 
 	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
 	Set E1EDP19.SEGMENT = "1"
-	Set E1EDP19.QUALF = "003" ; ###MAterial Number BLUM ###
+	Set E1EDP19.QUALF = "003" ; ###Material Number BLUM ###
+	Set E1EDP19.IDTNR = ToeleveringDetail.ProductData.EANCode
 	Do E1EDP01.E1EDP19.Insert(E1EDP19)
 	
 	Quit List