Комментарии
Избранное
Подписка
Сортировка:
Древо
(0)
Еще раз спасибо за это решение, очень выручила подсказка.
Нахождение на рабочем месте двумя способами (осторожно, много буков):
Определение суммарного покрытия перекрывающихся интервалов
Еще раз спасибо за это решение, очень выручила подсказка.
Нахождение на рабочем месте двумя способами (осторожно, много буков):
Скрытый текст |
|---|
//////////////////////////////////////////////////////////// Показать |
65.
Не работает если учитывать условие "ни больше ни меньше". Когда больше - запрос отрабатывает неверно.
Проверяю на БП 3.0 на запросе:
Допустим возьмём контрагента у которого КПП 3 строки: 775003035, 773601001 и 631050001
В запрос передадим массив КПП: 775003035; 773601001 и МассивКППКоличество = 2;
Запрос возвращает результат - этого контрагента, хотя у него 3 сроки!
Рабочий запрос:
Есть массив А из элементов некоторого справочника и есть справочник Б с табличной частью из элементов того же справочника. Найти элемент Б, где список точно совпадает с массивом А (ни больше ни меньше).
ВЫБРАТЬ
Менеджеры.Ссылка
ИЗ
Справочник.Контрагенты.МенеджерыПокупателя КАК Менеджеры
ГДЕ
Менеджеры.МенеджерПокупателя В(&Массив)
СГРУППИРОВАТЬ ПО
Менеджеры.Ссылка
ИМЕЮЩИЕ
КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Менеджеры.МенеджерПокупателя) = &МассивКоличество ПоказатьНе работает если учитывать условие "ни больше ни меньше". Когда больше - запрос отрабатывает неверно.
Проверяю на БП 3.0 на запросе:
ВЫБРАТЬ
КонтрагентыИсторияКПП.Ссылка КАК Ссылка
ИЗ
Справочник.Контрагенты.ИсторияКПП КАК КонтрагентыИсторияКПП
ГДЕ
КонтрагентыИсторияКПП.КПП В(&МассивКПП)
СГРУППИРОВАТЬ ПО
КонтрагентыИсторияКПП.Ссылка
ИМЕЮЩИЕ
КОЛИЧЕСТВО(РАЗЛИЧНЫЕ КонтрагентыИсторияКПП.КПП) = &МассивКППКоличество ПоказатьДопустим возьмём контрагента у которого КПП 3 строки: 775003035, 773601001 и 631050001
В запрос передадим массив КПП: 775003035; 773601001 и МассивКППКоличество = 2;
Запрос возвращает результат - этого контрагента, хотя у него 3 сроки!
Рабочий запрос:
ВЫБРАТЬ РАЗЛИЧНЫЕ
КонтрагентыИсторияКПП.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВсеКонтрагентыСЭтимиДанными
ИЗ
Справочник.Контрагенты.ИсторияКПП КАК КонтрагентыИсторияКПП
ГДЕ
КонтрагентыИсторияКПП.КПП В(&МассивКПП)
СГРУППИРОВАТЬ ПО
КонтрагентыИсторияКПП.Ссылка
ИМЕЮЩИЕ
КОЛИЧЕСТВО(РАЗЛИЧНЫЕ КонтрагентыИсторияКПП.КПП) = &МассивКППКоличество
;
//////////////////////////////////////////////////////////// Показать
(8) Все же решил исправить по-своему. Для старых версий платформы так: Для новых, где логическое выражение можно записывать сразу в поле запроса, так: В числе строчек даже получился выигрыш.
Спасибо за внимательность!
ВЫБРАТЬ
КонтрагентыИсторияКПП.Ссылка КАК Ссылка
ИЗ
Справочник.Контрагенты.ИсторияКПП КАК КонтрагентыИсторияКПП
СГРУППИРОВАТЬ ПО
КонтрагентыИсторияКПП.Ссылка
ИМЕЮЩИЕ
СУММА(ВЫБОР
КОГДА КонтрагентыИсторияКПП.КПП В (&МассивКПП)
ТОГДА 1
ИНАЧЕ 0.000001
КОНЕЦ) = &МассивКППКоличество ПоказатьВЫБРАТЬ
КонтрагентыИсторияКПП.Ссылка КАК Ссылка
ИЗ
Справочник.Контрагенты.ИсторияКПП КАК КонтрагентыИсторияКПП
СГРУППИРОВАТЬ ПО
КонтрагентыИсторияКПП.Ссылка
ИМЕЮЩИЕ
КОЛИЧЕСТВО(*) = &МассивКППКоличество И
МИНИМУМ(КонтрагентыИсторияКПП.КПП В (&МассивКПП)) = ИСТИНА ПоказатьСпасибо за внимательность!
Оглавление
72. Очистка строки от нецифровых символов
71. Определение суммарного покрытия перекрывающихся интервалов
70. Определение пересечения интервалов в кольце
69. Быстрое удаление строк в таблице значений
68. Получение интервалов неизменности курсов валют
67. Определение пропусков в последовательности чисел
66. Инвертирование периодов в запросе
65. Проверка совпадения таблиц
64. Проверка совпадения таблиц путем сравнения полного и внутреннего соединения
63. Получение списка простых чисел в запросе
62. Определение периодов работы сотрудников по данным СКУД
61. Найти документы, во всех строках которых колонка количество меньше либо равна нулю
60. Определение плановых остатков товара с учетом предшествующих фактических и будущих плановых продаж
59. Сравнение плановых и фактических дней отпуска
58. Получить дату по номеру дня недели и его порядковому номеру в месяце
57. Получение предпоследнего курса валюты
56. Определить элементарные интервалы, образующиеся при пересечении всех исходных интервалов
55. Найти количество записей, повторяющихся подряд несколько дней
54. Сравнение набора товаров, проданных сменами
53. Найти документ, состав табличной части которого соответствует параметру - таблице значений
52. Распределение товаров по ячейкам в запросе
51. Объединение пересекающихся периодов в запросе
50. Выделение разрядов числа без использования округления и деления по модулю
49. Посчитать запросом суммарную длительность различных состояний
48. Разбиение произвольного периода на интервалы в запросе
47. Поиск свободного штрихкода внутри одного префикса
46. Выбор записи по номеру из НЕПРОНУМЕРОВАННОЙ таблицы
45. Как в запросе секунды преобразовать в часы и минуты
44. Убрать префикс и лидирующие нули из номера
43. Перебор всех строковых комбинаций "0" и "1" в порядке возрастания числа единиц ("00000"->"00001"->"00010"-> ..."01011"...)
42. Транслитерация в запросе
41. Заполнение пропусков в таблице цветов
40. Количество дней недели (понедельников/вторников/...) в заданном диапазоне запросом
39. Свернуть строки в таблице значений конкатенацией
72. Очистка строки от нецифровых символов
71. Определение суммарного покрытия перекрывающихся интервалов
70. Определение пересечения интервалов в кольце
69. Быстрое удаление строк в таблице значений
68. Получение интервалов неизменности курсов валют
67. Определение пропусков в последовательности чисел
66. Инвертирование периодов в запросе
65. Проверка совпадения таблиц
64. Проверка совпадения таблиц путем сравнения полного и внутреннего соединения
63. Получение списка простых чисел в запросе
62. Определение периодов работы сотрудников по данным СКУД
61. Найти документы, во всех строках которых колонка количество меньше либо равна нулю
60. Определение плановых остатков товара с учетом предшествующих фактических и будущих плановых продаж
59. Сравнение плановых и фактических дней отпуска
58. Получить дату по номеру дня недели и его порядковому номеру в месяце
57. Получение предпоследнего курса валюты
56. Определить элементарные интервалы, образующиеся при пересечении всех исходных интервалов
55. Найти количество записей, повторяющихся подряд несколько дней
54. Сравнение набора товаров, проданных сменами
53. Найти документ, состав табличной части которого соответствует параметру - таблице значений
52. Распределение товаров по ячейкам в запросе
51. Объединение пересекающихся периодов в запросе
50. Выделение разрядов числа без использования округления и деления по модулю
49. Посчитать запросом суммарную длительность различных состояний
48. Разбиение произвольного периода на интервалы в запросе
47. Поиск свободного штрихкода внутри одного префикса
46. Выбор записи по номеру из НЕПРОНУМЕРОВАННОЙ таблицы
45. Как в запросе секунды преобразовать в часы и минуты
44. Убрать префикс и лидирующие нули из номера
43. Перебор всех строковых комбинаций "0" и "1" в порядке возрастания числа единиц ("00000"->"00001"->"00010"-> ..."01011"...)
42. Транслитерация в запросе
41. Заполнение пропусков в таблице цветов
40. Количество дней недели (понедельников/вторников/...) в заданном диапазоне запросом
39. Свернуть строки в таблице значений конкатенацией
67. следующий вариант работает на порядки быстрее для больших таблиц (если не ПЕРВЫЕ 1 - выбирает все пропущенные значения и следующее по порядку):
ВЫБРАТЬ ПЕРВЫЕ 1
Т1.Х + 1
ИЗ
Дано Т1
ЛЕВОЕ СОЕДИНЕНИЕ
Дано Т2
ПО
Т2.Х = Т1.Х + 1
ГДЕ
Т2.Х Есть Null
УПОРЯДОЧИТЬ ПО
Т1.Х
З.Ы. на таблице в 1 млн. записей с индексированием по полю X (иначе какой смысл искать "дырки" в большой таблице и оставлять это поле неиндексированным) данный запрос выполняется за доли секунды в том случае как предложенный - десяток секунд.
ВЫБРАТЬ ПЕРВЫЕ 1
Т1.Х + 1
ИЗ
Дано Т1
ЛЕВОЕ СОЕДИНЕНИЕ
Дано Т2
ПО
Т2.Х = Т1.Х + 1
ГДЕ
Т2.Х Есть Null
УПОРЯДОЧИТЬ ПО
Т1.Х
З.Ы. на таблице в 1 млн. записей с индексированием по полю X (иначе какой смысл искать "дырки" в большой таблице и оставлять это поле неиндексированным) данный запрос выполняется за доли секунды в том случае как предложенный - десяток секунд.
(14)
иначе какой смысл искать "дырки" в большой таблице и оставлять это поле неиндексированным
все же бывают случаи и неиндексированных таблиц (например, если это временная таблица) и файловых баз и других СУБД, поэтому знать и уметь сравнивать разные варианты, кроме очевидных, бывает нужно.
может кому пригодится: нормализация представления числа
Пример1: ЗначениеМантисса = 0,1; ЗначениеПорядок = 0; НормализованнаяМантисса = 1; НормализованныйПорядок = -1 (0,1)->(1·10^-1)
Пример2: ЗначениеМантисса = 10; ЗначениеПорядок = 6; НормализованнаяМантисса = 1; НормализованныйПорядок = 7; (10·10^6)->(1·10^7)
Пример3: ЗначениеМантисса = 500; ЗначениеПорядок = 0; НормализованнаяМантисса = 5; НормализованныйПорядок = 2; (500)->(5·10^2)
// Приводит переданные числовые значения Мантиссы и Порядка к нормализованной форме
// Нормализованной формой числа с плавающей запятой считается форма, когда Мантисса находится в интервале 1 ⩽ М < 10
//
// Параметры:
// ЗначениеМантисса - Число - значение числа без учёта порядка
// ЗначениеПорядок - Число - степень основания числа, на которое умножается мантисса
// НормализованнаяМантисса - Число - возвращаемое нормализованное значение мантиссы
// НормализованныйПорядок - Число - возвращаемое нормализованное значение порядка
//
Процедура НормализоватьЗначениеЧисла(ЗначениеМантисса, ЗначениеПорядок = 0, НормализованнаяМантисса = 0, НормализованныйПорядок = 0) Экспорт
Если ЗначениеМантисса = 0 Тогда
Возврат;
КонецЕсли;
Порядок = Log10(?(ЗначениеМантисса < 0, - ЗначениеМантисса, ЗначениеМантисса));
Если Порядок > 0 Тогда
Порядок = Цел(Порядок);
Иначе
Если Не Порядок = Цел(Порядок) Тогда
Порядок = Цел(Порядок) - 1;
КонецЕсли;
КонецЕсли;
НормализованныйПорядок = Порядок + ЗначениеПорядок;
НормализованнаяМантисса = ЗначениеМантисса * Pow(10, ЗначениеПорядок - НормализованныйПорядок);
КонецПроцедуры ПоказатьПример1: ЗначениеМантисса = 0,1; ЗначениеПорядок = 0; НормализованнаяМантисса = 1; НормализованныйПорядок = -1 (0,1)->(1·10^-1)
Пример2: ЗначениеМантисса = 10; ЗначениеПорядок = 6; НормализованнаяМантисса = 1; НормализованныйПорядок = 7; (10·10^6)->(1·10^7)
Пример3: ЗначениеМантисса = 500; ЗначениеПорядок = 0; НормализованнаяМантисса = 5; НормализованныйПорядок = 2; (500)->(5·10^2)
Тоже поделюсь.
1. Количество знаков после запятой (максимум 27).
2. Проверка наличия заполненных значений в колонке. Пустые значения в колонке должны быть одного типа, т. е., не должны встречаться вместе, например, NULL и Неопределено.
1. Количество знаков после запятой (максимум 27).
Точность = СтрДлина(Сред("" + Макс(-Значение, Значение) % 1, 3));2. Проверка наличия заполненных значений в колонке. Пустые значения в колонке должны быть одного типа, т. е., не должны встречаться вместе, например, NULL и Неопределено.
ЕстьЗаполненныеЗначения = (Таблица.НайтиСтроки(Новый Структура("ИмяКолонки", ПустоеЗначение)).Количество() <> Таблица.Количество());
По поводу "Быстрое удаление строк в таблице значений" есть сомнение в приведенном способе.
1. Если таблица значений занимает более 100-ни Мб в ОЗУ, то получаем лишний расход ОЗУ (на 1-ю и 2-ю таблицу)
2. Если в значениях таблицы значений есть ссылочные данные, то получаем нагрузку на процессор
Вариант синтаксиса: Скопировать по отбору
Описание:
Наилучшим решением будет удаление по отбору по индексированной колонке
1. Если таблица значений занимает более 100-ни Мб в ОЗУ, то получаем лишний расход ОЗУ (на 1-ю и 2-ю таблицу)
2. Если в значениях таблицы значений есть ссылочные данные, то получаем нагрузку на процессор
Вариант синтаксиса: Скопировать по отбору
Описание:
Создает копию таблицы значений.
Если указан отбор, то только строки из отбора будут скопированы. Если отбор не указан, то будут скопированы все строки таблицы значений. Если указаны колонки, то только эти колонки будут скопированы. Иначе, будут скопированы все колонки таблицы значений
Если указан отбор, то только строки из отбора будут скопированы. Если отбор не указан, то будут скопированы все строки таблицы значений. Если указаны колонки, то только эти колонки будут скопированы. Иначе, будут скопированы все колонки таблицы значений
Наилучшим решением будет удаление по отбору по индексированной колонке
РабочаяТаблица.Индексы.Добавить("КУдалению");
найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к=0 По найдСтр.ВГраница() Цикл
РабочаяТаблица.Удалить(найдСтр[к]);
КонецЦикла;
(18) Сомневаться нужно, но, чтобы сделать выводы, нужны замеры. "Лишнего" расхода ОЗУ, нагрузки на процессор (видимо, имеется ввиду работа со структурой для работы сборщика мусора). Просто сказать "наилучшим решением будет" в данном случае недостаточно. Выигрыш приема из (69) был настолько большим (в моих измерениях), что его указанные минусы не перекрывают. - Попробуйте сделать замеры сами!
Пожалуйста вот замеры, обратите на 2-ю строку, отбрасывая все лишнее, только процесс удаления и создания:
1. Удаление не вашим способом
2. Удаление вашим способом
Почему так происходит? Понимание приходит, если кодить не только в 1С, а например кодить в ООП, в Java. На самом деле при вашем способе создается НОВЫЙ объект, в который копируются данные из СТАРОГО объекта, причем при наличии ссылочных типов, идет нагрузка на процессор (можно почитать про коллекции в Java, там ясно объясняется разница между insert/delete с примитивными типами и object). Я не могу тут привести размеры ОЗУ и нагрузку на процессор (придется заморочится), но поверьте я часто работаю с большими данными и вообще я считаю наиболее оптимальным способом является удаление через запрос.
Со всем уважением к вам! Ваши статьи лаконичны и самое главное практичны!
1. Удаление не вашим способом
2. Удаление вашим способом
Почему так происходит? Понимание приходит, если кодить не только в 1С, а например кодить в ООП, в Java. На самом деле при вашем способе создается НОВЫЙ объект, в который копируются данные из СТАРОГО объекта, причем при наличии ссылочных типов, идет нагрузка на процессор (можно почитать про коллекции в Java, там ясно объясняется разница между insert/delete с примитивными типами и object). Я не могу тут привести размеры ОЗУ и нагрузку на процессор (придется заморочится), но поверьте я часто работаю с большими данными и вообще я считаю наиболее оптимальным способом является удаление через запрос.
Со всем уважением к вам! Ваши статьи лаконичны и самое главное практичны!
Я просто отметил, что быстрее будет удалить
А то что, без этой строки
будет дольше, это и так понятно. С самого начала я отметил - удаление по отбору по индексированной колонке.
Наилучшим решением будет удаление по отбору по индексированной колонке
А то что, без этой строки
РабочаяТаблица.Индексы.Добавить("КУдалению");будет дольше, это и так понятно. С самого начала я отметил - удаление по отбору по индексированной колонке.
(22)
А почему отказываете в индексации в другом примере? Где сказано, что в 69 обязательно не индексированная колонка?
С моей точки зрения там сказано, что при прочих равных условий будет быстрее создать новую таблицу, чем удалять строки.
Вы нашли "неравные" условия и сравниваете.
Рассматривая Ваше высказывание: "Наилучшим решением будет удаление по отбору по индексированной колонке", можно ответить:
"Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления". При достаточно большой ТЗ, когда индексация начинает оказывать положительный результат, с индексацией нужной колонки
Но последнее предложение должно пониматься нормальным разработчиком по-умолчанию.
будет дольше, это и так понятно. С самого начала я отметил - удаление по отбору по индексированной колонке.
А почему отказываете в индексации в другом примере? Где сказано, что в 69 обязательно не индексированная колонка?
С моей точки зрения там сказано, что при прочих равных условий будет быстрее создать новую таблицу, чем удалять строки.
Вы нашли "неравные" условия и сравниваете.
Рассматривая Ваше высказывание: "Наилучшим решением будет удаление по отбору по индексированной колонке", можно ответить:
"Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления". При достаточно большой ТЗ, когда индексация начинает оказывать положительный результат, с индексацией нужной колонки
Но последнее предложение должно пониматься нормальным разработчиком по-умолчанию.
(23)
Хорошо вот вам равные условия:
результат
и соответственно
результат
Хорошо вот вам равные условия:
РабочаяТаблица.Индексы.Добавить("КУдалению");
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению",Истина));
//найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
//Для к = 0 По найдСтр.ВГраница() Цикл
// РабочаяТаблица.Удалить(найдСтр[к]);
//КонецЦикла;результат
и соответственно
РабочаяТаблица.Индексы.Добавить("КУдалению");
//РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению",Истина));
найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к = 0 По найдСтр.ВГраница() Цикл
РабочаяТаблица.Удалить(найдСтр[к]);
КонецЦикла;результат
(24) снова не то смотрите.
Код:
Замеры:
300 000
Кол-во элементов: 150 000
Время выполнения удалением: 2 014
Кол-во элементов: 150 000
Время выполнения копированием: 222
Кол-во элементов: 150 000
Время выполнения удалением: 2 000
Кол-во элементов: 150 000
Время выполнения копированием: 225
Кол-во элементов: 150 000
Время выполнения удалением: 1 973
Кол-во элементов: 150 000
Время выполнения копированием: 224
Кол-во элементов: 150 000
Время выполнения удалением: 2 025
Кол-во элементов: 150 000
Время выполнения копированием: 227
Кол-во элементов: 150 000
Время выполнения удалением: 1 989
Кол-во элементов: 150 000
Время выполнения копированием: 222
Что-то еще нужно доказывать?
Код:
Процедура ОсновныеДействияФормыЗаполнитьТЗ(Кнопка)
ТЗ.Колонки.Добавить("Номер", Новый ОписаниеТипов("Число"));
ТЗ.Колонки.Добавить("КУдалению",Новый ОписаниеТипов("Булево"));
Для к=1 По 300000 Цикл
СтрТЗ = ТЗ.Добавить();
СтрТЗ.Номер = к;
СтрТЗ.КУдалению = к%2 = 0;
КонецЦикла;
Сообщить(ТЗ.Количество());
КонецПроцедуры
Процедура ОсновныеДействияФормыАнализУдалениемСтрокТЗ(Кнопка)
ТЗКопия = ТЗ.Скопировать();
ТЗКопия.Индексы.Добавить("КУдалению");
ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
найдСтр = ТЗКопия.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к = 0 По найдСтр.ВГраница() Цикл
ТЗКопия.Удалить(найдСтр[к]);
КонецЦикла;
ВремяЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах()-ВремяНачала;
Сообщить("Кол-во элементов: "+ ТЗКопия.Количество());
Сообщить("Время выполнения удалением: "+ ВремяЗамера);
КонецПроцедуры
Процедура ОсновныеДействияФормыАнализКопированиемТЗ(Кнопка)
ТЗКопия = ТЗ.Скопировать();
ТЗКопия.Индексы.Добавить("КУдалению");
ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
ТЗКопия = ТЗКопия.Скопировать(Новый Структура("КУдалению",Истина));
ВремяЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах()-ВремяНачала;
Сообщить("Кол-во элементов: "+ ТЗКопия.Количество());
Сообщить("Время выполнения копированием: "+ ВремяЗамера);
КонецПроцедуры
ПоказатьЗамеры:
300 000
Кол-во элементов: 150 000
Время выполнения удалением: 2 014
Кол-во элементов: 150 000
Время выполнения копированием: 222
Кол-во элементов: 150 000
Время выполнения удалением: 2 000
Кол-во элементов: 150 000
Время выполнения копированием: 225
Кол-во элементов: 150 000
Время выполнения удалением: 1 973
Кол-во элементов: 150 000
Время выполнения копированием: 224
Кол-во элементов: 150 000
Время выполнения удалением: 2 025
Кол-во элементов: 150 000
Время выполнения копированием: 227
Кол-во элементов: 150 000
Время выполнения удалением: 1 989
Кол-во элементов: 150 000
Время выполнения копированием: 222
Что-то еще нужно доказывать?
(26)
Ну что же, теперь понятно, почему у вас отличные результаты чем у меня
вот как выглядит мой тест
я подаю на вход ТЗ из запроса, вы - нет....поэтому результаты тестов у нас разные
Так что и я прав и вы правы.....
Ну что же, теперь понятно, почему у вас отличные результаты чем у меня
вот как выглядит мой тест
Процедура СформироватьРабочуюТаблицу()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ *, ЛОЖЬ КАК КУдалению........";
РабочаяТаблица = Запрос.Выполнить().Выгрузить();
Счетчик = 1;
Для каждого ТС из РабочаяТаблица Цикл
Если Счетчик = 1 Тогда
ТС.КУдалению = Истина;
Счетчик = 0;
Иначе
Счетчик = 1;
КонецЕсли;
КонецЦикла;
РабочаяТаблица.Индексы.Добавить("КУдалению");
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры
Процедура Кнопка1Нажатие(Элемент)
СформироватьРабочуюТаблицу();
найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к = 0 По найдСтр.ВГраница() Цикл
РабочаяТаблица.Удалить(найдСтр[к]);
КонецЦикла;
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
СформироватьРабочуюТаблицу();
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению",Истина));
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры Показатья подаю на вход ТЗ из запроса, вы - нет....поэтому результаты тестов у нас разные
Так что и я прав и вы правы.....
(27)
Это шутка такая? Не смешно.
Что покажет этот код?
я подаю на вход ТЗ из запроса, вы - нет....поэтому результаты тестов у нас разные
Это шутка такая? Не смешно.
Процедура Кнопка1Нажатие(Элемент)
СформироватьРабочуюТаблицу();
ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к = 0 По найдСтр.ВГраница() Цикл
РабочаяТаблица.Удалить(найдСтр[к]);
КонецЦикла;
ВремяЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах()-ВремяНачала;
Сообщить(РабочаяТаблица.Количество());
Сообщить("Время выполнения удалением: "+ ВремяЗамера);
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
СформироватьРабочуюТаблицу();
ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению",Истина));
ВремяЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах()-ВремяНачала;
Сообщить(РабочаяТаблица.Количество());
Сообщить("Время выполнения копированием: "+ ВремяЗамера);
КонецПроцедуры
ПоказатьЧто покажет этот код?
(28)
Нет не шутка
Вариант 1 - ваше тз на вход через запрос
Результаты в ВАШУ пользу
вариант 2 - скажем так вот выглядит
результаты в МОЮ пользу
Нет не шутка
Вариант 1 - ваше тз на вход через запрос
Процедура СформироватьРабочуюТаблицу()
//тз = Новый ТаблицаЗначений;
//тз.Колонки.Добавить("Номер", Новый ОписаниеТипов("Число"));
//тз.Колонки.Добавить("КУдалению",Новый ОписаниеТипов("Булево"));
//Для к=1 По 300000 Цикл
// СтрТЗ = тз.Добавить();
// СтрТЗ.Номер = к;
// СтрТЗ.КУдалению = к%2 = 0;
//КонецЦикла;
//
//Запрос = Новый Запрос;
//Запрос.УстановитьПараметр("ВнешнийИсточник", тз);
//Запрос.Текст =
//"ВЫБРАТЬ
//| ВН.Номер КАК Номер,
//| ВН.КУдалению КАК КУдалению
//|ПОМЕСТИТЬ втВрем
//|ИЗ
//| &ВнешнийИсточник КАК ВН
//|;
//|
//|//////////////////////////////////////////////////////////// ПоказатьРезультаты в ВАШУ пользу
вариант 2 - скажем так вот выглядит
Процедура СформироватьРабочуюТаблицу()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПриходТовары.Ссылка,
| ПриходТовары.НомерСтроки,
| ПриходТовары.Номенклатура,
| ПриходТовары.Склад,
| ПриходТовары.Контрагент,
| ПриходТовары.ДоговорКонтрагента,
| ПриходТовары.Партия,
| ПриходТовары.Количество,
| ПриходТовары.ЦенаПоставки,
| ПриходТовары.Сумма,
| ПриходТовары.НаценкаОпт,
| ПриходТовары.НаценкаРозн,
| ПриходТовары.КодКБ,
| ЛОЖЬ КАК КУдалению
|ИЗ
| Документ.Приход.Товары КАК ПриходТовары
|ГДЕ
| ПриходТовары.Ссылка.Дата МЕЖДУ &Дата1 И &Дата2";
Запрос.УстановитьПараметр("Дата1", НачалоГода(ТекущаяДата()));
Запрос.УстановитьПараметр("Дата2", ТекущаяДата());
РабочаяТаблица = Запрос.Выполнить().Выгрузить();
Счетчик = 1;
Для каждого ТС из РабочаяТаблица Цикл
Если Счетчик = 1 Тогда
ТС.КУдалению = Истина;
Счетчик = 0;
Иначе
Счетчик = 1;
КонецЕсли;
КонецЦикла;
РабочаяТаблица.Индексы.Добавить("КУдалению");
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры
Процедура Кнопка1Нажатие(Элемент)
СформироватьРабочуюТаблицу();
найдСтр = РабочаяТаблица.НайтиСтроки(Новый Структура("КУдалению",Истина));
Для к = 0 По найдСтр.ВГраница() Цикл
РабочаяТаблица.Удалить(найдСтр[к]);
КонецЦикла;
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
СформироватьРабочуюТаблицу();
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению",Истина));
Сообщить(РабочаяТаблица.Количество());
КонецПроцедуры Показатьрезультаты в МОЮ пользу
(28)
Опять же по поводу как формируется ТЗ. ТЗ можно формировать по разному, но вот удалить строки, как автор утверждает - быстрее всего ТАК!
Ремарка к "Это шутка! Не смешно"
Я тз к удалению подаю через запрос.
Опять же по поводу как формируется ТЗ. ТЗ можно формировать по разному, но вот удалить строки, как автор утверждает - быстрее всего ТАК!
Ремарка к "Это шутка! Не смешно"
Я тз к удалению подаю через запрос.
69. Быстрое удаление строк в таблице значений
Удаление строк в таблице значений
Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления:
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению", Ложь))
Удаление строк в таблице значений
Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления:
РабочаяТаблица = РабочаяТаблица.Скопировать(Новый Структура("КУдалению", Ложь))
(28)
ОШИБОЧКА У меня :) я неправильно выполнял тесты. Сейчас вижу, что был неправ!
ВЫ правы коллега, я перепроверил еще раз - метод Автора быстрее.
В споре рождается истина - рад был поспорить с вами.
Единственно, все еще пока сомневаюсь - это расход ОЗУ.
Со всем уважением!
ОШИБОЧКА У меня :) я неправильно выполнял тесты. Сейчас вижу, что был неправ!
ВЫ правы коллега, я перепроверил еще раз - метод Автора быстрее.
В споре рождается истина - рад был поспорить с вами.
Единственно, все еще пока сомневаюсь - это расход ОЗУ.
Со всем уважением!
(23)
Порадовало :) автор пишет, что:
которое оказывается на самом деле - это:
Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления". При достаточно большой ТЗ, когда индексация начинает оказывать положительный результат, с индексацией нужной колонки
Ну и конечно напоследок
Но последнее предложение должно пониматься нормальным разработчиком по-умолчанию
Я бы дописал
Нормальные разработчики - это разработчики, у которых есть телепатическая супер сила. Это шутка :)! Да, я прочитал ссылку выше к задаче 69. И все равно считаю, что удалить моим способ быстрее и самое главнее надежнее. Представьте у вас в ТЗ ярды строк, способ предложенный автором на короткое время создаст 2 копии ТЗ с 2-кратным потреблением ОЗУ (на 1-ю и 2-ю ТЗ), потом конечно 1-я удалится. Но что если у вас ОЗУ на 2 ТЗ не хватит? Получите банально "Недостаточно памяти".
Со всем уважением!
Порадовало :) автор пишет, что:
Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления
которое оказывается на самом деле - это:
Быстрее всего удаляются строки путем копирования оставшихся строк по условию, обратному к условию удаления". При достаточно большой ТЗ, когда индексация начинает оказывать положительный результат, с индексацией нужной колонки
Ну и конечно напоследок
Но последнее предложение должно пониматься нормальным разработчиком по-умолчанию
Я бы дописал
Нормальные разработчики - это разработчики, у которых есть телепатическая супер сила. Это шутка :)! Да, я прочитал ссылку выше к задаче 69. И все равно считаю, что удалить моим способ быстрее и самое главнее надежнее. Представьте у вас в ТЗ ярды строк, способ предложенный автором на короткое время создаст 2 копии ТЗ с 2-кратным потреблением ОЗУ (на 1-ю и 2-ю ТЗ), потом конечно 1-я удалится. Но что если у вас ОЗУ на 2 ТЗ не хватит? Получите банально "Недостаточно памяти".
Со всем уважением!
Спасибо автору за интересные публикации.
Хочу поделиться своей версией минимализма для задачи 57:
ВЫБРАТЬ ПЕРВЫЕ 1
КурсыВалют.Период,
КурсыВалют.Валюта,
КурсыВалют.Курс
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
МАКСИМУМ(КурсыВалют.Период) КАК Период,
&ВалютаСсылка КАК Валюта
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ГДЕ
КурсыВалют.Валюта = &ВалютаСсылка) КАК МаксПериодКурсаВалюты
ПО (МаксПериодКурсаВалюты.Период > КурсыВалют.Период)
И (МаксПериодКурсаВалюты.Валюта = КурсыВалют.Валюта)
УПОРЯДОЧИТЬ ПО
КурсыВалют.Период УБЫВ
Протестировал оба варианта на таблице из 65 тысяч записей, этот вариант отрабатывает в два раза быстрее.
Хочу поделиться своей версией минимализма для задачи 57:
ВЫБРАТЬ ПЕРВЫЕ 1
КурсыВалют.Период,
КурсыВалют.Валюта,
КурсыВалют.Курс
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
МАКСИМУМ(КурсыВалют.Период) КАК Период,
&ВалютаСсылка КАК Валюта
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ГДЕ
КурсыВалют.Валюта = &ВалютаСсылка) КАК МаксПериодКурсаВалюты
ПО (МаксПериодКурсаВалюты.Период > КурсыВалют.Период)
И (МаксПериодКурсаВалюты.Валюта = КурсыВалют.Валюта)
УПОРЯДОЧИТЬ ПО
КурсыВалют.Период УБЫВ
Протестировал оба варианта на таблице из 65 тысяч записей, этот вариант отрабатывает в два раза быстрее.
70. Это точно работает?Если в переменных start и end задать "с 8 до 9", а с 9 до 10 интервал существует, то условие некорректно
ГДЕ
(РАЗНОСТЬДАТ(ЗаписиНаРемонт.НачалоВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(&КонечныйИнтервал, ЗаписиНаРемонт.НачалоВыполнения, СЕКУНДА) * РАЗНОСТЬДАТ(&КонечныйИнтервал, &НачальныйИнтервал, СЕКУНДА) <= 0
ИЛИ РАЗНОСТЬДАТ(ЗаписиНаРемонт.НачалоВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(ЗаписиНаРемонт.ОкончаниеВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(ЗаписиНаРемонт.ОкончаниеВыполнения, ЗаписиНаРемонт.НачалоВыполнения, СЕКУНДА) >= 0)
(35) Тестировал в свое время достаточно внимательно, работать должно
Следовательно,
Вторая часть условия выполнится и из-за "или" станет истинным все условие.
Получится, что интервалы пересеклись.
Если хотите, чтобы они не пересекались, задайте значения
end = ЗаписиНаРемонт.ОкончаниеВыполнения = 8:59:59, тогда у интервалов не будет общей секунды.
sel ect * fr om tab
where (@start - start) * (start - @end) * (@start - @end) <= 0
or (@start - start) * (@start - end) * (start - end) >= 0;ГДЕ
(РАЗНОСТЬДАТ(ЗаписиНаРемонт.НачалоВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(&КонечныйИнтервал, ЗаписиНаРемонт.НачалоВыполнения, СЕКУНДА) * РАЗНОСТЬДАТ(&КонечныйИнтервал, &НачальныйИнтервал, СЕКУНДА) <= 0
ИЛИ РАЗНОСТЬДАТ(ЗаписиНаРемонт.НачалоВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(ЗаписиНаРемонт.ОкончаниеВыполнения, &НачальныйИнтервал, СЕКУНДА) * РАЗНОСТЬДАТ(ЗаписиНаРемонт.ОкончаниеВыполнения, ЗаписиНаРемонт.НачалоВыполнения, СЕКУНДА) >= 0)
start = ЗаписиНаРемонт.НачалоВыполнения = 8
end = ЗаписиНаРемонт.ОкончаниеВыполнения = 9
@start = &НачальныйИнтервал = 9
@end = &КонечныйИнтервал = 10Следовательно,
РАЗНОСТЬДАТ(ЗаписиНаРемонт.ОкончаниеВыполнения, &НачальныйИнтервал, СЕКУНДА) == 0Вторая часть условия выполнится и из-за "или" станет истинным все условие.
Получится, что интервалы пересеклись.
Если хотите, чтобы они не пересекались, задайте значения
end = ЗаписиНаРемонт.ОкончаниеВыполнения = 8:59:59, тогда у интервалов не будет общей секунды.
(36) Неудобно отнимать секунду...
Пришлось воспользоваться (где я также и ваше решение увидел в комментах).
Заменил на
из первого примера:
SET @start:=4;
SET @end:=8;
SEL ECT * FR OM `table`
WHERE
(`start` >= @start AND `start` < @end) /*смещение вперед*/
OR
(`end` <= @end AND `end` > @start) /*смещение назад*/
OR
(`start` < @end AND `end` > @start) /*вхождение - на самом деле здесь не обязательно оно обработается одним из предыдущих выражений*/
OR
(`start` >= @start AND `end` <= @end)/*поглощение и совпадение*/
Показать
Пришлось воспользоваться (где я также и ваше решение увидел в комментах).
Заменил на
ГДЕ
(ЗаписиНаРемонт.НачалоВыполнения >= &НачальныйИнтервал
И ЗаписиНаРемонт.НачалоВыполнения < &КонечныйИнтервал
ИЛИ ЗаписиНаРемонт.ОкончаниеВыполнения <= &КонечныйИнтервал
И ЗаписиНаРемонт.ОкончаниеВыполнения > &НачальныйИнтервал
ИЛИ ЗаписиНаРемонт.НачалоВыполнения < &КонечныйИнтервал
И ЗаписиНаРемонт.ОкончаниеВыполнения > &НачальныйИнтервал
ИЛИ ЗаписиНаРемонт.НачалоВыполнения >= &НачальныйИнтервал
И ЗаписиНаРемонт.ОкончаниеВыполнения <= &КонечныйИнтервал)
Показатьиз первого примера:
SET @start:=4;
SET @end:=8;
SEL ECT * FR OM `table`
WHERE
(`start` >= @start AND `start` < @end) /*смещение вперед*/
OR
(`end` <= @end AND `end` > @start) /*смещение назад*/
OR
(`start` < @end AND `end` > @start) /*вхождение - на самом деле здесь не обязательно оно обработается одним из предыдущих выражений*/
OR
(`start` >= @start AND `end` <= @end)/*поглощение и совпадение*/
Работаю над задачей определения "находится ли геоточка внутри геополигона". Вроде нашел новое решение, хотел с Вами связаться, обсудить. Пока тестирую в реальном времени. Не гуглом и не Постгри, их таинственные методы не описаны.
(44) Пробелы в номере - это уже не номер) - или должен обговариваться как исключение.
А вот пробел в префиксе (он же может быть произвольным) - это вполне нормально.
Так что я за универсальность, и против ограничений (из-за неполноты решения) на входные данные.
А вот пробел в префиксе (он же может быть произвольным) - это вполне нормально.
Так что я за универсальность, и против ограничений (из-за неполноты решения) на входные данные.
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
|
Перенос данных КА 1.1 / УПП 1.3 => БП 3.0 (перенос остатков, документов и справочников из "1С:Комплексная автоматизация 1.1" / УПП 1.3 в "1С:Бухгалтерия 3.0")
|
Перенос данных КА 1.1 / УПП 1.3 => БП 3.0
Открыть
|
Перенос данных КА 1.1 => ERP 2 (ЕРП) (обработка переноса документов, остатков и справочной информации из "1С:Комплексная автоматизация, ред. 1.1" в "1С:ERP Управление предприятием, ред 2")
|
Перенос данных КА 1.1 => ERP 2 (ЕРП) (обработка переноса документов, остатков и справочной информации из "1С:Комплексная автоматизация, ред. 1.1" в "1С:ERP Управление предприятием, ред 2")
Открыть