Помечаем коды изделий, которых нет в другом предприятии — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 3: | Строка 3: | ||
sr := {} | sr := {} | ||
| − | DbGoTop() | + | [[DbGoTop]]() |
| − | while !eof() | + | [[while]] !eof() |
sql := [ Select KOD From [[R11]] Where KOD = ] + KOD | sql := [ Select KOD From [[R11]] Where KOD = ] + KOD | ||
Версия 11:31, 10 апреля 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 )
