Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml	(revision 41011)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// UOM = Unit Of Measure
+
+]]></Content>
+</UDLText>
+
+<Property name="Product">
+<Type>AXdixf.UOMConversie.UOMConversie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.UOMConversie.UOMConversie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FromUnitOfMeasureSymbol">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Product:AXdixf.UOMConversie.UOMConversie,LeverancierNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Product = $$$Inject(Product, ##class(AXdixf.UOMConversie.UOMConversie).%New())
+	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,UOMSeqGroupId:%String,Piece:%Integer</FormalSpec>
+<ReturnType>AXdixf.UOMConversie.UOMConversie</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AXdixf.UOMConversie.UOMConversie).%New()
+	
+	Set AxProduct.FromUnitOfMeasureSymbol = ..BepaalFromUnitOfMeasureSymbol(Product,UOMSeqGroupId,Piece)
+	Set ..FromUnitOfMeasureSymbol = AxProduct.FromUnitOfMeasureSymbol
+	Set AxProduct.Factor = ..BepaalFactor(Product,UOMSeqGroupId)
+	Set AxProduct.Denominator = "1"
+	Set AxProduct.InnerOffset = "0"
+	Set AxProduct.Numerator = "1"
+	Set AxProduct.OuterOffset = "0"
+	Set AxProduct.ProductNumber = Product.Basis.IdentNummer
+	Set AxProduct.Rounding = "Omhoog"
+	Set AxProduct.ToUnitOfMeasureSymbol = "STK"
+	
+	Set ..AxProduct = AxProduct
+	Set ..LeverancierNummer = ""
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalFromUnitOfMeasureSymbol">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,UOMSeqGroupId:%String,Piece:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim FromUnitOfMeasureSymbol As %String
+	#dim AantalSoortenVerpakkingen As %Integer = $Length(UOMSeqGroupId,"-")
+	#dim UOMSeqGroupIdReversed As %String = ""
+		
+	For I=AantalSoortenVerpakkingen:-1:1{
+		Set UOMSeqGroupIdReversed = UOMSeqGroupIdReversed_$Piece(UOMSeqGroupId,"-",I)_" "
+	}
+	Set FromUnitOfMeasureSymbol = $Piece(UOMSeqGroupIdReversed," ",Piece)
+	
+	Quit FromUnitOfMeasureSymbol
+]]></Implementation>
+</Method>
+
+<Method name="BepaalFactor">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,UOMSeqGroupId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Factor As %Integer
+	#dim KleinVerpakking As %Integer = +Product.Prijs.KleinVerpakking
+	#dim NormaleVerpakking As %Integer = +Product.Prijs.NormaleVerpakking
+	#dim GrootVerpakking As %Integer = +Product.Prijs.GrootVerpakking
+	#dim PalletAantal As %Integer = +Product.Basis.PalletAantal
+	
+	If (..FromUnitOfMeasureSymbol = "PLT"){
+		Set Factor = PalletAantal
+	}
+	ElseIf (..FromUnitOfMeasureSymbol = "GVP"){
+		Set Factor = GrootVerpakking
+	}
+	ElseIf (..FromUnitOfMeasureSymbol = "NVP"){
+		Set Factor = NormaleVerpakking
+	}
+	ElseIf (..FromUnitOfMeasureSymbol = "KVP"){
+		If (UOMSeqGroupId = "STK-KVP-GVP-PLT"){
+			Set Factor = NormaleVerpakking
+		}
+		Else {
+			Set Factor = KleinVerpakking
+		}
+	}
+	
+	Quit Factor
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfGenerator.cls.xml	(revision 41011)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// UOM = Unit Of Measure
+
+]]></Content>
+</UDLText>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		#dim UOMConversieIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieIterator).%New()
+		do ..Generate(UOMConversieIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>UOMConversieIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXUOMConversieData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXUOMConversieData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "Denominator")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "Factor")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "FromUnitOfMeasureSymbol")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "InnerOffset")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "Numerator")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "OuterOffset")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "ProductNumber")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "Rounding")
+	Do AXUOMConversieData.VoegToeVeld("AXdixf.UOMConversie.UOMConversie", "ToUnitOfMeasureSymbol")
+
+	Set AXUOMConversieData.ScheidingsTeken = ";"	
+	Set AXUOMConversieData.Iterator = UOMConversieIterator
+	Set AXUOMConversieData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"UOMConversie.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXUOMConversieData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIterator.cls.xml	(revision 41011)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.UOMConversie.impl.UOMConversieIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// UOM = Unit Of Measure
+
+]]></Content>
+</UDLText>
+
+<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="Converter">
+<Type>AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalLijnenPerProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UOMSeqGroupId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Piece">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeLijnVanProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Piece = 1
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter).%New()
+	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[
+	#Dim HeeftVolgendeLijnVoorProduct, HeeftVolgendProduct As %Boolean = $$$False
+	If (..HuidigeLijnVanProduct > 0) {
+		Set HeeftVolgendeLijnVoorProduct = $$$True
+	} ElseIf (..ResultSet.Next() > 0) {
+		Set HeeftVolgendProduct = $$$True
+		
+		Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+		Set ..AantalLijnenPerProduct = ..BepaalAantalLijnenPerProduct()
+		Set ..HuidigeLijnVanProduct = ..AantalLijnenPerProduct
+		Set ..Piece = 1
+	}
+	
+	Quit (HeeftVolgendeLijnVoorProduct || HeeftVolgendProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.UOMConversie.UOMConversie</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijnen As %Integer = ..AantalLijnenPerProduct
+	#dim ConvertedProduct As AXdixf.UOMConversie.UOMConversie = ..Converter.Convert(..Product,..UOMSeqGroupId,..Piece)	
+	
+	Set ..HuidigeLijnVanProduct = ..HuidigeLijnVanProduct - 1
+	Set ..Piece = ..Piece + 1
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalLijnenPerProduct">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ..UOMSeqGroupId = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,"VanHoecke").BepaalUOMSeqGroupId(..Product)
+	#dim AantalLijnenPerProduct As %Integer
+	Set AantalLijnenPerProduct = $Length(..UOMSeqGroupId,"-") - 1
+	
+	Quit AantalLijnenPerProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>