Как найти максимальное значение в таблице значений

 0 

 // Возвращает структуру с минимальное и максимальное значение в таблице значений

// Структура содержит поля Макс,Мин

// тзДанные - таблица значений

// ПолеМакс, ПолеМин - строка с именем максимального и минимального поля

// Если поле ПолеМакс неуказанно то минимум ищеться по ПолеМин

Функция МаксМинВТаблицеЗначений(тзДанные, ПолеМин, ПолеМакс = Неопределено)

    Результат = Новый Структура("Макс,Мин");

 
    ЗапросМакМин = Новый Запрос;

    ЗапросМакМин.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;

    ЗапросМакМин.Текст = "ВЫБРАТЬ

                         |  РабТаблица._ПолеМакс КАК Макс,

                         |  РабТаблица._ПолеМин КАК Мин

                         |ПОМЕСТИТЬ РабочаяТаблица

                         |ИЗ

                         |  &РабТаблица КАК РабТаблица

                         |;

                         |

                         |////////////////////////////////////////////////////////////////////////////////

                         |ВЫБРАТЬ

                         |  МАКСИМУМ(РабочаяТаблица.Макс) КАК Макс,

                         |  МИНИМУМ(РабочаяТаблица.Мин) КАК Мин

                         |ИЗ

                         |  РабочаяТаблица КАК РабочаяТаблица

                         |;

                         |

                         |////////////////////////////////////////////////////////////////////////////////

                         |УНИЧТОЖИТЬ РабочаяТаблица";



  


                       
  




 
    ЗапросМакМин.Текст = СтрЗаменить(ЗапросМакМин.Текст, "_ПолеМакс" , ПолеМакс);

    ЗапросМакМин.Текст = СтрЗаменить(ЗапросМакМин.Текст, "_ПолеМин" , ПолеМин);

    ЗапросМакМин.УстановитьПараметр("РабТаблица",  тзДанные);

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

 
    Результат["Макс"]= РезМаксМин[0].Макс;

    Результат["Мин"] = РезМаксМин[0].Мин;

 
    Возврат Результат;

КонецФункции   

Вопрос такой – представим себе – используется клиент-серверная база 1С,есть таблица значений – к примеру, в ней 30 колонок и 100 000 строк

Нужно взять максимальное значений из определенной колонки, вам нужно сделать наиболее оптимально.

Чем вы воспользуетесь?

Уточню, что ищщетца. Если максимум ссылочного типа – сначало уточню, как он ищется (по UID, по Представлению).

Если по UID – перебор, если представление – Пакет.

Если примитивный тип – перебор.

“”в ней 30 колонок и 100 000 строк””

Что-то подсказывает мне, что перебор здесь сработает как минимум раз в 100 медленнее, чем через пакетный запрос

за запросы надо кастрировать.это не симптом. это диагноз программиста-халтурщика.

упорядочить – халтура.

упорядочить не получится тк 30 колонок

(я понял искать нужно по всем колонам)

проверю до первого удовлетворительного с учетом прогноза

возможного роста инфо потока.

переберу

выгружу в одномерный массив переберу.

если на сервере выгружу в массивЫ переберу в N фоновых заданий  , где N число доступных ядер.

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

либо выгружу в safe array и обработаю в оле объекте (если виндоус ). подойдет мс скрипт контрол.

напишу ВК.

(21) извраты по необходимости не обсуждает

если нельзя, но сильно надо, то можно (цы)

вообще может так лучше –

ТЗ1 = ТЗ.Скопировать(,”НужнаяКолонка”)

и запрос уже к ТЗ1

А воспримет ли система такой запрос и будет ли такое оптимальным?

ВЫБРАТЬ

  МАКСИМУМ(ЕСТЬNULL(ТЗ.НужнаяКолонка,0)) КАК МаксЗначение

ПОМЕСТИТЬ МаксимальноеЗначение

ИЗ &ТЗ КАК ТЗ;

ВЫБРАТЬ

 МаксимальноеЗначение.МаксЗначение

ИЗ МаксимальноеЗначение КАК МаксимальноеЗначение

(0)

Нужно так:

МаксЧисло = 42;

Сообщить(МаксЧисло)

А как вы поступите при такой вот задаче?

Дано: модуль проведения “тяжелого” документа, необходимо найти максимальное значение в большой ТЗ. Замеры показывают:

– поиск перебором занимает 0,07 сек;

– поиск построителем занимает 0,11 сек;

– поиск сортировкой занимает 0,14 сек;

– поиск запросом к ТЗ занимает 0,15 сек;

– запись движений в регистры занимает 50 сек.

Варианты решения:

а) сделаю оптимально, по замеру;

б) сделаю как удобнее мне, быстрее и читабельнее;

в) перестану страдать херней, сделаю как придется и займусь оптимизацией записи движений в регистры.

сделаю оптимально, по замеру;

сделаю как удобнее мне, быстрее и читабельнее;

т.е запросом к тз.

вот так правдоподобней выглядит

– поиск перебором занимает 0,15  сек;

– поиск запросом к ТЗ занимает 0,07 сек;

(47) Нет конечно!!!

wiki:Ответ_на_главный_вопрос_жизни,_вселенной_и_всего_такого

42 – отвечает на главный вопрос!

(46) Буду сидеть с умным лицом и  делать вид что работаю =)

(46) а где вариант “сделаю оптимально как мне кажется правильным (без замера)” ?

и да, “Premature optimization is the root of all evil” (с) Кнут вроде б

(55) ты про это?

ИндексыКоллекции.Добавить (CollectionIndexes.Add)

ИндексыКоллекции (CollectionIndexes)

Добавить (Add)

Синтаксис:

Добавить(<Колонки>)

Параметры:

<Колонки> (обязательный)

Тип: Строка. Строковое описание колонок индекса в виде: “Колонка1, Колонка2…”.

Возвращаемое значение:

Тип: ИндексКоллекции.

Описание:

Добавляет индекс в список индексов коллекции.

(0)

Ваш вопрос показывает, что Вы весьма туго понимаете

как происходит выполнение запроса или реализация алгоритма.

В поставленной Вами задаче – SQL будет искать тем же перебором

Так же непонятен смысл формирования ТЗ из 100 000, да еще без индексов

Советую изучать матчасть, а не плодить глупые опросы

А что … Сейчас попробую прогнать вот такой кусок ради интереса

Сообщить(ТекущаяДата());

для а =1 по 100000 цикл

   Состояние(а);

конеццикла;

Сообщить(ТекущаяДата());

вернее даже так …

Сообщить(ТекущаяДата());

для а =1 по 100000 цикл

   Состояние(а);

   ОбработкаПрерыванияПользователя();

конеццикла;

Сообщить(ТекущаяДата());

Для подстраховки …

Убери вот это: Состояние(а);

Вон из профессии!

На Состояние у тебя уйдет 95% времени выполнения.

Бить табуреткой по пальцам таких замерщиков.

Вот набацал небольшой код в УАТе

Процедура КнопкаВыполнитьНажатие(Кнопка)

   ЗапросЗ = Новый Запрос;

   ЗапросЗ.Текст =

   “ВЫБРАТЬ

   |    уатЗаправкаГСМЗаправки.Ссылка,

   |    уатЗаправкаГСМЗаправки.НомерСтроки,

   |    уатЗаправкаГСМЗаправки.Дата,

   |    уатЗаправкаГСМЗаправки.ТС,

   |    уатЗаправкаГСМЗаправки.ГСМ,

   |    уатЗаправкаГСМЗаправки.Водитель,

   |    уатЗаправкаГСМЗаправки.ПластиковаяКарта,

   |    ЕСТЬNULL(уатЗаправкаГСМЗаправки.Количество, 0) КАК Количество,

   |    уатЗаправкаГСМЗаправки.Сумма,

   |    уатЗаправкаГСМЗаправки.Валюта,

   |    уатЗаправкаГСМЗаправки.СтавкаНДС,

   |    уатЗаправкаГСМЗаправки.СуммаНДС,

   |    уатЗаправкаГСМЗаправки.ПутевойЛист,

   |    уатЗаправкаГСМЗаправки.Плотность,

   |    уатЗаправкаГСМЗаправки.НомераТалонов

   |ИЗ

   |    Документ.уатЗаправкаГСМ.Заправки КАК уатЗаправкаГСМЗаправки”;

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

   
   Сообщить(“Записей – “+Строка(РезЗ.Количество()));

   
   Сообщить(“Через запрос начало – “+ТекущаяДата());    

   ЗапросЗ1 = Новый Запрос;

   ЗапросЗ1.Текст =

   “ВЫБРАТЬ

   |    ЕСТЬNULL(ТЗ.Количество, 0) КАК Количество

   |ПОМЕСТИТЬ МаксимальноеЗначение

   |ИЗ

   |    &ТЗ КАК ТЗ

   |;

   |

   |////////////////////////////////////////////////////////////////////////////////

   |ВЫБРАТЬ

   |    МАКСИМУМ(МаксимальноеЗначение.Количество) КАК МаксЗначение

   |ИЗ

   |    МаксимальноеЗначение КАК МаксимальноеЗначение”;

   ЗапросЗ1.УстановитьПараметр(“ТЗ”,РезЗ);

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

   
   Сообщить(“Через запрос окончание – “+ТекущаяДата());

   
   Если РезЗ1.Следующий() Тогда

       Сообщить(РезЗ1.МаксЗначение);

   КонецЕсли;

   
   Сообщить(“Через перебор начало – “+ТекущаяДата());    

   МаксЗначение = РезЗ[0].Количество;

   
   Для Каждого СТР_З ИЗ РезЗ Цикл

       МаксЗначение = ?(СТР_З.Количество>МаксЗначение,СТР_З.Количество,МаксЗначение);

   КонецЦикла;

   
   Сообщить(“Через перебор окончание – “+ТекущаяДата());    

   
   Сообщить(МаксЗначение);

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

Вот результат

Записей – 45 742

Через запрос начало – 27.05.2011 16:14:46

Через запрос окончание – 27.05.2011 16:14:50

300

Через перебор начало – 27.05.2011 16:14:50

Через перебор окончание – 27.05.2011 16:14:51

300

(96) время увеличилось

27.05.2011 16:20:48

27.05.2011 16:22:35

Было 1 мин. 25 сек, стало 1 мин. 47 сек

есть таблица в которой есть значения состоящая из столбцов M1,M2,M3,M4 и J. Столбец J – это сумма элементов M1-m4*1/4. Вопрос в том как вывести максимальный элемент из столбца J в поле “ответ”?  В 1С написании модулей практически ничего не понимаю, помогите пожалуйста  Хотя бы общие наводки, как это сделать…

Можно отсортировать таблицу по этой колонке по убыванию. Первая строка – будет ответ.
Можно перебором строк со сравнением значений функцией МАКС()
Можно сделать запрос и в нем вычислить максимальное значение.

Если долго всматриваться в учебник…то в голову может прийти мысль его открыть!


Процедура Поиск_Максимального_Значение_В_Колонках_Заполняемая_ТаблицаНажатие(Элемент)
    Для Колоноки=0 По Заполняемая_Таблица.Колонки.Количество()-1 Цикл
        Сообщить("В колонке "+Заполняемая_Таблица.Колонки[Колоноки].Заголовок+" максимальное значение = "+Максимольное_Значение_Колонки_Вернуть(Колоноки,Заполняемая_Таблица));
    КонецЦикла;

расскажите пожалуйста немного про синтаксис? В данном случае название процедуры может быть любым? И откуда берется значение “Заполняемая_Таблица”? Это название Табличной части?

Добавлено: 03 дек 2012, 21:17


Функция ВернутьМаксимольноеЗначениеКолонки(Знач ИмяКолонки="",таблица)

Нашел функцию нахождения максимума (она описана выше). Что передавать в качестве параметров(В качестве ИмяКолонки видимо “J”)?  и как передать параметр таблица, из формы документа.

У меня есть документ, в нем присутствует Табличная Часть Материалы, она же является реквизитом формы.  Как передать её в качестве параметра? пробовал вот так, но что то не вышло(


ТП = Элементы.Материалы;


За счет того, что не занимался раньше 1C туплю ужасно ( Может не так табличную часть создаю?

Попробовал, вот что пишет:
{Документ.МетодЛапласа.Форма.ФормаДокумента.Форма(60)}: Ошибка при вызове метода контекста (Выгрузить)
   ТП = Объект.Материалы.Выгрузить();
по причине:
Метод недоступен на клиенте

А если выполнять &НаСервере, то как вывести сообщение о максимуме?

Наконец то разобрался! Спасибо всем огромное!