Подскажите, есть массив (МС) с задублированными записями. Ниже код, которым я пытаюсь убрать дубли, но код не срабатывает: СвернутыйМассив всё равно содержит задублированные записи. Помогите!!!


МС = Новый Массив;
Пока ТЗ_Сотрудники.следующий() Цикл
    
    МС.Добавить(новый Структура("Подразделение, Сотрудник", ТЗ_Сотрудники.Подразделение, ТЗ_Сотрудники.Сотрудник));   //здесь задублированные сотрудники, подразделение всегда одинаковое
    
    //добавим вспомогательный массив
    СвернутыйМассив = Новый Массив;
    
    Для каждого Элемент Из МС Цикл
        Если СвернутыйМассив.Найти(Элемент.Сотрудник) = Неопределено Тогда
            
            //если такого значения в массиве еще нет, добавим его
            СвернутыйМассив.Добавить(новый Структура("Подразделение, Сотрудник", Элемент.Подразделение, Элемент.Сотрудник));
            
        КонецЕсли;
    КонецЦикла;
    
    Структ = Новый Структура("Сотрудники, Факторы", СвернутыйМассив, МФ);
    
КонецЦикла;

(0) Так ищите дубли по ссылке элемента справочника, а добавляете туда структуру.

(1) Мне надо, чтобы массив был в виде структуры.

ОбщегоНазначенияУТ.УдалитьПовторяющиесяЭлементыМассива()

ТЗ_Сотрудники это таблица? Сверните таблицу. ваш Кэп

(3) Нет у меня такого модуля в 1С:ЗУП3.

(5) в БСП есть такой модуль. Ищите.

(4) Там вначале очень сложный запрос, его менять нельзя. Вот откуда ТЗ_Сотрудники берётся:


ПакетЗапрос = Запрос.ВыполнитьПакет();
ТЗ_Сотрудники = ПакетЗапрос[5].Выбрать();

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

ТЗ_Сотрудники_Свернутая = ТЗ_Сотрудники.Скопировать(); // или выгрузить, зависит от типа
ТЗ_Сотрудники_Свернутая.Свернуть("Подразделение,Сотрудник","");

если нужно свернуть массив -
1) отсортируйте его с помощью сз
2) пробегитесь по сз и выгрузите уникальные в массив

(8) Пишет, что "Метод объекта не обнаружен (Скопировать)". Аналогично "Метод объекта не обнаружен (Выгрузить)".

(6) А разве есть ещё какие-то модули, которые не видных в Общих?!

(10) Ну так в ТЗ_Сотрудники у вас внезапно Выборка, а она не имеет таких методов.
Тогда замените ТЗ_Сотрудники = ПакетЗапрос[5].Выбрать() на ТЗ_Сотрудники = ПакетЗапрос[5].Выгрузить().

(9) Я это не осилю ((

Если запрос возвращает "дубли", которые надо обрабатывать в результате запроса, значит это неправильный запрос.

Результат запроса можно выгрузить, тогда это будет таблица, которую можно свернуть.

Хотя правильней составить запрос, который вернет результата без дублей.

(14) Логично, но по некоторым причинам, запрос решено не трогать.

Можно еще сделать запрос к ТЗ и убрать из нее дубли запросом.

(12) Исправила, теперь ругается что "Метод объекта не обнаружен (Следующий)":


ПакетЗапрос = Запрос.ВыполнитьПакет();
//ТЗ_Сотрудники = ПакетЗапрос[5].Выбрать();
ТЗ_Сотр = ПакетЗапрос[5].Выгрузить();

ТЗ_Сотрудники = ТЗ_Сотр.Скопировать();
ТЗ_Сотрудники.Свернуть("Подразделение,Сотрудник","");

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

(17) Пока ТЗ_Сотрудники.следующий() Цикл - > Для Каждого СтрокаТЗ ИЗ ТЗ_Сотрудники Цикл
внутри цикла зменить ТЗ_Сотрудники  - > СтрокаТЗ

Что за ВОЗВРАТ в цикле?

И если я правильно понял что вы хотите изобразить, то создание структуры еще из цикла вынести.

Хахаха, девушка программистка.
А не проще ли, прежде чем добавлять, глянуть есть ли уже такая запись в кэше?
Кэшем может тупое Соответствие по сотруднику быть.

(18) Спасибо, всё получилось!
vde69,  Гипервизор - вам тоже СПАСИБО!!!

(21) А вы, батенька - шовинист!

(23) так точно, тётенька

(17) три способа свернуть массив: https://1cnik.by/svernut_massiv.php
дубли соответственно уйдут