Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml
===================================================================
diff -u -r42590 -r42721
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42590)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42721)
@@ -105,6 +105,7 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.CurrencyCode,"EUR")
+	Do $$$AssertEquals(AankoopOrderRegel.InventLocationId,"CACHE")
 	Do $$$AssertEquals(AankoopOrderRegel.PurchUnit,"STK")
 	Do $$$AssertEquals(AankoopOrderRegel.TaxItemGroup,"G3")
 ]]></Implementation>
@@ -122,7 +123,6 @@
 	
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
 	
-	Do $$$AssertEquals(AankoopOrderRegel.InventLocationId,"MAG1")
 	Do $$$AssertEquals(AankoopOrderRegel.InventSiteId,"VHEPN1")
 ]]></Implementation>
 </Method>
@@ -139,7 +139,6 @@
 	
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
 	
-	Do $$$AssertEquals(AankoopOrderRegel.InventLocationId,"MAG2")
 	Do $$$AssertEquals(AankoopOrderRegel.InventSiteId,"HLXEPN1")
 ]]></Implementation>
 </Method>
@@ -159,8 +158,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ConfirmedDlv leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ConfirmedDlv leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -171,8 +173,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.ConfirmedDlv,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet DeliveryDate de leverdag zijn in formaat ddmmyyyy met tussenslashes">
 <Implementation><![CDATA[
@@ -189,8 +193,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet DeliveryDate leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet DeliveryDate leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -201,8 +208,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.DeliveryDate,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet ExternalItemId de LeverancierReferentie van het Product zijn">
 <Implementation><![CDATA[
@@ -219,8 +228,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ExternalItemId de LeverancierReferentie zijn zonder voorloopnul en met om de 3 karakters een punt">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ExternalItemId de LeverancierReferentie zijn zonder voorloopnul en met om de 3 karakters een punt"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -233,8 +245,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"123.456.7")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet ItemId het IdentNummer van het Product zijn">
 <Implementation><![CDATA[
@@ -251,8 +265,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ItemId de LeverancierReferentie zijn met een punt na de voorloopnul en dan om de 3 karakters een punt">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ItemId de LeverancierReferentie zijn met een punt na de voorloopnul en dan om de 3 karakters een punt"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -265,8 +282,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.ItemId ,"0.123.456.7")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LineAmount de Nettoprijs zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
@@ -283,8 +302,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineAmount leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineAmount leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -295,8 +317,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.LineAmount,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LineNumber het BlumLijnNr zijn">
 <Implementation><![CDATA[
@@ -313,8 +337,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineNumber het LijnNrBLUM zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineNumber het LijnNrBLUM zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -327,8 +354,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.LineNumber,"kl")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LinePercent de Korting zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
@@ -345,8 +374,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LinePercent leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LinePercent leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -357,8 +389,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.LinePercent,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet OverDeliveryPct 50 zijn">
 <Implementation><![CDATA[
@@ -375,8 +409,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet OverDeliveryPct leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet OverDeliveryPct leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -387,8 +424,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.OverDeliveryPct,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde is E dan moet PriceUnit 1 zijn">
 <Implementation><![CDATA[
@@ -476,8 +515,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PriceUnit leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PriceUnit leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -488,8 +530,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.PriceUnit,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet PurchId het ID van de Toelevering zijn">
 <Implementation><![CDATA[
@@ -506,8 +550,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchId het ToeleveringNr zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchId het ToeleveringNr zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -520,8 +567,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.PurchId,"123456")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt dan moet PurchPrice de EenheidsPrijs zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
@@ -538,8 +587,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchPrice leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchPrice leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -550,8 +602,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.PurchPrice,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt dan moet PurchQty Aantal zijn">
 <Implementation><![CDATA[
@@ -568,8 +622,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchQty nul zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchQty nul zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -580,8 +637,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.PurchQty,"0")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Bij default wordt de TaxGroup bepaald">
 <Implementation><![CDATA[
@@ -619,8 +678,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet UnderDeliveryPct leeg zijn">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Als de ToeleveringLijn uit BlOrdRsp komt moet UnderDeliveryPct leeg zijn"()
+{
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
@@ -631,8 +693,10 @@
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
 	Do $$$AssertEquals(AankoopOrderRegel.UnderDeliveryPct,"")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test: Voor Halux is DefaultDimension het cijfer in het LeverancierId na het dubbel pipeteken omgezet volgens LevNrConverter met voorloopnul indien kleiner dan 10000">
 <Implementation><![CDATA[
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml
===================================================================
diff -u -r42227 -r42721
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 42227)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 42721)
@@ -82,7 +82,7 @@
 			Set ..AankoopOrderRegelIterator = ..ProductToeleveringLijnIterator
 		}
 		Else {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_Vestiging_"' <"))
 		}
 	}
 	Quit ..AankoopOrderRegelIterator
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42587 -r42721
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42587)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42721)
@@ -3,21 +3,52 @@
 <Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AxProduct">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AankoopAPI">
 <Type>DOM.AKP.AankoopAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BlumKundeOmzetter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DatumFormatter">
 <Type>TECH.Format.FormatAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="IsBlumProduct">
+<Type>%Boolean</Type>
+<InitialExpression>$$$False</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Property name="LevNrConverter">
 <Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductApi">
+<Type>DOM.PM.impl.BlumProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprAxProduct">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Utils">
 <Type>AXimpl.Utils</Type>
 <Private>1</Private>
@@ -39,6 +70,10 @@
 	Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 	Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
+	Set ..SoprConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..ProductApi = ##class(DOM.PM.impl.BlumProductAPI).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,15 +83,27 @@
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	#dim Leverancier As DOM.AKP.Leverancier = ""
+	
 	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
 	{
 		Set Leverancier = ..AankoopAPI.GeefLeverancier(ToeleveringLijn.GeefToelevering().GeefLeverancierID())
+		Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ToeleveringLijn.GeefProductID())
 	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
 	{
 		Set Leverancier = ##class(DOM.AKP.impl.DataM.DataMLeverancier).%New(5005)
+		#dim AxProductIdentNummer As %String = ToeleveringLijn.LeverancierReferentie
+		Set AxProductIdentNummer = $Extract(AxProductIdentNummer,1)_"."_$Extract(AxProductIdentNummer,2,4)_"."_$Extract(AxProductIdentNummer,5,7)_"."_$Extract(AxProductIdentNummer,8)
+		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(ToeleveringLijn.ToeleveringNr,"L||5005")
+		#dim KundeNr As %String = Toelevering.GeefKlantNummerBijLeverancier()
+		Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ProductApi.GeefProductIdVolgensIdentNummer(AxProductIdentNummer,KundeNr))
 	}
 	Set ..AxRegel = ##class(AXdixf.AankoopOrderRegel.AankoopOrderRegel).%New()
 	
+	Do ..BepaalIsBlumProduct(Leverancier)
+	If ..IsBlumProduct {
+		Do ..MaakSoprAxProduct()
+	}
+	
 	Do ..ConvertGemeenschappelijk(ToeleveringLijn, Vestiging, Leverancier)
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
@@ -69,6 +116,9 @@
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
 		}
 	}
+	
+	Set ..IsBlumProduct = $$$False
+	
 	Quit ..AxRegel
 ]]></Implementation>
 </Method>
@@ -82,7 +132,8 @@
 	Set ..AxRegel.CurrencyCode = "EUR"
 	Set ..AxRegel.DeliveryDate = ..BepaalDeliveryDate(ToeleveringLijn)
 	Set ..AxRegel.ExternalItemId = ..BepaalExternalItemId(ToeleveringLijn)
-	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn)
+	Set ..AxRegel.InventLocationId = "CACHE"
+	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn,Vestiging,Leverancier)
 	Set ..AxRegel.LineAmount = ..BepaalLineAmount(ToeleveringLijn)
 	Set ..AxRegel.LineNumber = ..BepaalLineNumber(ToeleveringLijn)
 	Set ..AxRegel.LinePercent = ..BepaalLinePercent(ToeleveringLijn)
@@ -106,7 +157,6 @@
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
-	Set ..AxRegel.InventLocationId = "MAG1"
 	Set ..AxRegel.InventSiteId = "VHEPN1"
 	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke(Leverancier)
 ]]></Implementation>
@@ -118,7 +168,6 @@
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionHalux(Leverancier)
-	Set ..AxRegel.InventLocationId = "MAG2"
 	Set ..AxRegel.InventSiteId = "HLXEPN1"
 	Set ..AxRegel.VendAccount = ..BepaalVendAccountHalux(Leverancier)
 ]]></Implementation>
@@ -205,20 +254,25 @@
 </Method>
 
 <Method name="BepaalItemId">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim ItemId As %String = ""
-	
-	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
-	{
+		
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
 		Set ItemId = ##class(Prod.Product).%OpenId(ToeleveringLijn.GeefProductID()).IdentNummer
-	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
-	{
+		If (Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() && (..IsBlumProduct = $$$True)) {
+			If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
+				#dim VervangProductProductToeleveringLijn As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..SoprAxProduct.VervangSoprPRNr)
+				Set ItemId = VervangProductProductToeleveringLijn.Basis.IdentNummer
+	}}} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp") {
 		#dim LeverancierReferentie As %String = ToeleveringLijn.LeverancierReferentie
 		Set ItemId = $Extract(LeverancierReferentie,1)_"."_$Extract(LeverancierReferentie,2,4)_"."_$Extract(LeverancierReferentie,5,7)_"."_$Extract(LeverancierReferentie,8)
-	}
+		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
+				#dim VervangProductBlOrdRsp As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..SoprAxProduct.VervangSoprPRNr)
+				Set ItemId = VervangProductBlOrdRsp.Basis.IdentNummer
+	}}
 	
 	Quit ItemId
 ]]></Implementation>
@@ -428,9 +482,52 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim LevId As %String = Leverancier.GeefID()
-	Quit ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	
+	Set LevId = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	
+	If ..IsBlumProduct {
+		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
+			Set LevId = ..BepaalLeverancierVolgensBlumKunde()
+	}}
+	
+	Quit LevId
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalIsBlumProduct">
+<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = Leverancier.GeefID()
+	
+	If (LeverancierId = "L||5005") {
+		Set ..IsBlumProduct = $$$True
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="MaakSoprAxProduct">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..SoprAxProduct = ..SoprConvertor.AdminNaarAx(..AxProduct.Basis.IdentNrToPRNr(..AxProduct.Basis.IdentNummer))
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLeverancierVolgensBlumKunde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverancierVolgensBlumKunde As %String
+	#dim BlumKunde As %String = ..SoprAxProduct.BlumKunde
+	
+	Set LeverancierVolgensBlumKunde = ..BlumKundeOmzetter.AdminNaarAx(BlumKunde)
+	
+	Quit LeverancierVolgensBlumKunde
+]]></Implementation>
+</Method>
 </Class>