Помечаем коды изделий, которых нет в другом предприятии — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «local sql, aa, sr sr := {} DbGoTop() while !eof() sql := [ Select KOD From R11 Where KOD = ] + KOD aa := SqlToArr( sql,, '\\BURAN\BASES\FAB_KOND\RE…») |
Hisava (обсуждение | вклад) м |
||
(не показано 5 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
− | local sql, aa, sr | + | local sql, aa, sr |
− | + | ||
sr := {} | sr := {} | ||
− | + | [[DbGoTop]]() | |
− | + | ||
while !eof() | while !eof() | ||
− | + | sql := [ Select KOD From [[R11]] Where KOD = ] + KOD | |
− | sql := [ Select KOD From R11 Where KOD = ] + KOD | + | aa := [[SqlToArr]]( sql,, '\\BURAN\BASES\FAB_KOND\REFLIS' ) |
− | aa := SqlToArr( sql,, '\\BURAN\BASES\FAB_KOND\REFLIS' ) | + | if [[Empty]]( aa ) |
− | if Empty( aa ) | + | [[Aadd]]( sr, Recno() ) |
− | Aadd( sr, Recno() ) | + | |
endif | endif | ||
− | + | [[DbSkip]]() | |
− | DbSkip() | + | |
end | end | ||
− | DbGoTop() | + | [[DbGoTop]]() |
− | + | [[SetSelRows]]( sr, true ) | |
− | + | = Смотрите также = | |
+ | [[Информация для разработчиков системы фабиус]] |
Текущая версия на 16:22, 2 августа 2017
local sql, aa, sr sr := {} DbGoTop() while !eof() sql := [ Select KOD From R11 Where KOD = ] + KOD aa := SqlToArr( sql,, '\\BURAN\BASES\FAB_KOND\REFLIS' ) if Empty( aa ) Aadd( sr, Recno() ) endif DbSkip() end DbGoTop() SetSelRows( sr, true )