Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r41663 -r42538
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 41663)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 42538)
@@ -3,7 +3,7 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Vestiging">
+<Property name="LeverancierNummer">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -13,8 +13,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LeverancierNummer">
-<Type>%String</Type>
+<Property name="BestelreferentieSamensteller">
+<Type>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Type>
 <Private>1</Private>
 </Property>
 
@@ -23,13 +23,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BestelreferentieSamensteller">
-<Type>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Type>
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
+<FormalSpec>Vestiging:%String,LeverancierNummer:%String="",Utils:AXimpl.Utils</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -38,6 +43,7 @@
 	Set ..Vestiging = Vestiging
 	Set ..LeverancierNummer = LeverancierNummer
 	Set ..BestelreferentieSamensteller = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
+	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -59,15 +65,15 @@
 	Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductID)
 	Do ..GeefLeverancierNummer()
 	
-	If ..Vestiging = "VanHoecke" {
+	If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Do ..ConvertVanHoecke()
 	}
 	Else {
-		If ..Vestiging = "Halux" {
+		If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 			Do ..ConvertHalux()
 		}
 		Else {
-			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+			Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_..Vestiging
 		}
 	}
 	Set ..LeverancierNummer = ""
@@ -88,7 +94,7 @@
 	Set AxProduct.ModuleType = "03"
 
 	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
-	Set AxProduct.DefaultOrderType = ..BepaalDefaultOrderTypeVH()
+	Set AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
 	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
 	Set AxProduct.LinkType = ..Product.Basis.LinkType
 
@@ -110,7 +116,7 @@
 	Set AxProduct.ModuleType = "03"
 	
 	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
-	Set AxProduct.DefaultOrderType = ..BepaalDefaultOrderTypeHLX()
+	Set AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
 	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
 	Set AxProduct.LinkType = ..Product.Basis.LinkType
 
@@ -151,39 +157,6 @@
 	Quit CustVendRelationHLX
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalDefaultOrderTypeVH">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim DefaultOrderTypeVH As %String
-	#dim LinkType As %String = ..Product.Basis.LinkType
-	
-	If ((LinkType = "S") && (..LeverancierNummer = "6051")){
-		Set DefaultOrderTypeVH = "Productie"
-	}
-	Else {
-		Set DefaultOrderTypeVH = "Aankooporder"
-	}
-	Quit DefaultOrderTypeVH
-]]></Implementation>
-</Method>
-
-<Method name="BepaalDefaultOrderTypeHLX">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim DefaultOrderTypeHLX As %String
-	
-	If (..LeverancierNummer = "6332") {
-		Set DefaultOrderTypeHLX = "Productie"
-	}
-	Else {
-		Set DefaultOrderTypeHLX = "Aankooporder"
-	}
-	Quit DefaultOrderTypeHLX
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml
===================================================================
diff -u -r41661 -r42538
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(.../ExtArtOmschrLevIterator.cls.xml)	(revision 41661)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(.../ExtArtOmschrLevIterator.cls.xml)	(revision 42538)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vestiging">
-<Type>%String</Type>
+<Type>AXimpl.InterneFirmaInitialen</Type>
 <Private>1</Private>
 </Property>
 
@@ -44,14 +49,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String,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 ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 	Do ..VoerUitQuery()
 	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(Vestiging)
 	Quit $$$OK
@@ -62,7 +68,7 @@
 <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 SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%' AND (NonAktief IS null OR NonAktief = '2')"
 	//Indien selectie nodig is...
 	/*_" 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,"
@@ -79,15 +85,8 @@
 	While($$$Not(TeOutputtenProductGevonden)&&(..ResultSet.Next()>0))
 	{
 		Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
-		If (..ResultSet.GetData(1) = "") {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Leeg uit Resultset : '"_..ResultSet.GetData(1)_"' ."))
-		}
-		If $$$Not($IsObject(..Product.Basis)) {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product bestaat niet : '"_..ResultSet.GetData(1)_"' ."))
-		}
 		Set ..LeverancierNummer = ..Product.Basis.LeverancierNummer
-	
-		Do ..BepaalDefaultOrderType()
+		Set ..DefaultOrderType = ..Utils.ConvertDefaultOrderType(..Vestiging,..Product)
 		Do ..BepaalMoetUitgeslotenWorden()
 		Set TeOutputtenProductGevonden = $$$Not(..MoetUitgeslotenWorden)
 	}
@@ -120,62 +119,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalDefaultOrderType">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If ..Vestiging = "VanHoecke" {
-		Do ..BepaalDefaultOrderTypeVH()
-	}
-	Else {
-		If ..Vestiging = "Halux" {
-			Do ..BepaalDefaultOrderTypeHLX()
-		}
-		Else {
-			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
-		}
-	}
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="BepaalDefaultOrderTypeVH">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim LinkType As %String = ..Product.Basis.LinkType
-	
-	If ((LinkType = "S") && (..LeverancierNummer = "6051")){
-		Set ..DefaultOrderType = "Productie"
-	}
-	Else {
-		Set ..DefaultOrderType = "Aankooporder"
-	}
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="BepaalDefaultOrderTypeHLX">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If (..LeverancierNummer = "6332") {
-		Set ..DefaultOrderType = "Productie"
-	}
-	Else {
-		Set ..DefaultOrderType = "Aankooporder"
-	}
-	Quit
-]]></Implementation>
-</Method>
-
 <Method name="LeverancierFilter">
 <Implementation><![CDATA[
-	If ..Vestiging = "VanHoecke" {
+	If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Do ..LeverancierFilterVH()
 	}
 	Else {
-		If ..Vestiging = "Halux" {
+		If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 			Do ..LeverancierFilterHLX()
 		}
 		Else {
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml
===================================================================
diff -u -r41662 -r42538
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 41662)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 42538)
@@ -16,11 +16,13 @@
 <Method name="GenerateAll">
 <FormalSpec>Vestiging:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
 	Set ..Vestiging = Vestiging
 	Try {
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator).%New(,Vestiging)
 		do ..Generate(ProductIterator)
-		Write !,"Klaar"
+		Write !,"Csv voor migratie 0605 ExtArtOmschrLev voor "_Vestiging_" is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
 	}