Имя: Пароль:
1C
1С v8
Добавить колонку в ТабличноеПоле
0 rull9ss
 
20.05.13
18:56
Сильно не пинать, только учусь.

Есть табличное поле на форме, тип ДокументСписок (обычные формы).
необходимо добавить колонку с флажком(с возможностью установки/удаления флага).

собственно как? добавил колонку, тип булево, но при нажатии на флаг - открывается документ.

собственно вопрос: каким образом можно добавить колонку(с возможностью редактирования ее данных) в ТабличноеПоле??
1 Mitriy
 
20.05.13
18:57
поиск... аж зубы ноют...
2 HEKPOH
 
20.05.13
18:58
обработчик события ПриИзмененииФлажка...
3 HEKPOH
 
20.05.13
18:58
Дмитрий, веселый понедельник))))))
4 Лефмихалыч
 
20.05.13
20:35
тип ДокументСписок?..
а с какой целью может понадобиться отмечать что-то галками в ДокументСписок?
5 rull9ss
 
21.05.13
10:12
(4) клиент хочет отмечать в списке документов необходимые и выполнять с выделенными доками определенные действия.
(2) при попытке изменения флажка открывается документ
6 rull9ss
 
21.05.13
10:16
ап чтоли
7 kosts
 
21.05.13
10:22
Ну держи чтоли

Перем СписокДокументовДляОбработки;

Процедура ТабличноеПоле1ПриПолученииДанных(Элемент, ОформленияСтрок)
   
   Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
       ОформлениеСтроки.Ячейки.Флажок1.УстановитьФлажок(СписокДокументовДляОбработки.Получить(ОформлениеСтроки.ДанныеСтроки.Ссылка) <> Неопределено);
   КонецЦикла;
   
КонецПроцедуры

Процедура ТабличноеПоле1ПередНачаломИзменения(Элемент, Отказ)
   
   Если ЭлементыФормы.ТабличноеПоле1.ТекущаяКолонка.Имя = "Флажок1" Тогда
       Отказ = Истина;
       Ссылка = ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные.Ссылка;
       Если СписокДокументовДляОбработки.Получить(Ссылка) = Неопределено Тогда
           СписокДокументовДляОбработки.Вставить(Ссылка, Ссылка);
       Иначе
           СписокДокументовДляОбработки.Удалить(Ссылка);
       КонецЕсли;
   КонецЕсли;
   
КонецПроцедуры

СписокДокументовДляОбработки = Новый Соответствие;

Колонка = ЭлементыФормы.ТабличноеПоле1.Колонки.Вставить(0, "Флажок1");
Колонка.Имя = "Флажок1";
Колонка.Ширина = 3;
Колонка.Данные = "";
Колонка.ДанныеФлажка = "ПометкаУдаления";
Колонка.ИзменятьПозицию = Ложь;
Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;
Колонка.ИзменятьВидимость = Ложь;
Колонка.ИзменятьНастройку = Ложь;
Колонка.РежимРедактирования =  РежимРедактированияКолонки.Непосредственно;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс