Обещание и Возвращающие Обещание в 1С 8.3

Процедура ВыполнениеПримераСАсих()

    Попытка
        ВыполнениеКода();
    Исключение
        // Исключение из ВыполнениеКода() не будет перехвачено здесь
    КонецПопытки

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

Асинх Функция ВыполнениеКода() // Всегда возвращает Обещание

    ВызватьИсключение "Выброшено в ВыполнениеКода()";
    //При успешном завершении в Обещание будет завернуто значение, которое было аргументом оператора Возврат.
    //Если при выполнении Асинх функции произошло исключение, то в Обещание будет завернуто это исключение.

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

Асинх Процедура ВыполнениеПримераСАсих()

    Попытка
        // Для того, чтобы узнать как завершилась Асинх функция – это использовать возвращенное ею Обещание как аргумент оператора Ждать.
        Ждать ВыполнениеКода(Null);
    Исключение
        // Исключение из НеNull() будет перехвачено здесь
        Сообщить("Передали Null");
    КонецПопытки

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

Асинх Функция ВыполнениеКода(ПеремП) // Всегда возвращает Обещание

    Если ПеремП = Null Тогда
        ВызватьИсключение "Выброшено в ВыполнениеКода()";
    Иначе
        Возврат ПеремП;
    КонецЕсли;

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

// Асинх процедура не возвращает значения. А если при выполнении Асинх процедуры возникнет не перехваченное исключение,
// то это приведет к выдаче сообщения об ошибке.

Функция Получение_Количества_Символов_Латиницы(Знач СтрокаЛатиница) Экспорт

    Найденные_Символы_Латиницы = Новый Массив;

    СтрокаЛатиница      = СокрЛП(СтрокаЛатиница);
    СтрокаЛатиница      = Нрег(СтрокаЛатиница);
    ДлинаСтрокиЛатиницы = СтрДлина(СтрокаЛатиница);

    Если ДлинаСтрокиЛатиницы > 0 Тогда

        СимволыЛатиницы= "abcdefghijklmnopqrstuvxyz";

        Для СЛ = 1 по ДлинаСтрокиЛатиницы Цикл

            ТекСимвол = Сред(СтрокаЛатиница,СЛ,1);
            Если  Найденные_Символы_Латиницы.Найти(ТекСимвол) = Неопределено
                и СтрНайти("abcdefghijklmnopqrstuvxyz",ТекСимвол) > 0 Тогда
                Найденные_Символы_Латиницы.Добавить(ТекСимвол);
            КонецЕсли;

        КонецЦикла;

    КонецЕсли;

    //Возвращает количество найденных различных символов латиницы в строке 1С 8.3
    Возврат Найденные_Символы_Латиницы.Количество();

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

@echo off
del     /s /q %userprofile%\AppData\Local\1C\*.*  
rd      /s /q %userprofile%\AppData\Local\1C\

del     /s /q %userprofile%\AppData\Roaming\1C\1cv8\*.*
rd      /s /q %userprofile%\AppData\Roaming\1C\1cv8\

del     /s /q %userprofile%\AppData\Roaming\1C\1cv82\*.*
rd      /s /q %userprofile%\AppData\Roaming\1C\1cv82\

Функция ПроверкаСтрокиНаКириллицу(СтрТекст, ТекДок)

   СтрТекстДок      = СокрЛП(СтрТекст);
   СтрТекстДок      = Нрег(СтрТекстДок);
   ДлинаСтрокиНомера = СтрДлина(СтрТекстДок);
   СимволыКирилицы = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя";
   Найденные_Символы="";

   Если ДлинаСтрокиНомера > 0 Тогда
       Для СК = 1 По ДлинаСтрокиНомера Цикл
           ТекСимвол = Сред(СтрТекстДок,СК,1);
           Если  СтрЧислоВхождений(СимволыКирилицы,ТекСимвол) > 0 Тогда
               Найденные_Символы=Найденные_Символы+ТекСимвол;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;

   Если Найденные_Символы<>"" Тогда
        #Если Клиент Тогда
           Предупреждение("В строке "+СокрЛП(СтрТекст)+" обнаружены недопустимые символы: """+Врег(Найденные_Символы)+"""");
        #КонецЕсли
   КонецЕсли;

   Возврат СтрТекст;

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

Процедура Поиск_строк_в_ТЗ_по_нескольким_значениям(ТЗ, ЗначениеПоиска1, ЗначениеПоиска2, ВидПоиска) Экспорт //ЗначениеПоиска3...,

   // Параметры:
   //  ТЗ - таблица значений по полям которой ищем
   //          Пример ТЗ:
   //          Стр["Цвет"] = "Красный";
   //          Стр["Вес"] = 120;
   //
   //  ЗначениеПоискаN - переданные значения для поиска по колонкам (согласно ОписаниеТипов)
   //          Пример значений:
   //          ЗначениеПоиска1="Красный"
   //          ЗначениеПоиска2=120
   //
   //  ВидПоиска - метод поиска: 1-запросом, 2-с помощью структуры

   Если ВидПоиска=1 Тогда //запросом

       Запрос = Новый Запрос;
       Запрос.Текст = "ВЫБРАТЬ
                               |    Врем_ТЗ.Цвет КАК Цвет,
                               |    Врем_ТЗ.Вес КАК Вес
                               |ПОМЕСТИТЬ Врем_ТЗ
                               |ИЗ
                               |    &ТЗ КАК Врем_ТЗ
                               |;
                               |
                               |///////////////////////////////////////////
                               |ВЫБРАТЬ
                               |    Врем_ТЗ.Цвет КАК Цвет,
                               |    Врем_ТЗ.Вес КАК Вес
                               |ИЗ
                               |    Врем_ТЗ КАК Врем_ТЗ
                               |ГДЕ
                               |    Врем_ТЗ.Цвет = &Цвет
                               |    И Врем_ТЗ.Вес = &Вес";

       Запрос.УстановитьПараметр("ТЗ", ТЗ);
       Запрос.УстановитьПараметр("Цвет", ЗначениеПоиска1);
       Запрос.УстановитьПараметр("Вес", ЗначениеПоиска2);

       РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать();
       Пока Записи.Следующий() Цикл
           // Обход результата запроса по каждой записи в полученной выборке
       КонецЦикла;

   ИначеЕсли ВидПоиска=2 Тогда //с помощью структуры

       ЗначенияПоиска = Новый Структура;
       ЗначенияПоиска.Вставить("Цвет", ЗначениеПоиска1);
       ЗначенияПоиска.Вставить("Вес", ЗначениеПоиска2);
       НайденныеПоля = ТЗ.НайтиСтроки(ЗначенияПоиска);

   КонецЕсли;

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

&НаСервере
Процедура ПолучениеЗапросомВсехСтрокСоЗначениямиВсехСтолбцовИзТаблицы()

   // Звездочка используется, когда нужно выбрать все столбцы из таблицы
   Запрос = Новый Запрос("ВЫБРАТЬ
   |  *
   |ИЗ
   |  Справочник.Материалы");

 РезультатЗапроса = Запрос.Выполнить();
  Если Не РезультатЗапроса.Пустой() Тогда // Такая проверка рекомендуется фирмой 1С
       Записи = РезультатЗапроса.Выбрать();
       Пока Записи.Следующий() Цикл
           // Обход результата запроса по каждой записи в полученной выборке
       КонецЦикла;
   Иначе // Например: Сообщить("Данные отсутствуют!");
   КонецЕсли;

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

&НаСервере
Процедура ПолучениеЗапросомВсехСтрокСоЗначениямиОпределенныхСтолбцов()

   // У каждого столбца в таблице есть своё соответствующее имя
   Запрос = Новый Запрос("ВЫБРАТЬ
   |  Наименование,
   |  Производитель,
   |  СрокИспользования
   |ИЗ
   |  Справочник.Материалы");

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

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