Справка-расчет "Переоценка валютных средств в у.е."

Опубликовал BLACK BEAR (sarun) в раздел Печать - Справки

В типовой конфигурации УПП отчет "Справка-расчет "Переоценка валютных средств" не реализован для расчетов в условных единицах. Приведен возможный вариант добавления отчета.

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.Добавлем внешний отчет, использующий данные регистра

Скачать файлы

Наименование Файл Версия Размер
СправкаРасчетВ_у.е.
.erf 27,17Kb
27.07.16
6
.erf 27,17Kb 6 Скачать

См. также

Комментарии
1. Алмаз Шарипов (cdiamond) 25 28.12.16 14:04 Сейчас в теме
Установка по принципу "догадайся сам":
- новое измерение регистра только из картинки видно.
- регистр должен быть независимый.
- с пятого раза только удалось понять, куда вставить кусок кода в модуле документа. Подсказка: в конце цикла.
2. BLACK BEAR (sarun) 27 29.12.16 19:39 Сейчас в теме
Прикладывать cf ник посчитал не нужным. Тот кто сможет и так внесет изменения. Насчет того что регистр независимый и какие у него измерения, там в коде понятно же. Спасибо за комментарий, рад что пригодилось.