Помечаем коды изделий, которых нет в другом предприятии

Материал из Фабиус wiki
Перейти к: навигация, поиск
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 )

Смотрите также

Информация для разработчиков системы фабиус