Поступление в аренду ОС

Если Не ЗначениеЗаполнено(ТаблицаОС) Тогда
        Возврат;
    КонецЕсли;
    
    Параметры = ПодготовитьПараметрыВозможностьИзмененияСостоянияОС(ТаблицаОС, ТаблицаРеквизиты);
    Реквизиты = Параметры.Реквизиты[0];

    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ТаблицаОС.НомерСтроки КАК НомерСтроки,
    |    ТаблицаОС.ОсновноеСредство КАК ОсновноеСредство
    |ПОМЕСТИТЬ ТаблицаОС
    |ИЗ
    |    &ТаблицаОС КАК ТаблицаОС
    |
    |ИНДЕКСИРОВАТЬ ПО
    |    ОсновноеСредство
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ
    |    СостоянияОСОрганизаций.ОсновноеСредство КАК ОсновноеСредство,
    |    СостоянияОСОрганизаций.ОсновноеСредство.Код КАК КодОС,
    |    СостоянияОСОрганизаций.ДатаСостояния КАК ДатаСостояния,
    |    СостоянияОСОрганизаций.Регистратор КАК Регистратор,
    |    ТаблицаОС.НомерСтроки КАК НомерСтроки
    |ИЗ
    |    РегистрСведений.СостоянияОСОрганизаций КАК СостоянияОСОрганизаций
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТаблицаОС КАК ТаблицаОС
    |        ПО СостоянияОСОрганизаций.ОсновноеСредство = ТаблицаОС.ОсновноеСредство
    |ГДЕ
    |    СостоянияОСОрганизаций.Организация = &Организация
    |    И СостоянияОСОрганизаций.Регистратор <> &Документ
    |    И СостоянияОСОрганизаций.Состояние = &Состояние
    |    И СостоянияОСОрганизаций.Активность = ИСТИНА
    |    И СостоянияОСОрганизаций.Период <= &Период
    |
    |УПОРЯДОЧИТЬ ПО
    |    ТаблицаОС.НомерСтроки";

    Запрос.УстановитьПараметр("Организация", Реквизиты.Организация );
    Запрос.УстановитьПараметр("Состояние", Реквизиты.СостояниеОС);
    Запрос.УстановитьПараметр("Документ", Реквизиты.Регистратор);
    Запрос.УстановитьПараметр("ТаблицаОС", Параметры.ТаблицаОС);
    Запрос.УстановитьПараметр("Период", Реквизиты.Период);

    Если ТранзакцияАктивна() Тогда

        Блокировка = Новый БлокировкаДанных;
        ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.СостоянияОСОрганизаций");
        ЭлементБлокировки.УстановитьЗначение("Организация", Реквизиты.Организация);
        ЭлементБлокировки.ИсточникДанных = Параметры.ТаблицаОС;
        ЭлементБлокировки.ИспользоватьИзИсточникаДанных("ОсновноеСредство", "ОсновноеСредство");
        Блокировка.Заблокировать();

    КонецЕсли;

    РезультатЗапроса = Запрос.Выполнить();
    Если НЕ РезультатЗапроса.Пустой() Тогда
        Выборка = РезультатЗапроса.Выбрать();

        ШаблонСообщения = НСтр("ru = 'Для основного средства <%1 (%2)> в организации <%3> уже зафиксировано состояние <%4>
            |документом <%5>. Дата состояния: %6'");

        Пока Выборка.Следующий() Цикл
            ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСообщения, Выборка.ОсновноеСредство,
                Выборка.КодОС, Реквизиты.Организация, Реквизиты.СостояниеОС, Выборка.Регистратор, Формат(Выборка.ДатаСостояния, "ДФ=dd.MM.yyyy"));
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, Реквизиты.Регистратор, Реквизиты.ИмяСписка + "["
                + Формат(Выборка.НомерСтроки - 1, "ЧН=0; ЧГ=") + "].ОсновноеСредство", "Объект", Отказ);
        КонецЦикла;
     
        
        Возврат;   
        
    КонецЕсли;

    Если Реквизиты.СостояниеОС = Перечисления.СостоянияОС.ПринятоКУчету Тогда
        Запрос.УстановитьПараметр("Дата", Реквизиты.Период);

        Запрос.Текст =
        "ВЫБРАТЬ
        |    СостоянияОСОрганизаций.ОсновноеСредство КАК ОсновноеСредство,
        |    СостоянияОСОрганизаций.ДатаСостояния КАК ДатаСостояния,
        |    ТаблицаОС.НомерСтроки КАК НомерСтроки,
        |    СостоянияОСОрганизаций.Регистратор КАК Регистратор,
        |    СостоянияОСОрганизаций.Состояние КАК Состояние,
        |    СостоянияОСОрганизаций.Организация КАК Организация
        |ПОМЕСТИТЬ СостоянияОС
        |ИЗ
        |    РегистрСведений.СостоянияОСОрганизаций КАК СостоянияОСОрганизаций
        |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТаблицаОС КАК ТаблицаОС
        |        ПО СостоянияОСОрганизаций.ОсновноеСредство = ТаблицаОС.ОсновноеСредство
        |            И (СостоянияОСОрганизаций.Период < &Дата)
        |            И (СостоянияОСОрганизаций.Активность = ИСТИНА)
        |
        |ИНДЕКСИРОВАТЬ ПО
        |    ОсновноеСредство
        |;
        |
        |////////////////////////////////////////////////////////////­////////////////////
        |ВЫБРАТЬ
        |    СостоянияОС.ОсновноеСредство КАК ОсновноеСредство,
        |    МАКСИМУМ(СостоянияОС.ДатаСостояния) КАК ДатаСостояния
        |ПОМЕСТИТЬ ДатыПоследнихСостоянийОС
        |ИЗ
        |    СостоянияОС КАК СостоянияОС
        |
        |СГРУППИРОВАТЬ ПО
        |    СостоянияОС.ОсновноеСредство
        |
        |ИНДЕКСИРОВАТЬ ПО
        |    ОсновноеСредство
        |;
        |
        |////////////////////////////////////////////////////////////­////////////////////
        |ВЫБРАТЬ
        |    СостоянияОС.ОсновноеСредство КАК ОсновноеСредство,
        |    СостоянияОС.ОсновноеСредство.Код КАК КодОС,
        |    СостоянияОС.ДатаСостояния КАК ДатаСостояния,
        |    СостоянияОС.НомерСтроки КАК НомерСтроки,
        |    СостоянияОС.Регистратор КАК Регистратор,
        |    СостоянияОС.Организация КАК Организация
        |ИЗ
        |    ДатыПоследнихСостоянийОС КАК ДатыПоследнихСостоянийОС
        |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ СостоянияОС КАК СостоянияОС
        |        ПО ДатыПоследнихСостоянийОС.ОсновноеСредство = СостоянияОС.ОсновноеСредство
        |            И ДатыПоследнихСостоянийОС.ДатаСостояния = СостоянияОС.ДатаСостояния
        |ГДЕ
        |    СостоянияОС.Состояние = ЗНАЧЕНИЕ(Перечисление.СостоянияОС.ПринятоКУчету)
        |
        |УПОРЯДОЧИТЬ ПО
        |    НомерСтроки";

        РезультатЗапроса = Запрос.Выполнить();
        Если НЕ РезультатЗапроса.Пустой() Тогда
            Выборка = РезультатЗапроса.Выбрать();

            ШаблонСообщения = НСтр("ru = 'Основное средство <%1 (%2)> принято к учету в организации <%3>
                |документом <%4>. Дата состояния: %5'");

            Пока Выборка.Следующий() Цикл
                ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСообщения, Выборка.ОсновноеСредство,
                    Выборка.КодОС, Выборка.Организация, Выборка.Регистратор, Формат(Выборка.ДатаСостояния, "ДФ=dd.MM.yyyy"));
                ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, Реквизиты.Регистратор, Реквизиты.ИмяСписка + "["
                    + Формат(Выборка.НомерСтроки - 1, "ЧН=0; ЧГ=") + "].ОсновноеСредство", "Объект", Отказ);
            КонецЦикла;

            Возврат;
        КонецЕсли;
    ИначеЕсли Реквизиты.СостояниеОС = Перечисления.СостоянияОС.СнятоСУчета Тогда
        ПроверитьСостояниеОСПринятоКУчету(Параметры.ТаблицаОС, Параметры.Реквизиты, Отказ);
    КонецЕсли;