Док = СоздатьОбъект("Документ");
Док.выбратьДокументы();
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Фирма = ВыбФирма ТОгда
Продолжить;
КонецЕсли;
Док.Удалить(0);
КонецЦикла;
удалить нафиг
Док = СоздатьОбъект("Документ");
Док.выбратьДокументы();
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Фирма = ВыбФирма ТОгда
Продолжить;
КонецЕсли;
Док.Удалить(1);
КонецЦикла;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший