Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r47614 -r47621
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 47614)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 47621)
@@ -111,6 +111,52 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExtraLeveringsDagen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LeverancierNummer:%String,StockNietStock:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If ((StockNietStock = "") && (LeverancierNummer '= "5005")) {
+		Quit 1
+	} Else {
+		Quit:LeverancierNummer="5005" 3
+		Quit:LeverancierNummer="5002" 5
+		Quit:LeverancierNummer="7857" 1
+		Quit:LeverancierNummer="5938" 5
+		Quit:LeverancierNummer="7509" 1
+		Quit:LeverancierNummer="7541" 5
+		Quit:LeverancierNummer="7409" 5
+		Quit:LeverancierNummer="5026" 1
+		Quit:LeverancierNummer="6792" 2
+		Quit:LeverancierNummer="5490" 1
+		Quit:LeverancierNummer="7627" 1
+		Quit:LeverancierNummer="6347" 5
+		Quit:LeverancierNummer="7112" 5
+		Quit:LeverancierNummer="6274" 1
+		Quit:LeverancierNummer="6118" 1
+		Quit:LeverancierNummer="5888" 1
+		Quit:LeverancierNummer="7178" 5
+		Quit:LeverancierNummer="7560" 5
+		Quit:LeverancierNummer="6501" 1
+		Quit:LeverancierNummer="7564" 5
+		Quit:LeverancierNummer="7551" 5
+		Quit:LeverancierNummer="8090" 2
+		Quit:LeverancierNummer="7580" 2
+		Quit:LeverancierNummer="7835" 1
+		Quit:LeverancierNummer="6628" 1
+		Quit:LeverancierNummer="7407" 1
+		Quit:LeverancierNummer="7802" 10
+		Quit:LeverancierNummer="6813" 1
+		Quit:LeverancierNummer="7771" 1
+		Quit:LeverancierNummer="6792" 5
+		Quit:LeverancierNummer="5817" 2
+		Quit:LeverancierNummer="7063" 2
+		Quit:LeverancierNummer="6892" 2
+		Quit 1
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConvertZuluTimeStampToDate">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ZuluTimeStampStringFormaat:%TimeStamp</FormalSpec>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r47241 -r47621
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 47241)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 47621)
@@ -405,45 +405,7 @@
 <Implementation><![CDATA[
 	#dim StockNietStock = $$$ProductGet(..PRNr,$$$StockType)
 	#dim LeverancierNummer = $$$ProductGet(..PRNr,$$$LeveranciersNr)
-	
-	If ((StockNietStock = "") && (LeverancierNummer '= "5005")) {
-		Quit 1
-	} Else {
-		Quit:LeverancierNummer="5005" 3
-		Quit:LeverancierNummer="5002" 5
-		Quit:LeverancierNummer="7857" 1
-		Quit:LeverancierNummer="5938" 5
-		Quit:LeverancierNummer="7509" 1
-		Quit:LeverancierNummer="7541" 5
-		Quit:LeverancierNummer="7409" 5
-		Quit:LeverancierNummer="5026" 1
-		Quit:LeverancierNummer="6792" 2
-		Quit:LeverancierNummer="5490" 1
-		Quit:LeverancierNummer="7627" 1
-		Quit:LeverancierNummer="6347" 5
-		Quit:LeverancierNummer="7112" 5
-		Quit:LeverancierNummer="6274" 1
-		Quit:LeverancierNummer="6118" 1
-		Quit:LeverancierNummer="5888" 1
-		Quit:LeverancierNummer="7178" 5
-		Quit:LeverancierNummer="7560" 5
-		Quit:LeverancierNummer="6501" 1
-		Quit:LeverancierNummer="7564" 5
-		Quit:LeverancierNummer="7551" 5
-		Quit:LeverancierNummer="8090" 2
-		Quit:LeverancierNummer="7580" 2
-		Quit:LeverancierNummer="7835" 1
-		Quit:LeverancierNummer="6628" 1
-		Quit:LeverancierNummer="7407" 1
-		Quit:LeverancierNummer="7802" 10
-		Quit:LeverancierNummer="6813" 1
-		Quit:LeverancierNummer="7771" 1
-		Quit:LeverancierNummer="6792" 5
-		Quit:LeverancierNummer="5817" 2
-		Quit:LeverancierNummer="7063" 2
-		Quit:LeverancierNummer="6892" 2
-		Quit 1
-	}
+	Quit ##class(AXimpl.AxToAdminUtils).GeefExtraLeveringsDagen(LeverancierNummer,StockNietStock)
 ]]></Implementation>
 </Method>
 </Class>