FreemanZAVСразу нельзя было сказать???
А что о ней говорить? эта таблица вообще вспомогательная, без нее пока можно обойтись, в ней просто коду товара поставлено в соответствие его название (товар это книги соответственно название товара есть название книги).
Попробую еще раз уточнить проблему:
структура таблицы CKLAD такая:
1.
2.
3.
4.
5.
CODE - код записи - Первичный ключ
СART_CODE - код товара
SKLAD_CODE - код склада
OSTAT - количество товара с данным кодом на данном складе
.... - прочие, не существенные в данный момент поля (разные цены и пр.)
структура таблицы CART такая:
1.
2.
3.
CODE - код записи - Первичный ключ
NAME - назване товара
.... - прочие, не существенные в данный момент поля
для того чтобы сделать выборку мне НАЗВАНИЕ не нужно, название будет нужно когда я буду выводить выбранный список на экран для пользователя, тогда и делается join CART on(Sklad.СART_CODE=CART.CODE), т.е. в результирующую таблицу добавляется названиме товара (для оператора).
далее:
пример записей таблицы SKLAD
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CODE CART_CODE SKLAD_CODE OSTAT
100 1 1 10
101 1 2 5
102 1 3 0
103 1 7 15
104 2 1 0
105 2 7 5
106 3 2 5
106 3 3 10
107 3 4 5
108 3 5 0
.... и т.д. не на всех складах есть все виды товара, в смысле что для конкретного склада вобще может не быть записей с данным кодом товара или будет запись с кодом но количество будет нулевым. Задача состоит в том, чтобы для любых двух складов сделать выборку товара отсутсвующего на одном складе A (вообще обтсутвующего в принципе или имеющегося в количестве "0") и имеющегося в количестве большем "0" на другом складе B.
Алгоритм просматривается такой:
1. делаю выборку по складу А (все что на нем есть в количестве > 0), кажеться в IB это называется VIEWS
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Var
Sklad: TpFIBDataSet; // реальная таблица из базы
Sklad2: TpFIBDataSet; // виртуальная таблица (VIEWS?)
Sklad3: TpFIBDataSet; // вспомогательная виртуальная таблица
// все компоненты лежат на одной форме Form1
...
// Формируем выборку по складу A условии OSTAT> 0 ,
Form1.Sklad3.close;
Form1.Sklad3.selectSQL[ 0 ]:='SELECT Sklad.*;
Form1.Sklad3.selectSQL[1]:='FROM Sklad';
Form1.Sklad3.selectSQL[2]:='WHERE C_OSTAT> 0 AND SKLAD_CODE='+intToStr(Sklad_A_Num);
Form1.Sklad3.selectSQL[3]:='order by Sklad.CART_CODE'; // в принципе наверное не обязательно
Form1.Sklad3.open;
2. делаю выборку по складу B (все что на нем есть в количестве > 0)
1.
2.
3.
4.
5.
6.
7.
// Формируем выборку по складу B условии OSTAT> 0 ,
Form1.Sklad2.close;
Form1.Sklad2.selectSQL[ 0 ]:='SELECT Sklad.*;
Form1.Sklad2.selectSQL[1]:='FROM Sklad';
Form1.Sklad2.selectSQL[2]:='WHERE C_OSTAT> 0 AND SKLAD_CODE='+intToStr(Sklad_B_Num);
Form1.Sklad2.selectSQL[3]:='order by Sklad.CART_CODE'; // в принципе наверное не обязательно
Form1.Sklad2.open;
3. исключаю из выборки B (Sklad2) все записи в которых встречается CART_CODE имеющийся в записях выборки A (Sklad3) просматривая для каждой записи из B список A, например так
1.
2.
3.
4.
5.
while not Form1.Sklad2.EoF do
begin
if (в Sklad3 существует запись с CART_CODE равным CART_CODE текущей записи Sklad2) then (удалить текущую запись из Sklad2);
Form1.Sklad2.Next;
end;
но это конечно будет долго и нудно :(
либо
2. используя таблицу Sklad3 сразу формирую выборку Sklad2 с исключением записей в которых присутсвует CART_CODE имеющийся в записях Sklad3 организовав каконибудь хитрый SELECT.
Собственно это я и спрашивал в самом начале.
P.S. Испробовал вариант пердложеный самым первым
Kadrwhere (sklad_code=A) and (kod_tovar not in (select kod_tovar .... where sklad_code=B))
1.
2.
3.
4.
5.
6.
Form1.Sklad2.close;
Form1.Sklad2.selectSQL[ 0 ]:='SELECT Sklad.*;
Form1.Sklad2.selectSQL[1]:='FROM Sklad';
Form1.Sklad2.selectSQL[2]:='WHERE (SKLAD_CODE='+intToStr(Sklad_B_Num)+') AND (CART_CODE NOT'+
' in (SELECT SKLAD_CODE FROM Sklad WHERE SKLAD_CODE='+intToStr(Sklad_A_Num)+'))';
Form1.Sklad2.selectSQL[3]:='order by Sklad.CART_CODE';
и раскритикованный Мимопроходящим, ну что-ж господин Мимопроходящий естественно прав, IB сервер загрузил систему на 99%, я честно ждал 15 минут, чайку попил, так и не дождался результата, пришлось прибить процесс.
P.P.S.
Что касается предложений FreemanZAV, то я немножко не понимаю логики запросов, в частности для варианта 2 получиться список товаров имеющихся на складах А и B, а нужно ведь не это, может надо
FreemanZAVSELECT *
FROM CART C WHERE EXISTS (SELECT 1 FROM TABLE1 B1 WHERE
C.TOVAR_CODE=B1.TOVAR_CODE AND B1.SKLAD_CODE = 'A' AND B1.C_OSTAT > 0) AND
NOT EXISTS (SELECT 1 FROM TABLE1 B2 WHERE B2.SKLAD_CODE = 'B' AND B2.C_OSTAT = 0 )
но так как в SQL я мягко говоря не силен, такая конструкция с точки зрения синтаксиса скорее всего не пройдет. Что касается алиасов, то я не знаю как их назначить (обьявить, прописать...), и что мне это даст.
В общем такие вот грабли :( господа, надеюсь на толковый совет.
С уважением Александр.
