Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу



СтрокаАдреса = "ivanov@mail.com"; // проверяемый адрес

//CтрокаАдреса = ЭлементыФормы.ПолеВводаАдреса.Значение;  //проверяемый адрес для элемента формы



RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы  с регулярными выражениями

RegExp.MultiLine = Ложь;    // истина — текст многострочный, ложь — одна строка

RegExp.Global = Истина;     // истина — поиск по всей строке, ложь — до первого совпадения

RegExp.IgnoreCase = Истина; // истина — игнорировать регистр строки при поиске

RegExp.Pattern = Шаблон;    // шаблон (регулярное выражение) для проверки  корректности e-mail

Если RegExp.Test(СтрокаАдреса) Тогда

     Сообщить("Корректный адрес");

Иначе

     Сообщить("Некорректный адрес");

КонецЕсли;   

 RegExp = CreateObject("VBScript.RegExp");

  Процедура ВводНового(Копирование) 

 

//E_Migachev автоматический расчет следующего номера             

//Выберем документы в обратном порядке

ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 

ДокНачислениеОтпуска.ОбратныйПорядок(1);

ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));

ДокНачислениеОтпуска.ПолучитьДокумент();  

//Получим последний числовой номер

новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));

стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));

новномдк=Число(новномдк)+1; 

иткол=стрдлинаномдк-СтрДлина(новномдк); 

префиксдк="ОТ";

если иткол>0 тогда 

	для н=1 по иткол цикл

		префиксдк=префиксдк+строка(0);		

	конеццикла;

конецесли;	

докном=префиксдк+новномдк;   

//Если документ исправление то нужен префикс И

Если Исправление=1 Тогда 

	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);

	Если Строка(Лев(знтри,1))="И" Тогда

		чзнтри=Число(Прав(знтри,2));

		чзнтри=чзнтри+1;

	Иначе

		чзнтри=1;

	КонецЕсли;     

	Если СтрДлина(чзнтри)=1 Тогда

	докном=докном+"-И0"+Строка(чзнтри);	

	Иначе

	докном=докном+"-И"+Строка(чзнтри);	

	КонецЕсли;

КонецЕсли;    

//Присвоим новый номер

НомерДок=докном; //E_Migachev автоматич расчет номера