8.2 База самописная  Документ обращение на его основание вводиться документ Предписание

Вот сама процедура:

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
    //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Акт") Тогда
        // Заполнение шапки
        Адрес = ДанныеЗаполнения.Адрес;
        АР1 = ДанныеЗаполнения.АР1;
        АР2 = ДанныеЗаполнения.АР2;
        Должностное_лицо = ДанныеЗаполнения.ДолжнЛицо;
        Основание_обращение = ДанныеЗаполнения.ОснованиеОбращение;
        Акт_проверки = ДанныеЗаполнения.Ссылка;
        Субъект_ю = ДанныеЗаполнения.Субъект;
        Субъект_ф = ДанныеЗаполнения.Физ_Лицо;
        Для Каждого ТекСтрокаТаблицаНарушений Из ДанныеЗаполнения.ТаблицаНарушений Цикл
            НоваяСтрока = ТаблицаНарушений.Добавить();
            НоваяСтрока.Количество = ТекСтрокаТаблицаНарушений.Количество;
            НоваяСтрока.Нарушение = ТекСтрокаТаблицаНарушений.Нарушение;
        КонецЦикла;
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Обращение") Тогда
        // Заполнение шапки
        АР1 = ДанныеЗаполнения.АР1;
        АР2 = ДанныеЗаполнения.АР2;
        Должностное_лицо = ДанныеЗаполнения.Исполнитель;
        Основание_обращение = ДанныеЗаполнения.Ссылка;
        //Субъект_ю = ДанныеЗаполнения.Управляющая_компания;
        
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ Первые 1
        |    УправляющиеКомпании.Период КАК Период,
        |    УправляющиеКомпании.УК КАК УК,
        |    УправляющиеКомпании.Адрес
        |ИЗ
        |    РегистрСведений.УправляющиеКомпании.СрезПоследних(, Адрес = &Адрес) КАК УправляющиеКомпании
        |ГДЕ
        |    УправляющиеКомпании.Адрес = &Адрес
        |
        |СГРУППИРОВАТЬ ПО
        |    УправляющиеКомпании.Адрес,
        |    УправляющиеКомпании.Период,
        |    УправляющиеКомпании.УК
        |
        |УПОРЯДОЧИТЬ ПО
        |    Период УБЫВ,
        |    УК УБЫВ";

    
            
    Запрос.УстановитьПараметр("Адрес", ДанныеЗаполнения.Ссылка.Управляющая_компания);
    Результат = Запрос.Выполнить().Выбрать();

    Пока Результат.Следующий() Цикл
    Субъект_ю = ДанныеЗаполнения.Результат.УК;
        
    
    КонецЦикла

        
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Проверки_плановые") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Проверки_тематические") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ТСЖ") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.СтандартыРасскрытияИнформации") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Капремонт") Тогда
        // Заполнение шапки
        Должностное_лицо = ДанныеЗаполнения.Исполнитель;
        Основание_обращение = ДанныеЗаполнения.Ссылка;
    КонецЕсли;
    //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры


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

    
            
    Запрос.УстановитьПараметр("Адрес", ДанныеЗаполнения.Ссылка.Управляющая_компания);
    Результат = Запрос.Выполнить().Выбрать();

    Пока Результат.Следующий() Цикл
    Субъект_ю = ДанныеЗаполнения.Результат.УК;
        
    
    КонецЦикла

>Почему?

руки с ж.пы - ничего нового

|    РегистрСведений.УправляющиеКомпании.СрезПоследних(, Адрес = &Адрес) КАК УправляющиеКомпании
        |ГДЕ
        |    УправляющиеКомпании.Адрес = &Адрес

Нахрена?

(2) Не совсем понял?

(1) А по существу?

|ИЗ
        |    РегистрСведений.УправляющиеКомпании.СрезПоследних(, УК = &УК ) КАК УправляющиеКомпании
  
            
    Запрос.УстановитьПараметр("УК ", ДанныеЗаполнения.Ссылка.Управляющая_компания);

может так?

если не отрабатывает запрос, значит, исполнение до него не добралось. внезапно

(6) Я уже думал на эту тему

(7) и решил вместо отладчика запустить мисту?

(7) Что значит "не отрабатывает"? О существовании отладки, конечно же, не в курсе?

(3) Одно и то же условие накладываешь
(7) Отладчик в запрос заходит?

(10) Нет

(11) Значит, ТипЗнч(ДанныеЗаполнения) <> Тип("ДокументСсылка.Обращение")

В отладчике ТипЗнч(ДанныеЗаполнения) что показывает?

+(12) Это же очевидно, по моему

(11) условий нет в коде никаких?

(11) Нет

Жесть. Смотри условие, по которому идет ветка, содержащая запрос, если запрос отрабатывает, но ничего не выводит, то смотри параметры запроса.

А в Процедура ОбработкаЗаполнения вообще заходит?

Вообще

(17) да у него (12). На (13) он ответа не дал.

(13) Вообще не попадает

как всё запущено

(21) Занятно. ТОгда (19) Вообще - что? Вообще заходит? Вообще не заходит?

Это ппц... ТС даже внятно ответить на вопросы не может

То у него запрос не отрабатывает, то в процедуру не заходит даже...

а кто придумал адрес сделать измерением:?

(26)  Я в курсе про это до меня так было переделывать счас смысла не вижу

(27) правильно совсем конфигурацию поломаешь

(27) Да ты и не сможешь корректно переделать

А зачем в цикле обходить результат, если у тебя выбирается первая запись?

(30) Вопросов, зачем в запросе группировка и упорядочивание, у тебя нет? :)

(31) Мальчики, не все сразу! (с)анекдот

а двойной контроль адреса вызывает уважение

не уверен - лучше переспросить базу

Вот так правильно

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

    
        
    Запрос.УстановитьПараметр("Адрес", ДанныеЗаполнения.Ссылка.Адрес);
    Запрос.УстановитьПараметр("ТекущаяДата", ЭтотОбъект.Дата);
    Результат = Запрос.Выполнить().Выбрать();
  
//    
    Пока Результат.Следующий() Цикл
    Субъект_ю = Результат.УК;
        
    
    КонецЦикла

вот как выглядит правильный срез последних на дату