Накопитель функций для библиотеки функций
Сериализация в строку и из строки
2024-08-09 Дата из строки
Функция СтрокаДаты_ДД_ММ_ГГГГ_ВДату(Строка) Д = Число(Сред(Строка, 1, 2)); М = Число(Сред(Строка, 4, 2)); Г = Число(Сред(Строка, 7, 4)); Возврат Дата(Г, М, Д); КонецФункции Функция СтрокаДаты_ГГГГ_ММ_ДД_ВДату(Строка) Д = Число(Сред(Строка, 9, 2)); М = Число(Сред(Строка, 6, 2)); Г = Число(Сред(Строка, 1, 4)); Возврат Дата(Г, М, Д); КонецФункции Функция ДатаИзСтрокиСНазваниемМесяца(ДатаСтрокой) Экспорт //Из строки вида 2 октября 2022 М = СтрРазделить(СокрЛП(ДатаСтрокой), " ", ложь); Если М.Количество() = 3 Тогда Попытка День = Число(СокрЛП(М[0])); Месяцы = Новый Массив(); Месяцы.Добавить("ЯНВАРЯ"); Месяцы.Добавить("ФЕВРАЛЯ"); Месяцы.Добавить("МАРТА"); Месяцы.Добавить("АПРЕЛЯ"); Месяцы.Добавить("МАЯ"); Месяцы.Добавить("ИЮНЯ"); Месяцы.Добавить("ИЮЛЯ"); Месяцы.Добавить("АВГУСТА"); Месяцы.Добавить("СЕНТЯБРЯ"); Месяцы.Добавить("ОКТЯБРЯ"); Месяцы.Добавить("НОЯБРЯ"); Месяцы.Добавить("ДЕКАБРЯ"); Месяц = Месяцы.Найти(Врег(СокрЛП(М[1]))) + 1; Год = Число(СокрЛП(М[2])); Возврат Дата(Год, Месяц, День); Исключение КонецПопытки; КонецЕсли; Возврат Дата(1, 1, 1); КонецФункции Функция СтрокаДаты_ГГГГ_ММ_ДД_ЧЧ_ММ_СС_ВДату(Строка) //2012-06-21 22:30:25+00:00 Д = Число(Сред(Строка, 9, 2)); М = Число(Сред(Строка, 6, 2)); Г = Число(Сред(Строка, 1, 4)); ЧЧ = Число(Сред(Строка, 12, 2)); ММ = Число(Сред(Строка, 15, 2)); СС = Число(Сред(Строка, 18, 2)); Попытка Возврат Дата(Г, М, Д, ЧЧ, ММ, СС); Исключение КонецПопытки; КонецФункции
2024-08-09 Число из строки
Функция ЧислоИзСтроки(Знач С) Экспорт С = СокрЛП(С); С = СтрЗаменить(С, Символы.НПП, ""); С = СтрЗаменить(С, ",", "."); Если С = "" Тогда Возврат 0; КонецЕсли; Попытка Возврат Число(С); Исключение Возврат 0; КонецПопытки; КонецФункции
Сериализация объектов и форматы
2024-08-09 Сериализация JSON
Функция ДанныеВJSON(Данные) Экспорт ЗаписьJSON = Новый ЗаписьJSON; ЗаписьJSON.УстановитьСтроку(); ЗаписатьJSON(ЗаписьJSON,Данные,,"ПреобразоватьДанныеJSON"); Возврат ЗаписьJSON.Закрыть(); КонецФункции Функция ПреобразоватьДанныеJSON(Свойство,Значение,ДополнительныеПараметры,Отказ) Экспорт Если Значение = Null Тогда Возврат ""; КонецЕсли; КонецФункции Функция ДанныеИзJSON(ТелоЗапроса) Экспорт ЧтениеJSON = Новый ЧтениеJSON; ЧтениеJSON.УстановитьСтроку(ТелоЗапроса); Результат = ПрочитатьJSON(ЧтениеJSON); ЧтениеJSON.Закрыть(); Возврат Результат; КонецФункции
2024-08-09 Сериализация таблицы значений в строку
Функция ТабличныйДокументВСтроку(ТД) Экспорт Попытка ИмяФайла=ПолучитьИмяВременногоФайла("MXL"); ТД.Записать(ИмяФайла); ДД=Новый ДвоичныеДанные(ИмяФайла); Стр=Base64Строка(ДД); ДД=Неопределено; УдалитьФайлы(ИмяФайла); Возврат Стр; Исключение Возврат Неопределено; КонецПопытки; КонецФункции Функция ТабличныйДокументИЗСтроки(ТД, Стр) Экспорт Если СокрЛП(Стр)="" Тогда Возврат ложь; КонецЕсли; Попытка ДД=Base64Значение(Стр); ИмяФайла=ПолучитьИмяВременногоФайла("MXL"); ДД.Записать(ИмяФайла); ДД=Неопределено; ТД.Прочитать(ИмяФайла); УдалитьФайлы(ИмяФайла); Возврат истина; Исключение Возврат ложь; КонецПопытки; КонецФункции
Права доступа
2024-08-08 Проверка наличия профиля доступа с заданным именем. Иногда нужен просто профиль с именем, без дополнительных прав, на который могут быть завязаны права. В БСП.
Функция ЕстьПрофильДоступа(Пользователь, ИмяПрофиля) Экспорт УстановитьПривилегированныйРежим(Истина); Запрос = Новый Запрос(); Запрос.Текст = "ВЫБРАТЬ | ГруппыДоступа.Ссылка КАК Ссылка, | ГруппыДоступа.Профиль КАК Профиль |ИЗ | Справочник.ГруппыДоступа КАК ГруппыДоступа |ГДЕ | ГруппыДоступа.Пользователи.Пользователь = &Пользователь | И ГруппыДоступа.Профиль.Наименование = &ИмяПрофиля"; Запрос.УстановитьПараметр("Пользователь", Пользователь); Запрос.УстановитьПараметр("ИмяПрофиля", ИмяПрофиля); Выборка = Запрос.Выполнить().Выбрать(); Возврат Выборка.Следующий(); КонецФункции
Медатанные
2024-06-24 проверка наличия реквизита объекта (справочника, документа).
Функция ЕстьРеквизитОбъекта(ИмяРеквизита, Объект) Экспорт //Осипов С.А. 2024-06-24. Протестировано МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипЗнч(Объект)); Если МетаданныеОбъекта = Неопределено Тогда Возврат Ложь; КонецЕсли; Если МетаданныеОбъекта.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда Возврат Ложь; Иначе Возврат Истина; КонецЕсли; КонецФункции
Форматирование чисел, дат
2024-06-12 типовая функция 1С по форме множественного числа
// Функция преобразует строку к множественному числу // // Параметры: // Слово1 - форма слова в ед числе ("шкаф") // Слово2 - форма слова для числит 2-4 ("шкафа") // Слово3 - форма слова для числит 5-10 ("шкафов") // ЦелоеЧисло - целое число. // // Возвращаемое значение: // строку - одну из строк в зависимости от параметра ЦелоеЧисло. // // Описание: // Предназначена для формирования "правильной" подписи к числительным. // Функция ФормаМножественногоЧисла(Слово1, Слово2, Слово3, Знач ЦелоеЧисло) Экспорт // Изменим знак целого числа, иначе отрицательные числа будут неправильно преобразовываться. Если ЦелоеЧисло < 0 Тогда ЦелоеЧисло = -1 * ЦелоеЧисло; КонецЕсли; Если ЦелоеЧисло <> Цел(ЦелоеЧисло) Тогда // для нецелых чисел - всегда вторая форма Возврат Слово2; КонецЕсли; // остаток Остаток = ЦелоеЧисло%10; Если (ЦелоеЧисло >10) И (ЦелоеЧисло<20) Тогда // для второго десятка - всегда третья форма Возврат Слово3; ИначеЕсли Остаток=1 Тогда Возврат Слово1; ИначеЕсли (Остаток>1) И (Остаток<5) Тогда Возврат Слово2; Иначе Возврат Слово3; КонецЕсли; КонецФункции
Универсальные коллекции
2024-05-31 Свойство структуры
Функция СвойствоСтруктуры(Структура, Свойство, ПоУмолчанию = Неопределено) Экспорт Если Структура <> Неопределено И Структура.Свойство(Свойство) Тогда Возврат Структура[Свойство]; КонецЕсли; Возврат ПоУмолчанию; КонецФункции
Массивы
2024-08-25 Добавить в массив уникальное значение. Возврат истина, если добавлено.
Функция ДобавитьВМассивУникально(М, Зн) Экспорт Если М.Найти(Зн) = Неопределено Тогда М.Добавить(Зн); Возврат истина; КонецЕсли; Возврат ложь; КонецФункции
Работа с табличным документом
2024-05-30 Удаление строк табличного документа по маркеру
Процедура ОчиститьСтрокиТабличногоДокументаСодержащиеМаркер(ДокументРезультат, Маркер, ЯчейкаЦеликом = истина) Экспорт Пока Истина Цикл Область = ДокументРезультат.НайтиТекст(Маркер,,,, ЯчейкаЦеликом); Если Область = Неопределено Тогда Возврат; КонецЕсли; //ОбластьСтрока = ДокументРезультат.Область(Область.Верх, 1, Область.Верх ,ДокументРезультат.ШиринаТаблицы); ОбластьСтрока = ДокументРезультат.Область("R" + XMLСтрока(Область.Верх)); ДокументРезультат.УдалитьОбласть(ОбластьСтрока, ТипСмещенияТабличногоДокумента.ПоВертикали); КонецЦикла; КонецПроцедуры
Обработка регистров
2024-05-29. Удаление движений документа
Процедура УдалитьДвиженияДокумента(ДокументОбъект) Экспорт Для Каждого НЗ ИЗ ДокументОбъект.Движения Цикл НЗ.Прочитать(); Если НЗ.Количество() > 0 Тогда НЗ.Очистить(); НЗ.Записать(); КонецЕсли; КонецЦикла; КонецПроцедуры
![](https://geniy1s.ru/wp-content/uploads/2024/05/image-115-1024x610.png)
Для удаления движений документа не нужен ни объект документа, ни чтения набора записей регистра.
А вообще вместо изобретений велосипедов — изучать БСП.
я собираю свою библиотеку функций. БСП вроде бы заявила, что ее можно без ИТС использовать, но это не точно.
Первую часть замечаний почему проигнорировал?
не понял о чем она. Там ведь не содержится информации — только отрицание приведенной информации. Если расскажете, что вы имеете ввиду, будут и комментарии.