Имя: Пароль:
1C
1С v8
Добавление группы доступа физЛицам
0 manti
 
04.07.12
13:11
Добрый день. Запросом получаю весь списко физлиц. выводит пустые незаполненые строки
Процедура ЗаполнитьНажатие(Элемент)
   
   ДанныеИзФизлиц = новый Запрос(
   "ВЫБРАТЬ
   |    ФизическиеЛица.Наименование КАК Наименование,
   |    ФизическиеЛица.ГруппаДоступаФизическогоЛица
   |ИЗ
   |    Справочник.ФизическиеЛица КАК ФизическиеЛица
   |
   |УПОРЯДОЧИТЬ ПО
   |    Наименование"
   );
   
   ТЗПользователей.Колонки.Добавить("Пользователь",Новый ОписаниеТипов("СправочникСсылка.ФизическиеЛица"));
   ТЗПользователей.Колонки.Добавить("Использование",Новый ОписаниеТипов("Булево"));
       
 
   МассивПользователей = ДанныеИзФизлиц.Выполнить().Выгрузить();
    //МассивПользователей.Следующий();
       Для каждого Физлицо Из МассивПользователей Цикл
           НоваяСтрока = ТЗПользователей.Добавить();
           НоваяСтрока.Пользователь = Физлицо.Наименование;
           //НоваяСтрока.Использование = истина;
       КонецЦикла;
    ЭлементыФормы.ТЗПользователей.СоздатьКолонки();
КонецПроцедуры

// как дальше обртиться к самому текущему объекту и записать группу?
Процедура ЗаписатьНажатие(Элемент)
                                 
   Для каждого Физлицо Из ТЗПользователей Цикл
       Если Физлицо.Использование Тогда
            Физлицо.ГруппаДоступаФизическогоЛица = Справочники.ГруппыДоступаФизическихЛиц.НайтиПоКоду("000001");
            Физлицо.Записать();
           //Пользователь.Роли.Добавить(Открытие.Метаданные.Роли.Найти(ТекСтрока.Роль))
       КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры
1 ZanderZ
 
04.07.12
13:13
значит есть физлица с пустым наименованием, что бы что-то изменить в физ.лице существующем надо в начале объект получить
2 sanja26
 
04.07.12
13:15
(0)так может не в массиы выгружать, а сразу в ТЧ
3 manti
 
04.07.12
13:41
(1) пустых только 6. (2) так и грузится)) Вопрсс в том как достучаться до объекта?
4 manti
 
04.07.12
14:52
седлал через произвольный алгоритм
Если
Объект.ГруппаДоступаФизическогоЛица = Справочники.ГруппыДоступаФизическихЛиц.ПустаяСсылка() тогда    
Объект.ГруппаДоступаФизическогоЛица = Справочники.ГруппыДоступаФизическихЛиц.НайтиПоКоду("000001");    
Объект.Записать();    
КонецЕсли
5 manti
 
04.07.12
14:52
сделал
Программист всегда исправляет последнюю ошибку.