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