Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml	(revision 41049)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevIterator">
+<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>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfConverter).%New(,Vestiging)
+	Set ..LineNum = 0
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%'"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Implementation><![CDATA[
+	Break
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+	Set ..LineNum = ..LineNum + 1
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ..Converter.Convert(Product,..LineNum)
+	
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingIterator.cls.xml	(revision 41049)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter).%New(,Vestiging)
+	Set ..LineNum = 0
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%'"
+	_" and ID in (1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
+	_"1124771,1038806,1039173,1039208,1247980,353741,353743,353744,254245,254258,1259381,161441,665626,1067709,1067714,268026,"
+	_"1168369,668615,878186,878220,1169509,1194443,383880,830257)"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Implementation><![CDATA[
+	Break
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+	Set ..LineNum = ..LineNum + 1
+	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ..Converter.Convert(Product,..LineNum)
+	
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfConverter.cls.xml	(revision 41049)
@@ -0,0 +1,210 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductBepaler">
+<Type>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LineNum">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductBepaler:AXdixf.AankoopPrijzenLev.AankoopPrijzenLev,Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New())
+	Set ..Vestiging = Vestiging
+	Set ..LeverancierNummer = LeverancierNummer
+	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>
+<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Implementation><![CDATA[
+	Set ..LineNum = LineNum
+	If ..Vestiging = "VanHoecke" {
+		Do ..ConvertVanHoecke(Product)
+	}
+	Else {
+		If ..Vestiging = "Halux" {
+			Do ..ConvertHalux(Product)
+		}
+		Else {
+			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+		}
+	}
+	Set ..LeverancierNummer = ""
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<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 = ..BepaalAccountRelationVH(Product)
+	Set AxProduct.Amount = ..BepaalAmount(Product)
+	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 = "00000001"
+	Set AxProduct.LineNum = ..LineNum
+	Set AxProduct.Module = "Leverancier"
+	Set AxProduct.Percent1 = ""
+	Set AxProduct.Percent2 = ""
+	Set AxProduct.PriceUnit = ..BepaalPriceUnit(Product)
+	Set AxProduct.QuantityAmountFrom = ""
+	Set AxProduct.QuantityAmountTo = ""
+	Set AxProduct.relation = "Prijs (inkoop)"
+	Set AxProduct.SearchAgain = "1"
+	Set AxProduct.ToDate = ""
+	Set AxProduct.UnitId = "STK"
+
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<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 = ..BepaalAmount(Product)
+	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 = "00000001"
+	Set AxProduct.LineNum = ..LineNum
+	Set AxProduct.Module = "Leverancier"
+	Set AxProduct.Percent1 = ""
+	Set AxProduct.Percent2 = ""
+	Set AxProduct.PriceUnit = ..BepaalPriceUnit(Product)
+	Set AxProduct.QuantityAmountFrom = ""
+	Set AxProduct.QuantityAmountTo = ""
+	Set AxProduct.relation = "Prijs (inkoop)"
+	Set AxProduct.SearchAgain = "1"
+	Set AxProduct.ToDate = ""
+	Set AxProduct.UnitId = "STK"
+
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAccountRelationVH">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AccountRelationVH As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	Set AccountRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit AccountRelationVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAccountRelationHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AccountRelationHLX As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+	Set AccountRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit AccountRelationHLX
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAmount">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<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="BepaalPriceUnit">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PriceUnit As %String
+	#dim GrootteOrde = Product.Prijs.GrootteOrde
+	
+	If (GrootteOrde = "E"){
+		Set PriceUnit = "1"
+	}
+	ElseIf (GrootteOrde = "H"){
+		Set PriceUnit = "100"
+	}
+	ElseIf (GrootteOrde = "M"){
+		Set PriceUnit = "1000"
+	}
+	ElseIf (GrootteOrde = ""){
+		Set PriceUnit = ""
+	}
+	Else{
+		Set Exceptie = ##class(TECH.Exceptions.IllegalArgumentException).%New("Waarde in GrootteOrde is niet voorzien (E/H/M wèl)")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	
+	Quit PriceUnit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfConverter.cls.xml	(revision 41049)
@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductBepaler">
+<Type>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LineNum">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductBepaler:AXdixf.AankoopPrijzenLev.AankoopPrijzenLev,Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXdixf.AankoopPrijzenLev.AankoopPrijzenLev).%New())
+	Set ..Vestiging = Vestiging
+	Set ..LeverancierNummer = LeverancierNummer
+	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>
+<ReturnType>AXdixf.AankoopPrijzenLev.AankoopPrijzenLev</ReturnType>
+<Implementation><![CDATA[
+	Set ..LineNum = LineNum
+	If ..Vestiging = "VanHoecke" {
+		Do ..ConvertVanHoecke(Product)
+	}
+	Else {
+		If ..Vestiging = "Halux" {
+			Do ..ConvertHalux(Product)
+		}
+		Else {
+			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+		}
+	}
+	Set ..LeverancierNummer = ""
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<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 = ..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
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<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>
+</Method>
+
+<Method name="BepaalAccountRelationVH">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AccountRelationVH As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	Set AccountRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit AccountRelationVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAccountRelationHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AccountRelationHLX As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+	Set AccountRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit AccountRelationHLX
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPercent1">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Percent1 As %String
+	#dim PPLKortingPerc As %String = Product.Prijs.PPLKortingPerc
+	
+	Set Percent1 = PPLKortingPerc
+	Set $Extract(Percent1,$Find(Percent1,".")-1) = ","
+	
+	Quit Percent1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevKortingDixfGenerator.cls.xml	(revision 41049)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Try {
+		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingIterator).%New(,Vestiging)
+		do ..Generate(ProductIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "AccountCode")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "AccountRelation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Amount")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Currency")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "FromDate")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "InventDimId")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ItemCode")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ItemRelation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "JournalName")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "JournalNum")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "LineNum")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Module")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Percent1")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Percent2")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "PriceUnit")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "QuantityAmountFrom")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "QuantityAmountTo")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "relation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "SearchAgain")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ToDate")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "UnitId")
+	
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"AankoopPrijzenLevKorting"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml	(revision 41049)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Try {
+		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevIterator).%New(,Vestiging)
+		do ..Generate(ProductIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "AccountCode")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "AccountRelation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Amount")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Currency")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "FromDate")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "InventDimId")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ItemCode")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ItemRelation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "JournalName")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "JournalNum")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "LineNum")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Module")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Percent1")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "Percent2")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "PriceUnit")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "QuantityAmountFrom")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "QuantityAmountTo")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "relation")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "SearchAgain")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "ToDate")
+	Do AXProductData.VoegToeVeld("AXdixf.AankoopPrijzenLev.AankoopPrijzenLev", "UnitId")
+	
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"AankoopPrijzenLev"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>