1. Добавляем регистр сведений ger_РасчетПереоценкиВалютныхСредствУЕ по аналогии с регистром РасчетПереоценкиВалютныхСредств
2. В модуле документа "ПереоценкаВалютныхСредств" добавлем запись в данный регистр:
Процедура ПереоценитьРасчетыВУсловныхЕдиницахРегл(СтруктураШапкиДокумента, Отказ, Заголовок):
//<
Рег = РегистрыСведений.ger_РасчетПереоценкиВалютныхСредствУЕ.СоздатьНаборЗаписей();
Рег.Отбор.ДокументПереоценки.Значение = Ссылка;
Рег.Отбор.ДокументПереоценки.Использование = Истина;
Рег.Прочитать();
Рег.Очистить();
//>
//<
ВспомогательныйРасчет = РегистрыСведений.ger_РасчетПереоценкиВалютныхСредствУЕ.СоздатьМенеджерЗаписи();
ВспомогательныйРасчет.Активность = Истина;
ВспомогательныйРасчет.Валюта = Выборка.ВалютаВзаиморасчетов;
ВспомогательныйРасчет.ВидУчета = Перечисления.ВидыУчетаПоПБУ18.ПустаяСсылка();
ВспомогательныйРасчет.КурсПереоценки = СтруктураКурса.Курс;
ВспомогательныйРасчет.Организация = Справочники.Организации.НайтиПоКоду("000000001");
ВспомогательныйРасчет.Период = Дата;
ВспомогательныйРасчет.ПериодРасчета = Дата;
ВспомогательныйРасчет.ДокументПереоценки = Ссылка;
ВспомогательныйРасчет.Счет = Выборка.Счет;
ВспомогательныйРасчет.Субконто1 = Выборка.Субконто1;
ВспомогательныйРасчет.Субконто2 = Выборка.Субконто2;
Если Выборка.КоэффициентСуммыВзаиморасчетов = -1 Тогда
ВспомогательныйРасчет.Сумма = СуммаПереоценки;
Иначе
// До 01.01.2015 по налоговому учету формируются временные разницы
СуммаПереоценкиДо2015 = ОКР((СуммаПереоценки * Выборка.КоэффициентСуммыВзаиморасчетов), 2);
// После 01.01.2015 по налоговому учету не формируются временные разницы
ВспомогательныйРасчет.Сумма = СуммаПереоценки - СуммаПереоценкиДо2015;
КонецЕсли;
ВспомогательныйРасчет.СуммаВВалюте = - Выборка.ВалютнаяСуммаОстаток;
ВспомогательныйРасчет.СуммаВРублях = - Выборка.СуммаОстаток;
ВспомогательныйРасчет.Записать();
//>
3.Добавлем удаление записей региcтра при отмене проведения документа:
Процедура ОбработкаУдаленияПроведения (Отказ, РежимЗаписи, РежимПроведения)
Рег = РегистрыСведений.ger_РасчетПереоценкиВалютныхСредствУЕ.СоздатьНаборЗаписей();
Рег.Отбор.ДокументПереоценки.Значение = Ссылка;
Рег.Отбор.ДокументПереоценки.Использование = Истина;
Рег.Прочитать();
Рег.Очистить();
Рег.Записать();
КонецПроцедуры
4.Добавлем внешний отчет, использующий данные регистра
