Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42031 -r42033
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42031)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42033)
@@ -31,13 +31,13 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<FormalSpec>ToeleveringLijn:%RegisteredObject,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	//#Dim LeverancierId As %String = ToeleveringLijn.GeefToelevering().GeefLeverancierID()
 	Set ..AxRegel = ##class(AXdixf.AankoopOrderRegel.AankoopOrderRegel).%New()
 	
-	Do ..ConvertGemeenschappelijk(ToeleveringLijn,Vestiging)
+	Do ..ConvertGemeenschappelijk(ToeleveringLijn)
 	
 	If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() {
 		Do ..ConvertVanHoecke(ToeleveringLijn)
@@ -54,41 +54,175 @@
 </Method>
 
 <Method name="ConvertGemeenschappelijk">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxRegel.ConfirmedDlv = ""
 	Set ..AxRegel.CurrencyCode = "EUR"
-	Set ..AxRegel.DeliveryDate = "" //ToeleveringLijn.GeefLeveringsWeekVoorziene()
+	Set ..AxRegel.DeliveryDate = ..BepaalDeliveryDate(ToeleveringLijn)
 	Set ..AxRegel.ExternalItemId = ""
-	Set ..AxRegel.ItemId = "" //##class(Prod.Product).%OpenId(ToeleveringLijn.GeefProductID()).IdentNummer
+	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn)
 	Set ..AxRegel.LineAmount = ""
-	Set ..AxRegel.LineNumber = ""
+	Set ..AxRegel.LineNumber = ..BepaalLineNumber(ToeleveringLijn)
 	Set ..AxRegel.LinePercent = ""
 	Set ..AxRegel.OverDeliveryPct = ""
 	Set ..AxRegel.PriceUnit = ""
-	Set ..AxRegel.PurchId = "" //ToeleveringLijn.GeefToelevering().GeefID()
-	Set ..AxRegel.PurchPrice = ""
-	Set ..AxRegel.PurchQty = ""
+	Set ..AxRegel.PurchId = ..BepaalPurchId(ToeleveringLijn)
+	Set ..AxRegel.PurchPrice = ..BepaalPurchPrice(ToeleveringLijn)
+	Set ..AxRegel.PurchQty = ..BepaalPurchQty(ToeleveringLijn)
 	Set ..AxRegel.PurchUnit = "STK"
 	Set ..AxRegel.TaxItemGroup = "G3"
-	Set ..AxRegel.UnderDeliveryPct = ""
+	Set ..AxRegel.UnderDeliveryPct = ..BepaalUnderDeliveryPct(ToeleveringLijn)
 	//Set ..AxRegel. = ""
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertVanHoecke">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 </Method>
 
 <Method name="ConvertHalux">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 </Method>
+
+<Method name="BepaalDeliveryDate">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim DeliveryDate As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set DeliveryDate = ToeleveringLijn.GeefLeveringsWeekVoorziene()
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set DeliveryDate = ""
+	}
+	
+	Quit DeliveryDate
+]]></Implementation>
+</Method>
+
+<Method name="BepaalItemId">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim ItemId As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set ItemId = ##class(Prod.Product).%OpenId(ToeleveringLijn.GeefProductID()).IdentNummer
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set ItemId = "" //uit te zoeken
+	}
+	
+	Quit ItemId
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLineNumber">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim LineNumber As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set LineNumber = ToeleveringLijn.GeefBlumLijnNr()
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set LineNumber = ToeleveringLijn.LijnNrBLUM
+	}
+	
+	Quit LineNumber
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPurchId">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PurchId As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set PurchId = ToeleveringLijn.GeefToelevering().GeefID()
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set PurchId = ToeleveringLijn.ToeleveringNr
+	}
+	
+	Quit PurchId
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPurchPrice">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PurchPrice As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set PurchPrice = ToeleveringLijn.GeefEenheidsPrijs()
+		Set $Extract(PurchPrice,$Find(PurchPrice,".")-1) = ","
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set PurchPrice = ""
+	}
+	
+	Quit PurchPrice
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPurchQty">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PurchQty As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set PurchQty = ToeleveringLijn.GeefAantal()
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set PurchQty = "0"
+	}
+	
+	Quit PurchQty
+]]></Implementation>
+</Method>
+
+<Method name="BepaalUnderDeliveryPct">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim UnderDeliveryPct As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set UnderDeliveryPct = "50"
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set UnderDeliveryPct = ""
+	}
+	
+	Quit UnderDeliveryPct
+]]></Implementation>
+</Method>
 </Class>