День добрый! Подскажите пожалуйста, что не так? У меня есть справочник с формой списка, на этой форме есть поле надписи "Задолжность", мне нужно чтобы при выборе пациента (одним щелчком по пациенту) в этом поле надписи выводилась его задолжность. Подскажите кто-нибудь, что я не так делаю?

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)

Если Элементы.Список.ТекущиеДанные.Задолжность = Неопределено Тогда
ЗаполнитьРеквизитЗадолженностьПациента();
КонецЕсли;

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

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

Запрос.УстановитьПараметр("Пациент", ПациентВПриеме(Элементы.Список.ТекущиеДанные.Задолжность));

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

Выборка = Результат.Выбрать();
Сумма = 0;
Пока Выборка.Следующий() Цикл
Сумма = Сумма + Выборка.СуммаКонечныйОстаток;
КонецЦикла;
Если Сумма = 0 Тогда Элементы.ЗадолженностьПациента.ЦветТекста = WebЦвета.Синий;
Элементы.Список.ТекущиеДанные.Задолжность = "У пациента нет задолженности";
ИначеЕсли Сумма > 0 Тогда Элементы.ЗадолженностьПациента.ЦветТекста = WebЦвета.Красный;
Элементы.Список.ТекущиеДанные.Задолжность = "Задолженность пациента составляет: "+Сумма+" "+Константы.ОсновнаяВалюта.Получить();
ИначеЕсли Сумма < 0 Тогда Элементы.ЗадолженностьПациента.ЦветТекста = WebЦвета.Синий;
Элементы.Список.ТекущиеДанные.Задолжность = "Задолженность перед пациентом составляет: "+Сумма*-1+" "+Константы.ОсновнаяВалюта.Получить();
КонецЕсли;
Исключение;
КонецПопытки;
КонецЕсли;

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

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

Запрос.УстановитьПараметр("Ссылка", Элементы.Наименование);

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

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
Пациент = Выборка.Пациент;
КонецЦикла;
Возврат Пациент;
КонецФункции

Зачем попытка - исключение на ровном месте?
В чем заключается проблема?

Попытку уже убрала только что)
проблема заключается в том, что не выводится задолжность в поле надписи. Прошлась отладчиком, ошибок никаких не выдает

(0) Вангую.
Вот это вот : РегистрНакопления.ОплатыПриемов есть регистр оборотов, а не остатков.

РегистрНакопления.ОплатыПриемов - остатки.
Нужно чтобы был обороты, я правильно поняла?

(4) В консоли вначале глянте че он вам выдает.

(4) Нет. Если остатки - тогда все нормально. За одним исключением. Движения туда должны писаться как приход так и расход.

(6) Да, пишется расход и приход

(5) Вот сейчас я точно запаролась на счет консоли. Не совсем вас поняла в данный момент, т.к. с консолью я не сталкивалась ни разу. В 1с полтора месяца. Такие дела о_О

(8) Есть такая обработка "Консоль запросов" которая позволяет выполнить запрос в режиме предприятия и сразу посмотреть результат.

Мне кажется, что функция ПациентВПриеме не работает так как надо

(9) Хорошо, поняла, попробую покопаться с этим. (10) Думаете дело в последней функции "ПациентВПриеме"?

(11) У тебя в Элементы.Наименование что?

(12) Эм..вот за это извиняюсь, чуть ранее не совсем корректно написала вот эту часть "Запрос.УстановитьПараметр("Ссылка", Элементы.Наименование);" в других местах поменяла, а здесь не увидела и пропустила. Так что в целом Элементы.Наименование - это ничего

(13) тебе надо в запрос передать ссылку на документ ПриемСтоматолога

(14) Хорошо, сделаю

(15) Дико извиняюсь, конечно, но, разве это не форма списка справочника пациентов?

(16) Да, все верно. Я в первом сообщении указала, что это справочник с формой списка

(16) Зачем тогда искать пациента через док стоматолога, если он вот он?

(18) Как тогда к нему обратиться? Все равно тот же запрос, только не к этому документу или как-то иначе?

(19) блин, давно не работал с управляемыми формами, но там что-то типа Элементы.Список.ТекущиеДанные.Ссылка вернёт ссылку на элемент справочника

(20) Почитаю по больше на эту тему, спасибо

День добрый. Я все по этой же теме, в общем внесла некоторые изменения, прохожусь отладчиком и вылетает постоянно именно на строке "Если Элементы.Список.ТекущиеДанные.Задолжность = Неопределено Тогда" (Процедура СписокПриАктивизацииСтроки(Элемент)).

Ошибку не выдает, но останавливает именно здесь.

Открываю "Стек вызовов" пишет (Справочник.Пациенты.Форма.ФормаСписка.Форма.СписокПриАктивизацииСтроки(Элемент = ТаблицаФормы) 34 Тонкий клиент:Администратор (4), ghgh:1562)

А при открытии "Локальные переменные" указывает "Переменная" (Элемент), "Значение" (ТаблицаФормы), Тип(ТаблицаФормы).

Что значит "вылетает" и "останавливает"?

В процедура ПриАктивацииСтроки серверный вызов запрещен. Делайте через ПодключитьОбработчикОжидания

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
    
    ТекПациент = Элементы.Список.ТекущаяСтрока;
        Если ТекПациент = Неопределено Тогда
            Возврат;
        КонецЕсли;
    
    СуммаЗадолженности = ПолучитьСуммуЗадолженностиПациента(ТекПациент);
    
    Если СуммаЗадолженности = 0 Тогда
        Элементы.Задолженность.ЦветТекстаЗаголовка = WebЦвета.Синий;
        Элементы.Задолженность.Заголовок  = "У пациента нет задолженности";
    ИначеЕсли СуммаЗадолженности > 0 Тогда
        Элементы.Задолженность.ЦветТекстаЗаголовка = WebЦвета.Красный;
        Элементы.Задолженность.Заголовок  = "Задолженность пациента составляет: "+СуммаЗадолженности;
    ИначеЕсли СуммаЗадолженности < 0 Тогда
        Элементы.Задолженность.ЦветТекстаЗаголовка = WebЦвета.Синий;
        Элементы.Задолженность.Заголовок  = "Задолженность перед пациентом составляет: "+СуммаЗадолженности*(-1);
    КонецЕсли;
    

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

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

КонецФункции

Если добавляю "Константы.ОсновнаяВалюта.Получить();" Вылетает ошибка "Переменная не определена (Константы)"

(25) на клиенте констант нет. Получи ее на сервере и храни в переменной формы. Потом на клиенте получай и показывай.

(26) Хорошо, поняла. Спасибо