tcSearchFor = "100, 110"
lnSearchCount = GETWORDCOUNT(tcSearchFor, ",")

CREATE CURSOR CurFruits (Id_K I, Id_Fruit I)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (1, 100)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (1, 110)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (1, 120)

INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (2, 110)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (2, 200)

INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (3, 110)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (3, 200)
INSERT INTO CurFruits (Id_K, Id_Fruit) VALUES (3, 100)

*-* (IGEL) 1. Необходимо избавиться от дублирующихся кортежей. В постановке задачи их не встретилось,
*-* (IGEL) но дублирующиеся кортежи будут мешать следующему запросу.
SELECT DISTINCT * FROM CurFruits INTO CURSOR CurFruitsDist NOFILTER READWRITE

*-* (IGEL) 2. Фильтруем нужные фрукты и смотрим, чтобы в корзине было ровно столько фруктов, сколько в исходном условии
SELECT ;
    CL.Id_K ;
    FROM CurFruitsDist CL ;
    WHERE INLIST(CL.Id_Fruit, &tcSearchFor) ;
    GROUP BY CL.Id_K ;
    HAVING COUNT(Id_Fruit) = lnSearchCount ;
    INTO CURSOR CurResult NOFILTER READWRITE

COUNT(DISTINCT Id_Fruit) = m.lnSearchCount