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

Пометка в списке значений

Автор inoifantom, 10 апр 2011, 11:40

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

inoifantom

Добрый день! Помогите с простой задачкой.
Есть список значений. Код:
Для Каждого Элемент Из СписокЗданий Цикл
      Если  Элемент.Пометка Тогда
         ПолучитьДанные=Элемент.Значение;
         СсылкаНаЗдание=ПолучитьДанные.Ссылка;
         ОбъектЗдание=СсылкаНаЗдание.ПолучитьОбъект();
      КонецЕсли;
КонецЦикла;
Как сделать, чтобы если ни 1 элемент не помечен, пометились все элементы???
Спасибо.

chuevsf

Счетчик = 0;
Для Каждого Элемент Из СписокЗданий Цикл
      Если  Элемент.Пометка Тогда
Счетчик = Счетчик +1;
         ПолучитьДанные=Элемент.Значение;
         СсылкаНаЗдание=ПолучитьДанные.Ссылка;
         ОбъектЗдание=СсылкаНаЗдание.ПолучитьОбъект();
      КонецЕсли;
КонецЦикла;

Если Счетчик = 0 тогда
Для Каждого Элемент Из СписокЗданий Цикл
//---- А тут помечаешь  всё
КонецЦикла;
КонецЕсли

P.S. Ну это первое что в голову пришло.

chuevsf

А можно было Счетчик сделать булевым, тогда красивее получилось бы.

inoifantom


chuevsf

Ну уж если действительно помог и желаете сказать "Спасибо", то достаточно клинкуть по ссылке "Сказать СПАСИБО".

Теги:

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

Рейтинг@Mail.ru

Поиск