Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml	(revision 42666)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="IsValid">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProductConvertor">
+<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 ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Item:TECH.ResultSet</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$False
+	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
+	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
+	
+	If (IsBlumProduct = 1){
+		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
+		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
+			Set IsValid = $$$True
+		} 
+	} Else {
+		Set IsValid = $$$True
+	}
+	
+	Quit IsValid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r42587 -r42666
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 42587)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 42666)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Product">
 <Type>AX.Uitgaand.PM.Product.impl.Product</Type>
 <Private>1</Private>
@@ -34,127 +39,104 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Vestiging:%String,LeverancierNummer:%String="",Utils:AXimpl.Utils</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Vestiging = Vestiging
-	Set ..LeverancierNummer = LeverancierNummer
 	Set ..BestelreferentieSamensteller = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
-	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..Utils = ##class(AXimpl.Utils).%New()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverancierNummer">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:(..LeverancierNummer = "") ..LeverancierNummer = ..Product.Basis.LeverancierNummer
-	Quit ..LeverancierNummer
-]]></Implementation>
-</Method>
-
 <Method name="Convert">
-<FormalSpec>ProductID:%String</FormalSpec>
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
-	Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductID)
-	Do ..GeefLeverancierNummer()
+	Set ..AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
 	
-	If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+	Do ..ConvertGemeenschappelijk(Product,Vestiging)
+	
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Do ..ConvertVanHoecke()
-	}
-	Else {
-		If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+	} ElseIf Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 			Do ..ConvertHalux()
-		}
-		Else {
-			Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_..Vestiging
-		}
+		} Else {
+			Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_Vestiging
 	}
-	Set ..LeverancierNummer = ""
+	
 	Quit ..AxProduct
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertVanHoecke">
+<Method name="ConvertGemeenschappelijk">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
-<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
-	Set AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationVH()
-	Set AxProduct.ExternalItemID = ..Product.Basis.LeverancierReferentie
-	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(..Product)
-	Set AxProduct.InventDimID = "AllBlank"
-	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
-	Set AxProduct.ModuleType = "03"
+	Set ..AxProduct.CustVendRelation = ..BepaalCustVendRelation(Product,Vestiging)
+	Set ..AxProduct.ExternalItemID = Product.Basis.LeverancierReferentie
+	Set ..AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
+	Set ..AxProduct.InventDimID = "AllBlank"
+	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
+	Set ..AxProduct.ModuleType = ..BepaalModuleType(Product,Vestiging)
 
 	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
-	Set AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
-	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
-	Set AxProduct.LinkType = ..Product.Basis.LinkType
-
-	Set ..AxProduct = AxProduct
-	Quit ..AxProduct
+	Set ..AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(Vestiging,Product)
+	Set ..AxProduct.LeverancierNummer = Product.Basis.LeverancierNummer
+	Set ..AxProduct.LinkType = Product.Basis.LinkType
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertHalux">
+<Method name="ConvertVanHoecke">
 <Private>1</Private>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
-<Implementation><![CDATA[
-	Set AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationHLX()
-	Set AxProduct.ExternalItemID = ..Product.Basis.LeverancierReferentie
-	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(..Product)
-	Set AxProduct.InventDimID = "AllBlank"
-	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
-	Set AxProduct.ModuleType = "03"
-	
-	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
-	Set AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
-	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
-	Set AxProduct.LinkType = ..Product.Basis.LinkType
+</Method>
 
-	
-	Set ..AxProduct = AxProduct
-	Quit ..AxProduct
-]]></Implementation>
+<Method name="ConvertHalux">
+<Private>1</Private>
+<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 </Method>
 
-<Method name="BepaalCustVendRelationVH">
+<Method name="BepaalCustVendRelation">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim CustVendRelationVH As %String
+	#dim CustVendRelation As %String
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
-	Set CustVendRelationVH = ##class(TECH.StringUtils).AddLeadingChar(..LeverancierNummer,"0",5)
-
-	Quit CustVendRelationVH
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		If (LeverancierNummer = "5005") {
+			Set CustVendRelation = "Blum"
+		} Else {
+			Set CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+		}
+	} ElseIf (Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) {
+		Set LeverancierNummer = ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+		Set CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	}
+	
+	Quit CustVendRelation
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalCustVendRelationHLX">
+<Method name="BepaalModuleType">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim CustVendRelationHLX,LeverancierNummer As %String
-	#dim LevNrVoorConversie As %String
+	#dim ModuleType As %String = "03"
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
-	Set LevNrVoorConversie = ..LeverancierNummer
-	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(..LeverancierNummer)
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		If (LeverancierNummer = "5005") {
+			Set ModuleType = "05"
+	}}
 	
-	If (LevNrVoorConversie = LeverancierNummer){
-		Do ##class(Tools.Wlip).%New(191).String("LeveranciersNummer ;"_LeverancierNummer_"; < IdentNummer ;"_..Product.Basis.IdentNummer_"; < KortTekst ;"_..Product.Basis.KortTekst_"; <")
-	}
-	
-	Set CustVendRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
-
-	Quit CustVendRelationHLX
+	Quit ModuleType
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml
===================================================================
diff -u -r42538 -r42666
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(.../ExtArtOmschrLevIterator.cls.xml)	(revision 42538)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(.../ExtArtOmschrLevIterator.cls.xml)	(revision 42666)
@@ -3,31 +3,46 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="QueryAPI">
-<Type>TECH.Query.QueryAPI</Type>
+<Property name="DefaultOrderType">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ResultSet">
-<Type>TECH.ResultSet</Type>
+<Property name="LeverancierNummer">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MoetUitgeslotenWorden">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Converter">
 <Type>AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Product">
 <Type>AX.Uitgaand.PM.Product.impl.Product</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LeverancierNummer">
-<Type>%String</Type>
+<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="Utils">
 <Type>AXimpl.Utils</Type>
 <Private>1</Private>
@@ -38,28 +53,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DefaultOrderType">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="MoetUitgeslotenWorden">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String,Utils:AXimpl.Utils</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen,Utils:AXimpl.Utils</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())
+	Set ..Vestiging = Vestiging
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 	Do ..VoerUitQuery()
-	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(Vestiging)
+	Set Filter = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIteratorFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,Filter)
+	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -82,9 +90,9 @@
 <Implementation><![CDATA[
 	#dim TeOutputtenProductGevonden As %Boolean = 0
 
-	While($$$Not(TeOutputtenProductGevonden)&&(..ResultSet.Next()>0))
+	While($$$Not(TeOutputtenProductGevonden)&&(..DynIterator.HasNext()))
 	{
-		Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+		Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
 		Set ..LeverancierNummer = ..Product.Basis.LeverancierNummer
 		Set ..DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
 		Do ..BepaalMoetUitgeslotenWorden()
@@ -98,7 +106,8 @@
 <Method name="Next">
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
-	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = ..Converter.Convert(..ResultSet.GetData(1))
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = ..Converter.Convert(Product, ..Vestiging)
 
 	Quit ConvertedProduct
 ]]></Implementation>