Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
19 мая 2024, 09:19

Вывод табличной части в сообщение

Автор Mariam0, 18 дек 2018, 21:09

0 Пользователей и 1 гость просматривают эту тему.

Mariam0

Добрый вечер! Помогите, пожалуйста разобраться!

Необходимо при нажатии кнопки вывести сообщение в котором будет наименование, группа и семестр (все выводит, кроме семестра ((он находится в табличной части))

Ошибка - https://imgur.com/a/P1ErUKd

Фото справочников и реквизитов - https://imgur.com/a/nfeyy8W


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

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



Спасибо.

antoneus

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

Mariam0


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск