Добрый день.Подскажите как сделать правильно, только учусь.
Есть документ ПродажаАбонемента с реквизитом ДатаОкончанияАбонемента и документ ЗаписиНаТренировки с реквизитом одноименным в табличной части Клиенты.Нужно осуществить автоматическую подстановку даты окончания абонемента из ПродажаАбонемента в ЗаписиНаТренировки при выборе ФИО клиента в табличной части ЗаписиНаТренировки, а также вывод информации в поле надписи если дата окончания меньше текущей даты.Сделал через Регистр сведений, чтобы подцеплялись актуальные даты абонементов.

В отладке выводит ошибку

Метод объекта не обнаружен (ДатаОкончанияАбонемента)
{Документ.ЗаписиНаТренировки.Форма.ФормаДокумента.Форма(26)}:ДатаОкончанияАбонемента = Объект.ДатаОкончанияАбонемента();
{Документ.ЗаписиНаТренировки.Форма.ФормаДокумента.Форма(4)}:ЗаполнитьТабличнуюЧасть();

И заполняет даты автоматически(а не при выборе клиента) только проведенных документов  после создания Регистра Сведений(что собственно логично ), клиента выбрать не могу.


[code]

&НаКлиенте
Процедура КлиентыПриИзменении(Отказ)
    
    ЗаполнитьТабличнуюЧасть();
    
КонецПроцедуры

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

    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    Для каждого Стр из РезультатЗапроса Цикл
        НоваяСтрока = Объект.ТабличнаяЧасть.Добавить();
        
        НоваяСтрока.ДатаОкончанияАбонемента = Стр.ДатаОкончанияАбонемента;
    КонецЦикла ;
        ТекДата = ТекущаяДата();
    ДатаОкончанияАбонемента = Объект.ДатаОкончанияАбонемента();
          
    Если ДатаОкончанияАбонемента < ТекДата
        тогда
        Инфо = "Нужно приобрести новый абонемент!";

     иначе
         Инфо = "Дата окончания абонемента = " + ДатаОкончанияАбонемента;  
                
    КонецЕсли;

КонецПроцедуры[/code]

Объект.ДатаОкончанияАбонемента()

уберите скобки

Ничего не изменилось.Ошибка такая же, заполнение просто дат в табличной части, клиента добавить не могу.

(2) Не врите

Поле объекта не обнаружено (ДатаОкончанияАбонемента)
{Документ.ЗаписиНаТренировки.Форма.ФормаДокумента.Форма(26)}:ДатаОкончанияАбонемента = Объект.ДатаОкончанияАбонемента;
{Документ.ЗаписиНаТренировки.Форма.ФормаДокумента.Форма(4)}:ЗаполнитьТабличнуюЧасть();

Ну вот как-то так.К сожалению, не вру.Где-то косячу с кодом, пока понять не могу где.

Научись включать отладку. Потом сделай точку останова на строке с ошибкой и долго думай

(4) Ошибка изменилась. Раньше был "Метод не обнаружен". Значит врёте, к сожалению.

Действие не поменялось само - заполняет только даты, не дает выбрать клиента :)
Подскажите, пожалуйста, как исправить.
Написал ДатаОкончанияАбонемента = Объект.Клиенты.ДатаОкончанияАбонемента;
Ну ошибка, собственно, такая же - Поле объекта не обнаружено (ДатаОкончанияАбонемента)

(0) Потому что у документа нет ни метода, ни реквизита ДатаОкончанияАбонемента.
Наверное в цикле проверить для каждой строки таб части.

(7) Если это реквизит табличной части, то доставать значение надо из конкретной строки

Кстати, исправьте опечатку
ДанныеОбОкончанииАбонимента

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

&НаКлиенте
Процедура КлиентыПриИзменении(Элемент)
    
    ЗаполнитьТабличнуюЧасть();  
    
    
    СтрокаТЧ = Элементы.Клиенты.ТекущиеДанные;
    Для каждого СтрокаТЧ из Объект.Клиенты Цикл
     НоваяСтрока = Объект.Клиенты.Добавить();
        
     НоваяСтрока.ДатаОкончанияАбонемента = СтрокаТЧ.ДатаОкончанияАбонемента;
    КонецЦикла ;
        
     ТекДата = ТекущаяДата();
            
    ДатаОкончанияАбонемента = Объект.Клиенты.ДатаОкончанияАбонемента;
          
    Если Объект.ДатаОкончанияАбонемента < ТекДата
        тогда
        Инфо = "Нужно приобрести новый абонемент!";

     иначе
         Инфо = "Дата окончания абонемента = " + ДатаОкончанияАбонемента;  
                
    КонецЕсли;
    
    КонецПроцедуры

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

    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    

КонецПроцедуры

(11) А регистр сведений Вы тоже переименовали?

Кстати, в запросе нет условия на клиента. Он выбирает все данные, это может быть долго

(11) Кстати, поздравляю, Вы сделали бесконечную рекурсию

У Вас же внутри процедуры КлиентыПриИзменении(Элемент)
меняется табличная часть Клиенты и опять вызывается эта процедура

Для каждого СтрокаТЧ из Объект.Клиенты Цикл
     НоваяСтрока = Объект.Клиенты.Добавить();
        
     НоваяСтрока.ДатаОкончанияАбонемента = СтрокаТЧ.ДатаОкончанияАбонемента;
КонецЦикла ;


красиво. а зачем?

(11)

Вот здесь запрос сам должен догадаться какой абонемент вы имеете в виду ?
Или это учебная база, абонемент всегда один, а дальше "и так сойдет" ?


   Запрос.Текст =
    "ВЫБРАТЬ
    |    ДанныеОбОкончанииАбонемента.ФИОклиента КАК ФИОклиента,
    |    ДанныеОбОкончанииАбонемента.ДатаОкончанияАбонемента КАК ДатаОкончанияАбонемента
    |ИЗ
    |    РегистрСведений.ДанныеОбОкончанииАбонемента КАК ДанныеОбОкончанииАбонемента";

(14) Это генератор программного кода или магическое программирование. Вдруг сработает

Регистр переименовал правильно, спасибо
Как исправить код, подскажите, пожалуйста, не могу додуматься

(17) Сотрите всю процедуру и напишите новую.

Задействуйте событие ПриИзменении для ячейки Клиент в табличной части.
В ней напишите одну строку.

(17) Дополнительно измените структуру регистра. Измерение ФИОклиента переименуйте в Клиент и измените тип на Справочник.Клиенты