&НаСервере
Процедура Склонение()

    // доступна с версии 8.3.13
    ФИО_Падеж = ПолучитьСклоненияСтроки("Ковалевская Софья Васильевна", "Л=ru_RU;ПЛ=Женский", "ПД=Творительный");
    // ПД: Именительный, Родительный, Дательный, Винительный, Творительный, Предложный
    Для Индекс = 0 По ФИО_Падеж.Количество() - 1 Цикл
        Сообщить(ФИО_Падеж[Индекс]); // Ковалевской Софьей Васильевной
    КонецЦикла;

    // доступна с версии 8.3.14
    Число_Падеж = ПолучитьСклоненияСтрокиПоЧислу("золото", 2.75, "килограмм, грамм, 2", "ЧС=Количественное", "ПД=Предложный; ПЧ=ЧислоПрописью");
    Для Индекс = 0 По Число_Падеж.Количество() - 1 Цикл
        Сообщить(Число_Падеж[Индекс]); // Двух килограммах семидесяти пяти граммах золота
    КонецЦикла;

    Число_Падеж = ПолучитьСклоненияСтрокиПоЧислу("человек", 3, "", "ЧС=Порядковое", "ПД=Дательный; ПЧ=ЧислоСОкончанием");
    Для Индекс = 0 По Число_Падеж.Количество() - 1 Цикл
        Сообщить(Число_Падеж[Индекс]); // 3-му человеку
    КонецЦикла;

    Число_Падеж = ПолучитьСклоненияСтрокиПоЧислу("счастливый утёнок", 13, "", "ЧС=Порядковое", "ПД=Родительный; ПЧ=ЧислоПрописью");
    Для Индекс = 0 По Число_Падеж.Количество() - 1 Цикл
        Сообщить(Число_Падеж[Индекс]); // Тринадцатого счастливого утёнка
    КонецЦикла;

    Число_Падеж = ПолучитьСклоненияСтрокиПоЧислу("дом", 7, "", "ЧС=Порядковое", "ПД=Винительный; ПЧ=ЧислоСОкончанием");
    Для Индекс = 0 По Число_Падеж.Количество() - 1 Цикл
        Сообщить(Число_Падеж[Индекс]); // 7-ой дом
    КонецЦикла;

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

&НаКлиенте
Функция Dec_to_Hex(Знач пDec)// пDec - десятичное число(Число)

    Разрядность = 16;
    стр16Число = "";

    Пока пDec <> 0 Цикл

        Поз =пDec % Разрядность;
        стр16Число = Сред("0123456789ABCDEF", Поз + 1, 1) + стр16Число;
        пDec = Цел(пDec / Разрядность);

    КонецЦикла;

    Возврат стр16Число; //Шестнадцатеричное число (Строка)

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

Обещание и Возвращающие Обещание в 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 Тогда
               Найденные_Символы=Найденные_Символы+ТекСимвол;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;

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

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

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