Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u -r35195 -r35208
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35195)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35208)
@@ -18,14 +18,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductAPI:DOM.PM.ProductAPI</FormalSpec>
+<FormalSpec>ProductAPI:DOM.PM.ProductAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..ProductAPI = $$$Inject(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	set ..ToeleveringAPI = $$$Inject(ToeleveringAPI,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -70,6 +75,7 @@
 	Set Toelevering.ToeleveringHeader.CustomerNumberForInvoice = $Extract(BLExportLijn,12,17)
 	Set Toelevering.ToeleveringHeader.CustomerOrderReference = $$$Trim($Extract(BLExportLijn,20,31))
 	Set Toelevering.ToeleveringHeader.CustomerOrderEntryDate = $Extract(BLExportLijn,54,59)
+
 	Quit Toelevering
 ]]></Implementation>
 </Method>
@@ -86,24 +92,51 @@
 	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)
+	Set ToeleveringDetail.ProductIdentificationCustomer = ..GeefLVHProductNummer(ToeleveringDetail.OrderLineIdentificationCustomer, BLExportLijn)
+	Set ToeleveringDetail.ProductData = ..GeefProductData(ToeleveringDetail.ProductIdentificationCustomer)
 	Quit ToeleveringDetail
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductData">
-<FormalSpec>ProductID:%String</FormalSpec>
+<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() 
+	If (ProductID '= "")
+	{
+		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
+		if $IsObject(Product)
+		{
+			set ProductData.KortTekst = Product.GeefKorttekst()
+			set ProductData.EANCode = Product.GeefEANCode()
+			set ProductData.BrutoAankoopPrijs = Product.GeefBrutoAankoopPrijs() 
+		} 
+	}
+	
 	Quit ProductData
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLVHProductNummer">
+<FormalSpec>OrderLineIdentificationCustomer:%String,BLExportLijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
+	#dim ToeleveringLijnID As %String = "1" _$Piece(OrderLineIdentificationCustomer,".",2)
+	#dim LVHProductNummer As %String = $$$Trim($Extract(BLExportLijn,56,74))
+	
+	if (LVHProductNummer = "")
+	{
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
+		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(ToeleveringLijnID)
+		Quit:(ToeleveringLijn '= "") ToeleveringLijn.GeefProductID()
+	} 
+	Quit LVHProductNummer
+]]></Implementation>
+</Method>
 </Class>