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