#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
#Область Проведение
Процедура ЗарегистрироватьУчетныеМеханизмы(МеханизмыДокумента) Экспорт
МеханизмыДокумента.Добавить("НематериальныеАктивы");
МеханизмыДокумента.Добавить("РегламентированныйУчет");
МеханизмыДокумента.Добавить("РеестрДокументов");
МеханизмыДокумента.Добавить("СебестоимостьИПартионныйУчет");
МеханизмыДокумента.Добавить("УчетДоходовРасходов");
МеханизмыДокумента.Добавить("УчетПрочихАктивовПассивов");
КонецПроцедуры
#КонецОбласти
Процедура ДобавитьКомандыСозданияНаОсновании(КомандыСозданияНаОсновании, Параметры) Экспорт
КонецПроцедуры
Функция ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании) Экспорт
Если ПравоДоступа("Добавление", Метаданные.Документы.ПереоценкаНМА) Тогда
КомандаСоздатьНаОсновании = КомандыСозданияНаОсновании.Добавить();
КомандаСоздатьНаОсновании.Менеджер = Метаданные.Документы.ПереоценкаНМА.ПолноеИмя();
КомандаСоздатьНаОсновании.Представление = ОбщегоНазначенияУТ.ПредставлениеОбъекта(Метаданные.Документы.ПереоценкаНМА);
КомандаСоздатьНаОсновании.ФункциональныеОпции = "ОтображатьВнеоборотныеАктивы2_2";
КомандаСоздатьНаОсновании.РежимЗаписи = "Проводить";
Возврат КомандаСоздатьНаОсновании;
КонецЕсли;
Возврат Неопределено;
КонецФункции
Процедура ДобавитьКомандыОтчетов(КомандыОтчетов, Параметры) Экспорт
КонецПроцедуры
#Область ДляВызоваИзДругихПодсистем
Процедура ПриЗаполненииОграниченияДоступа(Ограничение) Экспорт
Ограничение.Текст =
"РазрешитьЧтениеИзменение
|ГДЕ
| ЗначениеРазрешено(Организация)";
КонецПроцедуры
#КонецОбласти
Процедура ПриОпределенииНастроекВерсионированияОбъектов(Настройки) Экспорт
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
#Область Проведение
Функция ДополнительныеИсточникиДанныхДляДвижений(ИмяРегистра) Экспорт
ИсточникиДанных = Новый Соответствие;
Возврат ИсточникиДанных;
КонецФункции
Функция АдаптированныйТекстЗапросаДвиженийПоРегистру(ИмяРегистра) Экспорт
ТекстыЗапроса = Новый СписокЗначений;
ПолноеИмяДокумента = "Документ.ПереоценкаНМА";
ЗначенияПараметров = ЗначенияПараметровПроведения();
ПереопределениеРасчетаПараметров = Новый Структура;
ПереопределениеРасчетаПараметров.Вставить("НомерНаПечать", """""");
ВЗапросеЕстьИсточник = Истина;
Если ИмяРегистра = "РеестрДокументов" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаРеестрДокументов(ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "";
ВЗапросеЕстьИсточник = Ложь;
ИначеЕсли ИмяРегистра = "ДокументыПоНМА" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаДокументыПоНМА(ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "ДанныеДокумента";
ВЗапросеЕстьИсточник = Ложь;
Иначе
ТекстИсключения = НСтр("ru = 'В документе %ПолноеИмяДокумента% не реализована адаптация текста запроса формирования движений по регистру %ИмяРегистра%.'");
ТекстИсключения = СтрЗаменить(ТекстИсключения, "%ПолноеИмяДокумента%", ПолноеИмяДокумента);
ТекстИсключения = СтрЗаменить(ТекстИсключения, "%ИмяРегистра%", ИмяРегистра);
ВызватьИсключение ТекстИсключения;
КонецЕсли;
Если ИмяРегистра = "РеестрДокументов"
ИЛИ ИмяРегистра = "ДокументыПоНМА" Тогда
ТекстЗапроса = ОбновлениеИнформационнойБазыУТ.АдаптироватьЗапросПроведенияПоНезависимомуРегистру(
ТекстЗапроса,
ПолноеИмяДокумента,
СинонимТаблицыДокумента,
ВЗапросеЕстьИсточник,
ПереопределениеРасчетаПараметров);
Иначе
ТекстЗапроса = ОбновлениеИнформационнойБазыУТ.АдаптироватьЗапросМеханизмаПроведения(
ТекстЗапроса,
ПолноеИмяДокумента,
СинонимТаблицыДокумента,
ПереопределениеРасчетаПараметров);
КонецЕсли;
Результат = ОбновлениеИнформационнойБазыУТ.РезультатАдаптацииЗапроса();
Результат.ЗначенияПараметров = ЗначенияПараметров;
Результат.ТекстЗапроса = ТекстЗапроса;
Возврат Результат;
КонецФункции
Функция ДанныеДокументаДляПроведения(Документ, Регистры, ДопПараметры = Неопределено) Экспорт
Если ДопПараметры = Неопределено Тогда
ДопПараметры = ПроведениеДокументов.ДопПараметрыИнициализироватьДанныеДокументаДляПроведения();
КонецЕсли;
Если ТипЗнч(Документ) = Тип("ДокументОбъект.ПереоценкаНМА") Тогда
ДокументСсылка = Документ.Ссылка;
Иначе
ДокументСсылка = Документ;
КонецЕсли;
Запрос = Новый Запрос;
ТекстыЗапроса = Новый СписокЗначений;
Если Не ДопПараметры.ПолучитьТекстыЗапроса Тогда
ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры);
УчетОСВызовСервера.ПрочиеРасходы(ТекстыЗапроса, Регистры, ПрочиеРасходы(ТекстыЗапроса, Регистры));
УчетОСВызовСервера.ПартииПрочихРасходов(ТекстыЗапроса, Регистры, ПартииПрочихРасходов(ТекстыЗапроса, Регистры));
УчетОСВызовСервера.ПрочиеДоходы(ТекстыЗапроса, Регистры);
УчетОСВызовСервера.ПрочиеАктивыПассивы(ТекстыЗапроса, Регистры);
УчетОСВызовСервера.ПорядокОтраженияПрочихОпераций(ТекстыЗапроса, Регистры);
УчетОСВызовСервера.ОтражениеДокументовВРеглУчете(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПервоначальныеСведенияНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаРеестрДокументов(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаДокументыПоНМА(ТекстыЗапроса, Регистры);
КонецЕсли;
Возврат ПроведениеДокументов.ИнициализироватьДанныеДокументаДляПроведения(Запрос, ТекстыЗапроса, ДопПараметры);
КонецФункции
Процедура ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры)
ПроведениеДокументов.ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры);
ПолучитьДанныеДокумента(Запрос);
Запрос.Текст =
"ВЫБРАТЬ
| ДанныеДокумента.Ссылка КАК Ссылка,
| ДанныеДокумента.Дата КАК Период,
| ДанныеДокумента.Дата КАК Дата,
| ДанныеДокумента.Номер КАК Номер,
| ДанныеДокумента.Организация КАК Организация,
| ДанныеДокумента.Подразделение КАК Подразделение,
| ДанныеДокумента.НематериальныйАктив КАК НематериальныйАктив,
| ДанныеДокумента.СтатьяРасходов КАК СтатьяРасходов,
| ДанныеДокумента.АналитикаРасходов КАК АналитикаРасходов,
| ЕСТЬNULL(ДанныеДокумента.СтатьяРасходов.ПринятиеКналоговомуУчету, ИСТИНА) КАК ПринятиеКНалоговомуУчету,
| ДанныеДокумента.Ответственный КАК Ответственный,
| ДанныеДокумента.Комментарий КАК Комментарий,
| ДанныеДокумента.Проведен КАК Проведен,
| ДанныеДокумента.ПометкаУдаления КАК ПометкаУдаления
|ИЗ
| Документ.ПереоценкаНМА КАК ДанныеДокумента
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка";
Результат = Запрос.Выполнить();
Реквизиты = Результат.Выбрать();
Реквизиты.Следующий();
УчетОСВызовСервера.ИнициализироватьПараметрыЗапросаПриОтраженииАмортизации(Запрос, ДопПараметры);
Для Каждого Колонка Из Результат.Колонки Цикл
Запрос.УстановитьПараметр(Колонка.Имя, Реквизиты[Колонка.Имя]);
КонецЦикла;
Запрос.УстановитьПараметр("Граница", Новый Граница(НачалоМесяца(Реквизиты.Период), ВидГраницы.Исключая));
Запрос.УстановитьПараметр("КонецМесяца", Новый Граница(КонецМесяца(Реквизиты.Период), ВидГраницы.Включая));
Запрос.УстановитьПараметр("ГраницаМесяцОкончание", Новый Граница(КонецМесяца(Реквизиты.Период), ВидГраницы.Включая));
ЗначенияПараметровПроведения = ЗначенияПараметровПроведения(Реквизиты);
Для каждого КлючИЗначение Из ЗначенияПараметровПроведения Цикл
Запрос.УстановитьПараметр(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
РасчетСебестоимостиПрикладныеАлгоритмы.ЗаполнитьПараметрыИнициализации(Запрос, Реквизиты);
КонецПроцедуры
Процедура ПолучитьДанныеДокумента(Запрос)
СписокЗапросов = Новый Массив;
#Область ДанныеДокументаРеквизиты
ТекстЗапроса =
"ВЫБРАТЬ
| ДанныеДокумента.Ссылка КАК Ссылка,
| ДанныеДокумента.Дата КАК Период,
| ДанныеДокумента.Номер КАК Номер,
| ДанныеДокумента.Организация КАК Организация,
| ДанныеДокумента.Организация.ГоловнаяОрганизация КАК ГоловнаяОрганизация
|
|ПОМЕСТИТЬ ДанныеДокументаРеквизиты
|
|ИЗ
| Документ.ПереоценкаНМА КАК ДанныеДокумента
|
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| Ссылка
|";
СписокЗапросов.Добавить(ТекстЗапроса);
#КонецОбласти
#Область ДанныеДокументаТаблицаНМА
ТекстЗапроса =
"ВЫБРАТЬ
| ТаблицаДокумента.Ссылка КАК Ссылка,
| ТаблицаДокумента.НематериальныйАктив КАК НематериальныйАктив,
| ТаблицаДокумента.НематериальныйАктив КАК ОбъектУчета
|
|ПОМЕСТИТЬ ДанныеДокументаТаблицаНМА
|
|ИЗ
| Документ.ПереоценкаНМА КАК ТаблицаДокумента
|
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| Ссылка,
| НематериальныйАктив
|";
СписокЗапросов.Добавить(ТекстЗапроса);
#КонецОбласти
Запрос.Текст = СтрСоединить(СписокЗапросов, ОбщегоНазначения.РазделительПакетаЗапросов());
Запрос.Выполнить();
КонецПроцедуры
Функция ЗначенияПараметровПроведения(Реквизиты = Неопределено)
ЗначенияПараметровПроведения = Новый Структура;
ЗначенияПараметровПроведения.Вставить("ИдентификаторМетаданных", ОбщегоНазначения.ИдентификаторОбъектаМетаданных("Документ.ПереоценкаНМА"));
ЗначенияПараметровПроведения.Вставить("ХозяйственнаяОперация", Перечисления.ХозяйственныеОперации.ПереоценкаНМА);
ЗначенияПараметровПроведения.Вставить("НастройкаХозяйственнойОперации", Справочники.НастройкиХозяйственныхОпераций.ПереоценкаНМА);
Если Реквизиты <> Неопределено Тогда
ЗначенияПараметровПроведения.Вставить("НомерНаПечать", ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Реквизиты.Номер));
КонецЕсли;
Возврат ЗначенияПараметровПроведения;
КонецФункции
Процедура ВременнаяТаблицаПоДокументу(ТекстыЗапроса)
ИмяТаблицы = "втТаблицаПоДокументу";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втТаблицаПоДокументу
|"+
"ВЫБРАТЬ
| втТаблицаПоДокументу.Ссылка КАК Ссылка,
| втТаблицаПоДокументу.НематериальныйАктив КАК ОбъектУчета,
| втТаблицаПоДокументу.Организация КАК Организация,
| втТаблицаПоДокументу.Подразделение КАК Подразделение,
| втТаблицаПоДокументу.Стоимость КАК Стоимость
|ПОМЕСТИТЬ втТаблицаПоДокументу
|ИЗ
| Документ.ПереоценкаНМА КАК втТаблицаПоДокументу
|ГДЕ
| втТаблицаПоДокументу.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| втТаблицаПоДокументу.НематериальныйАктив,
| Организация,
| Подразделение";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаАмортизацияПоДокументу(ТекстыЗапроса)
ИмяТаблицы = "втАмортизацияПоДокументу";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
УчетОСВызовСервера.ВременнаяТаблицаНачисленнаяАмортизация(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втАмортизацияПоДокументу
|"+
"ВЫБРАТЬ
| втНачисленнаяАмортизация.ОбъектУчета КАК ОбъектУчета,
| СУММА(втНачисленнаяАмортизация.СуммаБУ) КАК Сумма
|ПОМЕСТИТЬ втАмортизацияПоДокументу
|ИЗ
| втНачисленнаяАмортизация КАК втНачисленнаяАмортизация
|
|СГРУППИРОВАТЬ ПО
| втНачисленнаяАмортизация.ОбъектУчета";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаСчетаУчета(ТекстыЗапроса)
ИмяТаблицы = "втСчетаУчета";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПоДокументу(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втСчетаУчета
|"+
"ВЫБРАТЬ
| втТаблицаПоДокументу.ОбъектУчета КАК ОбъектУчета,
| СчетаБухгалтерскогоУчета.СчетУчета,
| СчетаБухгалтерскогоУчета.СчетНачисленияАмортизации КАК СчетАмортизации,
| ПараметрыЦелевогоФинансирования.СчетУчета КАК СчетУчетаЦФ,
| ПараметрыЦелевогоФинансирования.СчетАмортизации КАК СчетАмортизацииЦФ,
| ЕСТЬNULL(ПараметрыЦелевогоФинансирования.ПрименениеЦелевогоФинансирования, ЛОЖЬ) КАК ПрименениеЦелевогоФинансирования
|ПОМЕСТИТЬ втСчетаУчета
|ИЗ
| втТаблицаПоДокументу КАК втТаблицаПоДокументу
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПорядокУчетаНМА.СрезПоследних(
| &Период,
| (Организация, НематериальныйАктив) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втТаблицаПоДокументу КАК Т)) КАК СчетаБухгалтерскогоУчета
| ПО втТаблицаПоДокументу.ОбъектУчета = СчетаБухгалтерскогоУчета.НематериальныйАктив
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПараметрыЦелевогоФинансированияНМА.СрезПоследних(
| &Период,
| Регистратор <> &Ссылка
| И НематериальныйАктив В
| (ВЫБРАТЬ
| Т.ОбъектУчета
| ИЗ
| втТаблицаПоДокументу КАК Т)) КАК ПараметрыЦелевогоФинансирования
| ПО втТаблицаПоДокументу.ОбъектУчета = ПараметрыЦелевогоФинансирования.НематериальныйАктив
| И (ПараметрыЦелевогоФинансирования.ПрименениеЦелевогоФинансирования)";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаСчетаУчетаСгруппированные(ТекстыЗапроса)
ИмяТаблицы = "втСчетаУчетаСгруппированные";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаСчетаУчета(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втСчетаУчетаСгруппированные
|"+
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаУчета.ОбъектУчета КАК ОбъектУчета,
| втСчетаУчета.СчетУчета КАК Счет
|ПОМЕСТИТЬ втСчетаУчетаСгруппированные
|ИЗ
| втСчетаУчета КАК втСчетаУчета
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаУчета.ОбъектУчета,
| втСчетаУчета.СчетУчетаЦФ
|ИЗ
| втСчетаУчета КАК втСчетаУчета
|ГДЕ
| втСчетаУчета.ПрименениеЦелевогоФинансирования";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаСчетаАмортизацииСгруппированные(ТекстыЗапроса)
ИмяТаблицы = "втСчетаАмортизацииСгруппированные";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаСчетаУчета(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втСчетаАмортизацииСгруппированные
|"+
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаУчета.ОбъектУчета КАК ОбъектУчета,
| втСчетаУчета.СчетАмортизации КАК Счет
|ПОМЕСТИТЬ втСчетаАмортизацииСгруппированные
|ИЗ
| втСчетаУчета КАК втСчетаУчета
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаУчета.ОбъектУчета,
| втСчетаУчета.СчетАмортизацииЦФ
|ИЗ
| втСчетаУчета КАК втСчетаУчета
|ГДЕ
| втСчетаУчета.ПрименениеЦелевогоФинансирования";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаСчетаСгруппированные(ТекстыЗапроса)
ИмяТаблицы = "втСчетаСгруппированные";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаСчетаУчетаСгруппированные(ТекстыЗапроса);
ВременнаяТаблицаСчетаАмортизацииСгруппированные(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втСчетаСгруппированные
|"+
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаУчетаСгруппированные.Счет КАК Счет
|ПОМЕСТИТЬ втСчетаСгруппированные
|ИЗ
| втСчетаУчетаСгруппированные КАК втСчетаУчетаСгруппированные
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| втСчетаАмортизацииСгруппированные.Счет
|ИЗ
| втСчетаАмортизацииСгруппированные КАК втСчетаАмортизацииСгруппированные";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаОстаткиПоСчетам(ТекстыЗапроса)
ИмяТаблицы = "втОстаткиПоСчетам";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПоДокументу(ТекстыЗапроса);
ВременнаяТаблицаСчетаСгруппированные(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втОстаткиПоСчетам
|"+
"ВЫБРАТЬ
| ХозрасчетныйОстатки.Субконто1 КАК ОбъектУчета,
| ХозрасчетныйОстатки.Счет КАК Счет,
| СУММА(ХозрасчетныйОстатки.СуммаОстаток) КАК Сумма
|ПОМЕСТИТЬ втОстаткиПоСчетам
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(
| &Период,
| Счет В
| (ВЫБРАТЬ
| Т.Счет
| ИЗ
| втСчетаСгруппированные КАК Т),
| ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.НематериальныеАктивы),
| (Организация, Подразделение, Субконто1) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.Подразделение,
| Т.ОбъектУчета
| ИЗ
| втТаблицаПоДокументу КАК Т)) КАК ХозрасчетныйОстатки
|
|СГРУППИРОВАТЬ ПО
| ХозрасчетныйОстатки.Субконто1,
| ХозрасчетныйОстатки.Счет";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаОстаткиСтоимости(ТекстыЗапроса)
ИмяТаблицы = "втОстаткиСтоимости";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПоДокументу(ТекстыЗапроса);
ВременнаяТаблицаСчетаУчетаСгруппированные(ТекстыЗапроса);
ВременнаяТаблицаСчетаАмортизацииСгруппированные(ТекстыЗапроса);
ВременнаяТаблицаОстаткиПоСчетам(ТекстыЗапроса);
Текст = "
|////////////////////////////////////////////////////////////////////////////////
|// Временная таблица втОстаткиСтоимости
|"+
"ВЫБРАТЬ
| втТаблицаПоДокументу.ОбъектУчета,
| СУММА(ЕСТЬNULL(ВосстановительнаяСтоимость.Сумма, 0) + ЕСТЬNULL(ВосстановительнаяСтоимостьЦФ.Сумма, 0)) КАК ВосстановительнаяСтоимость,
| СУММА(ЕСТЬNULL(-НакопленнаяАмортизация.Сумма, 0) + ЕСТЬNULL(-НакопленнаяАмортизацияЦФ.Сумма, 0)) КАК НакопленнаяАмортизация
|ПОМЕСТИТЬ втОстаткиСтоимости
|ИЗ
| втТаблицаПоДокументу КАК втТаблицаПоДокументу
| ЛЕВОЕ СОЕДИНЕНИЕ втСчетаУчета КАК втСчетаУчета
| ПО втТаблицаПоДокументу.ОбъектУчета = втСчетаУчета.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиПоСчетам КАК ВосстановительнаяСтоимость
| ПО втТаблицаПоДокументу.ОбъектУчета = ВосстановительнаяСтоимость.ОбъектУчета
| И (втСчетаУчета.СчетУчета = ВосстановительнаяСтоимость.Счет)
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиПоСчетам КАК НакопленнаяАмортизация
| ПО втТаблицаПоДокументу.ОбъектУчета = НакопленнаяАмортизация.ОбъектУчета
| И (втСчетаУчета.СчетАмортизации = НакопленнаяАмортизация.Счет)
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиПоСчетам КАК ВосстановительнаяСтоимостьЦФ
| ПО втТаблицаПоДокументу.ОбъектУчета = ВосстановительнаяСтоимостьЦФ.ОбъектУчета
| И (втСчетаУчета.СчетУчетаЦФ = ВосстановительнаяСтоимостьЦФ.Счет)
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиПоСчетам КАК НакопленнаяАмортизацияЦФ
| ПО втТаблицаПоДокументу.ОбъектУчета = НакопленнаяАмортизацияЦФ.ОбъектУчета
| И (втСчетаУчета.СчетАмортизацииЦФ = НакопленнаяАмортизацияЦФ.Счет)
|
|СГРУППИРОВАТЬ ПО
| втТаблицаПоДокументу.ОбъектУчета";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаПредыдущаяПереоценкаОбъектовСгруппированная(ТекстыЗапроса)
ИмяТаблицы = "втПредыдущаяПереоценкаОбъектовСгруппированная";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПоДокументу(ТекстыЗапроса);
Текст =
"////////////////////////////////////////////////////////////////////////////////////////////////////
|//Временная таблица втПредыдущаяПереоценкаОбъектовСгруппированная
|"+
"ВЫБРАТЬ
| втТаблицаПоДокументу.ОбъектУчета КАК ОбъектУчета,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0)) КАК СуммаДооценки,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотКт, 0)) КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаОбъектовСгруппированная
|ИЗ
| втТаблицаПоДокументу КАК втТаблицаПоДокументу
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(
| ,
| &ГраницаМесяцОкончание,
| Регистратор,
| Счет В
| (ВЫБРАТЬ
| Т.СчетУчета
| ИЗ
| РегистрСведений.ПорядокУчетаНМА КАК Т
| ГДЕ
| Т.СчетУчета <> ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка)),
| ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.НематериальныеАктивы),
| (Организация, Субконто1) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втТаблицаПоДокументу КАК Т),
| ,
| ) КАК ХозрасчетныйОбороты
| ПО втТаблицаПоДокументу.ОбъектУчета = ХозрасчетныйОбороты.Субконто1
| И втТаблицаПоДокументу.Организация = ХозрасчетныйОбороты.Организация
| И (ХозрасчетныйОбороты.Регистратор ССЫЛКА Документ.ПереоценкаНМА)
| И (ХозрасчетныйОбороты.Регистратор <> &Ссылка)
|
|СГРУППИРОВАТЬ ПО
| втТаблицаПоДокументу.ОбъектУчета
|
|ИНДЕКСИРОВАТЬ ПО
| ОбъектУчета";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаПредыдущаяПереоценкаОбъектов(ТекстыЗапроса)
ИмяТаблицы = "втПредыдущаяПереоценкаОбъектов";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПредыдущаяПереоценкаОбъектовСгруппированная(ТекстыЗапроса);
Текст =
"////////////////////////////////////////////////////////////////////////////////////////////////////
|//Временная таблица втПредыдущаяПереоценкаОбъектов
|"+
"ВЫБРАТЬ
| втПредыдущаяПереоценкаОбъектовСгруппированная.ОбъектУчета,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаДооценки > втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаУценки
| ТОГДА втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаДооценки - втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаУценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаДооценки,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаУценки > втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаДооценки
| ТОГДА втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаУценки - втПредыдущаяПереоценкаОбъектовСгруппированная.СуммаДооценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаОбъектов
|ИЗ
| втПредыдущаяПереоценкаОбъектовСгруппированная КАК втПредыдущаяПереоценкаОбъектовСгруппированная";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ВременнаяТаблицаДанныеДляПроведения(ТекстыЗапроса)
ИмяТаблицы = "втДанныеДляПроведения";
Если ПроведениеДокументов.ЕстьТаблицаЗапроса(ИмяТаблицы, ТекстыЗапроса) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаПоДокументу(ТекстыЗапроса);
ВременнаяТаблицаОстаткиСтоимости(ТекстыЗапроса);
ВременнаяТаблицаАмортизацияПоДокументу(ТекстыЗапроса);
ВременнаяТаблицаПредыдущаяПереоценкаОбъектов(ТекстыЗапроса);
ВнеоборотныеАктивыСлужебный.ТекстЗапросаТаблицаВтПорядокУчетаНМА(ТекстыЗапроса);
Текст =
"ВЫБРАТЬ
| втТаблицаПоДокументу.Ссылка,
| втТаблицаПоДокументу.ОбъектУчета,
| втТаблицаПоДокументу.Организация КАК Организация,
| втТаблицаПоДокументу.Подразделение КАК Подразделение,
| втПорядокУчетаНМА.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЕСТЬNULL(втОстаткиСтоимости.ВосстановительнаяСтоимость, 0) КАК ВосстановительнаяСтоимость,
| ЕСТЬNULL(втОстаткиСтоимости.НакопленнаяАмортизация, 0) + ЕСТЬNULL(втАмортизацияПоДокументу.Сумма, 0) КАК НакопленнаяАмортизация,
| втТаблицаПоДокументу.Стоимость КАК НоваяСтоимость,
| ВЫБОР
| КОГДА втОстаткиСтоимости.ОбъектУчета ЕСТЬ NULL
| ИЛИ втТаблицаПоДокументу.Стоимость < втОстаткиСтоимости.ВосстановительнаяСтоимость
| ТОГДА 0
| ИНАЧЕ втТаблицаПоДокументу.Стоимость -втОстаткиСтоимости.ВосстановительнаяСтоимость
| КОНЕЦ КАК СуммаДооценки,
| ВЫБОР
| КОГДА втОстаткиСтоимости.ОбъектУчета ЕСТЬ NULL
| ИЛИ втОстаткиСтоимости.ВосстановительнаяСтоимость < втТаблицаПоДокументу.Стоимость
| ТОГДА 0
| ИНАЧЕ втОстаткиСтоимости.ВосстановительнаяСтоимость - втТаблицаПоДокументу.Стоимость
| КОНЕЦ КАК СуммаУценки,
| ЕСТЬNULL(втПредыдущаяПереоценкаОбъектов.СуммаДооценки, 0) КАК СуммаПрошлойДооценки,
| ЕСТЬNULL(втПредыдущаяПереоценкаОбъектов.СуммаУценки, 0) КАК СуммаПрошлойУценки
|ПОМЕСТИТЬ втДанныеДляПроведения
|ИЗ
| втТаблицаПоДокументу КАК втТаблицаПоДокументу
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиСтоимости КАК втОстаткиСтоимости
| ПО втТаблицаПоДокументу.ОбъектУчета = втОстаткиСтоимости.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втАмортизацияПоДокументу КАК втАмортизацияПоДокументу
| ПО втТаблицаПоДокументу.ОбъектУчета = втАмортизацияПоДокументу.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втПредыдущаяПереоценкаОбъектов КАК втПредыдущаяПереоценкаОбъектов
| ПО втТаблицаПоДокументу.ОбъектУчета = втПредыдущаяПереоценкаОбъектов.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втПорядокУчетаНМА КАК втПорядокУчетаНМА
| ПО втТаблицаПоДокументу.ОбъектУчета = втПорядокУчетаНМА.НематериальныйАктив";
ТекстыЗапроса.Добавить(Текст, ИмяТаблицы);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПервоначальныеСведенияНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПервоначальныеСведенияНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ВременнаяТаблицаДанныеДляПроведения(ТекстыЗапроса);
ВнеоборотныеАктивыСлужебный.ТекстЗапросаТаблицаВтПервоначальныеСведенияНМА(ТекстыЗапроса);
Текст =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
|
| втДанныеДляПроведения.ОбъектУчета КАК НематериальныйАктив,
|
| &Организация КАК Организация,
| втПервоначальныеСведенияНМА.СпособПоступления КАК СпособПоступления,
| втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьУУ КАК ПервоначальнаяСтоимостьУУ,
|
| втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьБУ
| + втДанныеДляПроведения.СуммаДооценки
| - втДанныеДляПроведения.СуммаУценки КАК ПервоначальнаяСтоимостьБУ,
|
| втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьНУ КАК ПервоначальнаяСтоимостьНУ,
| втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьПР КАК ПервоначальнаяСтоимостьПР,
| втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьВР КАК ПервоначальнаяСтоимостьВР,
| втПервоначальныеСведенияНМА.МетодНачисленияАмортизацииБУ КАК МетодНачисленияАмортизацииБУ,
| втПервоначальныеСведенияНМА.МетодНачисленияАмортизацииНУ КАК МетодНачисленияАмортизацииНУ,
| втПервоначальныеСведенияНМА.АмортизацияДо2002 КАК АмортизацияДо2002,
| втПервоначальныеСведенияНМА.АмортизацияДо2009 КАК АмортизацияДо2009,
| втПервоначальныеСведенияНМА.СтоимостьДо2002 КАК СтоимостьДо2002,
| втПервоначальныеСведенияНМА.ФактическийСрокИспользованияДо2009 КАК ФактическийСрокИспользованияДо2009,
| втПервоначальныеСведенияНМА.ДатаПриобретения КАК ДатаПриобретения,
| втПервоначальныеСведенияНМА.ДатаПринятияКУчетуУУ КАК ДатаПринятияКУчетуУУ,
| втПервоначальныеСведенияНМА.ДатаПринятияКУчетуБУ КАК ДатаПринятияКУчетуБУ,
| втПервоначальныеСведенияНМА.ДатаПринятияКУчетуНУ КАК ДатаПринятияКУчетуНУ,
| втПервоначальныеСведенияНМА.ДокументПринятияКУчетуУУ КАК ДокументПринятияКУчетуУУ,
| втПервоначальныеСведенияНМА.ДокументПринятияКУчетуБУ КАК ДокументПринятияКУчетуБУ,
| втПервоначальныеСведенияНМА.ДокументПринятияКУчетуНУ КАК ДокументПринятияКУчетуНУ,
| втПервоначальныеСведенияНМА.ДокументСписания КАК ДокументСписания,
| втПервоначальныеСведенияНМА.ПорядокУчетаНУ КАК ПорядокУчетаНУ
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
| ЛЕВОЕ СОЕДИНЕНИЕ втПервоначальныеСведенияНМА КАК втПервоначальныеСведенияНМА
| ПО втПервоначальныеСведенияНМА.НематериальныйАктив = втДанныеДляПроведения.ОбъектУчета";
ТекстыЗапроса.Добавить(Текст, ИмяРегистра);
КонецПроцедуры
Функция ПрочиеРасходы(ТекстыЗапроса, Регистры)
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений("ПрочиеРасходы", Регистры) Тогда
Возврат "";
КонецЕсли;
ВременнаяТаблицаДанныеДляПроведения(ТекстыЗапроса);
Возврат
"ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК СуммаСНДС,
| 0 КАК СуммаБезНДС,
| 0 КАК СуммаБезНДСУпр,
| втДанныеДляПроведения.СуммаУценки - втДанныеДляПроведения.СуммаПрошлойДооценки КАК СуммаСНДСРегл,
| втДанныеДляПроведения.СуммаУценки - втДанныеДляПроведения.СуммаПрошлойДооценки КАК СуммаБезНДСРегл,
| втДанныеДляПроведения.СуммаУценки - втДанныеДляПроведения.СуммаПрошлойДооценки КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
|
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаУценки > втДанныеДляПроведения.СуммаПрошлойДооценки
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК СуммаСНДС,
| 0 КАК СуммаБезНДС,
| 0 КАК СуммаБезНДСУпр,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ втДанныеДляПроведения.НакопленнаяАмортизация * (втДанныеДляПроведения.СуммаДооценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СуммаСНДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ втДанныеДляПроведения.НакопленнаяАмортизация * (втДанныеДляПроведения.СуммаДооценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СуммаБезНДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ втДанныеДляПроведения.НакопленнаяАмортизация * (втДанныеДляПроведения.СуммаДооценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
|
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаПрошлойУценки > 0
| И втДанныеДляПроведения.СуммаДооценки < втДанныеДляПроведения.СуммаПрошлойУценки
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК СуммаСНДС,
| 0 КАК СуммаБезНДС,
| 0 КАК СуммаБезНДСУпр,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * (втДанныеДляПроведения.СуммаПрошлойУценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СуммаСНДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * (втДанныеДляПроведения.СуммаПрошлойУценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СуммаБезНДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * (втДанныеДляПроведения.СуммаПрошлойУценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
|
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаПрошлойУценки > 0
| И втДанныеДляПроведения.СуммаДооценки >= втДанныеДляПроведения.СуммаПрошлойУценки
|";
КонецФункции
Функция ПартииПрочихРасходов(ТекстыЗапроса, Регистры)
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений("ПартииПрочихРасходов", Регистры) Тогда
Возврат "";
КонецЕсли;
ВременнаяТаблицаДанныеДляПроведения(ТекстыЗапроса);
Возврат
"ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| НЕОПРЕДЕЛЕНО КАК АналитикаАктивовПассивов,
| &Ссылка КАК ДокументПоступленияРасходов,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаПартий.ПустаяСсылка) КАК АналитикаУчетаПартий,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК Сумма,
| 0 КАК СуммаБезНДС,
| 0 КАК НДСУпр,
| втДанныеДляПроведения.СуммаУценки - втДанныеДляПроведения.СуммаПрошлойДооценки КАК СтоимостьРегл,
| 0 КАК НДСРегл,
| втДанныеДляПроведения.СуммаУценки - втДанныеДляПроведения.СуммаПрошлойДооценки КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаУценки > втДанныеДляПроведения.СуммаПрошлойДооценки
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| НЕОПРЕДЕЛЕНО КАК АналитикаАктивовПассивов,
| &Ссылка КАК ДокументПоступленияРасходов,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаПартий.ПустаяСсылка) КАК АналитикаУчетаПартий,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК Сумма,
| 0 КАК СуммаБезНДС,
| 0 КАК НДСУпр,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * (втДанныеДляПроведения.СуммаДооценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СтоимостьРегл,
| 0 КАК НДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * (втДанныеДляПроведения.СуммаДооценки/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаПрошлойУценки > 0
| И втДанныеДляПроведения.СуммаДооценки < втДанныеДляПроведения.СуммаПрошлойУценки
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Дата КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &СтатьяРасходов КАК СтатьяРасходов,
| &АналитикаРасходов КАК АналитикаРасходов,
| НЕОПРЕДЕЛЕНО КАК АналитикаАктивовПассивов,
| &Ссылка КАК ДокументПоступленияРасходов,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаПартий.ПустаяСсылка) КАК АналитикаУчетаПартий,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЗНАЧЕНИЕ(Справочник.КлючиАналитикиУчетаНоменклатуры.ПустаяСсылка) КАК АналитикаУчетаНоменклатуры,
| НЕОПРЕДЕЛЕНО КАК ВидДеятельностиНДС,
|
| 0 КАК Сумма,
| 0 КАК СуммаБезНДС,
| 0 КАК НДСУпр,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * ((втДанныеДляПроведения.СуммаПрошлойУценки)/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК СтоимостьРегл,
| 0 КАК НДСРегл,
| ВЫБОР КОГДА втДанныеДляПроведения.ВосстановительнаяСтоимость = 0
| ТОГДА 0
| ИНАЧЕ (втДанныеДляПроведения.НакопленнаяАмортизация) * ((втДанныеДляПроведения.СуммаПрошлойУценки)/втДанныеДляПроведения.ВосстановительнаяСтоимость)
| КОНЕЦ КАК ПостояннаяРазница,
| 0 КАК ВременнаяРазница,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ПустаяСсылка) КАК ХозяйственнаяОперация,
|
| """" КАК ИдентификаторФинЗаписи,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценки > 0
| И втДанныеДляПроведения.ВосстановительнаяСтоимость > 0
| И втДанныеДляПроведения.СуммаПрошлойУценки > 0
| И втДанныеДляПроведения.СуммаДооценки >= втДанныеДляПроведения.СуммаПрошлойУценки
|";
КонецФункции
Функция ТекстЗапросаТаблицаРеестрДокументов(ТекстыЗапроса, Регистры)
ИмяРегистра = "РеестрДокументов";
Если НЕ ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Ссылка,
| &Период КАК ДатаДокументаИБ,
| &Номер КАК НомерДокументаИБ,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &Организация КАК Организация,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &Подразделение КАК Подразделение,
| &Ответственный КАК Ответственный,
| &Комментарий КАК Комментарий,
| &Проведен КАК Проведен,
| &ПометкаУдаления КАК ПометкаУдаления,
| ЛОЖЬ КАК ДополнительнаяЗапись,
| &Период КАК ДатаПервичногоДокумента,
| &НомерНаПечать КАК НомерПервичногоДокумента,
| ЛОЖЬ КАК СторноИсправление,
| НЕОПРЕДЕЛЕНО КАК СторнируемыйДокумент,
| НЕОПРЕДЕЛЕНО КАК ИсправляемыйДокумент,
| &Период КАК ДатаОтраженияВУчете,
| НЕОПРЕДЕЛЕНО КАК Приоритет";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаДокументыПоНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "ДокументыПоНМА";
Если НЕ ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| 0 КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| &Подразделение КАК Подразделение,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &Проведен КАК Проведен,
| &Проведен КАК ОтражатьВРеглУчете,
| ЛОЖЬ КАК ОтражатьВУпрУчете,
| &НематериальныйАктив КАК НематериальныйАктив";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
#КонецОбласти
#Область ПроведениеРегламентированныйУчет
Функция ТекстЗапросаВТОтраженияВРеглУчете() Экспорт
ТекстыВременныхТаблиц = Новый Массив;
ТекстыВременныхТаблиц.Добавить(УчетНМА.ТекстЗапросаВТОтраженияВРеглУчетеНачисленнойАмортизации("ПереоценкаНМА"));
ТекстыВременныхТаблиц.Добавить(УчетНМА.ТекстЗапросаВТОтраженияВРеглУчетеОстаткиПоСчетам());
ТекстыВременныхТаблиц.Добавить(ВТДанныеДокумента());
ТекстыВременныхТаблиц.Добавить(ВТПредыдущаяПереоценкаОбъектов());
ТекстыВременныхТаблиц.Добавить(ВТДанныеДляПроведения());
ТекстыВременныхТаблиц.Добавить(Символы.ПС);
Возврат СтрСоединить(ТекстыВременныхТаблиц, ОбщегоНазначения.РазделительПакетаЗапросов());
КонецФункции
Функция ВТДанныеДокумента()
Возврат
"////////////////////////////////////////////////////////////////////////////////////////////////////
|//Временная таблица втТаблицаОбъектов
|"+
"ВЫБРАТЬ
| Операция.Ссылка КАК Ссылка,
| Операция.Дата КАК Дата,
| Операция.Организация КАК Организация,
| Операция.Подразделение КАК Подразделение,
| Операция.НематериальныйАктив КАК ОбъектУчета,
| Операция.Стоимость КАК Стоимость,
| Операция.СчетДооценки,
| Операция.СтатьяДоходов,
| Операция.АналитикаДоходов,
| Операция.СтатьяРасходов,
| Операция.АналитикаРасходов
|ПОМЕСТИТЬ втДанныеДокумента
|ИЗ
| Документ.ПереоценкаНМА КАК Операция
|ГДЕ
| Операция.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| ОбъектУчета";
КонецФункции
Функция ВТПредыдущаяПереоценкаОбъектов()
Возврат
"////////////////////////////////////////////////////////////////////////////////////////////////////
|//Временная таблица втПредыдущаяПереоценкаОбъектов
|"+
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПорядокУчетаНМА.СчетУчета КАК Счет
|ПОМЕСТИТЬ втВсеСчетаУчетаСтоимости
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПорядокУчетаНМА КАК ПорядокУчетаНМА
| ПО втОбъектыДокумента.ОбъектУчета = ПорядокУчетаНМА.НематериальныйАктив
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПараметрыЦелевогоФинансирования.СчетУчета
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПараметрыЦелевогоФинансированияНМА КАК ПараметрыЦелевогоФинансирования
| ПО втОбъектыДокумента.ОбъектУчета = ПараметрыЦелевогоФинансирования.НематериальныйАктив
| И (ПараметрыЦелевогоФинансирования.ПрименениеЦелевогоФинансирования)
|;
|
|
|ВЫБРАТЬ
| втОбъектыДокумента.ОбъектУчета КАК ОбъектУчета,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0)) КАК СуммаДооценки,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотКт, 0)) КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаСтоимостиДанные
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(
| ,
| &ГраницаМесяцОкончание,
| Регистратор,
| Счет В
| (ВЫБРАТЬ
| Т.Счет
| ИЗ
| втВсеСчетаУчетаСтоимости КАК Т),
| ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.НематериальныеАктивы),
| (Организация, Субконто1) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втОбъектыДокумента КАК Т),
| ,
| ) КАК ХозрасчетныйОбороты
| ПО втОбъектыДокумента.ОбъектУчета = ХозрасчетныйОбороты.Субконто1
| И втОбъектыДокумента.Организация = ХозрасчетныйОбороты.Организация
| И (ХозрасчетныйОбороты.Регистратор ССЫЛКА Документ.ПереоценкаНМА)
| И (ХозрасчетныйОбороты.Регистратор <> &Ссылка)
|
|СГРУППИРОВАТЬ ПО
| втОбъектыДокумента.ОбъектУчета
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| втОбъектыДокумента.ОбъектУчета,
| ВЫБОР
| КОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиСтоимости, 0) > 0
| ТОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиСтоимости, 0)
| ИНАЧЕ 0
| КОНЕЦ,
| ВЫБОР
| КОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиСтоимости, 0) < 0
| ТОГДА -ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиСтоимости, 0)
| ИНАЧЕ 0
| КОНЕЦ
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПервоначальныеСведенияНМА.СрезПоследних(
| &ГраницаМесяцНачало,
| (Организация, НематериальныйАктив) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втОбъектыДокумента КАК Т)) КАК ПервоначальныеСведения
| ПО втОбъектыДокумента.ОбъектУчета = ПервоначальныеСведения.НематериальныйАктив
|ГДЕ
| ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиСтоимости, 0) <> 0
|
|ИНДЕКСИРОВАТЬ ПО
| ОбъектУчета
|;
|
|
|ВЫБРАТЬ
| втПредыдущаяПереоценкаСтоимостиДанные.ОбъектУчета КАК ОбъектУчета,
| СУММА(втПредыдущаяПереоценкаСтоимостиДанные.СуммаДооценки) КАК СуммаДооценки,
| СУММА(втПредыдущаяПереоценкаСтоимостиДанные.СуммаУценки) КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаСтоимостиСгруппированная
|ИЗ
| втПредыдущаяПереоценкаСтоимостиДанные КАК втПредыдущаяПереоценкаСтоимостиДанные
|
|СГРУППИРОВАТЬ ПО
| втПредыдущаяПереоценкаСтоимостиДанные.ОбъектУчета
|;
|
|
|ВЫБРАТЬ
| втПредыдущаяПереоценкаСтоимостиСгруппированная.ОбъектУчета,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаДооценки > втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаУценки
| ТОГДА втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаДооценки - втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаУценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаДооценки,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаУценки > втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаДооценки
| ТОГДА втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаУценки - втПредыдущаяПереоценкаСтоимостиСгруппированная.СуммаДооценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаСтоимости
|ИЗ
| втПредыдущаяПереоценкаСтоимостиСгруппированная КАК втПредыдущаяПереоценкаСтоимостиСгруппированная
|;
|
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПорядокУчетаНМА.СчетНачисленияАмортизации КАК Счет
|ПОМЕСТИТЬ втВсеСчетаУчетаАмортизации
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПорядокУчетаНМА КАК ПорядокУчетаНМА
| ПО втОбъектыДокумента.ОбъектУчета = ПорядокУчетаНМА.НематериальныйАктив
| И ПорядокУчетаНМА.СчетНачисленияАмортизации <> ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПараметрыЦелевогоФинансированияНМА.СчетАмортизации
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПараметрыЦелевогоФинансированияНМА КАК ПараметрыЦелевогоФинансированияНМА
| ПО втОбъектыДокумента.ОбъектУчета = ПараметрыЦелевогоФинансированияНМА.НематериальныйАктив
| И (ПараметрыЦелевогоФинансированияНМА.ПрименениеЦелевогоФинансирования)
|;
|
|
|ВЫБРАТЬ
| втОбъектыДокумента.ОбъектУчета КАК ОбъектУчета,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотКт, 0)) КАК СуммаДооценки,
| 0 КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаАмортизацииДанные
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(
| ,
| &ГраницаМесяцОкончание,
| Регистратор,
| Счет В
| (ВЫБРАТЬ
| Т.Счет
| ИЗ
| втВсеСчетаУчетаАмортизации КАК Т),
| ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.НематериальныеАктивы),
| (Организация, Субконто1) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втОбъектыДокумента КАК Т),
| КорСчет В ИЕРАРХИИ (ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПриростСтоимостиПоПереоценке)),
| ) КАК ХозрасчетныйОбороты
| ПО втОбъектыДокумента.ОбъектУчета = ХозрасчетныйОбороты.Субконто1
| И втОбъектыДокумента.Организация = ХозрасчетныйОбороты.Организация
| И (ХозрасчетныйОбороты.Регистратор ССЫЛКА Документ.ПереоценкаНМА)
| И (ХозрасчетныйОбороты.Регистратор <> &Ссылка)
|
|СГРУППИРОВАТЬ ПО
| втОбъектыДокумента.ОбъектУчета
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| втОбъектыДокумента.ОбъектУчета,
| 0,
| СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0))
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(
| ,
| &ГраницаМесяцОкончание,
| Регистратор,
| Счет В
| (ВЫБРАТЬ
| Т.Счет
| ИЗ
| втВсеСчетаУчетаАмортизации КАК Т),
| ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.НематериальныеАктивы),
| (Организация, Субконто1) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втОбъектыДокумента КАК Т),
| ,
| ) КАК ХозрасчетныйОбороты
| ПО втОбъектыДокумента.ОбъектУчета = ХозрасчетныйОбороты.Субконто1
| И втОбъектыДокумента.Организация = ХозрасчетныйОбороты.Организация
| И (ХозрасчетныйОбороты.Регистратор ССЫЛКА Документ.ПереоценкаНМА)
| И (ХозрасчетныйОбороты.Регистратор <> &Ссылка)
| И (ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0) > 0)
|
|СГРУППИРОВАТЬ ПО
| втОбъектыДокумента.ОбъектУчета
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| втОбъектыДокумента.ОбъектУчета,
| ВЫБОР
| КОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиАмортизации, 0) > 0
| ТОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиАмортизации, 0)
| ИНАЧЕ 0
| КОНЕЦ,
| ВЫБОР
| КОГДА ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиАмортизации, 0) < 0
| ТОГДА -ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиАмортизации, 0)
| ИНАЧЕ 0
| КОНЕЦ
|ИЗ
| втОбъектыДокумента КАК втОбъектыДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПервоначальныеСведенияНМА.СрезПоследних(
| &ГраницаМесяцНачало,
| (Организация, НематериальныйАктив) В
| (ВЫБРАТЬ
| Т.Организация,
| Т.ОбъектУчета
| ИЗ
| втОбъектыДокумента КАК Т)) КАК ПервоначальныеСведения
| ПО втОбъектыДокумента.ОбъектУчета = ПервоначальныеСведения.НематериальныйАктив
|ГДЕ
| ЕСТЬNULL(ПервоначальныеСведения.РезервПереоценкиАмортизации, 0) <> 0
|
|ИНДЕКСИРОВАТЬ ПО
| ОбъектУчета
|;
|
|
|ВЫБРАТЬ
| втПредыдущаяПереоценкаАмортизацииДанные.ОбъектУчета КАК ОбъектУчета,
| СУММА(втПредыдущаяПереоценкаАмортизацииДанные.СуммаДооценки) КАК СуммаДооценки,
| СУММА(втПредыдущаяПереоценкаАмортизацииДанные.СуммаУценки) КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаАмортизацииСгруппированная
|ИЗ
| втПредыдущаяПереоценкаАмортизацииДанные КАК втПредыдущаяПереоценкаАмортизацииДанные
|
|СГРУППИРОВАТЬ ПО
| втПредыдущаяПереоценкаАмортизацииДанные.ОбъектУчета
|;
|
|
|ВЫБРАТЬ
| втПредыдущаяПереоценкаАмортизацииСгруппированная.ОбъектУчета,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаДооценки > втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаУценки
| ТОГДА втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаДооценки - втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаУценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаДооценки,
| ВЫБОР
| КОГДА втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаУценки > втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаДооценки
| ТОГДА втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаУценки - втПредыдущаяПереоценкаАмортизацииСгруппированная.СуммаДооценки
| ИНАЧЕ 0
| КОНЕЦ КАК СуммаУценки
|ПОМЕСТИТЬ втПредыдущаяПереоценкаАмортизации
|ИЗ
| втПредыдущаяПереоценкаАмортизацииСгруппированная КАК втПредыдущаяПереоценкаАмортизацииСгруппированная";
КонецФункции
Функция ВТДанныеДляПроведения()
Возврат
"////////////////////////////////////////////////////////////////////////////////////////////////////
|//Временная таблица втДанныеДляПроведения
|"+
"ВЫБРАТЬ
| втДанныеДокумента.Ссылка КАК Ссылка,
| втДанныеДокумента.Дата КАК Дата,
| втДанныеДокумента.ОбъектУчета,
| втДанныеДокумента.Организация КАК Организация,
| втДанныеДокумента.Подразделение КАК Подразделение,
| втДанныеДокумента.СчетДооценки КАК СчетДооценки,
| втДанныеДокумента.СтатьяДоходов КАК СтатьяДоходов,
| втДанныеДокумента.АналитикаДоходов КАК АналитикаДоходов,
| втДанныеДокумента.СтатьяРасходов КАК СтатьяРасходов,
| втДанныеДокумента.АналитикаРасходов КАК АналитикаРасходов,
| втСчетаОтражения.СчетУчета КАК СчетУчета,
| втСчетаОтражения.СчетНачисленияАмортизации КАК СчетАмортизации,
| втСчетаОтражения.СчетУчетаЦФ КАК СчетУчетаЦФ,
| втСчетаОтражения.СчетНачисленияАмортизацииЦФ КАК СчетАмортизацииЦФ,
| втСчетаОтражения.ПрименениеЦелевогоФинансирования КАК ПрименениеЦелевогоФинансирования,
| втСчетаОтражения.СтатьяДоходов КАК СтатьяДоходовЦФ,
| втСчетаОтражения.АналитикаДоходов КАК АналитикаДоходовЦФ,
| втПорядокУчетаНМА.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЕСТЬNULL(втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ, 0) КАК ВосстановительнаяСтоимость,
| ЕСТЬNULL(втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ, 0) КАК ВосстановительнаяСтоимостьСобственныхСредств,
| ЕСТЬNULL(втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ, 0) КАК ВосстановительнаяСтоимостьЦелевыхСредств,
| ЕСТЬNULL(втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ, 0) КАК НакопленнаяАмортизация,
| ЕСТЬNULL(втОстаткиПоСчетам.НакопленнаяАмортизацияБУ, 0) КАК НакопленнаяАмортизацияСобственныхСредств,
| ЕСТЬNULL(втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ, 0) КАК НакопленнаяАмортизацияЦелевыхСредств,
| втДанныеДокумента.Стоимость КАК НоваяСтоимость,
| ВЫБОР
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втДанныеДокумента.Стоимость < втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ
| ТОГДА 0
| ИНАЧЕ втДанныеДокумента.Стоимость - (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ)
| КОНЕЦ КАК СуммаДооценкиСтоимости,
| ВЫБОР
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ < втДанныеДокумента.Стоимость
| ТОГДА 0
| ИНАЧЕ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ - втДанныеДокумента.Стоимость
| КОНЕЦ КАК СуммаУценкиСтоимости,
| ВЫБОР
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втДанныеДокумента.Стоимость < втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ
| ИЛИ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ = 0
| ТОГДА 0
| ИНАЧЕ - (втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ) + ВЫРАЗИТЬ((втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ)*(втДанныеДокумента.Стоимость / (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ)) КАК ЧИСЛО(31,2))
| КОНЕЦ КАК СуммаДооценкиАмортизации,
| ВЫБОР
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ < втДанныеДокумента.Стоимость
| ИЛИ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ = 0
| ТОГДА 0
| ИНАЧЕ (втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ) - ВЫРАЗИТЬ((втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ)*(втДанныеДокумента.Стоимость / (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ)) КАК ЧИСЛО(31,2))
| КОНЕЦ КАК СуммаУценкиАмортизации,
| ВЫБОР
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ < втДанныеДокумента.Стоимость
| ТОГДА 0
| ИНАЧЕ втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ - втДанныеДокумента.Стоимость
| КОНЕЦ КАК СуммаУценкиСтоимостиЦелевыхСредств,
| ВЫБОР
| КОГДА (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ) = 0
| ТОГДА 0
| КОГДА втОстаткиПоСчетам.ОбъектУчета ЕСТЬ NULL
| ИЛИ втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ < ВЫРАЗИТЬ((втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ)*(втДанныеДокумента.Стоимость / (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ)) КАК ЧИСЛО(31,2))
| ТОГДА 0
| ИНАЧЕ втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ - ВЫРАЗИТЬ((втОстаткиПоСчетам.НакопленнаяАмортизацияБУ + втОстаткиПоСчетам.НакопленнаяАмортизацияБУЦФ)*(втДанныеДокумента.Стоимость / (втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУ + втОстаткиПоСчетам.ВосстановительнаяСтоимостьБУЦФ)) КАК ЧИСЛО(31,2))
| КОНЕЦ КАК СуммаУценкиАмортизацииЦелевыхСредств,
| ЕСТЬNULL(втПредыдущаяПереоценкаСтоимости.СуммаДооценки, 0) КАК СуммаПрошлойДооценкиСтоимости,
| ЕСТЬNULL(втПредыдущаяПереоценкаСтоимости.СуммаУценки, 0) КАК СуммаПрошлойУценкиСтоимости,
| ЕСТЬNULL(втПредыдущаяПереоценкаАмортизации.СуммаДооценки, 0) КАК СуммаПрошлойДооценкиАмортизации,
| ЕСТЬNULL(втПредыдущаяПереоценкаАмортизации.СуммаУценки, 0) КАК СуммаПрошлойУценкиАмортизации
|ПОМЕСТИТЬ втДанныеДляПроведения
|ИЗ
| втДанныеДокумента КАК втДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ втСчетаОтражения КАК втСчетаОтражения
| ПО втДанныеДокумента.ОбъектУчета = втСчетаОтражения.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втОстаткиПоСчетам КАК втОстаткиПоСчетам
| ПО втДанныеДокумента.ОбъектУчета = втОстаткиПоСчетам.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втПредыдущаяПереоценкаСтоимости КАК втПредыдущаяПереоценкаСтоимости
| ПО втДанныеДокумента.ОбъектУчета = втПредыдущаяПереоценкаСтоимости.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втПредыдущаяПереоценкаАмортизации КАК втПредыдущаяПереоценкаАмортизации
| ПО втДанныеДокумента.ОбъектУчета = втПредыдущаяПереоценкаАмортизации.ОбъектУчета
| ЛЕВОЕ СОЕДИНЕНИЕ втПорядокУчетаНМА КАК втПорядокУчетаНМА
| ПО втДанныеДокумента.ОбъектУчета = втПорядокУчетаНМА.ОбъектУчета";
КонецФункции
Функция ТекстОтраженияВРеглУчете() Экспорт
ТекстыОтражения = Новый Массив;
ТекстыОтражения.Добавить(УчетНМА.ТекстОтраженияВРеглУчетеНачисленнойАмортизации());
ТекстыОтражения.Добавить(ДооценкаВосстановительнойСтоимости());
ТекстыОтражения.Добавить(ДооценкаВосстановительнойСтоимостиИзДолиУценки());
ТекстыОтражения.Добавить(ДооценкаВосстановительнойСтоимостиИзУценки());
ТекстыОтражения.Добавить(ДооценкаНакопленнойАмортизации());
ТекстыОтражения.Добавить(ДооценкаНакопленнойАмортизацииИзДолиУценки());
ТекстыОтражения.Добавить(ДооценкаНакопленнойАмортизацииИзУценки());
ТекстыОтражения.Добавить(УценкаВосстановительнойСтоимости());
ТекстыОтражения.Добавить(УценкаВосстановительнойСтоимостиЦФ());
ТекстыОтражения.Добавить(УценкаВосстановительнойСтоимостиИзДолиДооценки());
ТекстыОтражения.Добавить(УценкаВосстановительнойСтоимостиИзДооценки());
ТекстыОтражения.Добавить(УценкаНакопленнойАмортизации());
ТекстыОтражения.Добавить(УценкаНакопленнойАмортизацииЦФ());
ТекстыОтражения.Добавить(УценкаНакопленнойАмортизацииИзДолиДооценки());
ТекстыОтражения.Добавить(УценкаНакопленнойАмортизацииИзДооценки());
ТекстыОтражения.Добавить(ПризнаниеДоходовОтЦелевогоФинансирования());
Возврат СтрСоединить(ТекстыОтражения, ОбщегоНазначенияУТ.РазделительЗапросовВОбъединении());
КонецФункции
Функция ДооценкаВосстановительнойСтоимости()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка восстановительной стоимости (Дт СчетУчета :: Кт СчетДооценки)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаДооценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаДооценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаДооценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка восстановительной стоимости"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаДооценкиСтоимости > втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости
|";
КонецФункции
Функция ДооценкаВосстановительнойСтоимостиИзДолиУценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка восстановительной стоимости из уценки (Дт СчетУчета :: Кт 91.01)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаДооценкиСтоимости КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаДооценкиСтоимости КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Доходы) КАК ВидСчетаКт,
| втДанныеДляПроведения.СтатьяДоходов КАК АналитикаУчетаКт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| НЕОПРЕДЕЛЕНО КАК СчетКт,
| втДанныеДляПроведения.СтатьяДоходов КАК СубконтоКт1,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт2,
| втДанныеДляПроведения.АналитикаДоходов КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаДооценкиСтоимости КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка восстановительной стоимости из предыдущей уценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаДооценкиСтоимости < втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости
|";
КонецФункции
Функция ДооценкаВосстановительнойСтоимостиИзУценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка восстановительной стоимости из предыдущей уценки (Дт СчетУчета :: Кт 91.01)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Доходы) КАК ВидСчетаКт,
| втДанныеДляПроведения.СтатьяДоходов КАК АналитикаУчетаКт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| НЕОПРЕДЕЛЕНО КАК СчетКт,
| втДанныеДляПроведения.СтатьяДоходов КАК СубконтоКт1,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт2,
| втДанныеДляПроведения.АналитикаДоходов КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка восстановительной стоимости из предыдущей уценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаДооценкиСтоимости >= втДанныеДляПроведения.СуммаПрошлойУценкиСтоимости
|";
КонецФункции
Функция ДооценкаНакопленнойАмортизации()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка накопленной амортизации (Дт СчетДооценки :: Кт СчетАмортизации)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаДооценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаДооценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаДооценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка накопленной амортизации"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаДооценкиАмортизации > втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации
|";
КонецФункции
Функция ДооценкаНакопленнойАмортизацииИзДолиУценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка накопленной амортизации из уценки (Дт 91.02 :: Кт СчетАмортизации)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаДооценкиАмортизации КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ВЫБОР КОГДА СтатьиСтроительства.ВидЦенностиНДС = ЗНАЧЕНИЕ(Перечисление.ВидыЦенностей.ПрочиеРаботыИУслуги)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.ПрочиеОперации)
| ИНАЧЕ ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Расходы)
| КОНЕЦ КАК ВидСчетаДт,
| втДанныеДляПроведения.СтатьяРасходов КАК АналитикаУчетаДт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка) КАК СчетДт,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.АналитикаРасходов // Объект строительства
| ИНАЧЕ
| втДанныеДляПроведения.СтатьяРасходов
| КОНЕЦ КАК СубконтоДт1,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.СтатьяРасходов
| ИНАЧЕ
| ЗНАЧЕНИЕ(Перечисление.ТипыЗатратРегл.Прочее)
| КОНЕЦ КАК СубконтоДт2,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| ЗНАЧЕНИЕ(Перечисление.СпособыСтроительства.Подрядный)
| ИНАЧЕ
| втДанныеДляПроведения.ОбъектУчета
| КОНЕЦ КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаДооценкиАмортизации КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаДооценкиАмортизации КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка накопленной амортизации из предыдущей уценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.СтатьиРасходов КАК СтатьиСтроительства
| ПО втДанныеДляПроведения.СтатьяРасходов = СтатьиСтроительства.Ссылка
| И СтатьиСтроительства.ВариантРаспределенияРасходовРегл = ЗНАЧЕНИЕ(Перечисление.ВариантыРаспределенияРасходов.НаПрочиеАктивы)
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаДооценкиАмортизации < втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации
|";
КонецФункции
Функция ДооценкаНакопленнойАмортизацииИзУценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Дооценка накопленной амортизации из уценки (Дт 91.02 :: Кт СчетАмортизации)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ВЫБОР КОГДА СтатьиСтроительства.ВидЦенностиНДС = ЗНАЧЕНИЕ(Перечисление.ВидыЦенностей.ПрочиеРаботыИУслуги)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.ПрочиеОперации)
| ИНАЧЕ ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Расходы)
| КОНЕЦ КАК ВидСчетаДт,
| втДанныеДляПроведения.СтатьяРасходов КАК АналитикаУчетаДт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка) КАК СчетДт,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.АналитикаРасходов // Объект строительства
| ИНАЧЕ
| втДанныеДляПроведения.СтатьяРасходов
| КОНЕЦ КАК СубконтоДт1,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.СтатьяРасходов
| ИНАЧЕ
| ЗНАЧЕНИЕ(Перечисление.ТипыЗатратРегл.Прочее)
| КОНЕЦ КАК СубконтоДт2,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| ЗНАЧЕНИЕ(Перечисление.СпособыСтроительства.Подрядный)
| ИНАЧЕ
| втДанныеДляПроведения.ОбъектУчета
| КОНЕЦ КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Дооценка накопленной амортизации из предыдущей уценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.СтатьиРасходов КАК СтатьиСтроительства
| ПО втДанныеДляПроведения.СтатьяРасходов = СтатьиСтроительства.Ссылка
| И СтатьиСтроительства.ВариантРаспределенияРасходовРегл = ЗНАЧЕНИЕ(Перечисление.ВариантыРаспределенияРасходов.НаПрочиеАктивы)
|
|ГДЕ
| втДанныеДляПроведения.СуммаДооценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаДооценкиАмортизации >= втДанныеДляПроведения.СуммаПрошлойУценкиАмортизации
|";
КонецФункции
Функция УценкаВосстановительнойСтоимости()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка восстановительной стоимости (Дт 91.02 :: Кт СчетУчета)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости - втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ВЫБОР КОГДА СтатьиСтроительства.ВидЦенностиНДС = ЗНАЧЕНИЕ(Перечисление.ВидыЦенностей.ПрочиеРаботыИУслуги)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.ПрочиеОперации)
| ИНАЧЕ ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Расходы)
| КОНЕЦ КАК ВидСчетаДт,
| втДанныеДляПроведения.СтатьяРасходов КАК АналитикаУчетаДт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка) КАК СчетДт,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.АналитикаРасходов // Объект строительства
| ИНАЧЕ
| втДанныеДляПроведения.СтатьяРасходов
| КОНЕЦ КАК СубконтоДт1,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.СтатьяРасходов
| ИНАЧЕ
| ЗНАЧЕНИЕ(Перечисление.ТипыЗатратРегл.Прочее)
| КОНЕЦ КАК СубконтоДт2,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| ЗНАЧЕНИЕ(Перечисление.СпособыСтроительства.Подрядный)
| ИНАЧЕ
| втДанныеДляПроведения.ОбъектУчета
| КОНЕЦ КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости - втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиСтоимости - втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости - втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка восстановительной стоимости"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.СтатьиРасходов КАК СтатьиСтроительства
| ПО втДанныеДляПроведения.СтатьяРасходов = СтатьиСтроительства.Ссылка
| И СтатьиСтроительства.ВариантРаспределенияРасходовРегл = ЗНАЧЕНИЕ(Перечисление.ВариантыРаспределенияРасходов.НаПрочиеАктивы)
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаУценкиСтоимости > втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости + втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств
|";
КонецФункции
Функция УценкаВосстановительнойСтоимостиЦФ()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка целевых средств в восстановительной стоимости (Дт 91.02 :: Кт СчетУчетаЦФ)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ВЫБОР КОГДА СтатьиСтроительства.ВидЦенностиНДС = ЗНАЧЕНИЕ(Перечисление.ВидыЦенностей.ПрочиеРаботыИУслуги)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.ПрочиеОперации)
| ИНАЧЕ ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Расходы)
| КОНЕЦ КАК ВидСчетаДт,
| втДанныеДляПроведения.СтатьяРасходов КАК АналитикаУчетаДт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка) КАК СчетДт,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.АналитикаРасходов // Объект строительства
| ИНАЧЕ
| втДанныеДляПроведения.СтатьяРасходов
| КОНЕЦ КАК СубконтоДт1,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| втДанныеДляПроведения.СтатьяРасходов
| ИНАЧЕ
| ЗНАЧЕНИЕ(Перечисление.ТипыЗатратРегл.Прочее)
| КОНЕЦ КАК СубконтоДт2,
| ВЫБОР КОГДА СтатьиСтроительства.Ссылка ЕСТЬ НЕ NULL ТОГДА
| ЗНАЧЕНИЕ(Перечисление.СпособыСтроительства.Подрядный)
| ИНАЧЕ
| втДанныеДляПроведения.ОбъектУчета
| КОНЕЦ КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетУчетаЦФ КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка целевых средств в восстановительной стоимости"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.СтатьиРасходов КАК СтатьиСтроительства
| ПО втДанныеДляПроведения.СтатьяРасходов = СтатьиСтроительства.Ссылка
| И СтатьиСтроительства.ВариантРаспределенияРасходовРегл = ЗНАЧЕНИЕ(Перечисление.ВариантыРаспределенияРасходов.НаПрочиеАктивы)
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств > 0
|";
КонецФункции
Функция УценкаВосстановительнойСтоимостиИзДолиДооценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка восстановительной стоимости из дооценки (Дт СчетДооценки :: Кт СчетУчета)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиСтоимости КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиСтоимости КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиСтоимости КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка восстановительной стоимости из предыдущей дооценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаУценкиСтоимости < втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости
|";
КонецФункции
Функция УценкаВосстановительнойСтоимостиИзДооценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка восстановительной стоимости из предыдущей дооценки (Дт СчетДооценки :: Кт СчетУчета)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетУчета КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка восстановительной стоимости из предыдущей дооценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости > 0
| И втДанныеДляПроведения.СуммаУценкиСтоимости >= втДанныеДляПроведения.СуммаПрошлойДооценкиСтоимости
|";
КонецФункции
Функция УценкаНакопленнойАмортизации()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка накопленной амортизации (Дт СчетАмортизации :: Кт 91.01)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Доходы) КАК ВидСчетаКт,
| втДанныеДляПроведения.СтатьяДоходов КАК АналитикаУчетаКт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| НЕОПРЕДЕЛЕНО КАК СчетКт,
| втДанныеДляПроведения.СтатьяДоходов КАК СубконтоКт1,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт2,
| втДанныеДляПроведения.АналитикаДоходов КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиАмортизации - втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка накопленной амортизации"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаУценкиАмортизации > втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации + втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств
|";
КонецФункции
Функция УценкаНакопленнойАмортизацииЦФ()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка целевых средств в накопленной амортизации (Дт СчетАмортизации :: Кт 91.01)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетАмортизацииЦФ КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Доходы) КАК ВидСчетаКт,
| втДанныеДляПроведения.СтатьяДоходов КАК АналитикаУчетаКт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| НЕОПРЕДЕЛЕНО КАК СчетКт,
| втДанныеДляПроведения.СтатьяДоходов КАК СубконтоКт1,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт2,
| втДанныеДляПроведения.АналитикаДоходов КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка целевых средств в накопленной амортизации"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств > 0
|";
КонецФункции
Функция УценкаНакопленнойАмортизацииИзДолиДооценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка накопленной амортизации из дооценки (Дт СчетАмортизации :: Кт СчетДооценки)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиАмортизации КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаУценкиАмортизации КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаУценкиАмортизации КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка накопленной амортизации из предыдущей дооценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаУценкиАмортизации < втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации
|";
КонецФункции
Функция УценкаНакопленнойАмортизацииИзДооценки()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Уценка накопленной амортизации из дооценки (Дт СчетАмортизации :: Кт СчетДооценки)
|ВЫБРАТЬ
|
| втДанныеДляПроведения.Ссылка КАК Ссылка,
| втДанныеДляПроведения.Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| НЕОПРЕДЕЛЕНО КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| втДанныеДляПроведения.СчетАмортизации КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| 0 КАК СуммаНУДт,
| втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаКт,
| НЕОПРЕДЕЛЕНО КАК ГруппаФинансовогоУчетаКт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаКт,
|
| НЕОПРЕДЕЛЕНО КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| втДанныеДляПроведения.СчетДооценки КАК СчетКт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоКт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| 0 КАК СуммаНУКт,
| втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| ""Уценка накопленной амортизации из предыдущей дооценки"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации > 0
| И втДанныеДляПроведения.СуммаУценкиАмортизации >= втДанныеДляПроведения.СуммаПрошлойДооценкиАмортизации
|";
КонецФункции
Функция ПризнаниеДоходовОтЦелевогоФинансирования()
Возврат "
|////////////////////////////////////////////////////////////////////////////////////////////////////
|// Признание доходов от целевого финансирования (Дт 98 :: Кт 91)
|ВЫБРАТЬ
|
| &Ссылка КАК Ссылка,
| &Дата КАК Период,
| втДанныеДляПроведения.Организация КАК Организация,
| """" КАК ИдентификаторСтроки,
|
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК Сумма,
| 0 КАК СуммаУУ,
|
| // Дт ///////////////////////////////////////////////////////////////////////////////////////////
|
| НЕОПРЕДЕЛЕНО КАК ВидСчетаДт,
| НЕОПРЕДЕЛЕНО КАК АналитикаУчетаДт,
| НЕОПРЕДЕЛЕНО КАК МестоУчетаДт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаДт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеДт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиДт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ДоходыБудущихПериодовОтЦелевогоФинансированияОС) КАК СчетДт,
| втДанныеДляПроведения.ОбъектУчета КАК СубконтоДт1,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоДт3,
|
| 0 КАК ВалютнаяСуммаДт,
| 0 КАК КоличествоДт,
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаНУДт,
| 0 КАК СуммаПРДт,
| 0 КАК СуммаВРДт,
|
| // Кт ///////////////////////////////////////////////////////////////////////////////////////////
|
| ЗНАЧЕНИЕ(Перечисление.ВидыСчетовРеглУчета.Доходы) КАК ВидСчетаКт,
| втДанныеДляПроведения.СтатьяДоходовЦФ КАК АналитикаУчетаКт,
| втДанныеДляПроведения.Подразделение КАК МестоУчетаКт,
|
| ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка) КАК ВалютаКт,
| втДанныеДляПроведения.Подразделение КАК ПодразделениеКт,
| втДанныеДляПроведения.НаправлениеДеятельности КАК НаправлениеДеятельностиКт,
|
| ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ПустаяСсылка) КАК СчетКт,
| втДанныеДляПроведения.СтатьяДоходовЦФ КАК СубконтоКт1,
| втДанныеДляПроведения.АналитикаДоходовЦФ КАК СубконтоКт2,
| НЕОПРЕДЕЛЕНО КАК СубконтоКт3,
|
| 0 КАК ВалютнаяСуммаКт,
| 0 КАК КоличествоКт,
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств - втДанныеДляПроведения.СуммаУценкиАмортизацииЦелевыхСредств КАК СуммаНУКт,
| 0 КАК СуммаПРКт,
| 0 КАК СуммаВРКт,
|
| /////////////////////////////////////////////////////////////////////////////////////////////////
|
| ""Признание доходов от целевого финансирования при уценке остаточной стоимости"" КАК Содержание
|ИЗ
| втДанныеДляПроведения КАК втДанныеДляПроведения
|
|ГДЕ
| втДанныеДляПроведения.СуммаУценкиСтоимостиЦелевыхСредств > 0
| И втДанныеДляПроведения.ПрименениеЦелевогоФинансирования
|";
КонецФункции
#КонецОбласти
#Область Печать
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
КонецПроцедуры
#КонецОбласти
#Область БлокировкаПриОбновленииИБ
Процедура ПроверитьБлокировкуВходящихДанныхПриОбновленииИБ(ПредставлениеОперации) Экспорт
ВходящиеДанные = Новый Соответствие;
УчетНМА.ЗаполнитьВходящиеДанныеАмортизации(ВходящиеДанные);
ЗакрытиеМесяцаСервер.ПроверитьБлокировкуВходящихДанныхПриОбновленииИБ(ВходящиеДанные, ПредставлениеОперации);
КонецПроцедуры
#КонецОбласти
#Область Прочее
Функция ПараметрыВыбораСтатейИАналитик() Экспорт
ПараметрыВыбораСтатьиИАналитики = Новый Массив;
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект";
ПараметрыВыбора.Статья = "СтатьяРасходов";
ПараметрыВыбора.ВыборСтатьиРасходов = Истина;
ПараметрыВыбора.АналитикаРасходов = "АналитикаРасходов";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяРасходов");
ПараметрыВыбора.ЭлементыФормы.АналитикаРасходов.Добавить("АналитикаРасходов");
ПараметрыВыбораСтатьиИАналитики.Добавить(ПараметрыВыбора);
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект";
ПараметрыВыбора.Статья = "СтатьяДоходов";
ПараметрыВыбора.ВыборСтатьиДоходов = Истина;
ПараметрыВыбора.АналитикаДоходов = "АналитикаДоходов";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяДоходов");
ПараметрыВыбора.ЭлементыФормы.АналитикаДоходов.Добавить("АналитикаДоходов");
ПараметрыВыбораСтатьиИАналитики.Добавить(ПараметрыВыбора);
Возврат ПараметрыВыбораСтатьиИАналитики;
КонецФункции
#КонецОбласти
#КонецОбласти
#КонецЕсли