Код вида операции в СФ
 

Здравствуйте. Подскажите, есть ли какая-нибудь обработка для заполнения КодВидаОперации в СчетФактуре. В последнем релизе для бухгалтерии 7.7 (7.70.594) нет новых кодов (письмо ФНС от 22-01-15 № ГД-4-3/794). Как их ставить? вручную....это проблема. Может этот вопрос уже поднимался на форуме. Спасибо

Процедура СформироватьП()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//**{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|СчетФактура = Документ.СчетФактураПолученный.ТекущийДокумент;
|Группировка СчетФактура;
|"//****ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;


Д=СоздатьОбъект("Документ.СчетФактураПолученный");

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл


Если Сокрлп(Д.КодВидаОперации)="" тогда

Д.НайтиДокумент(Запрос.СчетФактура);
Д.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыПолученного.Приобретение;

Д.КодВидаОперации = "01";
// Д.Выставлен=1;

Д.Записать();

КонецЕсли;


// Заполнение полей СчетФактура
Таб.ВывестиСекцию("СчетФактура");
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры

Д.НайтиДокумент(Запрос.СчетФактура);
Если Сокрлп(Д.КодВидаОперации)="" тогда

поминять мистами