Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml
===================================================================
diff -u -r42587 -r42655
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(.../AankoopPrijzenLevKortingDixfConverter.cls.xml)	(revision 42587)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(.../AankoopPrijzenLevKortingDixfConverter.cls.xml)	(revision 42655)
@@ -3,7 +3,13 @@
 <Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Vestiging">
+<Property name="IsBlumProduct">
+<Type>%Boolean</Type>
+<InitialExpression>$$$False</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="LineNum">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -13,147 +19,144 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LeverancierNummer">
-<Type>%String</Type>
+<Property name="BlumKundeOmzetter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LineNum">
-<Type>%String</Type>
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</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>
+
 <Method name="%OnNew">
-<FormalSpec>Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Vestiging = Vestiging
-	Set ..LeverancierNummer = LeverancierNummer
+	Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..SoprConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverancierNummer">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:(..LeverancierNummer = "") ..LeverancierNummer = Product.Basis.LeverancierNummer
-	Quit ..LeverancierNummer
-]]></Implementation>
-</Method>
-
 <Method name="Convert">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,LineNum:%String</FormalSpec>
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,LineNum:%String,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
 <Implementation><![CDATA[
 	Set ..LineNum = LineNum
-	If ..Vestiging = "VanHoecke" {
-		Do ..ConvertVanHoecke(Product)
+	Set ..AxProduct = ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New()
+	
+	Do ..BepaalIsBlumProduct(Product)
+	If ..IsBlumProduct {
+		Do ..MaakSoprAxProduct(Product)
 	}
-	Else {
-		If ..Vestiging = "Halux" {
+	
+	Do ..ConvertGemeenschappelijk(Product,Vestiging)
+	
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		Do ..ConvertVanHoecke(Product)
+	} ElseIf Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 			Do ..ConvertHalux(Product)
-		}
-		Else {
-			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
-		}
+		} Else {
+			Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_Vestiging
 	}
-	Set ..LeverancierNummer = ""
+	
+	Set ..IsBlumProduct = $$$False
+	
 	Quit ..AxProduct
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertVanHoecke">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Method name="ConvertGemeenschappelijk">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set AxProduct = ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New()
-	Set AxProduct.AccountCode = "Tabel"
-	Set AxProduct.AccountRelation = ..BepaalAccountRelationVH(Product)
-	Set AxProduct.Amount = ""
-	Set AxProduct.Currency = "EUR"
-	Set AxProduct.FromDate = "01/01/2017"
-	Set AxProduct.InventDimId = "AllBlank"
-	Set AxProduct.ItemCode = "Tabel"
-	Set AxProduct.ItemRelation = Product.Basis.IdentNummer
-	Set AxProduct.JournalName = "HOJ"
-	Set AxProduct.JournalNum = "00000002"
-	Set AxProduct.LineNum = ..LineNum
-	Set AxProduct.Module = "Leverancier"
-	Set AxProduct.Percent1 = ..BepaalPercent1(Product)
-	Set AxProduct.Percent2 = ""
-	Set AxProduct.PriceUnit = ""
-	Set AxProduct.QuantityAmountFrom = ""
-	Set AxProduct.QuantityAmountTo = ""
-	Set AxProduct.relation = "Regelkorting (inkoop)"
-	Set AxProduct.SearchAgain = "1"
-	Set AxProduct.ToDate = ""
-	Set AxProduct.UnitId = ""
-
-	Set ..AxProduct = AxProduct
-	Quit ..AxProduct
+	Set ..AxProduct.AccountCode = "Tabel"
+	Set ..AxProduct.AccountRelation = ..BepaalAccountRelation(Product,Vestiging)
+	Set ..AxProduct.Amount = ""
+	Set ..AxProduct.Currency = "EUR"
+	Set ..AxProduct.FromDate = "01/01/2017"
+	Set ..AxProduct.InventDimId = "AllBlank"
+	Set ..AxProduct.ItemCode = "Tabel"
+	Set ..AxProduct.ItemRelation = ..BepaalItemRelation(Product)
+	Set ..AxProduct.JournalName = "HOJ"
+	Set ..AxProduct.JournalNum = "00000002"
+	Set ..AxProduct.LineNum = ..LineNum
+	Set ..AxProduct.Module = "Leverancier"
+	Set ..AxProduct.Percent1 = ..BepaalPercent1(Product)
+	Set ..AxProduct.Percent2 = ""
+	Set ..AxProduct.PriceUnit = ""
+	Set ..AxProduct.QuantityAmountFrom = ""
+	Set ..AxProduct.QuantityAmountTo = ""
+	Set ..AxProduct.relation = "Regelkorting (inkoop)"
+	Set ..AxProduct.SearchAgain = "1"
+	Set ..AxProduct.ToDate = ""
+	Set ..AxProduct.UnitId = ""
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertHalux">
+<Method name="ConvertVanHoecke">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
-<Implementation><![CDATA[
-	Set AxProduct = ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New()
-	Set AxProduct.AccountCode = "Tabel"
-	Set AxProduct.AccountRelation = ..BepaalAccountRelationHLX(Product)
-	Set AxProduct.Amount = ""
-	Set AxProduct.Currency = "EUR"
-	Set AxProduct.FromDate = "01/01/2017"
-	Set AxProduct.InventDimId = "AllBlank"
-	Set AxProduct.ItemCode = "Tabel"
-	Set AxProduct.ItemRelation = Product.Basis.IdentNummer
-	Set AxProduct.JournalName = "HOJ"
-	Set AxProduct.JournalNum = "00000002"
-	Set AxProduct.LineNum = ..LineNum
-	Set AxProduct.Module = "Leverancier"
-	Set AxProduct.Percent1 = ..BepaalPercent1(Product)
-	Set AxProduct.Percent2 = ""
-	Set AxProduct.PriceUnit = ""
-	Set AxProduct.QuantityAmountFrom = ""
-	Set AxProduct.QuantityAmountTo = ""
-	Set AxProduct.relation = "Regelkorting (inkoop)"
-	Set AxProduct.SearchAgain = "1"
-	Set AxProduct.ToDate = ""
-	Set AxProduct.UnitId = ""
-
-	Set ..AxProduct = AxProduct
-	Quit ..AxProduct
-]]></Implementation>
+<Private>1</Private>
 </Method>
 
-<Method name="BepaalAccountRelationVH">
+<Method name="ConvertHalux">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="BepaalAccountRelation">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim AccountRelationVH As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim AccountRelation As %String
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
-	Set AccountRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+		Set LeverancierNummer = ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+	}
+	
+	Set AccountRelation = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	
+	If ..IsBlumProduct {
+		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
+			Set AccountRelation = ..BepaalLeverancierVolgensBlumKunde()
+	}}
 
-	Quit AccountRelationVH
+	Quit AccountRelation
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAccountRelationHLX">
+<Method name="BepaalItemRelation">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim AccountRelationHLX As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim ItemRelation As %String = Product.Basis.IdentNummer
 	
-	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
-	Set AccountRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
-
-	Quit AccountRelationHLX
+	If ..IsBlumProduct {
+		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
+			#dim VervangProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..SoprAxProduct.VervangSoprPRNr)
+			Set ItemRelation = VervangProduct.Basis.IdentNummer
+		}
+	}
+	
+	Quit ItemRelation
 ]]></Implementation>
 </Method>
 
@@ -170,6 +173,42 @@
 	Quit Percent1
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalIsBlumProduct">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Leverancier As %String = Product.Basis.LeverancierNummer
+	
+	If (Leverancier = "5005") {
+		Set ..IsBlumProduct = $$$True
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="MaakSoprAxProduct">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..SoprAxProduct = ..SoprConvertor.AdminNaarAx(Product.Basis.IdentNrToPRNr(Product.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>
 
 
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml
===================================================================
diff -u -r42532 -r42655
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml	(.../AankoopPrijzenLevKortingIterator.cls.xml)	(revision 42532)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml	(.../AankoopPrijzenLevKortingIterator.cls.xml)	(revision 42655)
@@ -3,16 +3,6 @@
 <Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="QueryAPI">
-<Type>TECH.Query.QueryAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ResultSet">
-<Type>TECH.ResultSet</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="LineNum">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -28,14 +18,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..Vestiging = Vestiging
+	
 	Do ..VoerUitQuery()
 	
 	Set Filter = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingIteratorFilter).%New()
@@ -72,7 +79,7 @@
 <Implementation><![CDATA[
 	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
 	Set ..LineNum = ..LineNum + 1
-	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ..Converter.Convert(Product,..LineNum)
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ..Converter.Convert(Product,..LineNum, ..Vestiging)
 	
 	Quit ConvertedProduct
 ]]></Implementation>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml
===================================================================
diff -u -r41670 -r42655
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml	(.../AankoopPrijzenLevKortingDixfGenerator.cls.xml)	(revision 41670)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml	(.../AankoopPrijzenLevKortingDixfGenerator.cls.xml)	(revision 42655)
@@ -9,18 +9,20 @@
 </Property>
 
 <Property name="Vestiging">
-<Type>%String</Type>
+<Type>AXimpl.InterneFirmaInitialen</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="GenerateAll">
-<FormalSpec>Vestiging:%String</FormalSpec>
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
 	Set ..Vestiging = Vestiging
 	Try {
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingIterator).%New(,Vestiging)
 		do ..Generate(ProductIterator)
-		Write !,"Klaar"
+		Write !,"Csv voor migratie 0606 AankoopPrijzenLevKorting voor "_Vestiging_" is klaar. Aantal minuten: "
+		Write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
 	}
Index: vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml
===================================================================
diff -u -r41164 -r42655
--- vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41164)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42655)
@@ -3,59 +3,74 @@
 <Class name="vhUnitTest.AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Zijn alle defaults goed voor Van Hoecke">
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	#dim Vestiging As %String = "VanHoecke"
-	#dim LeverancierNummer As %String = "6332"
-	#dim TestProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter).%New(Vestiging,LeverancierNummer).ConvertVanHoecke(AxProduct)
-	
-	Do $$$AssertEquals(TestProduct.AccountCode ,"Tabel")
-	Do $$$AssertEquals(TestProduct.Amount ,"")
-	Do $$$AssertEquals(TestProduct.Currency  ,"EUR")
-	Do $$$AssertEquals(TestProduct.FromDate  ,"01/01/2017")
-	Do $$$AssertEquals(TestProduct.InventDimId  ,"AllBlank")
-	Do $$$AssertEquals(TestProduct.ItemCode  ,"Tabel")
-	Do $$$AssertEquals(TestProduct.JournalName  ,"HOJ")
-	Do $$$AssertEquals(TestProduct.JournalNum  ,"00000002")
-	Do $$$AssertEquals(TestProduct.Module  ,"Leverancier")
-	Do $$$AssertEquals(TestProduct.Percent2  ,"")
-	Do $$$AssertEquals(TestProduct.PriceUnit ,"")
-	Do $$$AssertEquals(TestProduct.QuantityAmountFrom  ,"")
-	Do $$$AssertEquals(TestProduct.QuantityAmountTo  ,"")
-	Do $$$AssertEquals(TestProduct.relation  ,"Regelkorting (inkoop)")
-	Do $$$AssertEquals(TestProduct.SearchAgain  ,"1")
-	Do $$$AssertEquals(TestProduct.ToDate  ,"")
-	Do $$$AssertEquals(TestProduct.UnitId  ,"")
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Zijn alle defaults goed voor Halux">
+<Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	#dim Vestiging As %String = "Halux"
-	#dim LeverancierNummer As %String = "5497"
-	#dim TestProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter).%New(Vestiging,LeverancierNummer).ConvertHalux(AxProduct)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle gemeenschappelijke defaults goed">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	Do $$$AssertEquals(TestProduct.AccountCode ,"Tabel")
-	Do $$$AssertEquals(TestProduct.Amount ,"")
-	Do $$$AssertEquals(TestProduct.Currency  ,"EUR")
-	Do $$$AssertEquals(TestProduct.FromDate  ,"01/01/2017")
-	Do $$$AssertEquals(TestProduct.InventDimId  ,"AllBlank")
-	Do $$$AssertEquals(TestProduct.ItemCode  ,"Tabel")
-	Do $$$AssertEquals(TestProduct.JournalName  ,"HOJ")
-	Do $$$AssertEquals(TestProduct.JournalNum  ,"00000002")
-	Do $$$AssertEquals(TestProduct.Module  ,"Leverancier")
-	Do $$$AssertEquals(TestProduct.Percent2  ,"")
-	Do $$$AssertEquals(TestProduct.PriceUnit ,"")
-	Do $$$AssertEquals(TestProduct.QuantityAmountFrom  ,"")
-	Do $$$AssertEquals(TestProduct.QuantityAmountTo  ,"")
-	Do $$$AssertEquals(TestProduct.relation  ,"Regelkorting (inkoop)")
-	Do $$$AssertEquals(TestProduct.SearchAgain  ,"1")
-	Do $$$AssertEquals(TestProduct.ToDate  ,"")
-	Do $$$AssertEquals(TestProduct.UnitId  ,"")
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.AccountCode ,"Tabel")
+	Do $$$AssertEquals(ConvertedProduct.Amount ,"")
+	Do $$$AssertEquals(ConvertedProduct.Currency  ,"EUR")
+	Do $$$AssertEquals(ConvertedProduct.FromDate  ,"01/01/2017")
+	Do $$$AssertEquals(ConvertedProduct.InventDimId  ,"AllBlank")
+	Do $$$AssertEquals(ConvertedProduct.ItemCode  ,"Tabel")
+	Do $$$AssertEquals(ConvertedProduct.JournalName  ,"HOJ")
+	Do $$$AssertEquals(ConvertedProduct.JournalNum  ,"00000002")
+	Do $$$AssertEquals(ConvertedProduct.Module  ,"Leverancier")
+	Do $$$AssertEquals(ConvertedProduct.Percent2  ,"")
+	Do $$$AssertEquals(ConvertedProduct.PriceUnit ,"")
+	Do $$$AssertEquals(ConvertedProduct.QuantityAmountFrom  ,"")
+	Do $$$AssertEquals(ConvertedProduct.QuantityAmountTo  ,"")
+	Do $$$AssertEquals(ConvertedProduct.relation  ,"Regelkorting (inkoop)")
+	Do $$$AssertEquals(ConvertedProduct.SearchAgain  ,"1")
+	Do $$$AssertEquals(ConvertedProduct.ToDate  ,"")
+	Do $$$AssertEquals(ConvertedProduct.UnitId  ,"")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTeConverterProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	do AxProduct.BasisSetObjectId(..#ProductId)
+	quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfConverter</ReturnType>
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter).%New()
+]]></Implementation>
+</Method>
 </Class>