заполненного » Поиск

Результаты по ключевому слову: заполненного

Циклы в языке 1С, примеры и тест - какой цикл быстрее?

Циклы применяются для выполнения каких либо повторяющихся действий, возможные варианты перебора в цикле:

Перебираем строки с помощью цикла Для каждого

Код 1C v 8.3

 Для каждого ТекСтрока Из КоллекцияСтрок Цикл

// код обработки

КонецЦикла;

Перебираем строки с помощью цикла Пока

Код 1C v 8.3

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;

Перебираем строки с помощью цикла Для

Код 1C v 8.3

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла

Еще вариант, но советую его использовать только в без выходных ситуациях, Если

Код 1C v 8.3

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;

Примеры циклов

Код 1C v 8.2 УП

 &НаКлиенте

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

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

    Дни.Добавить("Среда");

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

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

А какой цикл работает быстрее?

Итак, я нашел пять способов, как можно организовать цикл средствами 1С.

Первый вид цикла, назовем его условно «Для По» выглядит так:

Код 1C v 8.х

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;

Второй вид «Для Каждого»:

Код 1C v 8.х

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;

Третий «Пока»:

Код 1C v 8.х

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;

Далее вспомнил ассемблерную молодость & цикл «Если»:

Код 1C v 8.х

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;

Ну и напоследок «Рекурсия»

Код 1C v 8.х

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

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

Естественно, что относить рекурсию к циклам не совсем корректно, но тем ни менее с её помощью можно добиться похожих результатов. Сразу оговорюсь, что в дальнейшем тестировании рекурсия не участвовала. Во первых все тесты проводились при 1 000 000 итераций, а рекурсия выпадает уже при 2 000. Во вторых скорость рекурсии в десятки раз меньше, чем скорость остальных циклов.

Последнее отступление. Одним из условий было выполнение в цикле каких-либо действий. Во первых пустой цикл используется очень редко. Во вторых цикл «ДляКаждого» используется для какой-либо коллекции, а значит и остальные циклы должны работать с коллекцией, чтобы тестирование проходило в одинаковых условиях.

Ну что ж, поехали. В качестве тела цикла использовалось чтение из заранее заполненного массива.

Код 1C v 8.х

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);

или, при использовании цикла «Для Каждого»

Код 1C v 8.х

 ПриемникТестовогоЗначения = Элем;

Тестирование проводилось на платформе 8.3.5.1231 для трех видов интерфейса (Обычное приложение, Управляемое приложение и Такси).

Результаты для 8.3.5.1231

Интерфейс	ДляПо	ДляКаждого	Пока	Если
Обычное приложение	5734,2	4680,4	7235,4	7263,0
Управляемое приложение	5962,4	4882,6	7497,4	7553,6
Такси	5937,2	4854,6	7500,8	7513,0

Числа это время в миллисекундах полученное с помощью функции ТекущаяУниверсальнаяДатаВМиллисекундах(), которую я вызывал до цикла и после его завершения. Числа дробные, потому что я использовал среднее арифметическое пяти замеров. Почему я не использовал Замер производительности? У меня не было цели замерить скорость каждой строчки кода, только скорость циклов с одинаковым результатом работы.

Казалось бы и все, но & тестировать так тестировать!

Результаты для 8.2.19.106

Интерфейс	ДляПо	ДляКаждого	Пока	Если
Обычное приложение	4411,8	3497,2	5432,0	5454,0
Управляемое приложение	4470,8	3584,8	5522,6	5541,0

В среднем платформа 8.2 на 25% быстрее, чем 8.3. Я немножко не ожидал такой разницы и решил провести тест на другой машине. Скажу только, что там 8.2 была быстрее процентов на 20.

Почему? Не знаю, дезасемблировать ядро в мои планы не входило, но в замер производительности я все же заглянул. Оказалось, что сами циклические операции в 8.3 проходят несколько быстрее, чем в 8.2. Но на строке

Код 1C v 8.х

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);

то есть при считывании элемента коллекции в переменную происходит значительное снижение производительность.

Для себя я сделал несколько выводов:

1. Если есть возможность использовать специализированный цикл & «Для Каждого», то лучше использовать его. Кстати, сам по себе он отрабатывает дольше чем другие циклы, но скорость доступа к элементу коллекции у него на много выше.

2. Если заранее знаешь количество итераций & используй «Для По». «Пока» отработает медленнее.

3. Если использовать цикл «Если» & другие программисты тебя явно не поймут.

В статье использованы материалы с хабра и хелпме

Категория: Встроенные Функции

Условия сравнения и проверки в Запросах. Отбор не заполненного значения

Как задать отбор по Типу документа?
Как указать условие для отбора не определенного значения?
Как в языке запросов 1С отобрать не заполненное значение?
Какое условие указать в запросе после ключевого слова «ГДЕ», когда нужно сделать отбор по не заполненным полям?

Код 1C v 8.х

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

    "ВЫБРАТЬ 

    |    усЕдиницыХранения.Ссылка

    |ИЗ

    |    Справочник.усЕдиницыХранения КАК усЕдиницыХранения"



    // Пример 1. сравнение с не заполненным булевым значением:

    |ГДЕ

    |     усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь



    // Пример 2. но если это булево определено, то лучше так: // условие на отрицательное булево:

    |ГДЕ

    |     НЕ усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны



    // Пример 3. выборка по условию не заполненного поля, имеющего тип "справочник конкретного типа"

    |ГДЕ

    |    усЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.усОбластиОтбора.ПустаяСсылка)



    // Пример 3а. выборка по условию не заполненного поля, имеющего тип "документ конкретного типа"

    |ГДЕ

    |    НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент.ПустаяСсылка)



    // Пример 3б. выборка по условию не заполненного поля, имеющего тип "документы разных типов" (составное поле)

    |ГДЕ

    |    (НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент1.ПустаяСсылка)

    |    ИЛИ НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент2.ПустаяСсылка)

    |    ИЛИ ...(и т.д. - последовательно перечисляем условия для всех возможных типов этого составного поля))



    // Пример 4. или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:

    |ГДЕ

    |    усЕдиницыХранения.Наименование > """"



    // Пример 5. если нужно выбрать документы конкретного типа, при составном типе данных, например в регистре "ВыполняемыеЗадания" ресурс "Задание" имеет составной тип, среди значений которого возможен документ "Отбор"

    |ГДЕ

    |    ВЫРАЗИТЬ(РегистрСведенийВыполняемыеЗадания.Задание КАК Документ.Отбор) ССЫЛКА Документ.Отбор



    // Пример 5а. Еще аналогичный пример, когда нужно выбрать документы конкретного типа

    |	ВЫБОР

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.ПоступлениеТоваровУслуг) ССЫЛКА Документ.ПоступлениеТоваровУслуг

    |			ТОГДА ""ПоступлениеТоваровУслуг""

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.РеализацияТоваровУслуг) ССЫЛКА Документ.РеализацияТоваровУслуг

    |			ТОГДА ""РеализацияТоваровУслуг""

    |		ИНАЧЕ """"

    |	КОНЕЦ КАК ВидДокумента



    // Пример 6. выбор по условию не определенного значения:

    |ГДЕ

    |    СохраненныеНастройки.Пользователь = НЕОПРЕДЕЛЕНО



    // Пример 7. выбор по виду движения "Приход" регистра накопления, "Расход" - аналогично):

    |ГДЕ

    |    РегТоварыВРознице.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)



    // Пример 8. Как в запросе указать, что выполнять запрос не нужно (например, нужно программно в зависимости от какого-то

    // условия вернуть пустой результат запроса - 

    // Запрос.Текст = СтрЗаменить(Запрос.Текст, "ГДЕ Док.Ссылка = &ДокументСсылка", "ГДЕ ЛОЖЬ");).

    // Для этого достаточно добавить условие "Где Ложь".

    // Кстати, независимо от объема запрашиваемых в выборке данных, такой запрос будет выполнен мгновенно.

    |ГДЕ ЛОЖЬ



    // Пример 9. Проверка на то, что результат выполнения запроса содержит данные:

    Если НЕ Запрос.Выполнить().Пустой() Тогда



    // Пример 10. выбор по условию не заполненной даты:

    |ГДЕ

    |    тбСтроки.ДатаОтмены = ДАТАВРЕМЯ(1, 1, 1)

источник

Категория: Запросы

Реквизит ~ Проверка на заполненность реквизитов формы, с признаком АвтоОтметкаНезаполненного

Код 1C v 8.х

  //Проверка на заполненность реквизитов формы, для которых установлен признак АвтоОтметкаНезаполненного

Функция ПроверкаАвтоОтметкаНезаполненного(ЭлементыФормы) Экспорт

    

    Результат = Ложь;

    

    Для каждого Элемент Из ЭлементыФормы Цикл

         Если ТипЗнч(Элемент) = Тип("ПолеВвода") Тогда

             Если Элемент.АвтоОтметкаНезаполненного И ЗначениеНеЗаполнено(Элемент.Значение) Тогда

                Сообщить("Необходимо заполнить обязательное поле ввода: " + Элемент.Подсказка, СтатусСообщения.Внимание);

                Результат = Истина;

            КонецЕсли;

            

        ИначеЕсли ТипЗнч(Элемент) = Тип("ТабличноеПоле") Тогда

            

            СоставПоля = Элемент.Значение;

            Колонки = Элемент.Колонки;

            Попытка // для ДокументСписок вызовет исключение

 

                Для каждого Строка Из СоставПоля Цикл

                    Для каждого Колонка Из Колонки Цикл

                        Если ТипЗнч(Колонка.ЭлементУправления) = Тип("ПолеВвода") Тогда

                            Если Колонка.АвтоОтметкаНезаполненного И ЗначениеНеЗаполнено(Строка[Колонка.Данные]) Тогда

                                Сообщить("Необходимо заполнить обязательное поле ввода табличной части: " + Колонка.ТекстШапки, СтатусСообщения.Внимание);

                                Результат = Истина;

                            КонецЕсли;

                        КонецЕсли;

                    КонецЦикла;

                КонецЦикла;

            Исключение

            КонецПопытки;

                

        КонецЕсли;

    

    КонецЦикла;

    

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

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

Категория: Работа с Формой (Диалог) и её элементами

Реквизит ~ Функция проверяет, все ли реквизиты элемента заполнены(Краткий вариант проверки)? Категория: Работа с Формой (Диалог) и её элементами