Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u -r35194 -r35195
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35194)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35195)
@@ -13,6 +13,23 @@
 <Default>21</Default>
 </Parameter>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductAPI:DOM.PM.ProductAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ProductAPI = $$$Inject(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefCOMSO">
 <ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</ReturnType>
 <Implementation><![CDATA[
@@ -64,14 +81,29 @@
 <Implementation><![CDATA[
 	#dim ToeleveringDetail As APPS.EDIExport.AankoopOrder.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrder.BLUM.dto.ToeleveringDetail).%New()
 	Set ToeleveringDetail.OrderLineIdentificationCustomer = $$$Trim($Extract(BLExportLijn,4,14))
-	Set ToeleveringDetail.IdentNumberSupplierBAU = $Extract(BLExportLijn,20,27)
+	Set ToeleveringDetail.IdentNumberSupplierBAU = $$$Trim($Extract(BLExportLijn,20,27))
 	Set ToeleveringDetail.OrderQuantity = $Extract(BLExportLijn,28,34)
 	Set ToeleveringDetail.NetPrice = $Extract(BLExportLijn,35,44)
 	Set ToeleveringDetail.PriceDimension = $Extract(BLExportLijn,45,45) 
 	Set ToeleveringDetail.DeliveryDateAxBUA = $Extract(BLExportLijn,46,51)
+	Set ToeleveringDetail.ProductData = ..GeefProductData(ToeleveringDetail.IdentNumberSupplierBAU)
 	Quit ToeleveringDetail
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductData">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.ProductData</ReturnType>
+<Implementation><![CDATA[
+	set ProductData = ##class(APPS.EDIExport.AankoopOrder.BLUM.dto.ProductData).%New()
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
+	set ProductData.KortTekst = Product.GeefKorttekst()
+	set ProductData.EANCode = Product.GeefEANCode()
+	set ProductData.BrutoAankoopPrijs = Product.GeefBrutoAankoopPrijs() 
+	Quit ProductData
+]]></Implementation>
+</Method>
 </Class>