Накопитель функций для библиотеки функций

Сериализация в строку и из строки

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 Тогда
			НЗ.Очистить();
			НЗ.Записать();
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры