CLOSE TABLES ALL

CREATE CURSOR Table1 (InvNum C(18))
INSERT INTO Table1 (InvNum) VALUES ("98400159TD32081014")
INSERT INTO Table1 (InvNum) VALUES ("99400242TX72581014")
INSERT INTO Table1 (InvNum) VALUES ("99400233AS88876516")
INSERT INTO Table1 (InvNum) VALUES ("97400115TD35481022")
INSERT INTO Table1 (InvNum) VALUES ("99400238DD72589314")

CREATE CURSOR TInclude (NumMask C(18))
INSERT INTO TInclude (NumMask) VALUES ("98%")
INSERT INTO TInclude (NumMask) VALUES ("99___23%")

SELECT a.InvNum FROM Table1 a, TInclude b ;
	WHERE a.InvNum LIKE ALLTRIM(b.NumMask) ;
	INTO CURSOR curResult1
-- результат 3 записи (1-я, 3-я и 5-я), что и требовалось
CREATE CURSOR TExclude (NumMask C(18))
INSERT INTO TExclude (NumMask) VALUES ("%810__")
INSERT INTO TExclude (NumMask) VALUES ("________DD%")

-- вот так выбирает 4 записи
-- что не есть правильно
-- что собственно и ожидалось от такого запроса:
-- для каждого совпадения по маске включения
-- проверяется каждая маска исключения по-отдельности
SELECT a.InvNum FROM Table1 a, TInclude b, TExclude c ;
	WHERE a.InvNum LIKE ALLTRIM(b.NumMask) ;
		AND a.InvNum NOT LIKE ALLTRIM(c.NumMask) ;
	INTO CURSOR curResult2

-- вот так правильно работает
-- в выборке 1 запись
SELECT a.InvNum FROM Table1 a, TInclude b ;
	WHERE a.InvNum LIKE ALLTRIM(b.NumMask) ;
		AND a.InvNum NOT IN ;
		( ;
		 SELECT a2.InvNum ;
		 	FROM Table1 a2, TExclude c ;
		 	WHERE a2.InvNum LIKE ALLTRIM(c.NumMask) ;
		) ;
	INTO CURSOR curResult3

-- смущает вероятная скорость работы такого запроса
-- на таблице под миллион записей
-- с масками включения/исключения с кол-вом условий порядка сотен

CANCEL