Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter.cls.xml	(revision 45160)
@@ -0,0 +1,202 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="IsBlumProduct">
+<Type>%Boolean</Type>
+<InitialExpression>$$$False</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="PrimaryVendorId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BlumKundeOmzetter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PrimaryVendorIdBepaler">
+<Type>AXimpl.Utils</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">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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()
+	Set ..PrimaryVendorIdBepaler = ##class(AXimpl.Utils).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,LineNum:%String,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxProduct = ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New()
+	
+	Do ..BepaalIsBlumProduct(Product)
+	If ..IsBlumProduct {
+		Do ..MaakSoprAxProduct(Product)
+	}
+	
+	Set ..AxProduct.AccountCode = "Tabel"
+	Set ..AxProduct.AccountRelation = ..BepaalAccountRelation(Product,Vestiging)
+	Set ..AxProduct.Amount = ..BepaalAmount(Product)
+	Set ..AxProduct.Currency = Product.Prijs.MuntAankoop.MuntCode
+	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 = "00000004"
+	Set ..AxProduct.LineNum = LineNum
+	Set ..AxProduct.Module = "Leverancier"
+	Set ..AxProduct.Percent1 = ""
+	Set ..AxProduct.Percent2 = ""
+	Set ..AxProduct.PriceUnit = ""
+	Set ..AxProduct.QuantityAmountFrom = ""
+	Set ..AxProduct.QuantityAmountTo = ""
+	Set ..AxProduct.relation = "Cif % (purch)"
+	Set ..AxProduct.SearchAgain = "1"
+	Set ..AxProduct.ToDate = ""
+	Set ..AxProduct.UnitId = ""
+	
+	Set ..IsBlumProduct = $$$False
+
+	Quit ..AxProduct
+]]></Implementation>
+</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 AccountRelation As %String
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	
+	Do ..BepaalPrimaryVendorId(Product,Vestiging)
+	Set AccountRelation = ..PrimaryVendorId
+	
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		If ..IsBlumProduct {
+				Set AccountRelation = ..BepaalLeverancierVolgensBlumKunde()
+	}}
+
+	Quit AccountRelation
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAmount">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Amount As %String
+	#dim PPL As %String = Product.Prijs.PPL
+	
+	Set Amount = PPL
+	Set $Extract(Amount,$Find(Amount,".")-1) = ","
+	
+	Quit Amount
+]]></Implementation>
+</Method>
+
+<Method name="BepaalItemRelation">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ItemRelation As %String = Product.Basis.IdentNummer
+	
+	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>
+
+<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>
+
+<Method name="BepaalPrimaryVendorId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..PrimaryVendorId = ..PrimaryVendorIdBepaler.ConvertPrimaryVendorId(Vestiging,Product)
+	
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevCifDixfConverter/Test.cls.xml	(revision 45160)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle 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)
+	
+	#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.AankoopPrijzenLevCifDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.AccountCode ,"Tabel")
+	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  ,"00000004")
+	Do $$$AssertEquals(ConvertedProduct.Module  ,"Leverancier")
+	Do $$$AssertEquals(ConvertedProduct.Percent1  ,"")
+	Do $$$AssertEquals(ConvertedProduct.Percent2  ,"")
+	Do $$$AssertEquals(ConvertedProduct.QuantityAmountFrom  ,"")
+	Do $$$AssertEquals(ConvertedProduct.QuantityAmountTo  ,"")
+	Do $$$AssertEquals(ConvertedProduct.relation  ,"Cif % (purch)")
+	Do $$$AssertEquals(ConvertedProduct.SearchAgain  ,"1")
+	Do $$$AssertEquals(ConvertedProduct.ToDate  ,"")
+	Do $$$AssertEquals(ConvertedProduct.UnitId  ,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Currency is van de property MuntAankoop van een Product zijnde van objecttype Res punt Munt de MuntCode property">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Set MuntAankoop = ##class(Res.Munt).%New()
+	Set MuntAankoop.MuntCode = "USD"
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Prijs.MuntAankoop = MuntAankoop
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = Converter.Convert(AxProduct,"1",Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.Currency,"USD")
+]]></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.AankoopPrijzenLevCifDixfConverter</ReturnType>
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevCifDixfConverter).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>