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

(справочник)Перемещение Элементов В Группу

Автор Галактик, 27 июн 2012, 19:51

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

Галактик

Данный кусок кода позволяет узнавать возраст физических лиц, создает группу "Несовершеннолетние" и перемещает найденный элемент в группу.

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

Выборка = Справочники.ФизическиеЛица.Выбрать();
   Пока Выборка.Следующий() Цикл
      ФизЛицаОбъект = Выборка.ПолучитьОбъект();
      СравнениеДаты = (ТекущаяДата() - ФизЛицаОбъект.ДатаРождения)/31536000;
      
      Если СравнениеДаты < 18 Тогда
                  
            НоваяГруппа = Справочники.ФизическиеЛица.СоздатьГруппу();
            НоваяГруппа.Наименование = "Несовершеннолетние";
            НоваяГруппа.Записать();
            ФизЛицаОбъект.Родитель = НоваяГруппа.Ссылка;
            ФизЛицаОбъект.Записать();
      КонецЕсли;

Галактик

Тему можно закрывать) Сам доработал)

Теги:

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

Рейтинг@Mail.ru

Поиск