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