7.7 Перебор всех документов

Народ помогите!!!
Необходимо в написать обработку, которая переберет все документы и при необходимости изменит значение фирмы. Например если стоит фирма А ее надо изменить на Б.
Очень долгое время не работал на семерке и уже успел многое забыть. Кто знает пожалуйста помогите.
Заранее спасибо

на диске итс есть обработка по замене значений

на каком диске, за какой месяц?
ели у тебя она есть дай пожалуйста

НачДата, КонДата, СтарФирма, НовФирма - реквизиты диалога

Код:

Процедура Сформировать()
Док = СоздатьОбъект("Документ");
ДокумЗапись = СоздатьОбъект("Документ");
Док.Выбрать(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
//проверим есть ли в шапке документа реквизит фирма
Реквизит=Метаданные.Документ(Док.Вид()).РеквизитШапки("Фирма");
Если Реквизит.Выбран()=1 Тогда
Если Док.Фирма = СтарФирма Тогда
ДокумЗапись.НайтиДокумент(Док.ТекущийДокумент());
ДокумЗапись.Фирма = НовФирма;
ДокумЗапись.Записать()              //Здесь, возможно, нужно поставить Провести() - сам смотри по задаче
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

/index.php?act=Attach&...post&id=993