Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u -r35453 -r35461
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35453)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35461)
@@ -92,48 +92,46 @@
 	Set ToeleveringDetail.NetPrice = $Extract(BLExportLijn,35,44)
 	Set ToeleveringDetail.PriceDimension = $Extract(BLExportLijn,45,45) 
 	Set ToeleveringDetail.DeliveryDateAxBUA = $Extract(BLExportLijn,46,51)
-	Set ToeleveringDetail.ProductIdentificationCustomer = ..GeefLVHProductNummer(ToeleveringDetail.OrderLineIdentificationCustomer, BLExportLijn)
-	Set ToeleveringDetail.ProductData = ..GeefProductData(ToeleveringDetail.ProductIdentificationCustomer)
+	Set ToeleveringDetail.ProductData =  ..GeefProductVanToelevering(ToeleveringDetail.OrderLineIdentificationCustomer, BLExportLijn)
+	Set ToeleveringDetail.ProductIdentificationCustomer = ToeleveringDetail.ProductData.ProductID
 	Quit ToeleveringDetail
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductData">
-<FormalSpec>ProductID:%String=""</FormalSpec>
-<Private>1</Private>
+<Method name="GeefProductVanToelevering">
+<FormalSpec>OrderLineIdentificationCustomer:%String,BLExportLijn:%String</FormalSpec>
 <ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.ProductData</ReturnType>
 <Implementation><![CDATA[
 	set ProductData = ##class(APPS.EDIExport.AankoopOrder.BLUM.dto.ProductData).%New()
-	If (ProductID '= "")
+		
+	#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
+	#dim ToeleveringLijnID As %Integer = $Piece(OrderLineIdentificationCustomer,".",2) * 100
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
+	#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
+	Set ProductData.ProductID = ToeleveringLijn.GeefProductID()
+	Set ProductData.BrutoAankoopPrijs = ToeleveringLijn.GeefEenheidsPrijs()
+	
+	Do ..VulAanProductData(.ProductData)
+
+	Quit ProductData
+]]></Implementation>
+</Method>
+
+<Method name="VulAanProductData">
+<FormalSpec><![CDATA[&ProductData:APPS.EDIExport.AankoopOrder.BLUM.dto.ProductData]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (ProductData.ProductID '= "")
 	{
-		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
+		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductData.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>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim LVHProductNummer As %String = $$$Trim($Extract(BLExportLijn,56,74))
-	if (LVHProductNummer = "")
-	{
-		#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
-		#dim ToeleveringLijnID As %Integer = $Piece(OrderLineIdentificationCustomer,".",2) * 100
-		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
-		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
-		Quit:(ToeleveringLijn '= "") ToeleveringLijn.GeefProductID()
-	} 
-	Quit LVHProductNummer
-]]></Implementation>
-</Method>
 </Class>