Помечаем коды изделий, которых нет в другом предприятии — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
Строка 6: | Строка 6: | ||
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 ) |
Версия 09:22, 29 апреля 2016
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 )