Архивы 1с - Страница 8 из 29

1С: проверка вилидности email и пароля

27.10.2020 Павел Грибов 1C

Ну например можно организовать вот так:

Функция ПарольСоответствуетТребованиям (Пароль) экспорт
	УстановитьПроверкуСложностиПаролейПользователей(Истина);
	ВременныйПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
	ВременныйПользовательИБ.АутентификацияСтандартная = Истина;
	ВременныйПользовательИБ.Имя = НСтр("ru = 'Временный пользователь'")+
	" (" + Строка(Новый УникальныйИдентификатор) + ")";
	ВременныйПользовательИБ.Пароль = Пароль;
	ХорошийПароль = Истина;
	Попытка
		ВременныйПользовательИБ.Записать();
	Исключение
		ХорошийПароль = Ложь;
	КонецПопытки;
	ВременныйПользовательИБ.Удалить();
Возврат ХорошийПароль;
КонецФункции
Функция ПроверкаВалидностиEmail(Адрес) Экспорт
    ЛатинскиеБуквы = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
    Цифры = "0123456789";
    //ищем крайний справа символ @ для правильного выделения локальной и доменной части
    ИндексСобаки = Найти(Адрес,"@");
    //1. строка адреса вообще не содержит разделителя
    Если ИндексСобаки = 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    УрезаемаяСтрока = Сред(Адрес, ИндексСобаки+1);
    Пока Найти(УрезаемаяСтрока,"@") > 0 Цикл
        ИндексСобаки = ИндексСобаки + Найти(УрезаемаяСтрока,"@");
        УрезаемаяСтрока = Сред(УрезаемаяСтрока, ИндексСобаки+1);
    КонецЦикла;
    ДоменнаяЧасть = Сред(Адрес, ИндексСобаки+1);
    ЛокальнаяЧасть = Лев(Адрес, ИндексСобаки-1);
    //2. Проверяем длину локальной части
    Если СтрДлина(ЛокальнаяЧасть) < 1 ИЛИ СтрДлина(ЛокальнаяЧасть) > 64 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //3. Проверяем длину доменной части
    Если СтрДлина(ДоменнаяЧасть) < 1 ИЛИ СтрДлина(ДоменнаяЧасть) > 255 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //4. Проверяем что локальная части не начинается и не заканчивается на "."
    Если Лев(ЛокальнаяЧасть, 1) = "." ИЛИ Прав(ЛокальнаяЧасть, 1) = "." Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //5. Локальная части не содержит 2 или более "." подряд
    Если Найти(ЛокальнаяЧасть, "..") > 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //Проверка доменной части
    //6. Доменная часть не начинается с точки
    Если Лев(ДоменнаяЧасть, 1) = "." Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //7. Доменная часть не содержит 2 или более "." подряд
    Если Найти(ДоменнаяЧасть, "..") > 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //8. Проверка частей доменной части
    //каждая часть начинается с буквы и заканчивается буквой или цифрой
    //каждая часть длиной не более 63 символов
    ИдентификаторыДоменнойЧасти = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ДоменнаяЧасть, ".");
    Для Каждого ИдентификаторДомена ИЗ ИдентификаторыДоменнойЧасти Цикл
        Если СтрДлина(ИдентификаторДомена) > 63 Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
        Если Найти(ЛатинскиеБуквы, Лев(ИдентификаторДомена,1)) = 0
            //для доменов, нарушающих RFC 1035 п.2.3.1, например @1c.ru :)
            И Найти(Цифры, Лев(ИдентификаторДомена,1)) = 0
            Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
        Если Найти(ЛатинскиеБуквы, Прав(ИдентификаторДомена,1)) = 0 И Найти(Цифры, Прав(ИдентификаторДомена,1)) = 0 Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
    КонецЦикла;
    //Все проверки пройдены - радуемся
    Возврат ИСТИНА;
КонецФункции

Функция ПарольСоответствуетТребованиям (Пароль) экспорт

УстановитьПроверкуСложностиПаролейПользователей(Истина);

ВременныйПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

ВременныйПользовательИБ.АутентификацияСтандартная = Истина;

ВременныйПользовательИБ.Имя = НСтр("ru = 'Временный пользователь'")+

" (" + Строка(Новый УникальныйИдентификатор) + ")";

ВременныйПользовательИБ.Пароль = Пароль;

ХорошийПароль = Истина;

Попытка

ВременныйПользовательИБ.Записать();

Исключение

ХорошийПароль = Ложь;

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

ВременныйПользовательИБ.Удалить();

Возврат ХорошийПароль;

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

Функция ПроверкаВалидностиEmail(Адрес) Экспорт

ЛатинскиеБуквы = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";

Цифры = "0123456789";

//ищем крайний справа символ @ для правильного выделения локальной и доменной части

ИндексСобаки = Найти(Адрес,"@");

//1. строка адреса вообще не содержит разделителя

Если ИндексСобаки = 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

УрезаемаяСтрока = Сред(Адрес, ИндексСобаки+1);

Пока Найти(УрезаемаяСтрока,"@") > 0 Цикл

ИндексСобаки = ИндексСобаки + Найти(УрезаемаяСтрока,"@");

УрезаемаяСтрока = Сред(УрезаемаяСтрока, ИндексСобаки+1);

КонецЦикла;

ДоменнаяЧасть = Сред(Адрес, ИндексСобаки+1);

ЛокальнаяЧасть = Лев(Адрес, ИндексСобаки-1);

//2. Проверяем длину локальной части

Если СтрДлина(ЛокальнаяЧасть) < 1 ИЛИ СтрДлина(ЛокальнаяЧасть) > 64 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//3. Проверяем длину доменной части

Если СтрДлина(ДоменнаяЧасть) < 1 ИЛИ СтрДлина(ДоменнаяЧасть) > 255 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//4. Проверяем что локальная части не начинается и не заканчивается на "."

Если Лев(ЛокальнаяЧасть, 1) = "." ИЛИ Прав(ЛокальнаяЧасть, 1) = "." Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//5. Локальная части не содержит 2 или более "." подряд

Если Найти(ЛокальнаяЧасть, "..") > 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//Проверка доменной части

//6. Доменная часть не начинается с точки

Если Лев(ДоменнаяЧасть, 1) = "." Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//7. Доменная часть не содержит 2 или более "." подряд

Если Найти(ДоменнаяЧасть, "..") > 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//8. Проверка частей доменной части

//каждая часть начинается с буквы и заканчивается буквой или цифрой

//каждая часть длиной не более 63 символов

ИдентификаторыДоменнойЧасти = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ДоменнаяЧасть, ".");

Для Каждого ИдентификаторДомена ИЗ ИдентификаторыДоменнойЧасти Цикл

Если СтрДлина(ИдентификаторДомена) > 63 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

Если Найти(ЛатинскиеБуквы, Лев(ИдентификаторДомена,1)) = 0

//для доменов, нарушающих RFC 1035 п.2.3.1, например @1c.ru :)

И Найти(Цифры, Лев(ИдентификаторДомена,1)) = 0

Тогда

Возврат ЛОЖЬ;

КонецЕсли;

Если Найти(ЛатинскиеБуквы, Прав(ИдентификаторДомена,1)) = 0 И Найти(Цифры, Прав(ИдентификаторДомена,1)) = 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

КонецЦикла;

//Все проверки пройдены - радуемся

Возврат ИСТИНА;

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

Оставить комментарий 1с, проверка email, проверка пароля

Определение длины строки в запросе 1С

21.09.2020 Павел Грибов 1C

Как извесно боль запросов 1С, в невозможности «штатно» определить длину строки в запросе. Вот один из обходных «велосипедов»:

&НаСервере
Процедура ПроанализироватьНаСервере(имя)	
		
	
	ТекстДерево = Дерево("ацукацукацук.Поле_1_1", -1, 300); 
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ ПЕРВЫЕ 1
		|    " + ТекстДерево + " КАК Длина
		|ИЗ
		|	РегистрСведений.ацукацукацук КАК ацукацукацук
		|УПОРЯДОЧИТЬ ПО
    	|    Длина УБЫВ";
		
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		сообщить(ВыборкаДетальныеЗаписи.Длина);
	КонецЦикла;	


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

&НаСервере
Функция Дерево(Реквизит, Начало, Конец) Экспорт
    Если Начало + 1 = Конец Тогда
        Возврат Строка(Конец);
    КонецЕсли;
    Середина = Начало + Цел((Конец - Начало) / 2);
    СтрокаДерево = "ВЫБОР КОГДА ПОДСТРОКА(" + Реквизит + ", " + (Середина + 1) + ", 3) = """" ТОГДА " 
        + Дерево(Реквизит, Начало, Середина) + " ИНАЧЕ " + Дерево(Реквизит, Середина, Конец) + " КОНЕЦ";
    Возврат СтрокаДерево;
КонецФункции

&НаСервере

Процедура ПроанализироватьНаСервере(имя)

ТекстДерево = Дерево("ацукацукацук.Поле_1_1", -1, 300);

Запрос = Новый Запрос;

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

"ВЫБРАТЬ ПЕРВЫЕ 1

| " + ТекстДерево + " КАК Длина

|ИЗ

| РегистрСведений.ацукацукацук КАК ацукацукацук

|УПОРЯДОЧИТЬ ПО

| Длина УБЫВ";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

сообщить(ВыборкаДетальныеЗаписи.Длина);

КонецЦикла;

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

&НаСервере

Функция Дерево(Реквизит, Начало, Конец) Экспорт

Если Начало + 1 = Конец Тогда

Возврат Строка(Конец);

КонецЕсли;

Середина = Начало + Цел((Конец - Начало) / 2);

СтрокаДерево = "ВЫБОР КОГДА ПОДСТРОКА(" + Реквизит + ", " + (Середина + 1) + ", 3) = """" ТОГДА "

+ Дерево(Реквизит, Начало, Середина) + " ИНАЧЕ " + Дерево(Реквизит, Середина, Конец) + " КОНЕЦ";

Возврат СтрокаДерево;

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

Оставить комментарий 1с, длина строки, запрос

1С: Выделение цветом ячеек в таблице значений на форме

17.09.2020 Павел Грибов 1C

Задача: раскрасить ячейки в ТЗ на форме в зависимости от условий.

Решение: будем использовать условное оформление, которое назначается перед выводом формы на экран. Например в процедуре «ПриСозданииНаСервере»

	ЭлементОформления = УсловноеОформление.Элементы.Добавить();	 
	Оформление  = УсловноеОформление.Элементы.Добавить();
 	Оформление.Использование = Истина;
	 Поле1 = Оформление.Поля.Элементы.Добавить();
	 Поле1.Поле = Новый ПолеКомпоновкиДанных("тчСумма");
	 Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
	 Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.тч.СуммаПениНачисленная");
	 Отбор.ПравоеЗначение = 0;
	 Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно;
	 Отбор.Использование = Истина;
	 Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Аквамарин);

ЭлементОформления = УсловноеОформление.Элементы.Добавить();

Оформление = УсловноеОформление.Элементы.Добавить();

Оформление.Использование = Истина;

Поле1 = Оформление.Поля.Элементы.Добавить();

Поле1.Поле = Новый ПолеКомпоновкиДанных("тчСумма");

Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.тч.СуммаПениНачисленная");

Отбор.ПравоеЗначение = 0;

Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно;

Отбор.Использование = Истина;

Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Аквамарин);

Один комментарий 1с, выделение ячеек цветом, условное оформление

1C: Правильное удаление элементов из таблицы значений

04.09.2020 Павел Грибов 1C

Некоторые пытаются сделать так:

			 для каждого стр из док.Начисления цикл
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	  док.Начисления.удалить(стр);
			    	  продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 				 
			 конеццикла;

для каждого стр из док.Начисления цикл

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

конеццикла;

Т.е. перебирают всю таблицу и по условию удаляют это строчку. И это совершенноне верно! При таком удалении, если строчки которые нужно удалить идут «вподряд», идет «перескок» и строка не удаляется. Правильно удалять с отборами:

			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

Пусть более громоздко, но зато работает верно. Можно еще покопать в строну использования «И и ИЛИ» в отборах. Будет короче. Не стал

Оставить комментарий 1с, удаление из табличной части

Регистр не попадает в меню перейти

01.09.2020 Павел Грибов 1C

А именно вот сюда, после добавления нового регистратора у документа:

Возможно кому-то сэкономит минуту времени. Это глюк платформы 1С, как минимум 8.3.16.1502 и ниже. Достаточно выйти из конфигуратора и зайти снова, и регистр появится.

Оставить комментарий 1с, глюк

« 1 … 6 7 8 9 10 … 29 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31