#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
#Область Проведение
Процедура ЗарегистрироватьУчетныеМеханизмы(МеханизмыДокумента) Экспорт
МеханизмыДокумента.Добавить("НематериальныеАктивы");
МеханизмыДокумента.Добавить("ОсновныеСредства");
МеханизмыДокумента.Добавить("РеестрДокументов");
МеханизмыДокумента.Добавить("УчетДоходовРасходов");
МеханизмыДокумента.Добавить("УчетПрочихАктивовПассивов");
МеханизмыДокумента.Добавить("ФинансовыеИнструменты");
МеханизмыДокумента.Добавить("ОбесценениеВНА");
МеханизмыДокумента.Добавить("ОборотныеРегистрыУправленческогоУчета");
ВводОстатковВнеоборотныхАктивовЛокализация.ЗарегистрироватьУчетныеМеханизмы(МеханизмыДокумента);
КонецПроцедуры
Функция ДанныеДокументаДляПроведения(Документ, Регистры, ДопПараметры = Неопределено) Экспорт
Если ДопПараметры = Неопределено Тогда
ДопПараметры = ПроведениеДокументов.ДопПараметрыИнициализироватьДанныеДокументаДляПроведения();
КонецЕсли;
Если ТипЗнч(Документ) = Тип("ДокументОбъект.ВводОстатковВнеоборотныхАктивов2_4") Тогда
ДокументСсылка = Документ.Ссылка;
Иначе
ДокументСсылка = Документ;
КонецЕсли;
Запрос = Новый Запрос;
ТекстыЗапроса = Новый СписокЗначений;
Если Не ДопПараметры.ПолучитьТекстыЗапроса Тогда
ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры);
ТекстЗапросаТаблицаРеестрДокументов(Запрос, ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаДокументыПоОС(Запрос, ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаДокументыПоНМА(Запрос, ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПервоначальныеСведенияОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаМестонахождениеОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаОСБУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаОСУУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПараметрыАмортизацииОСБУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПараметрыАмортизацииОСУУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаСтоимостьОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаАмортизацияОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПервоначальныеСведенияНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаМестоУчетаНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаНМАБУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПорядокУчетаНМАУУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПараметрыАмортизацииНМАБУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПараметрыАмортизацииНМАУУ(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаСтоимостьНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаАмортизацияНМА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаАрендованныеОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПереданныеВАрендуОС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаУсловияДоговоровАренды(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаГрафикОплатУслугПоАренде(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаГрафикНачисленияУслугПоАренде(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаГрафикНачисленияПроцентовПоАренде(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаРасчетыПоФинансовымИнструментам(Запрос, ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаСоставЕГДС(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаОбесценениеВНА(ТекстыЗапроса, Регистры);
ТекстЗапросаТаблицаПрочиеРасходы(Запрос, ТекстыЗапроса, Регистры);
ВводОстатковВнеоборотныхАктивовЛокализация.ДополнитьТекстыЗапросовПроведения(Запрос, ТекстыЗапроса, Регистры);
КонецЕсли;
ТаблицыДвижений = ПроведениеДокументов.ИнициализироватьДанныеДокументаДляПроведения(Запрос, ТекстыЗапроса, ДопПараметры);
Возврат ТаблицыДвижений;
КонецФункции
#КонецОбласти
#Область Команды
Процедура ДобавитьКомандыОтчетов(КомандыОтчетов, Параметры) Экспорт
ВводОстатковВнеоборотныхАктивовЛокализация.ДобавитьКомандыОтчетов(КомандыОтчетов, Параметры);
КонецПроцедуры
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
ВводОстатковВнеоборотныхАктивовЛокализация.ДобавитьКомандыПечати(КомандыПечати);
КонецПроцедуры
Процедура ДобавитьКомандыСозданияНаОсновании(КомандыСозданияНаОсновании, Параметры) Экспорт
Команда = Документы.ИзменениеПараметровОС2_4.ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
Если Команда <> Неопределено Тогда
СписокОпераций = Новый Массив;
СписокОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств);
СписокОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе);
СписокОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе);
СписокОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС);
ПодключаемыеКоманды.ДобавитьУсловиеВидимостиКоманды(
Команда, "ХозяйственнаяОперация", СписокОпераций, ВидСравненияКомпоновкиДанных.ВСписке);
КонецЕсли;
ВводОстатковВнеоборотныхАктивовЛокализация.ДобавитьКомандыСозданияНаОсновании(КомандыСозданияНаОсновании, Параметры);
КонецПроцедуры
#КонецОбласти
#Область ЗаполнениеПоДаннымОперативногоУчета
Функция ОстаткиПоТипуОперации(Дата, ХозяйственнаяОперация, Организации, ДополнительныйОтбор = Неопределено, ПараметрыЗаполненияОстатков = Неопределено) Экспорт
Результат = ВводОстатковВнеоборотныхАктивовЛокализация.ОстаткиПоТипуОперации(
Дата,
ХозяйственнаяОперация,
Организации,
ДополнительныйОтбор,
ПараметрыЗаполненияОстатков);
Возврат Результат;
КонецФункции
Функция КлючевыеПоляРеглУчетаПоТипуОперации(ХозяйственнаяОперация) Экспорт
КлючевыеРеквизиты = Новый Массив;
КлючевыеРеквизиты.Добавить("Организация");
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств Тогда
КлючевыеРеквизиты.Добавить("Местонахождение");
КлючевыеРеквизиты.Добавить("Контрагент");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР Тогда
КлючевыеРеквизиты.Добавить("Местонахождение");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковВложенийВоВнеоборотныеАктивы Тогда
КлючевыеРеквизиты.Добавить("ВидАктивов");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе Тогда
КлючевыеРеквизиты.Добавить("Местонахождение");
КлючевыеРеквизиты.Добавить("Контрагент");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе
ИЛИ ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС Тогда
КлючевыеРеквизиты.Добавить("Контрагент");
КлючевыеРеквизиты.Добавить("РасчетыМеждуОрганизациямиАрендатор");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом Тогда
КлючевыеРеквизиты.Добавить("Контрагент");
КлючевыеРеквизиты.Добавить("Местонахождение");
КлючевыеРеквизиты.Добавить("ГруппаФинансовогоУчета");
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом Тогда
КлючевыеРеквизиты.Добавить("Партнер");
КлючевыеРеквизиты.Добавить("Контрагент");
КлючевыеРеквизиты.Добавить("Местонахождение");
КлючевыеРеквизиты.Добавить("ГруппаФинансовогоУчета");
КонецЕсли;
Возврат КлючевыеРеквизиты;
КонецФункции
#КонецОбласти
#Область ДляВызоваИзДругихПодсистем
Процедура ПриЗаполненииОграниченияДоступа(Ограничение) Экспорт
Ограничение.Текст =
"РазрешитьЧтениеИзменение
|ГДЕ
| ЗначениеРазрешено(Организация)";
КонецПроцедуры
Процедура ПриОпределенииНастроекВерсионированияОбъектов(Настройки) Экспорт
КонецПроцедуры
#КонецОбласти
#КонецОбласти
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Поля.Добавить("Ссылка");
Поля.Добавить("Номер");
Поля.Добавить("Дата");
Поля.Добавить("ХозяйственнаяОперация");
КонецПроцедуры
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
Представление = ВнеоборотныеАктивыВызовСервера.ПредставлениеВводаОстатков(Данные);
Если Не ПустаяСтрока(Представление) Тогда
СтандартнаяОбработка = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
ХозяйственнаяОперация = Неопределено;
Если Параметры.Свойство("Ключ") И ЗначениеЗаполнено(Параметры.Ключ) Тогда
ХозяйственнаяОперация = ВнеоборотныеАктивыВызовСервера.ОперацияВводаОстатков(Параметры.Ключ);
ИначеЕсли Параметры.Свойство("Отбор") Тогда
Параметры.Отбор.Свойство("ХозяйственнаяОперация", ХозяйственнаяОперация);
ИначеЕсли Параметры.Свойство("ЗначенияЗаполнения") Тогда
Параметры.ЗначенияЗаполнения.Свойство("ХозяйственнаяОперация", ХозяйственнаяОперация);
ИначеЕсли Параметры.Свойство("ЗначениеКопирования") Тогда
ХозяйственнаяОперация = ВнеоборотныеАктивыВызовСервера.ОперацияВводаОстатков(Параметры.ЗначениеКопирования);
ИначеЕсли Параметры.Свойство("ОтборПоТипамОпераций") И Параметры.ОтборПоТипамОпераций.Количество() = 1 Тогда
ХозяйственнаяОперация = Параметры.ОтборПоТипамОпераций[0].Значение;
ЗначенияЗаполнения = Новый Структура;
ЗначенияЗаполнения.Вставить("ХозяйственнаяОперация", ХозяйственнаяОперация);
Если Параметры.Свойство("Организация") Тогда
ЗначенияЗаполнения.Вставить("Организация", Параметры.Организация);
КонецЕсли;
Параметры.Вставить("ЗначенияЗаполнения", ЗначенияЗаполнения);
КонецЕсли;
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств
ИЛИ ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "ОсновныеСредства";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "НематериальныеАктивы";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковВложенийВоВнеоборотныеАктивы Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "ВложенияВоВнеоборотныеАктивы";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "АрендованныеОсновныеСредства";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "ПредметыЛизингаЗаБалансом";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "РасчетыПоДоговорамАренды";
ИначеЕсли ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС
Или ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "ПереданныеВАрендуОсновныеСредства";
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область СлужебныйПрограммныйИнтерфейс
Функция ЗаполнитьРеквизитыВзависимостиОтСвойств(ОбъектИлиДанныеСтроки, ВспомогательныеРеквизиты, ПараметрыРеквизитовОбъекта) Экспорт
ИзмененныеРеквизиты = Новый Массив;
ЭтоНМА = (ВспомогательныеРеквизиты.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР);
Для каждого ПараметрыРеквизита Из ПараметрыРеквизитовОбъекта Цикл
Если ПараметрыРеквизита.Свойство = "Видимость" И ПараметрыРеквизита.Значение = Ложь
ИЛИ ПараметрыРеквизита.Свойство = "ТолькоПросмотр" И ПараметрыРеквизита.Значение = Истина Тогда
Действие = "Очистить";
ИначеЕсли ПараметрыРеквизита.Свойство = "Видимость" И ПараметрыРеквизита.Значение = Истина Тогда
Действие = "Заполнить";
Иначе
Продолжить;
КонецЕсли;
Если Действие = "Очистить"
И (ПараметрыРеквизита.ИмяРеквизита = "ТекущаяСтоимостьБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "ТекущаяСтоимостьУУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "ПервоначальнаяСтоимостьБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "ПервоначальнаяСтоимостьУУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "НакопленнаяАмортизацияБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "НакопленнаяАмортизацияУУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "ЗалоговаяСтоимость") Тогда
ОбъектИлиДанныеСтроки[ПараметрыРеквизита.ИмяРеквизита] = 0;
ИзмененныеРеквизиты.Добавить(ПараметрыРеквизита.ИмяРеквизита);
КонецЕсли;
Если ПараметрыРеквизита.ИмяРеквизита = "МОЛАрендатора"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "ПодразделениеАрендатора"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "Договор" Тогда
Если Действие = "Очистить" Тогда
ОбъектИлиДанныеСтроки[ПараметрыРеквизита.ИмяРеквизита] = Неопределено;
ИзмененныеРеквизиты.Добавить(ПараметрыРеквизита.ИмяРеквизита);
КонецЕсли;
КонецЕсли;
Если ПараметрыРеквизита.ИмяРеквизита = "ПорядокУчетаБУ" Тогда
ЗначениеРеквизита =
?(ЭтоНМА,
Перечисления.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию,
Перечисления.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации);
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
ЗначениеРеквизита,
Неопределено,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "ПорядокУчетаУУ" Тогда
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
Перечисления.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию,
Неопределено,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "НачислятьАмортизациюБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "НачислятьАмортизациюУУ" Тогда
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
Истина,
Ложь,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "МетодНачисленияАмортизацииБУ" Тогда
ЗначениеРеквизита =
?(ЭтоНМА,
Перечисления.СпособыНачисленияАмортизацииНМА.Линейный,
Перечисления.СпособыНачисленияАмортизацииОС.Линейный);
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
ЗначениеРеквизита,
Неопределено,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "МетодНачисленияАмортизацииУУ" Тогда
ЗначениеРеквизита =
?(ЭтоНМА,
Перечисления.СпособыНачисленияАмортизацииНМА.Линейный,
Перечисления.СпособыНачисленияАмортизацииОС.Линейный);
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
ЗначениеРеквизита,
Неопределено,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "СрокИспользованияБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "СрокИспользованияУУ" Тогда
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
ОбъектИлиДанныеСтроки.СрокИспользованияБУ,
0,
ИзмененныеРеквизиты);
ИначеЕсли ПараметрыРеквизита.ИмяРеквизита = "КоэффициентУскоренияБУ"
ИЛИ ПараметрыРеквизита.ИмяРеквизита = "КоэффициентУскоренияУУ" Тогда
ВнеоборотныеАктивыСлужебный.ЗаполнитьОчиститьРеквизит(
ОбъектИлиДанныеСтроки,
ПараметрыРеквизита.ИмяРеквизита,
Действие,
1,
0,
ИзмененныеРеквизиты);
КонецЕсли;
ВводОстатковВнеоборотныхАктивовЛокализация.ЗаполнитьРеквизитыВзависимостиОтСвойств(
ОбъектИлиДанныеСтроки, ВспомогательныеРеквизиты, ПараметрыРеквизита, Действие, ИзмененныеРеквизиты);
КонецЦикла;
Возврат СтрСоединить(ИзмененныеРеквизиты, ",");
КонецФункции
Функция ВспомогательныеРеквизиты(Объект, ЭтоДанныеСтроки) Экспорт
ВспомогательныеРеквизиты = Новый Структура;
ВспомогательныеРеквизиты.Вставить("ОтражатьВРеглУчете", Объект.ОтражатьВРеглУчете);
ВспомогательныеРеквизиты.Вставить("ОтражатьВУпрУчете", Объект.ОтражатьВУпрУчете);
ВспомогательныеРеквизиты.Вставить("ОтражатьВБУиНУ", Объект.ОтражатьВБУиНУ);
ВспомогательныеРеквизиты.Вставить("ОтражатьВОперативномУчете", Объект.ОтражатьВОперативномУчете);
ВспомогательныеРеквизиты.Вставить("ОтражатьВУУ", Объект.ОтражатьВУУ);
ВспомогательныеРеквизиты.Вставить("ОтражатьВБУ", Объект.ОтражатьВБУ);
ВспомогательныеРеквизиты.Вставить("ОтражатьВНУ", Объект.ОтражатьВНУ);
ВспомогательныеРеквизиты.Вставить("Организация", Объект.Организация);
ВспомогательныеРеквизиты.Вставить("ХозяйственнаяОперация", Объект.ХозяйственнаяОперация);
ВспомогательныеРеквизиты.Вставить("Дата", Объект.Дата);
ВспомогательныеРеквизиты.Вставить("ДатаНачалаУчета", '000101010000');
ВспомогательныеРеквизиты.Вставить("ВедетсяРегламентированныйУчетВНА", ВнеоборотныеАктивыСлужебный.ВедетсяРегламентированныйУчетВНА());
ВспомогательныеРеквизиты.Вставить("ИспользоватьРеглУчет", РеглУчетСервер.ВедетсяРеглУчет(Объект.Дата));
ВспомогательныеРеквизиты.Вставить("ПорядокУчетаВНА", НастройкиНалоговУчетныхПолитикПовтИсп.ПорядокУчетаВНА(Объект.Организация, ?(Объект.Дата <> '000101010000', КонецМесяца(Объект.Дата), ТекущаяДатаСеанса())));
ВспомогательныеРеквизиты.Вставить("ИспользоватьРаздельныйУчетВНАПоНалогообложению", ПолучитьФункциональнуюОпцию("ИспользоватьРаздельныйУчетВНАПоНалогообложению"));
ВспомогательныеРеквизиты.Вставить("ИспользуетсяУчетАрендыПоФСБУ25_2018", УчетАрендованныхОС.ИспользуетсяУчетАрендыПоФСБУ25_2018(Объект.Организация, Объект.Дата));
ВспомогательныеРеквизиты.Вставить("РасчетыМеждуОрганизациямиАрендатор", Ложь);
ТипДоговораПередачиВАренду = ?(ЗначениеЗаполнено(Объект.ДоговорПередачиВАренду),
ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.ДоговорПередачиВАренду, "ТипДоговора"),
Неопределено);
ВспомогательныеРеквизиты.Вставить("ТипДоговораПередачиВАренду", ТипДоговораПередачиВАренду);
ВалютаУпр = Константы.ВалютаУправленческогоУчета.Получить();
ВалютаРегл = ЗначениеНастроекПовтИсп.ВалютаРегламентированногоУчетаОрганизации(Объект.Организация);
ВспомогательныеРеквизиты.Вставить("ВалютыСовпадают", ВалютаУпр = ВалютаРегл);
ВспомогательныеРеквизиты.Вставить(
"РеглУчетВНАВедетсяНезависимо",
НастройкиНалоговУчетныхПолитикПовтИсп.РеглУчетВНАВедетсяНезависимо(Объект.Организация, ?(Объект.Дата <> '000101010000', КонецМесяца(Объект.Дата), ТекущаяДатаСеанса())));
ВспомогательныеРеквизиты.Вставить("ДоступенУчетУУ", Объект.ОтражатьВУпрУчете);
ВспомогательныеРеквизиты.Вставить("ДоступенУчетБУ", Объект.ОтражатьВБУ И ВспомогательныеРеквизиты.РеглУчетВНАВедетсяНезависимо);
ВспомогательныеРеквизиты.Вставить("ДоступенУчетНУ", Ложь);
ВводОстатковВнеоборотныхАктивовЛокализация.ДополнитьВспомогательныеРеквизиты(Объект, ЭтоДанныеСтроки, ВспомогательныеРеквизиты);
ВспомогательныеРеквизиты = Новый ФиксированнаяСтруктура(ВспомогательныеРеквизиты);
Если ЭтоДанныеСтроки Тогда
Возврат ДополнитьВспомогательныеРеквизитыПоДаннымСтроки(Объект, Объект, ВспомогательныеРеквизиты);
КонецЕсли;
Возврат ВспомогательныеРеквизиты;
КонецФункции
Функция ДополнитьВспомогательныеРеквизитыПоДаннымСтроки(Объект, ДанныеСтроки, ИсходныеВспомогательныеРеквизиты) Экспорт
ВспомогательныеРеквизиты = Новый Структура(ИсходныеВспомогательныеРеквизиты);
СписокРеквизитовДоговора = "Балансодержатель,ЕстьОбеспечительныйПлатеж,ЕстьВыкупПредметовАренды,ЕстьАвансированиеВыкупнойСтоимости,ВалютаВзаиморасчетов";
Если Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды
И ЗначениеЗаполнено(ДанныеСтроки.Договор) Тогда
РеквизитыДоговора = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ДанныеСтроки.Договор, СписокРеквизитовДоговора);
Иначе
РеквизитыДоговора = Новый Структура(СписокРеквизитовДоговора);
РеквизитыДоговора.ЕстьОбеспечительныйПлатеж = Ложь;
РеквизитыДоговора.ЕстьВыкупПредметовАренды = Ложь;
РеквизитыДоговора.ЕстьАвансированиеВыкупнойСтоимости = Ложь;
РеквизитыДоговора.ВалютаВзаиморасчетов = Справочники.Валюты.ПустаяСсылка();
КонецЕсли;
ВспомогательныеРеквизиты.Вставить("РеквизитыДоговора", РеквизитыДоговора);
ВводОстатковВнеоборотныхАктивовЛокализация.ДополнитьВспомогательныеРеквизитыПоДаннымСтроки(Объект, ДанныеСтроки, ВспомогательныеРеквизиты);
Возврат Новый ФиксированнаяСтруктура(ВспомогательныеРеквизиты);
КонецФункции
Процедура ЗаполнитьСписокТиповОперацийДокумента(СписокТиповОпераций) Экспорт
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковВложенийВоВнеоборотныеАктивы);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом);
СписокТиповОпераций.Добавить(Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе);
КонецПроцедуры
Процедура ЗаполнитьЗначенияПоУмолчанию(ДанныеСтроки, Объект) Экспорт
Если Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР Тогда
Если НЕ ЗначениеЗаполнено(ДанныеСтроки.ГруппаФинансовогоУчета) Тогда
ВидАктива = ?(ДанныеСтроки.ВидОбъектаУчета = Перечисления.ВидыОбъектовУчетаНМА.РасходыНаНИОКР,
Перечисления.ВидыВнеоборотныхАктивов.НИОКР,
Перечисления.ВидыВнеоборотныхАктивов.НМА);
ДанныеСтроки.ГруппаФинансовогоУчета = Справочники.ГруппыФинансовогоУчетаВнеоборотныхАктивов.ЗначениеПоУмолчанию(ВидАктива);
КонецЕсли;
ИначеЕсли Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды Тогда
Если НЕ ЗначениеЗаполнено(ДанныеСтроки.ПериодичностьОплат) Тогда
ДанныеСтроки.ПериодичностьОплат = Перечисления.ПериодичностьГрафика.Месяц;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(ДанныеСтроки.ПериодичностьНачислений) Тогда
ДанныеСтроки.ПериодичностьНачислений = Перечисления.ПериодичностьГрафика.Месяц;
КонецЕсли;
КонецЕсли;
Если Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС Тогда
Если НЕ ЗначениеЗаполнено(ДанныеСтроки.ГруппаФинансовогоУчета) Тогда
ДанныеСтроки.ГруппаФинансовогоУчета = Справочники.ГруппыФинансовогоУчетаВнеоборотныхАктивов.ЗначениеПоУмолчанию(
Перечисления.ВидыВнеоборотныхАктивов.ОсновноеСредство);
КонецЕсли;
Если Не ЗначениеЗаполнено(ДанныеСтроки.ВариантРаздельногоУчетаНДС) Тогда
ДанныеСтроки.ВариантРаздельногоУчетаНДС = Перечисления.ВариантыРаздельногоУчетаНДС.ИзДокумента;
КонецЕсли;
Если Не ЗначениеЗаполнено(ДанныеСтроки.НалогообложениеНДС) Тогда
ДанныеСтроки.НалогообложениеНДС = ВнеоборотныеАктивы.НалогообложениеНДС(Объект.Организация, Объект.Дата);
КонецЕсли;
КонецЕсли;
Если Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР Тогда
Если Не ЗначениеЗаполнено(ДанныеСтроки.ВариантРаздельногоУчетаНДС) Тогда
ДанныеСтроки.ВариантРаздельногоУчетаНДС = Перечисления.ВариантыРаздельногоУчетаНДС.ИзДокумента;
КонецЕсли;
Если Не ЗначениеЗаполнено(ДанныеСтроки.НалогообложениеНДС) Тогда
ДанныеСтроки.НалогообложениеНДС = ВнеоборотныеАктивы.НалогообложениеНДС(Объект.Организация, Объект.Дата);
КонецЕсли;
КонецЕсли;
Если Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковОсновныхСредств
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС
ИЛИ Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР Тогда
ДанныеСтроки.ПодразделениеИНаправлениеДеятельностиСовпадаютСДаннымиУчетаБУ = Объект.ОтражатьВБУ;
ДанныеСтроки.ПодразделениеИНаправлениеДеятельностиСовпадаютСДаннымиУчетаУУ = Объект.ОтражатьВУпрУчете;
КонецЕсли;
ВводОстатковВнеоборотныхАктивовЛокализация.ЗаполнитьЗначенияПоУмолчанию(ДанныеСтроки, Объект);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
#Область Проведение
Функция ДополнительныеИсточникиДанныхДляДвижений(ИмяРегистра) Экспорт
ИсточникиДанных = Новый Соответствие;
Возврат ИсточникиДанных;
КонецФункции
Функция АдаптированныйТекстЗапросаДвиженийПоРегистру(ИмяРегистра) Экспорт
Запрос = Новый Запрос;
ТекстыЗапроса = Новый СписокЗначений;
ПолноеИмяДокумента = "Документ.ВводОстатковВнеоборотныхАктивов2_4";
ЗначенияПараметров = ЗначенияПараметровПроведения();
ВЗапросеЕстьИсточник = Истина;
ПереопределениеРасчетаПараметров = Новый Структура;
ТекстЗапроса = Неопределено;
СинонимТаблицыДокумента = Неопределено;
Если ИмяРегистра = "РеестрДокументов" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаРеестрДокументов(Запрос, ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "";
ВЗапросеЕстьИсточник = Ложь;
ИначеЕсли ИмяРегистра = "ДокументыПоОС" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаДокументыПоОС(Запрос, ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "ДанныеДокумента";
ИначеЕсли ИмяРегистра = "ДокументыПоНМА" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаДокументыПоНМА(Запрос, ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "ДанныеДокумента";
ИначеЕсли ИмяРегистра = "АрендованныеОС" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаАрендованныеОС(ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "ДанныеДокумента";
ИначеЕсли ИмяРегистра = "ПорядокУчетаОСБУ" Тогда
ТекстЗапроса = ТекстЗапросаТаблицаПорядокУчетаОСБУ(ТекстыЗапроса, ИмяРегистра);
СинонимТаблицыДокумента = "ТаблицаОС";
Иначе
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.АдаптированныйТекстЗапросаДвиженийПоРегистру(
ИмяРегистра, ПереопределениеРасчетаПараметров, СинонимТаблицыДокумента);
КонецЕсли;
Если ТекстЗапроса = Неопределено Тогда
ТекстИсключения = НСтр("ru = 'В документе %ПолноеИмяДокумента% не реализована адаптация текста запроса формирования движений по регистру %ИмяРегистра%.'");
ТекстИсключения = СтрЗаменить(ТекстИсключения, "%ПолноеИмяДокумента%", ПолноеИмяДокумента);
ТекстИсключения = СтрЗаменить(ТекстИсключения, "%ИмяРегистра%", ИмяРегистра);
ВызватьИсключение ТекстИсключения;
КонецЕсли;
Если ИмяРегистра = "РеестрДокументов"
ИЛИ ИмяРегистра = "ДокументыПоОС"
ИЛИ ИмяРегистра = "ДокументыПоНМА" Тогда
ТекстЗапроса = ОбновлениеИнформационнойБазыУТ.АдаптироватьЗапросПроведенияПоНезависимомуРегистру(
ТекстЗапроса,
ПолноеИмяДокумента,
СинонимТаблицыДокумента,
ВЗапросеЕстьИсточник,
ПереопределениеРасчетаПараметров);
Иначе
ТекстЗапроса = ОбновлениеИнформационнойБазыУТ.АдаптироватьЗапросМеханизмаПроведения(
ТекстЗапроса,
ПолноеИмяДокумента,
СинонимТаблицыДокумента,
ПереопределениеРасчетаПараметров);
КонецЕсли;
Результат = ОбновлениеИнформационнойБазыУТ.РезультатАдаптацииЗапроса();
Результат.ЗначенияПараметров = ЗначенияПараметров;
Результат.ТекстЗапроса = ТекстЗапроса;
Возврат Результат;
КонецФункции
Процедура ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры)
ПроведениеДокументов.ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка, ДопПараметры);
ПолучитьДанныеДокумента(Запрос);
ТекстЗапроса =
"ВЫБРАТЬ
| ДанныеДокумента.Ссылка КАК Ссылка,
| ДанныеДокумента.Дата КАК Период,
| ДанныеДокумента.Номер КАК Номер,
| ДанныеДокумента.Организация КАК Организация,
| ДанныеДокумента.Местонахождение КАК Местонахождение,
| ДанныеДокумента.ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| ДанныеДокумента.Ответственный КАК Ответственный,
| ДанныеДокумента.Комментарий КАК Комментарий,
| ДанныеДокумента.Проведен КАК Проведен,
| ДанныеДокумента.ПометкаУдаления КАК ПометкаУдаления,
| ДанныеДокумента.ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| ДанныеДокумента.ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ДанныеДокумента.ОтражатьВБУ КАК ОтражатьВБУ,
| ДанныеДокумента.ОтражатьВНУ КАК ОтражатьВНУ,
| ДанныеДокумента.ОтражатьВБУиНУ КАК ОтражатьВБУиНУ,
| ДанныеДокумента.ОтражатьВОперативномУчете КАК ОтражатьВОперативномУчете,
| ДанныеДокумента.ОтражатьВУУ КАК ОтражатьВУУ,
| ДанныеДокумента.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ДанныеДокумента.ВидАктивов КАК ВидАктивов,
| ДанныеДокумента.Партнер КАК Партнер,
| ДанныеДокумента.Контрагент КАК Контрагент,
| ДанныеДокумента.ДоговорПередачиВАренду КАК ДоговорПередачиВАренду,
| ДанныеДокумента.РасчетыМеждуОрганизациямиАрендатор КАК РасчетыМеждуОрганизациямиАрендатор,
| НастройкиХозяйственныхОпераций.Ссылка КАК НастройкаХозяйственнойОперации,
| &ВводОстатковВнеоборотныхАктивов_РеквизитыШапки
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.НастройкиХозяйственныхОпераций КАК НастройкиХозяйственныхОпераций
| ПО ДанныеДокумента.ХозяйственнаяОперация = НастройкиХозяйственныхОпераций.ХозяйственнаяОперация
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка";
ВводОстатковВнеоборотныхАктивовЛокализация.ДобавитьВТекстЗапросаРеквизитыШапки(ТекстЗапроса, "ДанныеДокумента");
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
Результат = Запрос.Выполнить();
Реквизиты = Результат.Выбрать();
Реквизиты.Следующий();
Для Каждого Колонка Из Результат.Колонки Цикл
Запрос.УстановитьПараметр(Колонка.Имя, Реквизиты[Колонка.Имя]);
КонецЦикла;
ЗначенияПараметровПроведения = ЗначенияПараметровПроведения(Реквизиты);
Для каждого КлючИЗначение Из ЗначенияПараметровПроведения Цикл
Запрос.УстановитьПараметр(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
РасчетСебестоимостиПрикладныеАлгоритмы.ЗаполнитьПараметрыИнициализации(Запрос, Реквизиты);
КонецПроцедуры
Процедура ПолучитьДанныеДокумента(Запрос)
СписокЗапросов = Новый Массив;
#Область ДанныеДокументаРеквизиты
ТекстЗапроса =
"ВЫБРАТЬ
| ДанныеДокумента.Ссылка КАК Ссылка,
| ДанныеДокумента.Дата КАК Период,
| ДанныеДокумента.Номер КАК Номер,
| ДанныеДокумента.Организация КАК Организация,
| ДанныеДокумента.Организация.ГоловнаяОрганизация КАК ГоловнаяОрганизация
|
|ПОМЕСТИТЬ ДанныеДокументаРеквизиты
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
|
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| Ссылка
|";
СписокЗапросов.Добавить(ТекстЗапроса);
#КонецОбласти
#Область ДанныеДокументаТаблицаОС
ТекстЗапроса =
"ВЫБРАТЬ
| ТаблицаДокумента.Ссылка КАК Ссылка,
| ТаблицаДокумента.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаДокумента.ОсновноеСредство КАК ОбъектУчета
|
|ПОМЕСТИТЬ ДанныеДокументаТаблицаОС
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаДокумента
|
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| Ссылка,
| ОсновноеСредство
|";
СписокЗапросов.Добавить(ТекстЗапроса);
#КонецОбласти
#Область ДанныеДокументаТаблицаНМА
ТекстЗапроса =
"ВЫБРАТЬ
| ТаблицаДокумента.Ссылка КАК Ссылка,
| ТаблицаДокумента.НематериальныйАктив КАК НематериальныйАктив,
| ТаблицаДокумента.НематериальныйАктив КАК ОбъектУчета
|
|ПОМЕСТИТЬ ДанныеДокументаТаблицаНМА
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаДокумента
|
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
|
|ИНДЕКСИРОВАТЬ ПО
| Ссылка,
| НематериальныйАктив
|";
СписокЗапросов.Добавить(ТекстЗапроса);
#КонецОбласти
Запрос.Текст = СтрСоединить(СписокЗапросов, ОбщегоНазначения.РазделительПакетаЗапросов());
Запрос.Выполнить();
КонецПроцедуры
Функция ЗначенияПараметровПроведения(Реквизиты = Неопределено)
ЗначенияПараметровПроведения = Новый Структура;
ЗначенияПараметровПроведения.Вставить("ИдентификаторМетаданных", ОбщегоНазначения.ИдентификаторОбъектаМетаданных("Документ.ВводОстатковВнеоборотныхАктивов2_4"));
ЗначенияПараметровПроведения.Вставить("ДатаНачалаУчета", ВнеоборотныеАктивыЛокализация.ДатаНачалаУчетаВнеоборотныхАктивов2_4());
ЗначенияПараметровПроведения.Вставить("НазваниеДокумента", НСтр("ru='Ввод остатков внеоборотных активов'"));
ЗначенияПараметровПроведения.Вставить("ВедетсяРегламентированныйУчетВНА", ВнеоборотныеАктивыСлужебный.ВедетсяРегламентированныйУчетВНА());
ЗначенияПараметровПроведения.Вставить("ИдентификаторНеиспользуемойФинЗаписи", ПроведениеДокументов.ИдентификаторНеиспользуемойФинЗаписи());
Если Реквизиты <> Неопределено Тогда
ЗначенияПараметровПроведения.Вставить("НомерНаПечать", ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Реквизиты.Номер));
ЗначенияПараметровПроведения.Вставить(
"РеглУчетВНАВедетсяНезависимо",
НастройкиНалоговУчетныхПолитикПовтИсп.РеглУчетВНАВедетсяНезависимо(Реквизиты.Организация, Реквизиты.Период));
ЗначенияПараметровПроведения.Вставить("ИспользуетсяУчетАрендыПоФСБУ25_2018",
УчетАрендованныхОС.ИспользуетсяУчетАрендыПоФСБУ25_2018(Реквизиты.Организация, Реквизиты.Период));
КонецЕсли;
Возврат ЗначенияПараметровПроведения;
КонецФункции
Функция ТекстЗапросаТаблицаРеестрДокументов(Запрос, ТекстыЗапроса, Регистры)
ИмяРегистра = "РеестрДокументов";
Если НЕ ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Ссылка,
| &Период КАК ДатаДокументаИБ,
| &Номер КАК НомерДокументаИБ,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &Организация КАК Организация,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &Местонахождение КАК Подразделение,
| &Контрагент КАК Контрагент,
| &Ответственный КАК Ответственный,
| &Комментарий КАК Комментарий,
| &Проведен КАК Проведен,
| &ПометкаУдаления КАК ПометкаУдаления,
| ЛОЖЬ КАК ДополнительнаяЗапись,
| &Период КАК ДатаПервичногоДокумента,
| &НомерНаПечать КАК НомерПервичногоДокумента,
| ЛОЖЬ КАК СторноИсправление,
| НЕОПРЕДЕЛЕНО КАК СторнируемыйДокумент,
| НЕОПРЕДЕЛЕНО КАК ИсправляемыйДокумент,
| &Период КАК ДатаОтраженияВУчете,
| НЕОПРЕДЕЛЕНО КАК Приоритет";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаДокументыПоОС(Запрос, ТекстыЗапроса, Регистры)
ИмяРегистра = "ДокументыПоОС";
Если НЕ ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| ЕСТЬNULL(ТаблицаОС.НомерСтроки-1, 0) КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА ТаблицаОС.Подразделение
| ИНАЧЕ &Местонахождение
| КОНЕЦ КАК Подразделение,
| &Проведен КАК Проведен,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
| ПО ТаблицаОС.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковОсновныхСредств),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе))
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЕСТЬNULL(ТаблицаОС.НомерСтроки-1, 0) КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| &Проведен КАК Проведен,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
| ПО ТаблицаОС.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом))
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЕСТЬNULL(ТаблицаДокумента.НомерСтроки-1, 0) КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| ТаблицаДокумента.Подразделение КАК Подразделение,
| &Проведен КАК Проведен,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаДокумента.ВнеоборотныйАктив КАК ОсновноеСредство
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ПрочиеРасходы КАК ТаблицаДокумента
| ПО ТаблицаДокумента.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВложенийВоВнеоборотныеАктивы)
| И &ВидАктивов В (
| ЗНАЧЕНИЕ(Перечисление.ВидыВнеоборотныхАктивов.ОсновноеСредство),
| ЗНАЧЕНИЕ(Перечисление.ВидыВнеоборотныхАктивов.ОбъектыСтроительства))";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаДокументыПоНМА(Запрос, ТекстыЗапроса, Регистры)
ИмяРегистра = "ДокументыПоНМА";
Если НЕ ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| ЕСТЬNULL(ТаблицаДокумента.НомерСтроки-1, 0) КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| &Проведен КАК Проведен,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаДокумента.НематериальныйАктив КАК НематериальныйАктив
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаДокумента
| ПО ТаблицаДокумента.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковНМАиРасходовНаНИОКР)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЕСТЬNULL(ТаблицаДокумента.НомерСтроки-1, 0) КАК НомерЗаписи,
| &Ссылка КАК Ссылка,
| &Период КАК Дата,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| &Проведен КАК Проведен,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| &ИдентификаторМетаданных КАК ТипСсылки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаДокумента.ВнеоборотныйАктив КАК НематериальныйАктив
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ПрочиеРасходы КАК ТаблицаДокумента
| ПО ТаблицаДокумента.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВложенийВоВнеоборотныеАктивы)
| И &ВидАктивов = ЗНАЧЕНИЕ(Перечисление.ВидыВнеоборотныхАктивов.НМА)";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Процедура ТекстЗапросаТаблицаПервоначальныеСведенияОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПервоначальныеСведенияОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПервоначальныеСведенияОС(ТекстыЗапроса);
Если ТекстЗапроса = Неопределено Тогда
ВнеоборотныеАктивыСлужебный.ТекстЗапросаТаблицаВтПервоначальныеСведенияОС(ТекстыЗапроса);
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| &Организация КАК Организация,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаОС.ДатаПринятияКУчетуБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ДатаВводаВЭксплуатациюБУ, ДАТАВРЕМЯ(1, 1, 1))
| КОНЕЦ КАК ДатаВводаВЭксплуатациюБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА ТаблицаОС.ДатаПринятияКУчетуУУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ДатаВводаВЭксплуатациюУУ, ДАТАВРЕМЯ(1, 1, 1))
| КОНЕЦ КАК ДатаВводаВЭксплуатациюУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА &Ссылка
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ДокументВводаВЭксплуатациюБУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ДокументВводаВЭксплуатациюБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА &Ссылка
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ДокументВводаВЭксплуатациюУУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ДокументВводаВЭксплуатациюУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаОС.МетодНачисленияАмортизацииБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.МетодНачисленияАмортизацииБУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК МетодНачисленияАмортизацииБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаОС.ПорядокУчетаБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ПорядокУчетаБУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ПорядокУчетаБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА ТаблицаОС.ПорядокУчетаУУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ПорядокУчетаУУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ПорядокУчетаУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаОС.ПервоначальнаяСтоимостьБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ПервоначальнаяСтоимостьБУ, 0)
| КОНЕЦ КАК ПервоначальнаяСтоимостьБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА ТаблицаОС.ПервоначальнаяСтоимостьУУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияОС.ПервоначальнаяСтоимостьУУ, 0)
| КОНЕЦ КАК ПервоначальнаяСтоимостьУУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
| ЛЕВОЕ СОЕДИНЕНИЕ втПервоначальныеСведенияОС КАК втПервоначальныеСведенияОС
| ПО втПервоначальныеСведенияОС.ОсновноеСредство = ТаблицаОС.ОсновноеСредство
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| &Организация КАК Организация,
|
| ТаблицаОС.ДатаПринятияКУчетуУУ КАК ДатаВводаВЭксплуатациюБУ,
| ТаблицаОС.ДатаПринятияКУчетуУУ КАК ДатаВводаВЭксплуатациюУУ,
|
| &Ссылка КАК ДокументВводаВЭксплуатациюБУ,
| &Ссылка КАК ДокументВводаВЭксплуатациюУУ,
|
| ТаблицаОС.МетодНачисленияАмортизацииУУ КАК МетодНачисленияАмортизацииБУ,
|
| ВЫБОР ТаблицаОС.ПорядокУчетаУУ
| КОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| КОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НеНачислятьАмортизацию)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.СтоимостьНеПогашается)
| КОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.АмортизацияНачислена)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена)
| КОНЕЦ КАК ПорядокУчетаБУ,
|
| ТаблицаОС.ПорядокУчетаУУ КАК ПорядокУчетаУУ,
|
| ТаблицаОС.ПервоначальнаяСтоимостьБУ КАК ПервоначальнаяСтоимостьБУ,
| ТаблицаОС.ПервоначальнаяСтоимостьУУ КАК ПервоначальнаяСтоимостьУУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| &Организация КАК Организация,
| ТаблицаОС.ДатаПринятияКУчету КАК ДатаВводаВЭксплуатациюБУ,
| ТаблицаОС.ДатаПринятияКУчету КАК ДатаВводаВЭксплуатациюУУ,
| &Ссылка КАК ДокументВводаВЭксплуатациюБУ,
| &Ссылка КАК ДокументВводаВЭксплуатациюУУ,
| НЕОПРЕДЕЛЕНО КАК МетодНачисленияАмортизацииБУ,
| НЕОПРЕДЕЛЕНО КАК ПорядокУчетаБУ,
| НЕОПРЕДЕЛЕНО КАК ПорядокУчетаУУ,
| ТаблицаОС.ЗалоговаяСтоимость КАК ПервоначальнаяСтоимостьБУ,
| 0 КАК ПервоначальнаяСтоимостьУУ
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПервоначальныеСведенияНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПервоначальныеСведенияНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПервоначальныеСведенияНМА(ТекстыЗапроса);
Если ТекстЗапроса = Неопределено Тогда
ВнеоборотныеАктивыСлужебный.ТекстЗапросаТаблицаВтПервоначальныеСведенияНМА(ТекстыЗапроса);
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ТаблицаДокумента.НематериальныйАктив КАК НематериальныйАктив,
| &Организация КАК Организация,
|
| ТаблицаДокумента.ДатаПриобретения КАК ДатаПриобретения,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаДокумента.ДатаПринятияКУчетуБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ДатаПринятияКУчетуБУ, ДАТАВРЕМЯ(1, 1, 1))
| КОНЕЦ КАК ДатаПринятияКУчетуБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА ТаблицаДокумента.ДатаПринятияКУчетуУУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ДатаПринятияКУчетуУУ, ДАТАВРЕМЯ(1, 1, 1))
| КОНЕЦ КАК ДатаПринятияКУчетуУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА &Ссылка
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ДокументПринятияКУчетуБУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ДокументПринятияКУчетуБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА &Ссылка
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ДокументПринятияКУчетуУУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК ДокументПринятияКУчетуУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ
| ТОГДА ТаблицаДокумента.МетодНачисленияАмортизацииБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.МетодНачисленияАмортизацииБУ, НЕОПРЕДЕЛЕНО)
| КОНЕЦ КАК МетодНачисленияАмортизацииБУ,
|
| ВЫБОР
| КОГДА &ОтражатьВУпрУчете
| ТОГДА ТаблицаДокумента.ПервоначальнаяСтоимостьУУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьУУ, 0)
| КОНЕЦ КАК ПервоначальнаяСтоимостьУУ,
|
| ВЫБОР
| КОГДА &ОтражатьВБУ ИЛИ НЕ &ВедетсяРегламентированныйУчетВНА
| ТОГДА ТаблицаДокумента.ПервоначальнаяСтоимостьБУ
| ИНАЧЕ ЕСТЬNULL(втПервоначальныеСведенияНМА.ПервоначальнаяСтоимостьБУ, 0)
| КОНЕЦ КАК ПервоначальнаяСтоимостьБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ втПервоначальныеСведенияНМА КАК втПервоначальныеСведенияНМА
| ПО втПервоначальныеСведенияНМА.НематериальныйАктив = ТаблицаДокумента.НематериальныйАктив
|
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ТаблицаДокумента.НематериальныйАктив КАК НематериальныйАктив,
| &Организация КАК Организация,
|
| ТаблицаДокумента.ДатаПриобретения КАК ДатаПриобретения,
|
| ТаблицаДокумента.ДатаПринятияКУчетуУУ КАК ДатаПринятияКУчетуБУ,
| ТаблицаДокумента.ДатаПринятияКУчетуУУ КАК ДатаПринятияКУчетуУУ,
|
| &Ссылка КАК ДокументПринятияКУчетуБУ,
| &Ссылка КАК ДокументПринятияКУчетуУУ,
|
| ТаблицаДокумента.МетодНачисленияАмортизацииУУ КАК МетодНачисленияАмортизацииБУ,
|
| ТаблицаДокумента.ПервоначальнаяСтоимостьУУ КАК ПервоначальнаяСтоимостьУУ,
| ТаблицаДокумента.ПервоначальнаяСтоимостьБУ КАК ПервоначальнаяСтоимостьБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ втПервоначальныеСведенияНМА КАК втПервоначальныеСведенияНМА
| ПО втПервоначальныеСведенияНМА.НематериальныйАктив = ТаблицаДокумента.НематериальныйАктив
|
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаМестонахождениеОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "МестонахождениеОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.МОЛ КАК МОЛ,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА ТаблицаОС.Подразделение
| ИНАЧЕ &Местонахождение
| КОНЕЦ КАК Местонахождение,
| ТаблицаОС.АдресМестонахождения КАК АдресМестонахождения,
| ТаблицаОС.АдресМестонахожденияЗначение КАК АдресМестонахожденияЗначение,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА &Контрагент
| ИНАЧЕ НЕОПРЕДЕЛЕНО
| КОНЕЦ КАК Арендатор,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА ТаблицаОС.ПодразделениеАрендатора
| ИНАЧЕ НЕОПРЕДЕЛЕНО
| КОНЕЦ КАК ПодразделениеАрендатора,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА ТаблицаОС.МОЛАрендатора
| ИНАЧЕ НЕОПРЕДЕЛЕНО
| КОНЕЦ КАК МОЛАрендатора,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.МОЛ КАК МОЛ,
| &Местонахождение КАК Местонахождение,
| """" КАК АдресМестонахождения,
| """" КАК АдресМестонахожденияЗначение,
| НЕОПРЕДЕЛЕНО КАК Арендатор,
| НЕОПРЕДЕЛЕНО КАК ПодразделениеАрендатора,
| НЕОПРЕДЕЛЕНО КАК МОЛАрендатора,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаМестоУчетаНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "МестоУчетаНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| &Местонахождение КАК Подразделение,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПорядокУчетаОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаОС.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ТаблицаОС.ПоказательНаработки КАК ПоказательНаработки,
| ТаблицаОС.ОбъемНаработки КАК ОбъемНаработки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| &ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| НЕОПРЕДЕЛЕНО КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК ПоказательНаработки,
| 0 КАК ОбъемНаработки,
| ИСТИНА КАК ОтражатьВРеглУчете,
| ЛОЖЬ КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом))";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПорядокУчетаНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| Таблица.НаправлениеДеятельности КАК НаправлениеДеятельности,
| Таблица.ОбъемНаработки КАК ОбъемНаработки,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Функция ТекстЗапросаТаблицаПорядокУчетаОСБУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаОСБУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПорядокУчетаОСБУ(ТекстыЗапроса);
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКУчету) КАК СостояниеБУ,
| ТаблицаОС.НачислятьАмортизациюБУ КАК НачислятьАмортизациюБУ,
| ТаблицаОС.СпособОтраженияРасходовБУ КАК СпособОтраженияРасходовБУ,
| ТаблицаОС.СтатьяРасходовБУ КАК СтатьяРасходовБУ,
| ТаблицаОС.АналитикаРасходовБУ КАК АналитикаРасходовБУ,
| ТаблицаОС.ПодразделениеБУ КАК ПодразделениеБУ,
| ТаблицаОС.НаправлениеДеятельностиБУ КАК НаправлениеДеятельностиБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВБУ
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКУчету) КАК СостояниеБУ,
| ТаблицаОС.НачислятьАмортизациюУУ КАК НачислятьАмортизациюБУ,
| ТаблицаОС.СпособОтраженияРасходовУУ КАК СпособОтраженияРасходовБУ,
| ТаблицаОС.СтатьяРасходовУУ КАК СтатьяРасходовБУ,
| ТаблицаОС.АналитикаРасходовУУ КАК АналитикаРасходовБУ,
| ТаблицаОС.ПодразделениеУУ КАК ПодразделениеБУ,
| ТаблицаОС.НаправлениеДеятельностиУУ КАК НаправлениеДеятельностиБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВБУ
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКЗабалансовомуУчету) КАК СостояниеБУ,
| ЛОЖЬ КАК НачислятьАмортизациюБУ,
| НЕОПРЕДЕЛЕНО КАК СпособОтраженияРасходовБУ,
| НЕОПРЕДЕЛЕНО КАК СтатьяРасходовБУ,
| НЕОПРЕДЕЛЕНО КАК АналитикаРасходовБУ,
| НЕОПРЕДЕЛЕНО КАК ПодразделениеБУ,
| НЕОПРЕДЕЛЕНО КАК НаправлениеДеятельностиБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
|";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Процедура ТекстЗапросаТаблицаПорядокУчетаОСУУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаОСУУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПорядокУчетаОСУУ();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКУчету) КАК Состояние,
| ТаблицаОС.НачислятьАмортизациюУУ КАК НачислятьАмортизацию,
|
| ВЫБОР
| КОГДА ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
| И ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислитьАмортизациюПриПринятииКУчету)
| И ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НеПриниматьКУчетуВключитьВРасходы)
|
| ТОГДА ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
|
| КОГДА ТаблицаОС.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И (ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислитьАмортизациюПриПринятииКУчету)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена))
|
| ТОГДА ТаблицаОС.СпособОтраженияРасходовБУ
|
| ИНАЧЕ ТаблицаОС.СпособОтраженияРасходовУУ
|
| КОНЕЦ КАК СпособОтраженияРасходов,
|
| ВЫБОР
| КОГДА ТаблицаОС.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И (ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислитьАмортизациюПриПринятииКУчету)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена))
|
| ТОГДА ТаблицаОС.СтатьяРасходовБУ
|
| ИНАЧЕ ТаблицаОС.СтатьяРасходовУУ
|
| КОНЕЦ КАК СтатьяРасходов,
|
| ВЫБОР
| КОГДА ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
| И ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислитьАмортизациюПриПринятииКУчету)
| И ТаблицаОС.ПорядокУчетаУУ <> ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НеПриниматьКУчетуВключитьВРасходы)
|
| ТОГДА НЕОПРЕДЕЛЕНО
|
| КОГДА ТаблицаОС.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И (ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислитьАмортизациюПриПринятииКУчету)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена))
|
| ТОГДА ТаблицаОС.АналитикаРасходовБУ
|
| ИНАЧЕ ТаблицаОС.АналитикаРасходовУУ
|
| КОНЕЦ КАК АналитикаРасходов,
|
| ВЫБОР
| КОГДА ТаблицаОС.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И (ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислитьАмортизациюПриПринятииКУчету)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена))
|
| ТОГДА ТаблицаОС.ПодразделениеБУ
|
| ИНАЧЕ ТаблицаОС.ПодразделениеУУ
|
| КОНЕЦ КАК Подразделение,
|
| ВЫБОР
| КОГДА ТаблицаОС.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И (ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислениеАмортизации)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.НачислитьАмортизациюПриПринятииКУчету)
| ИЛИ ТаблицаОС.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокПогашенияСтоимостиОС.АмортизацияНачислена))
|
| ТОГДА ТаблицаОС.НаправлениеДеятельностиБУ
|
| ИНАЧЕ ТаблицаОС.НаправлениеДеятельностиУУ
|
| КОНЕЦ КАК НаправлениеДеятельности,
|
| ЛОЖЬ КАК ПередаватьРасходыВДругуюОрганизацию,
| НЕОПРЕДЕЛЕНО КАК ОрганизацияПолучательРасходов
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВУпрУчете
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКЗабалансовомуУчету) КАК Состояние,
| ЛОЖЬ КАК НачислятьАмортизациюУУ,
| НЕОПРЕДЕЛЕНО КАК СпособОтраженияРасходов,
| НЕОПРЕДЕЛЕНО КАК СтатьяРасходов,
| НЕОПРЕДЕЛЕНО КАК АналитикаРасходов,
| НЕОПРЕДЕЛЕНО КАК Подразделение,
| НЕОПРЕДЕЛЕНО КАК НаправлениеДеятельности,
| ЛОЖЬ КАК ПередаватьРасходыВДругуюОрганизацию,
| НЕОПРЕДЕЛЕНО КАК ОрганизацияПолучательРасходов
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПорядокУчетаНМАБУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаНМАБУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПорядокУчетаНМАБУ(ТекстыЗапроса);
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| ЗНАЧЕНИЕ(Перечисление.СостоянияНМА.ПринятКУчету) КАК СостояниеБУ,
| Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию) КАК НачислятьАмортизациюБУ,
| Таблица.СпособОтраженияРасходовБУ КАК СпособОтраженияРасходовБУ,
| Таблица.СтатьяРасходовБУ КАК СтатьяРасходовБУ,
| Таблица.АналитикаРасходовБУ КАК АналитикаРасходовБУ,
| Таблица.ПодразделениеБУ КАК ПодразделениеБУ,
| Таблица.НаправлениеДеятельностиБУ КАК НаправлениеДеятельностиБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВБУ
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| ЗНАЧЕНИЕ(Перечисление.СостоянияНМА.ПринятКУчету) КАК СостояниеБУ,
| Таблица.ПорядокУчетаУУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию) КАК НачислятьАмортизациюБУ,
| Таблица.СпособОтраженияРасходовУУ КАК СпособОтраженияРасходовБУ,
| Таблица.СтатьяРасходовУУ КАК СтатьяРасходовБУ,
| Таблица.АналитикаРасходовУУ КАК АналитикаРасходовБУ,
| Таблица.ПодразделениеУУ КАК ПодразделениеБУ,
| Таблица.НаправлениеДеятельностиУУ КАК НаправлениеДеятельностиБУ
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПорядокУчетаНМАУУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПорядокУчетаНМАУУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПорядокУчетаНМАУУ();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| ЗНАЧЕНИЕ(Перечисление.СостоянияНМА.ПринятКУчету) КАК Состояние,
| Таблица.ПорядокУчетаУУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию) КАК НачислятьАмортизацию,
|
| ВЫБОР
| КОГДА Таблица.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
|
| ТОГДА Таблица.СпособОтраженияРасходовБУ
|
| ИНАЧЕ Таблица.СпособОтраженияРасходовУУ
|
| КОНЕЦ КАК СпособОтраженияРасходов,
|
| ВЫБОР
| КОГДА Таблица.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
|
| ТОГДА Таблица.СтатьяРасходовБУ
|
| ИНАЧЕ Таблица.СтатьяРасходовУУ
|
| КОНЕЦ КАК СтатьяРасходов,
|
| ВЫБОР
| КОГДА Таблица.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
|
| ТОГДА Таблица.АналитикаРасходовБУ
|
| ИНАЧЕ Таблица.АналитикаРасходовУУ
|
| КОНЕЦ КАК АналитикаРасходов,
|
| ВЫБОР
| КОГДА Таблица.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
|
| ТОГДА Таблица.ПодразделениеБУ
|
| ИНАЧЕ Таблица.ПодразделениеУУ
|
| КОНЕЦ КАК Подразделение,
|
| ВЫБОР
| КОГДА Таблица.СтатьяРасходовУУ = ЗНАЧЕНИЕ(ПланВидовХарактеристик.СтатьиРасходов.ПустаяСсылка)
| И &ОтражатьВУпрУчете
| И &ОтражатьВРеглУчете
| И Таблица.ПорядокУчетаБУ = ЗНАЧЕНИЕ(Перечисление.ПорядокУчетаСтоимостиВнеоборотныхАктивов.НачислятьАмортизацию)
|
| ТОГДА Таблица.НаправлениеДеятельностиБУ
|
| ИНАЧЕ Таблица.НаправлениеДеятельностиУУ
|
| КОНЕЦ КАК НаправлениеДеятельности,
|
| ЛОЖЬ КАК ПередаватьРасходыВДругуюОрганизацию,
| НЕОПРЕДЕЛЕНО КАК ОрганизацияПолучательРасходов
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВУпрУчете
| И &ОтражатьВОперативномУчете";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПараметрыАмортизацииОСБУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПараметрыАмортизацииОСБУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПараметрыАмортизацииОСБУ();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
|
| ТаблицаОС.СрокИспользованияБУ КАК СрокПолезногоИспользованияБУ,
| ТаблицаОС.КоэффициентУскоренияБУ КАК КоэффициентУскорения,
| ТаблицаОС.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимость,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииБУ
| ТОГДА ТаблицаОС.ОбъемНаработкиОстаточныйБУ
| ИНАЧЕ ТаблицаОС.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииБУ
| ТОГДА ТаблицаОС.СрокИспользованияБУОстаточный
| ИНАЧЕ ТаблицаОС.СрокИспользованияБУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииБУ
| ТОГДА ТаблицаОС.ДатаИзмененияПараметровБУ
| ИНАЧЕ ТаблицаОС.ДатаПринятияКУчетуБУ
| КОНЕЦ КАК ДатаПоследнегоИзменения
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВРеглУчете
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
|
| ТаблицаОС.СрокИспользованияУУ КАК СрокПолезногоИспользованияБУ,
| ТаблицаОС.КоэффициентУскоренияУУ КАК КоэффициентУскорения,
| ТаблицаОС.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимость,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.ОбъемНаработкиОстаточныйУУ
| ИНАЧЕ ТаблицаОС.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.СрокИспользованияУУОстаточный
| ИНАЧЕ ТаблицаОС.СрокИспользованияУУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.ДатаИзмененияПараметровУУ
| ИНАЧЕ ТаблицаОС.ДатаПринятияКУчетуУУ
| КОНЕЦ КАК ДатаПоследнегоИзменения
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВРеглУчете
| И &ОтражатьВОперативномУчете
|
|";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПараметрыАмортизацииОСУУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПараметрыАмортизацииОСУУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.ДатаИзмененияПараметровУУ
| КОГДА &Период < &ДатаНачалаУчета
| ТОГДА ДОБАВИТЬКДАТЕ(&Период, ДЕНЬ, 1)
| ИНАЧЕ ТаблицаОС.ДатаПринятияКУчетуУУ
| КОНЕЦ КАК ДатаПоследнегоИзменения,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.СрокИспользованияУУ КАК СрокИспользования,
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.СрокИспользованияУУОстаточный
| ИНАЧЕ ТаблицаОС.СрокИспользованияУУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ОбъемНаработкиОстаточныйУУ
| ИНАЧЕ ТаблицаОС.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
| ТаблицаОС.КоэффициентУскоренияУУ КАК КоэффициентУскорения,
| ТаблицаОС.МетодНачисленияАмортизацииУУ КАК МетодНачисленияАмортизации,
| ТаблицаОС.ЛиквидационнаяСтоимость КАК ЛиквидационнаяСтоимость,
| ТаблицаОС.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимостьРегл,
| ВЫБОР
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.СтоимостьДляВычисленияАмортизацииУУ
| ИНАЧЕ ТаблицаОС.ТекущаяСтоимостьУУ
| КОНЕЦ КАК СтоимостьДляВычисленияАмортизации,
| ВЫБОР
| КОГДА &ВедетсяРегламентированныйУчетВНА
| ТОГДА 0
| КОГДА ТаблицаОС.ЕстьИзменениеПараметровАмортизацииУУ
| ТОГДА ТаблицаОС.СтоимостьДляВычисленияАмортизацииБУ
| ИНАЧЕ ТаблицаОС.ТекущаяСтоимостьБУ
| КОНЕЦ КАК СтоимостьДляВычисленияАмортизацииРегл
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВУпрУчете
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПараметрыАмортизацииНМАБУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПараметрыАмортизацииНМАБУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаПараметрыАмортизацииНМАБУ(ТекстыЗапроса);
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАБУ
| ТОГДА Таблица.ДатаПоследнегоУлучшенияБУ
| КОГДА &Период < &ДатаНачалаУчета
| ТОГДА ДОБАВИТЬКДАТЕ(&Период, ДЕНЬ, 1)
| ИНАЧЕ Таблица.ДатаПринятияКУчетуБУ
| КОНЕЦ КАК ДатаПоследнегоИзменения,
|
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.СрокИспользованияБУ КАК СрокПолезногоИспользованияБУ,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАБУ
| ТОГДА Таблица.СрокИспользованияБУОстаточный
| ИНАЧЕ Таблица.СрокИспользованияБУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАБУ
| ТОГДА Таблица.ОбъемНаработкиОстаточныйБУ
| ИНАЧЕ Таблица.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
|
| Таблица.КоэффициентБУ КАК КоэффициентБУ,
| Таблица.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимость
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВРеглУчете
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.ДатаПоследнегоУлучшенияУУ
| КОГДА &Период < &ДатаНачалаУчета
| ТОГДА ДОБАВИТЬКДАТЕ(&Период, ДЕНЬ, 1)
| ИНАЧЕ Таблица.ДатаПринятияКУчетуУУ
| КОНЕЦ КАК ДатаПоследнегоИзменения,
|
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.СрокИспользованияУУ КАК СрокПолезногоИспользованияБУ,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.СрокИспользованияУУОстаточный
| ИНАЧЕ Таблица.СрокИспользованияБУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.ОбъемНаработкиОстаточныйУУ
| ИНАЧЕ Таблица.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
|
| Таблица.КоэффициентУскоренияУУ КАК КоэффициентБУ,
| Таблица.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимость
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И НЕ &РеглУчетВНАВедетсяНезависимо
| И &ОтражатьВОперативномУчете
|";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаПараметрыАмортизацииНМАУУ(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПараметрыАмортизацииНМАУУ";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.ДатаПоследнегоУлучшенияУУ
| КОГДА &Период < &ДатаНачалаУчета
| ТОГДА ДОБАВИТЬКДАТЕ(&Период, ДЕНЬ, 1)
| ИНАЧЕ Таблица.ДатаПринятияКУчетуУУ
| КОНЕЦ КАК ДатаПоследнегоИзменения,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.СрокИспользованияУУОстаточный
| ИНАЧЕ Таблица.СрокИспользованияУУ
| КОНЕЦ КАК СрокИспользованияДляВычисленияАмортизации,
|
| ВЫБОР
| КОГДА Таблица.ЕстьУлучшениеНМАУУ
| ТОГДА Таблица.ОбъемНаработкиОстаточныйУУ
| ИНАЧЕ Таблица.ОбъемНаработки
| КОНЕЦ КАК ОбъемПродукцииРаботДляВычисленияАмортизации,
|
| Таблица.СрокИспользованияУУ КАК СрокИспользования,
| Таблица.КоэффициентУскоренияУУ КАК КоэффициентУскорения,
| Таблица.МетодНачисленияАмортизацииУУ КАК МетодНачисленияАмортизации,
| Таблица.ЛиквидационнаяСтоимость КАК ЛиквидационнаяСтоимость,
| Таблица.ЛиквидационнаяСтоимостьРегл КАК ЛиквидационнаяСтоимостьРегл
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВУпрУчете
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаСтоимостьОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "СтоимостьОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаСтоимостьОС();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаОС.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА &Контрагент
| ИНАЧЕ НЕОПРЕДЕЛЕНО
| КОНЕЦ КАК Арендатор,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| ТаблицаОС.ТекущаяСтоимостьУУ КАК Стоимость,
| ТаблицаОС.ТекущаяСтоимостьБУ КАК СтоимостьРегл,
| ТаблицаОС.РезервПереоценкиСтоимости КАК РезервПереоценкиСтоимости,
| ТаблицаОС.РезервПереоценкиСтоимостиРегл КАК РезервПереоценкиСтоимостиРегл,
|
| 0 КАК ПриростСтоимости,
| 0 КАК ПриростСтоимостиРегл,
|
| ВЫБОР
| КОГДА &РасчетыМеждуОрганизациямиАрендатор
| ТОГДА ТаблицаОС.ЗалоговаяСтоимость
| ИНАЧЕ 0
| КОНЕЦ КАК ЗалоговаяСтоимость,
|
| ТаблицаОС.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковСтоимостиОС) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковСтоимостиОС) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (ТаблицаОС.ТекущаяСтоимостьУУ <> 0
| ИЛИ ТаблицаОС.ТекущаяСтоимостьБУ <> 0
| ИЛИ ТаблицаОС.РезервПереоценкиСтоимости <> 0
| ИЛИ ТаблицаОС.РезервПереоценкиСтоимостиРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаОС.НаправлениеДеятельности КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК Арендатор,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| 0 КАК Стоимость,
| 0 КАК СтоимостьРегл,
| 0 КАК РезервПереоценкиСтоимости,
| 0 КАК РезервПереоценкиСтоимостиРегл,
|
| ВЫБОР
| КОГДА (ТаблицаОС.РезервПереоценкиСтоимости - ТаблицаОС.РезервПереоценкиАмортизации) > 0
| ТОГДА ТаблицаОС.РезервПереоценкиСтоимости - ТаблицаОС.РезервПереоценкиАмортизации
| ИНАЧЕ 0
| КОНЕЦ КАК ПриростСтоимости,
|
| ВЫБОР
| КОГДА (ТаблицаОС.РезервПереоценкиСтоимостиРегл - ТаблицаОС.РезервПереоценкиАмортизацииРегл) > 0
| ТОГДА ТаблицаОС.РезервПереоценкиСтоимостиРегл - ТаблицаОС.РезервПереоценкиАмортизацииРегл
| ИНАЧЕ 0
| КОНЕЦ КАК ПриростСтоимостиРегл,
|
| 0 КАК ЗалоговаяСтоимость,
|
| ТаблицаОС.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковСтоимостиОС) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковСтоимостиОС) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И ((ТаблицаОС.РезервПереоценкиСтоимости - ТаблицаОС.РезервПереоценкиАмортизации) > 0
| ИЛИ (ТаблицаОС.РезервПереоценкиСтоимостиРегл - ТаблицаОС.РезервПереоценкиАмортизацииРегл) > 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| &ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| НЕОПРЕДЕЛЕНО КАК НаправлениеДеятельности,
| НЕОПРЕДЕЛЕНО КАК Арендатор,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| 0 КАК Стоимость,
| 0 КАК СтоимостьРегл,
| 0 КАК РезервПереоценкиСтоимости,
| 0 КАК РезервПереоценкиСтоимостиРегл,
| 0 КАК ПриростСтоимости,
| 0 КАК ПриростСтоимостиРегл,
| ТаблицаОС.ЗалоговаяСтоимость КАК ЗалоговаяСтоимость,
|
| &ИдентификаторНеиспользуемойФинЗаписи КАК ИдентификаторФинЗаписи,
| &ХозяйственнаяОперация КАК ХозяйственнаяОперация,
| НЕОПРЕДЕЛЕНО КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаАмортизацияОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "АмортизацияОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаАмортизацияОС();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| ВЫБОР
| КОГДА &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))
| ТОГДА ТаблицаОС.Подразделение
| ИНАЧЕ &Местонахождение
| КОНЕЦ КАК Подразделение,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаОС.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАмортизацииОС) КАК ХозяйственнаяОперация,
| ТаблицаОС.НакопленнаяАмортизацияУУ КАК Амортизация,
| ТаблицаОС.НакопленнаяАмортизацияБУ КАК АмортизацияРегл,
| ТаблицаОС.РезервПереоценкиАмортизации КАК РезервПереоценкиАмортизации,
| ТаблицаОС.РезервПереоценкиАмортизацииРегл КАК РезервПереоценкиАмортизацииРегл,
| ТаблицаОС.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковАмортизацииОС) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (ТаблицаОС.НакопленнаяАмортизацияУУ <> 0
| ИЛИ ТаблицаОС.НакопленнаяАмортизацияБУ <> 0
| ИЛИ ТаблицаОС.РезервПереоценкиАмортизации <> 0
| ИЛИ ТаблицаОС.РезервПереоценкиАмортизацииРегл <> 0)";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаСтоимостьНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "СтоимостьНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаСтоимостьНМА();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| Таблица.НаправлениеДеятельности КАК НаправлениеДеятельности,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| Таблица.ТекущаяСтоимостьУУ КАК Стоимость,
| Таблица.ТекущаяСтоимостьБУ КАК СтоимостьРегл,
| Таблица.РезервПереоценкиСтоимости КАК РезервПереоценкиСтоимости,
| Таблица.РезервПереоценкиСтоимостиРегл КАК РезервПереоценкиСтоимостиРегл,
|
| 0 КАК ПриростСтоимости,
| 0 КАК ПриростСтоимостиРегл,
|
| Таблица.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковСтоимостиНМАиРасходовНаНИОКР) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковСтоимостиНМАиРасходовНаНИОКР) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (Таблица.ТекущаяСтоимостьУУ <> 0
| ИЛИ Таблица.ТекущаяСтоимостьБУ <> 0
| ИЛИ Таблица.РезервПереоценкиСтоимости <> 0
| ИЛИ Таблица.РезервПереоценкиСтоимостиРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| Таблица.НаправлениеДеятельности КАК НаправлениеДеятельности,
| &ОтражатьВРеглУчете КАК ОтражатьВРеглУчете,
| &ОтражатьВУпрУчете КАК ОтражатьВУпрУчете,
| 0 КАК Стоимость,
| 0 КАК СтоимостьРегл,
| 0 КАК РезервПереоценкиСтоимости,
| 0 КАК РезервПереоценкиСтоимостиРегл,
|
| ВЫБОР
| КОГДА (Таблица.РезервПереоценкиСтоимости - Таблица.РезервПереоценкиАмортизации) > 0
| ТОГДА Таблица.РезервПереоценкиСтоимости - Таблица.РезервПереоценкиАмортизации
| ИНАЧЕ 0
| КОНЕЦ КАК ПриростСтоимости,
|
| ВЫБОР
| КОГДА (Таблица.РезервПереоценкиСтоимостиРегл - Таблица.РезервПереоценкиАмортизацииРегл) > 0
| ТОГДА Таблица.РезервПереоценкиСтоимостиРегл - Таблица.РезервПереоценкиАмортизацииРегл
| ИНАЧЕ 0
| КОНЕЦ КАК ПриростСтоимостиРегл,
|
| Таблица.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковСтоимостиНМАиРасходовНаНИОКР) КАК ХозяйственнаяОперация,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковСтоимостиНМАиРасходовНаНИОКР) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И ((Таблица.РезервПереоценкиСтоимости - Таблица.РезервПереоценкиАмортизации) > 0
| ИЛИ (Таблица.РезервПереоценкиСтоимостиРегл - Таблица.РезервПереоценкиАмортизацииРегл) > 0)";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаАмортизацияНМА(ТекстыЗапроса, Регистры)
ИмяРегистра = "АмортизацияНМА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса = ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаТаблицаАмортизацияНМА();
Если ТекстЗапроса = Неопределено Тогда
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| &Организация КАК Организация,
| &Местонахождение КАК Подразделение,
| Таблица.НематериальныйАктив КАК НематериальныйАктив,
| Таблица.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| Таблица.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАмортизацииНМАиРасходовНаНИОКР) КАК ХозяйственнаяОперация,
| Таблица.НакопленнаяАмортизацияУУ КАК Амортизация,
| Таблица.НакопленнаяАмортизацияБУ КАК АмортизацияРегл,
| Таблица.РезервПереоценкиАмортизации КАК РезервПереоценкиАмортизации,
| Таблица.РезервПереоценкиАмортизацииРегл КАК РезервПереоценкиАмортизацииРегл,
| Таблица.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковАмортизацииНМАиРасходовНаНИОКР) КАК НастройкаХозяйственнойОперации
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (Таблица.НакопленнаяАмортизацияУУ <> 0
| ИЛИ Таблица.НакопленнаяАмортизацияБУ <> 0
| ИЛИ Таблица.РезервПереоценкиАмортизации <> 0
| ИЛИ Таблица.РезервПереоценкиАмортизацииРегл <> 0)";
КонецЕсли;
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Функция ТекстЗапросаТаблицаАрендованныеОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "АрендованныеОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ПервоначальнаяСтоимостьНУ КАК Стоимость,
| ТаблицаОС.Договор.Партнер КАК Партнер,
| ТаблицаОС.Договор.Контрагент КАК Контрагент,
| ТаблицаОС.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ВАренде) КАК Состояние
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
|
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
| ПО ТаблицаОС.Ссылка = ДанныеДокумента.Ссылка
|
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАрендованныхОСНаБалансе)
| И &ОтражатьВОперативномУчете
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| &Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ТаблицаОС.ЗалоговаяСтоимость КАК Стоимость,
| ЗНАЧЕНИЕ(Справочник.Партнеры.ПустаяСсылка) КАК Партнер,
| &Контрагент КАК Контрагент,
| ТаблицаОС.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКЗабалансовомуУчету) КАК Состояние
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
|
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.АрендованныеОС КАК ТаблицаОС
| ПО ТаблицаОС.Ссылка = ДанныеДокумента.Ссылка
|
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковАрендованныхОСЗаБалансом),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПредметовЛизингаЗаБалансом))";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Процедура ТекстЗапросаТаблицаПереданныеВАрендуОС(ТекстыЗапроса, Регистры)
ИмяРегистра = "ПереданныеВАрендуОС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК Период,
| &Период КАК ДатаПередачи,
| &Организация КАК Организация,
| &Контрагент КАК Контрагент,
| &ДоговорПередачиВАренду КАК Договор,
| ТаблицаОС.ЗалоговаяСтоимость КАК ЗалоговаяСтоимость,
| ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство,
| ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПереданоВАренду) КАК Состояние
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
| ПО ТаблицаОС.Ссылка = ДанныеДокумента.Ссылка
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация В (
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуОС),
| ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковПереданныхВАрендуПредметовЛизингаНаБалансе))";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Процедура ТекстЗапросаТаблицаУсловияДоговоровАренды(ТекстыЗапроса, Регистры)
ИмяРегистра = "УсловияДоговоровАренды";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Ссылка КАК Регистратор,
| &Период КАК Период,
| Расчеты.Договор КАК Договор,
| Расчеты.СуммаОбеспечительногоПлатежа КАК СуммаОбеспечительногоПлатежа,
| Расчеты.СуммаУслугПоАренде КАК СуммаУслугПоАренде,
| Расчеты.СуммаВыкупаПредметовАренды КАК СуммаВыкупаПредметовАренды,
| Расчеты.СуммаПроцентов КАК СуммаПроцентов,
| Расчеты.СуммаНДС КАК СуммаНДС,
| Расчеты.СтавкаНДС КАК СтавкаНДС,
| Расчеты.СрокЛет КАК СрокЛет,
| Расчеты.СрокМес КАК СрокМес,
| Расчеты.СрокДней КАК СрокДней,
| Расчеты.ДатаНачалаАренды КАК ДатаНачалаАренды,
| Расчеты.ДатаПервогоПлатежа КАК ДатаПервогоПлатежа,
| Расчеты.ДатаПервогоОбеспечительногоПлатежа КАК ДатаПервогоОбеспечительногоПлатежа,
| Расчеты.ДатаВыкупа КАК ДатаВыкупа,
| Расчеты.ПроцентнаяСтавка КАК ПроцентнаяСтавка,
| Расчеты.ПериодичностьОплат КАК ПериодичностьОплат,
| Расчеты.ПериодичностьНачислений КАК ПериодичностьНачислений,
| Расчеты.СтоимостьПредметовАренды КАК СтоимостьПредметовАренды,
| Расчеты.ОплатаУслугиПоАренде КАК ОплатаУслугиПоАренде,
| Расчеты.НачислениеУслугиПоАренде КАК НачислениеУслугиПоАренде,
| &Ссылка КАК АктуальныеУсловияДоговора,
| ЗНАЧЕНИЕ(Перечисление.СостоянияДоговоровКонтрагентов.Действует) КАК Состояние
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
|ГДЕ
| Расчеты.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
КонецПроцедуры
Функция ТекстЗапросаТаблицаГрафикОплатУслугПоАренде(ТекстыЗапроса, Регистры)
ИмяРегистра = "ГрафикОплатУслугПоАренде";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК ДатаИзменения,
| Расчеты.Договор КАК Договор,
| &Ссылка КАК АктуальныеУсловияДоговора,
| ТаблицаГрафика.Дата КАК Дата,
| ТаблицаГрафика.УслугаПоАренде КАК УслугаПоАренде,
| ТаблицаГрафика.УслугаПоАрендеНДС КАК УслугаПоАрендеНДС,
|
| ВЫБОР
| КОГДА Расчеты.Договор.ЕстьОбеспечительныйПлатеж
| ТОГДА ТаблицаГрафика.ОбеспечительныйПлатеж
| ИНАЧЕ 0
| КОНЕЦ КАК ОбеспечительныйПлатеж,
|
| ВЫБОР
| КОГДА Расчеты.Договор.ЕстьОбеспечительныйПлатеж
| ТОГДА ТаблицаГрафика.ОбеспечительныйПлатежНДС
| ИНАЧЕ 0
| КОНЕЦ КАК ОбеспечительныйПлатежНДС,
|
| ВЫБОР
| КОГДА ТаблицаГрафика.Дата >= Расчеты.ДатаВыкупа
| И Расчеты.Договор.ЕстьВыкупПредметовАренды
| ТОГДА ТаблицаГрафика.ВыкупнаяСтоимость
| ИНАЧЕ 0
| КОНЕЦ КАК ВыкупнаяСтоимость,
|
| ВЫБОР
| КОГДА ТаблицаГрафика.Дата < Расчеты.ДатаВыкупа
| И Расчеты.Договор.ЕстьВыкупПредметовАренды
| ТОГДА ТаблицаГрафика.ВыкупнаяСтоимость
| ИНАЧЕ 0
| КОНЕЦ КАК ВыкупнаяСтоимостьАванс,
|
| ВЫБОР
| КОГДА Расчеты.Договор.ЕстьВыкупПредметовАренды
| ТОГДА ТаблицаГрафика.ВыкупнаяСтоимостьНДС
| ИНАЧЕ 0
| КОНЕЦ КАК ВыкупнаяСтоимостьНДС
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ГрафикОплатУслуг КАК ТаблицаГрафика
|
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
| ПО Расчеты.Ссылка = ТаблицаГрафика.Ссылка
| И Расчеты.КодСтроки = ТаблицаГрафика.КодСтроки
|ГДЕ
| ТаблицаГрафика.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаГрафикНачисленияУслугПоАренде(ТекстыЗапроса, Регистры)
ИмяРегистра = "ГрафикНачисленияУслугПоАренде";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК ДатаИзменения,
| Расчеты.Договор КАК Договор,
| &Ссылка КАК АктуальныеУсловияДоговора,
| ТаблицаГрафика.Дата КАК Дата,
| ТаблицаГрафика.УслугаПоАренде КАК УслугаПоАренде,
| ТаблицаГрафика.УслугаПоАрендеНДС КАК УслугаПоАрендеНДС,
|
| ВЫБОР
| КОГДА Расчеты.Договор.ЕстьОбеспечительныйПлатеж
| ТОГДА ТаблицаГрафика.ОбеспечительныйПлатеж
| ИНАЧЕ 0
| КОНЕЦ КАК ОбеспечительныйПлатеж,
|
| ВЫБОР
| КОГДА Расчеты.Договор.ЕстьОбеспечительныйПлатеж
| ТОГДА ТаблицаГрафика.ОбеспечительныйПлатежНДС
| ИНАЧЕ 0
| КОНЕЦ КАК ОбеспечительныйПлатежНДС,
|
| ВЫБОР
| КОГДА Расчеты.ДатаВыкупа = ТаблицаГрафика.Дата
| И Расчеты.Договор.ЕстьВыкупПредметовАренды
| ТОГДА Расчеты.СуммаВыкупаПредметовАренды
| ИНАЧЕ 0
| КОНЕЦ КАК ВыкупнаяСтоимость,
|
| ВЫБОР
| КОГДА Расчеты.ДатаВыкупа = ТаблицаГрафика.Дата
| И Расчеты.Договор.ЕстьВыкупПредметовАренды
| ТОГДА Расчеты.СуммаНДСВыкупаПредметовАренды
| ИНАЧЕ 0
| КОНЕЦ КАК ВыкупнаяСтоимостьНДС
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ГрафикНачисленияУслуг КАК ТаблицаГрафика
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
| ПО Расчеты.Ссылка = ТаблицаГрафика.Ссылка
| И Расчеты.КодСтроки = ТаблицаГрафика.КодСтроки
|ГДЕ
| ТаблицаГрафика.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК ДатаИзменения,
| Расчеты.Договор КАК Договор,
| &Ссылка КАК АктуальныеУсловияДоговора,
| Расчеты.ДатаВыкупа КАК Дата,
| 0 КАК УслугаПоАренде,
| 0 КАК УслугаПоАрендеНДС,
| 0 КАК ОбеспечительныйПлатеж,
| 0 КАК ОбеспечительныйПлатежНДС,
| Расчеты.СуммаВыкупаПредметовАренды КАК ВыкупнаяСтоимость,
| Расчеты.СуммаНДСВыкупаПредметовАренды КАК ВыкупнаяСтоимостьНДС
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.ГрафикНачисленияУслуг КАК ТаблицаГрафика
| ПО ТаблицаГрафика.Ссылка = Расчеты.Ссылка
| И ТаблицаГрафика.Дата = Расчеты.ДатаВыкупа
| И ТаблицаГрафика.КодСтроки = Расчеты.КодСтроки
|ГДЕ
| Расчеты.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И ТаблицаГрафика.Ссылка ЕСТЬ NULL
| И Расчеты.СуммаВыкупаПредметовАренды <> 0
| И Расчеты.Договор.ЕстьВыкупПредметовАренды
| И Расчеты.ДатаВыкупа <> ДАТАВРЕМЯ(1, 1, 1)";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаГрафикНачисленияПроцентовПоАренде(ТекстыЗапроса, Регистры)
ИмяРегистра = "ГрафикНачисленияПроцентовПоАренде";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК ДатаИзменения,
| Расчеты.Договор КАК Договор,
| &Ссылка КАК АктуальныеУсловияДоговора,
| ТаблицаГрафика.Дата КАК Дата,
| ТаблицаГрафика.Проценты КАК Проценты
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ГрафикНачисленияПроцентов КАК ТаблицаГрафика
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
| ПО Расчеты.Ссылка = ТаблицаГрафика.Ссылка
| И Расчеты.КодСтроки = ТаблицаГрафика.КодСтроки
|ГДЕ
| ТаблицаГрафика.Ссылка = &Ссылка
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И &ИспользуетсяУчетАрендыПоФСБУ25_2018";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаРасчетыПоФинансовымИнструментам(Запрос, ТекстыЗапроса, Регистры)
ИмяРегистра = "РасчетыПоФинансовымИнструментам";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ИнициализироватьКлючиАналитикиПоПартнерам(Запрос);
ТекстЗапроса =
"ВЫБРАТЬ
| &Период КАК Период,
| ВЫБОР
| КОГДА ДанныеДокумента.АрендныеОбязательстваСальдоДебетовое ТОГДА
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
| ИНАЧЕ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| КОНЕЦ КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| ДанныеДокумента.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.ТипыПлатежейПоАренде.АрендныеОбязательства) КАК ТипСуммы,
| НЕОПРЕДЕЛЕНО КАК РасчетныйДокумент,
| ДанныеДокумента.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.АрендныеОбязательстваОстаток КАК Сумма,
| ДанныеДокумента.АрендныеОбязательстваОстатокУпр КАК СуммаУпр,
| ДанныеДокумента.АрендныеОбязательстваОстатокРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК ДанныеДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.АрендныеОбязательстваОстаток <> 0
| ИЛИ ДанныеДокумента.АрендныеОбязательстваОстатокУпр <> 0
| ИЛИ ДанныеДокумента.АрендныеОбязательстваОстатокРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| ВЫБОР
| КОГДА ДанныеДокумента.ВыкупнаяСтоимостьСальдоДебетовое ТОГДА
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
| ИНАЧЕ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| КОНЕЦ КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| ДанныеДокумента.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.ТипыПлатежейПоАренде.ВыкупнаяСтоимость) КАК ТипСуммы,
| НЕОПРЕДЕЛЕНО КАК РасчетныйДокумент,
| ДанныеДокумента.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.ВыкупнаяСтоимостьОстаток КАК Сумма,
| ДанныеДокумента.ВыкупнаяСтоимостьОстатокУпр КАК СуммаУпр,
| ДанныеДокумента.ВыкупнаяСтоимостьОстатокРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК ДанныеДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.ВыкупнаяСтоимостьОстаток <> 0
| ИЛИ ДанныеДокумента.ВыкупнаяСтоимостьОстатокУпр <> 0
| ИЛИ ДанныеДокумента.ВыкупнаяСтоимостьОстатокРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| ВЫБОР
| КОГДА ДанныеДокумента.НДССальдоДебетовое ТОГДА
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
| ИНАЧЕ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| КОНЕЦ КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| ДанныеДокумента.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.ТипыПлатежейПоАренде.НДС) КАК ТипСуммы,
| НЕОПРЕДЕЛЕНО КАК РасчетныйДокумент,
| ДанныеДокумента.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.НДСОстаток КАК Сумма,
| ДанныеДокумента.НДСОстатокУпр КАК СуммаУпр,
| ДанныеДокумента.НДСОстатокРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК ДанныеДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.НДСОстаток <> 0
| ИЛИ ДанныеДокумента.НДСОстатокУпр <> 0
| ИЛИ ДанныеДокумента.НДСОстатокРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| ВЫБОР
| КОГДА ДанныеДокумента.ПроцентыСальдоДебетовое ТОГДА
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
| ИНАЧЕ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| КОНЕЦ КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| ДанныеДокумента.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.ТипыПлатежейПоАренде.Проценты) КАК ТипСуммы,
| НЕОПРЕДЕЛЕНО КАК РасчетныйДокумент,
| ДанныеДокумента.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.ПроцентыОстаток КАК Сумма,
| ДанныеДокумента.ПроцентыОстатокУпр КАК СуммаУпр,
| ДанныеДокумента.ПроцентыОстатокРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК ДанныеДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.ПроцентыОстаток <> 0
| ИЛИ ДанныеДокумента.ПроцентыОстатокУпр <> 0
| ИЛИ ДанныеДокумента.ПроцентыОстатокРегл <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| ВЫБОР
| КОГДА ДанныеДокумента.УслугаПоАрендеСальдоДебетовое ТОГДА
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
| ИНАЧЕ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| КОНЕЦ КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| ДанныеДокумента.Договор КАК Договор,
| ЗНАЧЕНИЕ(Перечисление.ТипыПлатежейПоАренде.УслугаПоАренде) КАК ТипСуммы,
| НЕОПРЕДЕЛЕНО КАК РасчетныйДокумент,
| ДанныеДокумента.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.УслугаПоАрендеОстаток КАК Сумма,
| ДанныеДокумента.УслугаПоАрендеОстатокУпр КАК СуммаУпр,
| ДанныеДокумента.УслугаПоАрендеОстатокРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК ДанныеДокумента
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.УслугаПоАрендеОстаток <> 0
| ИЛИ ДанныеДокумента.УслугаПоАрендеОстатокУпр <> 0
| ИЛИ ДанныеДокумента.УслугаПоАрендеОстатокРегл <> 0)
|
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| &Период КАК Период,
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
|
| ЕСТЬNULL(АналитикаПоПартнерам.КлючАналитики, НЕОПРЕДЕЛЕНО) КАК АналитикаУчетаПоПартнерам,
| Расчеты.Договор КАК Договор,
| ДанныеДокумента.ТипПлатежа КАК ТипСуммы,
| ДанныеДокумента.РасчетныйДокумент КАК РасчетныйДокумент,
| Расчеты.Договор.ВалютаВзаиморасчетов КАК Валюта,
|
| ДанныеДокумента.Сумма КАК Сумма,
| ДанныеДокумента.СуммаУпр КАК СуммаУпр,
| ДанныеДокумента.СуммаРегл КАК СуммаРегл,
|
| ДанныеДокумента.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.АвансыПоДоговорамАренды КАК ДанныеДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
| ПО Расчеты.Ссылка = ДанныеДокумента.Ссылка
| И Расчеты.КодСтроки = ДанныеДокумента.КодСтроки
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
| ПО АналитикаПоПартнерам.Организация = &Организация
| И АналитикаПоПартнерам.Партнер = &Партнер
| И АналитикаПоПартнерам.Контрагент = &Контрагент
| И АналитикаПоПартнерам.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И АналитикаПоПартнерам.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| ДанныеДокумента.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И &ХозяйственнаяОперация = ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ВводОстатковВзаиморасчетовПоДоговорамАренды)
| И (ДанныеДокумента.Сумма <> 0
| ИЛИ ДанныеДокумента.СуммаУпр <> 0
| ИЛИ ДанныеДокумента.СуммаРегл <> 0)";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаПрочиеРасходы(Запрос, ТекстыЗапроса, Регистры)
ИмяРегистра = "ПрочиеРасходы";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
Если Не ПроведениеДокументов.ЕстьТаблицаЗапроса("ВтПрочиеРасходы", ТекстыЗапроса) Тогда
ТекстЗапросаТаблицаВтПрочиеРасходы(Запрос, ТекстыЗапроса);
КонецЕсли;
ТекстЗапроса = РегистрыНакопления.ПрочиеРасходы.ТекстЗапросаТаблицаПрочиеРасходы();
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра, Истина);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаСоставЕГДС(ТекстыЗапроса, Регистры)
ИмяРегистра = "СоставЕГДС";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| ТаблицаОС.Ссылка КАК Регистратор,
| ТаблицаОС.Ссылка.Дата КАК Период,
| ТаблицаОС.Ссылка.Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ВнеоборотныйАктив,
| ТаблицаОС.ЕГДС КАК ЕГДС
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И ТаблицаОС.ЕГДС <> ЗНАЧЕНИЕ(Справочник.ЕдиницыГенерирующиеДенежныеСредства.ПустаяСсылка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ТаблицаНМА.Ссылка КАК Регистратор,
| ТаблицаНМА.Ссылка.Дата КАК Период,
| ТаблицаНМА.Ссылка.Организация КАК Организация,
| ТаблицаНМА.НематериальныйАктив КАК ВнеоборотныйАктив,
| ТаблицаНМА.ЕГДС КАК ЕГДС
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаНМА
|
|ГДЕ
| ТаблицаНМА.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И ТаблицаНМА.ЕГДС <> ЗНАЧЕНИЕ(Справочник.ЕдиницыГенерирующиеДенежныеСредства.ПустаяСсылка)
|";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаОбесценениеВНА(ТекстыЗапроса, Регистры)
ИмяРегистра = "ОбесценениеВНА";
Если Не ПроведениеДокументов.ТребуетсяТаблицаДляДвижений(ИмяРегистра, Регистры) Тогда
Возврат "";
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| ТаблицаОС.Ссылка КАК Регистратор,
| ТаблицаОС.Ссылка.Дата КАК Период,
| ТаблицаОС.Ссылка.Организация КАК Организация,
| ТаблицаОС.ОсновноеСредство КАК ВнеоборотныйАктив,
| ТаблицаОС.ЕГДС КАК ЕГДС,
| &Местонахождение КАК Подразделение,
| ТаблицаОС.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ТаблицаОС.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаОС.ОбесценениеБУ КАК ОбесценениеРегл,
| ТаблицаОС.ОбесценениеУУ КАК ОбесценениеУпр,
| ТаблицаОС.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковОбесцененияОС) КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ТаблицаОС
|
|ГДЕ
| ТаблицаОС.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (ТаблицаОС.ОбесценениеБУ <> 0
| ИЛИ ТаблицаОС.ОбесценениеУУ <> 0)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
| ТаблицаНМА.Ссылка КАК Регистратор,
| ТаблицаНМА.Ссылка.Дата КАК Период,
| ТаблицаНМА.Ссылка.Организация КАК Организация,
| ТаблицаНМА.НематериальныйАктив КАК ВнеоборотныйАктив,
| ТаблицаНМА.ЕГДС КАК ЕГДС,
| &Местонахождение КАК Подразделение,
| ТаблицаНМА.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ТаблицаНМА.ГруппаФинансовогоУчета КАК ГруппаФинансовогоУчета,
| ТаблицаНМА.ОбесценениеБУ КАК ОбесценениеРегл,
| ТаблицаНМА.ОбесценениеУУ КАК ОбесценениеУпр,
| ТаблицаНМА.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| ЗНАЧЕНИЕ(Справочник.НастройкиХозяйственныхОпераций.ВводОстатковОбесцененияНМА) КАК НастройкаХозяйственнойОперации
|
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.НМА КАК ТаблицаНМА
|
|ГДЕ
| ТаблицаНМА.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете
| И (ТаблицаНМА.ОбесценениеБУ <> 0
| ИЛИ ТаблицаНМА.ОбесценениеУУ <> 0)
|";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаВтПрочиеРасходы(Запрос, ТекстыЗапроса)
ИмяРегистра = "ВтПрочиеРасходы";
Если Не ПроведениеДокументов.ЕстьТаблицаЗапроса("ВтИсходныеПрочиеРасходы", ТекстыЗапроса) Тогда
ТекстЗапросаТаблицаВтИсходныеПрочиеРасходы(Запрос, ТекстыЗапроса);
КонецЕсли;
ТекстЗапроса = РегистрыНакопления.ПрочиеРасходы.ТекстЗапросаТаблицаВтПрочиеРасходы();
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаТаблицаВтИсходныеПрочиеРасходы(Запрос, ТекстыЗапроса)
ИмяРегистра = "ВтИсходныеПрочиеРасходы";
Если Не ПроведениеДокументов.ЕстьТаблицаЗапроса("ВтДанныеРасходы", ТекстыЗапроса) Тогда
ТекстЗапросаВтДанныеРасходы(Запрос, ТекстыЗапроса);
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход) КАК ВидДвижения,
| ВтДанныеРасходы.Дата КАК Период,
| ВтДанныеРасходы.Организация КАК Организация,
| ВтДанныеРасходы.Подразделение КАК Подразделение,
| ВтДанныеРасходы.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ВтДанныеРасходы.СтатьяРасходов КАК СтатьяРасходов,
| ВтДанныеРасходы.АналитикаРасходов КАК АналитикаРасходов,
| ВтДанныеРасходы.ВидДеятельностиНДС КАК ВидДеятельностиНДС,
|
| ВтДанныеРасходы.Сумма КАК СуммаСНДС,
| ВтДанныеРасходы.СуммаБезНДС КАК СуммаБезНДС,
| ВтДанныеРасходы.СуммаБезНДС КАК СуммаБезНДСУпр,
|
| ВтДанныеРасходы.СуммаРегл КАК СуммаСНДСРегл,
| ВтДанныеРасходы.СуммаРегл
| - ВтДанныеРасходы.НДСРегл КАК СуммаБезНДСРегл,
| ВтДанныеРасходы.СуммаПР КАК ПостояннаяРазница,
| ВтДанныеРасходы.СуммаВР КАК ВременнаяРазница,
| ВЫБОР
| КОГДА ВтДанныеРасходы.Дата < &ДатаНачалаУчета
| И (ВтДанныеРасходы.Сумма < 0 ИЛИ ВтДанныеРасходы.СуммаБезНДС < 0 ИЛИ ВтДанныеРасходы.СуммаРегл < 0)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.СторнированиеПрочихРасходов)
| ИНАЧЕ &ХозяйственнаяОперация
| КОНЕЦ КАК ХозяйственнаяОперация,
|
| НЕОПРЕДЕЛЕНО КАК АналитикаУчетаНоменклатуры,
| ВтДанныеРасходы.ИдентификаторФинЗаписи КАК ИдентификаторФинЗаписи,
| ВтДанныеРасходы.НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ПОМЕСТИТЬ ВтИсходныеПрочиеРасходы
|ИЗ
| ВтДанныеРасходы КАК ВтДанныеРасходы";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаВтДанныеРасходы(Запрос, ТекстыЗапроса)
ИмяРегистра = "ВтДанныеРасходы";
Если НЕ ПроведениеДокументов.ЕстьТаблицаЗапроса("ВтТаблицаАналитикУчетаПартий", ТекстыЗапроса) Тогда
ТекстЗапросаВтТаблицаАналитикУчетаПартий(Запрос, ТекстыЗапроса);
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| &Организация КАК Организация,
| &Период КАК Дата,
| ДанныеДокументаРасходы.НомерСтроки КАК НомерСтроки,
| ДанныеДокументаРасходы.Подразделение КАК Подразделение,
| ДанныеДокументаРасходы.НаправлениеДеятельности КАК НаправлениеДеятельности,
| ДанныеДокументаРасходы.СтатьяРасходов КАК СтатьяРасходов,
| ДанныеДокументаРасходы.ВнеоборотныйАктив КАК АналитикаРасходов,
| ДанныеДокументаРасходы.Ссылка КАК ДокументПоступленияРасходов,
|
| ТаблицаАналитикУчетаПартий.ВидЦенности КАК ВидЦенности,
| ТаблицаАналитикУчетаПартий.НалогообложениеНДС КАК ВидДеятельностиНДС,
| ТаблицаАналитикУчетаПартий.АналитикаУчетаПартий КАК АналитикаУчетаПартий,
|
| ДанныеДокументаРасходы.Сумма КАК Сумма,
| ДанныеДокументаРасходы.СуммаБезНДС КАК СуммаБезНДС,
| ДанныеДокументаРасходы.СуммаРегл КАК СуммаРегл,
| 0 КАК НДСРегл,
| ДанныеДокументаРасходы.СуммаПР КАК СуммаПР,
| ДанныеДокументаРасходы.СуммаВР КАК СуммаВР,
|
| ДанныеДокументаРасходы.ИдентификаторСтроки КАК ИдентификаторФинЗаписи,
| &НастройкаХозяйственнойОперации КАК НастройкаХозяйственнойОперации
|
|ПОМЕСТИТЬ ВтДанныеРасходы
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ПрочиеРасходы КАК ДанныеДокументаРасходы
|
| ЛЕВОЕ СОЕДИНЕНИЕ
| ПланВидовХарактеристик.СтатьиРасходов КАК СтатьиРасходов
| ПО
| ДанныеДокументаРасходы.СтатьяРасходов = СтатьиРасходов.Ссылка
|
| ЛЕВОЕ СОЕДИНЕНИЕ ВтТаблицаАналитикУчетаПартий КАК ТаблицаАналитикУчетаПартий
| ПО ТаблицаАналитикУчетаПартий.НомерСтроки = ДанныеДокументаРасходы.НомерСтроки
|
|ГДЕ
| ДанныеДокументаРасходы.Ссылка = &Ссылка
| И &ОтражатьВОперативномУчете";
ТекстыЗапроса.Добавить(ТекстЗапроса, ИмяРегистра);
Возврат ТекстЗапроса;
КонецФункции
Функция ТекстЗапросаВтТаблицаАналитикУчетаПартий(Запрос, ТекстыЗапроса)
ТекстВыборкаПоляАналитик =
"ВЫБРАТЬ
| ""ПрочиеРасходы"" КАК ИмяТабличнойЧасти,
| ТаблицаДокумента.НомерСтроки КАК НомерСтроки,
| ЗНАЧЕНИЕ(Справочник.Партнеры.ПустаяСсылка) КАК Поставщик,
| ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка) КАК Контрагент,
| НЕОПРЕДЕЛЕНО КАК СтавкаНДС,
| ВЫБОР КОГДА ЕСТЬNULL(Статьи.ВариантРаздельногоУчетаНДС, НЕОПРЕДЕЛЕНО) =
| ЗНАЧЕНИЕ(Перечисление.ВариантыРаздельногоУчетаНДС.Распределение)
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ТипыНалогообложенияНДС.ПоФактическомуИспользованию)
| ИНАЧЕ ДанныеДокумента.НалогообложениеНДС
| КОНЕЦ КАК НалогообложениеНДС,
| Статьи.ВидЦенностиНДС КАК ВидЦенности,
| 0 КАК КодСтроки
|ПОМЕСТИТЬ ВТПоляАналитикУчетаПартий
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ПрочиеРасходы КАК ТаблицаДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.СтатьиРасходов КАК Статьи
| ПО ТаблицаДокумента.СтатьяРасходов = Статьи.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВводОстатковВнеоборотныхАктивов2_4 КАК ДанныеДокумента
| ПО ДанныеДокумента.Ссылка = ТаблицаДокумента.Ссылка
|ГДЕ
| ТаблицаДокумента.Ссылка = &Ссылка
|";
ТекстЗапроса = Справочники.КлючиАналитикиУчетаПартий.ТекстЗапросаВтТаблицаАналитикУчетаПартий(ТекстВыборкаПоляАналитик, Запрос, ТекстыЗапроса);
Возврат ТекстЗапроса;
КонецФункции
Процедура ИнициализироватьКлючиАналитикиПоПартнерам(Запрос)
Если Запрос.Параметры.Свойство("КлючиАналитикиУчетаПоПартнерамИнициализированы") Тогда
Возврат;
КонецЕсли;
ЗапросАналитик = Новый Запрос;
ЗапросАналитик.Текст = "
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| &Организация КАК Организация,
| &Партнер КАК Партнер,
| &Контрагент КАК Контрагент,
| ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка) КАК Договор,
| ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка) КАК НаправлениеДеятельности
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.РасчетыПоДоговорамАренды КАК Расчеты
|
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ДоговорыАренды КАК ДанныеДоговора
| ПО Расчеты.Договор = ДанныеДоговора.Ссылка
|
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК Аналитика
| ПО Аналитика.Организация = &Организация
| И Аналитика.Контрагент = &Контрагент
| И Аналитика.Партнер = &Партнер
| И Аналитика.Договор = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
| И Аналитика.НаправлениеДеятельности = ЗНАЧЕНИЕ(Справочник.НаправленияДеятельности.ПустаяСсылка)
|ГДЕ
| Расчеты.Ссылка = &Ссылка
| И Аналитика.КлючАналитики ЕСТЬ NULL
|";
ЗапросАналитик.УстановитьПараметр("Ссылка", Запрос.Параметры.Ссылка);
ЗапросАналитик.УстановитьПараметр("Организация", Запрос.Параметры.Организация);
ЗапросАналитик.УстановитьПараметр("Партнер", Запрос.Параметры.Партнер);
ЗапросАналитик.УстановитьПараметр("Контрагент", Запрос.Параметры.Контрагент);
Выборка = ЗапросАналитик.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
РегистрыСведений.АналитикаУчетаПоПартнерам.СоздатьКлючАналитики(Выборка);
КонецЦикла;
Запрос.УстановитьПараметр("КлючиАналитикиУчетаПоПартнерамИнициализированы", Истина);
КонецПроцедуры
#КонецОбласти
#Область ПроведениеРегламентированныйУчет
Функция ТекстОтраженияВРеглУчете() Экспорт
Возврат ВводОстатковВнеоборотныхАктивовЛокализация.ТекстОтраженияВРеглУчете();
КонецФункции
Функция ТекстЗапросаВТОтраженияВРеглУчете() Экспорт
Возврат ВводОстатковВнеоборотныхАктивовЛокализация.ТекстЗапросаВТОтраженияВРеглУчете();
КонецФункции
#КонецОбласти
#Область Прочее
Функция ПараметрыВыбораСтатейИАналитик() Экспорт
ПараметрыВыбораСтатейИАналитик = Новый Массив;
#Область ОС
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект.ОС";
ПараметрыВыбора.Статья = "СтатьяРасходовБУ";
ПараметрыВыбора.ДоступностьПоОперации = Неопределено;
ПараметрыВыбора.ВыборСтатьиРасходов = Истина;
ПараметрыВыбора.АналитикаРасходов = "АналитикаРасходовБУ";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяРасходовБУ");
ПараметрыВыбора.ЭлементыФормы.АналитикаРасходов.Добавить("АналитикаРасходовБУ");
ПараметрыВыбораСтатейИАналитик.Добавить(ПараметрыВыбора);
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект.ОС";
ПараметрыВыбора.Статья = "СтатьяРасходовУУ";
ПараметрыВыбора.ДоступностьПоОперации = Неопределено;
ПараметрыВыбора.ВыборСтатьиРасходов = Истина;
ПараметрыВыбора.АналитикаРасходов = "АналитикаРасходовУУ";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяРасходовУУ");
ПараметрыВыбора.ЭлементыФормы.АналитикаРасходов.Добавить("АналитикаРасходовУУ");
ПараметрыВыбораСтатейИАналитик.Добавить(ПараметрыВыбора);
#КонецОбласти
#Область НМА
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект.НМА";
ПараметрыВыбора.Статья = "СтатьяРасходовБУ";
ПараметрыВыбора.ДоступностьПоОперации = Неопределено;
ПараметрыВыбора.ВыборСтатьиРасходов = Истина;
ПараметрыВыбора.АналитикаРасходов = "АналитикаРасходовБУ";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяРасходовБУ");
ПараметрыВыбора.ЭлементыФормы.АналитикаРасходов.Добавить("АналитикаРасходовБУ");
ПараметрыВыбораСтатейИАналитик.Добавить(ПараметрыВыбора);
ПараметрыВыбора = ДоходыИРасходыСервер.ПараметрыВыбораСтатьиИАналитики();
ПараметрыВыбора.ПутьКДанным = "Объект.НМА";
ПараметрыВыбора.Статья = "СтатьяРасходовУУ";
ПараметрыВыбора.ДоступностьПоОперации = Неопределено;
ПараметрыВыбора.ВыборСтатьиРасходов = Истина;
ПараметрыВыбора.АналитикаРасходов = "АналитикаРасходовУУ";
ПараметрыВыбора.ЭлементыФормы.Статья.Добавить("СтатьяРасходовУУ");
ПараметрыВыбора.ЭлементыФормы.АналитикаРасходов.Добавить("АналитикаРасходовУУ");
ПараметрыВыбораСтатейИАналитик.Добавить(ПараметрыВыбора);
#КонецОбласти
ВводОстатковВнеоборотныхАктивовЛокализация.ДополнитьПараметрыВыбораСтатейИАналитик(ПараметрыВыбораСтатейИАналитик);
Возврат ПараметрыВыбораСтатейИАналитик;
КонецФункции
Процедура ОбновитьДанныеВСвязаннойТаблице(ТЧ, НовыеДанные, КодСтроки) Экспорт
ПоискСтрок = Новый Структура("КодСтроки", КодСтроки);
СтрокиКУдалению = ТЧ.НайтиСтроки(ПоискСтрок);
Для Каждого СтрокаТаблицы Из СтрокиКУдалению Цикл
ТЧ.Удалить(СтрокаТаблицы);
КонецЦикла;
Для Каждого СтрокаТаблицы Из НовыеДанные Цикл
НоваяСтрока = ТЧ.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);
НоваяСтрока.КодСтроки = КодСтроки;
КонецЦикла;
КонецПроцедуры
Процедура ЗаполнитьСуммуНДСРасчетовПоДоговорамАренды(Объект) Экспорт
Для Каждого ДанныеСтроки Из Объект.РасчетыПоДоговорамАренды Цикл
ПроцентНДС = УчетНДСУПКлиентСервер.ЗначениеСтавкиНДС(ДанныеСтроки.СтавкаНДС);
ДанныеСтроки.СуммаНДСВыкупаПредметовАренды = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(
ДанныеСтроки.СуммаВыкупаПредметовАренды, ПроцентНДС, Истина);
СтруктураПоиска = Новый Структура("КодСтроки", ДанныеСтроки.КодСтроки);
СписокСтрок = Объект.ГрафикНачисленияУслуг.НайтиСтроки(СтруктураПоиска);
Для Каждого СтрокаГрафика Из СписокСтрок Цикл
СтрокаГрафика.УслугаПоАрендеНДС = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(СтрокаГрафика.УслугаПоАренде, ПроцентНДС, Истина);
СтрокаГрафика.ОбеспечительныйПлатежНДС = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(СтрокаГрафика.ОбеспечительныйПлатеж, ПроцентНДС, Истина);
КонецЦикла;
СтруктураПоиска = Новый Структура("КодСтроки", ДанныеСтроки.КодСтроки);
СписокСтрок = Объект.ГрафикОплатУслуг.НайтиСтроки(СтруктураПоиска);
Для Каждого СтрокаГрафика Из СписокСтрок Цикл
СтрокаГрафика.УслугаПоАрендеНДС = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(СтрокаГрафика.УслугаПоАренде, ПроцентНДС, Истина);
СтрокаГрафика.ОбеспечительныйПлатежНДС = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(СтрокаГрафика.ОбеспечительныйПлатеж, ПроцентНДС, Истина);
СтрокаГрафика.ВыкупнаяСтоимостьНДС = УчетНДСУПКлиентСервер.РассчитатьСуммуНДС(СтрокаГрафика.ВыкупнаяСтоимость, ПроцентНДС, Истина);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#КонецОбласти
#КонецЕсли