//Вызывается на сервере. Третий параметр - оставить только
//различающиеся значения (по умолчанию Ложь)
Продажи = Новый ТаблицаЗначений;
Продажи.Колонки.Добавить("Покупатель");
Продажи.Колонки.Добавить("Сумма");
Строка = Продажи.Добавить();
Строка.Покупатель = "ООО Ромашка";
Строка.Сумма = 1200;
Строка = Продажи.Добавить();
Строка.Покупатель = "ИП Сидоров";
Строка.Сумма = 450;
Строка = Продажи.Добавить();
Строка.Покупатель = "ООО Ромашка";
Строка.Сумма = 3000;
Все = ОбщегоНазначения.ВыгрузитьКолонку(Продажи, "Покупатель");
//Все = "ООО Ромашка", "ИП Сидоров", "ООО Ромашка"
Сообщить("Все = [" + СтрСоединить(Все, ", ") + "]");
Разные = ОбщегоНазначения.ВыгрузитьКолонку(Продажи, "Покупатель", Истина);
//Разные = "ООО Ромашка", "ИП Сидоров"
Сообщить("Разные = [" + СтрСоединить(Разные, ", ") + "]");
//Без БСП - цикл по строкам с проверкой через Найти
Разные = Новый Массив;
Для Каждого СтрокаПродажи Из Продажи Цикл
Если Разные.Найти(СтрокаПродажи.Покупатель) = Неопределено Тогда
Разные.Добавить(СтрокаПродажи.Покупатель);
КонецЕсли;
КонецЦикла;
//Разные = "ООО Ромашка", "ИП Сидоров"
Сообщить("Разные = [" + СтрСоединить(Разные, ", ") + "]");