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

Зполнение табличной части документа по кнопке

Автор kot_oo, 19 фев 2014, 17:28

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

kot_oo

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



Никогда с табличной частью дело не имел, для меня это сложно и не совсем понятно, помогите с процедурой,

Vit1501

посмотри в синтаксис помошнике описание объекта ТабличнаяЧасть, его свойств и методов.

kot_oo

Цитата: Vit1501 от 19 фев 2014, 18:08
посмотри в синтаксис помошнике описание объекта ТабличнаяЧасть, его свойств и методов.
спасибо, а как заполнить таб часть из данных запроса, что после запроса прописывать?

MuI_I_Ika

Пока ВыборкаДетальныеЗАписи.Следующий() Цикл
    НоваяСтрока = ИмяТабличнойЧасти.Добавить();
    ЗаполнитьЗначения(НоваяСтрока,ВыборкаДетальныеЗАписи);
КонецЦикла
;

Luzer1C

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

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

Теги:

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

Рейтинг@Mail.ru

Поиск