Код: Выделить всё
LOOP
DO OpenFiles
STREAM(FILE_B01)
IF RECORDS(FILE_A01)
SET(FILE_A01)
Loop while Access:FILE_A01.Next() = Level:Benign
CLEAR(FB01:RECORD)
FB01:RECORD = FA01:RECORD
APPEND(FILE_B01)
IF ERRORCODE()
Message('Ошибка: '&ERRORCODE() &' : '& ERRORFILE(),'Ошибка')
BREAK
END
END
ELSE
BREAK
END
BUILD(FILE_B01)
FLUSH(FILE_B01)
END
Спасибо за внимание