Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml
===================================================================
diff -u -r46445 -r46461
--- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml	(.../VestSpecOrdInstIterator.cls.xml)	(revision 46445)
+++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml	(.../VestSpecOrdInstIterator.cls.xml)	(revision 46461)
@@ -56,9 +56,9 @@
 <Method name="VoerUitQuery">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim SqlTableProdProduct As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("Prod.Product")
-	#Dim SqlStatement as %String
-	Set SqlStatement = "SELECT ID FROM "_SqlTableProdProduct_" WHERE isnull(Gentype,'')='' and korttekst not like 'GEN%' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')"
+	#dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and korttekst not like 'GEN%' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')"
+	_" UNION SELECT ID FROM Prod.Product WHERE KortTekst like 'GEN%'  AND (NonAktief IS null OR NonAktief = '2') AND LeverancierNummer = '6332'"
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>