Имя: Пароль:
1C
1С v8
Таблица значений на упр. форме
,
0 d3N4eGG
 
25.06.12
11:54
Нужно заполнить и вывести на форму таблицу значений.

Услуги - реквизит формы, типа Таблица Значений.
Делаю следующее:

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

   Запрос.УстановитьПараметр("ПродажаСсылка", ПродажаСсылка);
   
   Результат = Запрос.Выполнить();

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

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

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


Не выводит таблицу на форму. Что не так?
1 Адинэснег
 
25.06.12
11:56
судя по коду из (0) - что-то с генами
2 d3N4eGG
 
25.06.12
11:57
(1) ;(( ну, а что именно в коде Вам не нравится? делаю как в этой ветке v8: 8.2 Результат Запроса в ТЗ на форме
3 aleks-id
 
25.06.12
11:59
(2) чем динамический список не нравится?
4 d3N4eGG
 
25.06.12
12:02
(3) нужна возможность редактирования списка.
5 aleks-id
 
25.06.12
12:05
(4) используй табличную часть и не изобретай велосипед
6 aleks-id
 
25.06.12
12:05
а вместо портянки
   Результат = Запрос.Выполнить();

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

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

пишут
Услуги.Загрузить(Запрос.Выполнить().Выгрузить());
7 d3N4eGG
 
25.06.12
12:10
(5) Произвольная форма документа, а нужная тч в самом документе, как привязать таблицу на форму к ней?
8 AaNnDdRrEeYy
 
25.06.12
12:11
пишут
Услуги.Загрузить(Запрос.Выполнить().Выгрузить());
//+ срочка для вывода на форму
ЗначениеВРеквизитФормы(Услуги, "Услуги")
9 AaNnDdRrEeYy
 
25.06.12
12:13
(7)сделать реквизит с типом ДокументОбъект (заполнить его при открытии) раскрыть плюсик у реквизита выбрать таб часть и кинуть на форму, на вопрос "добавить колонки Тч" ответить да, вот и все
10 d3N4eGG
 
25.06.12
12:20
(9)Огромное спасибо!