Помечаем коды изделий, которых нет в другом предприятии — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
local sql, aa, sr | local sql, aa, sr | ||
| − | |||
sr := {} | sr := {} | ||
| − | |||
[[DbGoTop]]() | [[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' ) | ||
| Строка 11: | Строка 8: | ||
[[Aadd]]( sr, Recno() ) | [[Aadd]]( sr, Recno() ) | ||
endif | endif | ||
| − | |||
[[DbSkip]]() | [[DbSkip]]() | ||
end | end | ||
[[DbGoTop]]() | [[DbGoTop]]() | ||
| − | |||
[[SetSelRows]]( sr, true ) | [[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 )
