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

как выгрузить значения из запроса и потом с ними работать?

Автор Yamuna, 15 июн 2019, 13:42

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

Yamuna

Добрый день ! есть запрос из него надо выгрузить значения , наверное в массив или не знаю как лучше, чтобы потом можно было смотреть сколько у Родителя элементов и анализировать, только не знаю как это сделать , подскажите пожалуйста....

Процедура ПроверяемПервых1Уровень()

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ УчастникиПервогоУровня1.Ссылка) КАК КолПодчиненных,
| УчастникиПервогоУровня1.Родитель КАК Родитель
|ИЗ
| Справочник.УчастникиПервогоУровня1 КАК УчастникиПервогоУровня1
|ГДЕ
| УчастникиПервогоУровня1.Родитель = ЗНАЧЕНИЕ(Справочник.УчастникиПервогоУровня1.ПустаяСсылка)
| И НЕ УчастникиПервогоУровня1.ПометкаУдаления
|
|СГРУППИРОВАТЬ ПО
| УчастникиПервогоУровня1.Родитель";

//Запрос.УстановитьПараметр("Родитель", Родитель);

РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    Список = Новый ТаблицаЗначений;
Список.ЗаполнитьЗначения(РезультатЗапроса);

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

Если Выборка.Следующий() Тогда
Если Выборка.КолПодчиненных>=5 Тогда
ЭлСсылка = Справочники.УчастникиПервогоУровня1.НайтиПоНаименованию(Родитель);
СпрОб = ЭлСсылка.ПолучитьОбъект();
Если СпрОб.СтатусУчастника = Перечисления.СтатусУчастника.Зарегистрирован Тогда
СпрОб.СтатусУчастника = Перечисления.СтатусУчастника.Активирован;
СпрОб.Записать();
Сообщить(Строка(Родитель)+ " Активирован");
КонецЕсли;

ИначеЕсли Выборка.КолПодчиненных<5 Тогда
ЭлСсылка = Справочники.УчастникиПервогоУровня1.НайтиПоНаименованию(Родитель);
СпрОб = ЭлСсылка.ПолучитьОбъект();
Если СпрОб.СтатусУчастника = Перечисления.СтатусУчастника.Активирован Тогда
СпрОб.СтатусУчастника = Перечисления.СтатусУчастника.Зарегистрирован;
СпрОб.Записать();
Сообщить(Строка(Родитель)+ " Зарегистрирован");
КонецЕсли;
КонецЕсли;
КонецЕсли;



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

Теги:

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

Рейтинг@Mail.ru

Поиск