IF! EOF()

PRIVATE m.sel_old, m.kdk_cur

m.sel_old = ALIAS()

UPDATE (m.sel_old) SET Cfldnik = '1' where 1=1

m.kdk_cur = sys(2015)

=usql_exec([select n_kdk, kk42, ceh, kzbr, kslp, '0' as metka from _kdk937 ], (m.kdk_cur))

SELECT(m.kdk_cur)

index on allt(n_kdk) + allt(kk42) + allt(STR(ceh)) + allt(kzbr) + allt(kslp) tag sort

SELECT(m.sel_old)

set relation to allt(n_kdk) + allt(cfldkk42) + allt(STR(cfldceh)) + allt(cfldkzbr) + allt(cfldkslp) into &kdk_cur

allt(cfldkzbr) + allt(cfldkslp) â (&kdk_cur)

REPLACE all ;

Cfldnik with &kdk_cur..metka

set relation off into &kdk_cur

allt(cfldkzbr) + allt(cfldkslp) â (&kdk_cur)

SELECT(m.sel_old)

delete from (m.sel_old) where allt(Cfldnik) == '0'

SELECT(m.sel_old)

GO top

ENDIF

алгоритм

Задача:

Получить изменения по кадровому составу работников
предприятия.



Что имеем:

Таблица с данными отдела кадров:

- таб. №

- признак пользователя сети

- цех (участок, бригада)

- должность

- дата увольнения



Как это делать:


сравниваем
копию и основную таблицу
Находим
отличия
Все
найденные изменения выводим на экран
Параллельно
Создать отчет по изменениям для возможности дальнейшей обработки


5. Создаем копию таблицы отдела кадров с интересующими
данными для следующего сеанса. .

chudin, эм...мне нужно обновить копию. Тоесть оно обновит ту резервную? и куда его в этом запросе влепить то?