Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml	(revision 42310)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<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="Converter">
+<Type>AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'GEN%' AND StockNietStock = '1'"
+		_" AND LinkType NOT LIKE 'S' AND LeverancierNummer NOT LIKE '6051'"
+		// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+		_" AND ID IN (1175,1988,2865,161441,161442,254245,254258,268026,353741,353743,353744,383880,665626,668615,682391,"
+		_"709825,830257,830507,878186,878220,906194,924268,1038806,1039173,1039208,1067709,1067714,1124771,1155640,1168369,1168689,"
+		_"1168696,1169509,1194443,1247980,1259381,1359867,1425095,1425096,1432225,1572233)"
+	} Else {
+		If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+			Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'GEN%' AND StockNietStock = '1'"
+			_" AND LeverancierNummer NOT LIKE '6332'"
+			// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+			_" AND ID IN (1175,1988,2865,161441,161442,254245,254258,268026,353741,353743,353744,383880,665626,668615,682391,"
+			_"709825,830257,830507,878186,878220,906194,924268,1038806,1039173,1039208,1067709,1067714,1124771,1155640,1168369,1168689,"
+			_"1168696,1169509,1194443,1247980,1259381,1359867,1425095,1425096,1432225,1572233)"
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_..Vestiging_"' <"))
+		}
+	}
+	
+	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.BehoeftePlanning.BehoeftePlanning</ReturnType>
+<Implementation><![CDATA[
+	Set ProductBehoefte = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..Converter.Convert(ProductBehoefte, ..Vestiging)
+	Quit ConvertedProductBehoefte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>