gifts2017

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

Опубликовал Евгений Багаев (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
2
.erf 27,17Kb 2 Скачать

См. также

Подписаться Добавить вознаграждение
В этой теме еще нет сообщений.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа