Справка-расчет "Переоценка валютных средств в у.е."
Учетные задачи - Печатные формы
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
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.Добавлем внешний отчет, использующий данные регистра
Вступайте в нашу телеграмм-группу Инфостарт