1) Выбрать документы
2) Запихнуть документы в ТЗ
3) Перебрать ТЗ, с позиционирование на документ через НайтиДокумент
4) Сделать не проведенным, присвоить дату, провести.
Или так:
1. В самом начале
ТекДок = СоздатьОбъект("Документ.Расходная");
2. В цикле, вместо
ТекДок = Выборка;
написать
ТекДок.НайтиДокумент(Выборка.ТекущийДокумент());
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший