//Процедура проверяет наличие в ТЧ дублей строк по указанным реквизитам

//ДокументСсылка - ссылка на проверяемый документ

//ИмяТабЧасти    - имя проверяемой табличной части (строка)

//ПроверяемыеРеквизиты - перечень проверяемых реквизитов (строка, реквизиты разделяются запятой) 

 Процедура ПроверимДублиСтрок(ДокументСсылка,ИмяТабЧасти,ПроверяемыеРеквизиты,Отказ)

 

	ТаблицаДокумента = ДокументСсылка[ИмяТабЧасти].Выгрузить();

	ТаблицаДокумента.Колонки.Добавить("КвоПроверкаДублей"); 

	ТаблицаДокумента.ЗаполнитьЗначения(1, "КвоПроверкаДублей");

	

	ТаблицаДокумента.Свернуть(ПроверяемыеРеквизиты,"КвоПроверкаДублей");

	

	Для Каждого ТекущаяСтрока Из ТаблицаДокумента Цикл 

		Если ТекущаяСтрока.КвоПроверкаДублей > 1 Тогда

			РеквизитыДляСообщения = "";

			Стр = СокрЛП(ПроверяемыеРеквизиты);

			Пока Найти(Стр,",") > 0 Цикл

				НаимРеквизита = СокрЛП(Лев(Стр,Найти(Стр,",") - 1));

				Стр = Прав(Стр,СтрДлина(Стр) - Найти(Стр,","));

				РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[НаимРеквизита]+", ";

			КонецЦикла; 

			РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[СокрЛП(Стр)];

			

			Сообщить("Информация "+РеквизитыДляСообщения+" введена несколько раз в табличную часть, проведение невозможно!");

			Отказ = Истина;

		КонецЕсли; 

	КонецЦикла;

 

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

   

 // Процедура - обработчик события ОбработкаПроверкиЗаполнения объекта.

//

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)

		

	Если Запасы.Количество() = 0 Тогда

		Возврат;

	КонецЕсли;

	

	ПроверимДублиСтрок(Ссылка, "Запасы", "Номенклатура, АлгоритмФормированияШК,Регион", Отказ);



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

   

 Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному 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");

 МассивКолонок = Новый Массив;

МассивКолонок.Добавить("Количество");

            

СсылочныеКолонки = Новый Соответствие;

СсылочныеКолонки["Адрес"] = Справочники.АдресаЯчеек.ПустаяСсылка();

СсылочныеКолонки["Товар"] = Справочники.Номенклатура.ПустаяСсылка();

ПроверкаЗаполненияТабличнойЧасти(Ссылка, "Товары", МассивКолонок, СсылочныеКолонки, Отказ);



//выбирает не заполненные строки

//СсылкаНаОбъект - ссылка на проверяемый документ, ИмяТабЧасти - имя проверяемой табличной части,

//СписокКолонок - массив с именами колонок

//СсылочныеКолонки - соответсвие имен колонок и пустых ссылок типов этих колонок

Процедура ПроверкаЗаполненияТабличнойЧасти(СсылкаНаОбъект, ИмяТабЧасти = "Товары", СписокКолонок, СсылочныеКолонки = Неопределено, Отказ = Ложь, Заголовок = "") Экспорт

    

    ИмяДока = СсылкаНаОбъект.Метаданные().Имя;

    

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

    Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект);

    

    ТекстЗапроса = "ВЫБРАТЬ

                    |    Док.НомерСтроки

                    |ИЗ

                    |    Документ." + ИмяДока + "." + ИмяТабЧасти + " КАК Док

                    |ГДЕ

                    |    Док.Ссылка = &Ссылка И (";

    СтрокаКолонок = "";                

    

    Если СсылочныеКолонки <> Неопределено Тогда 

        

        Для каждого Колонка Из СсылочныеКолонки Цикл

             ТекстЗапроса = ТекстЗапроса + " Док." + Колонка.Ключ + " = &" + Колонка.Ключ + " ИЛИ";

            СтрокаКолонок = СтрокаКолонок + Колонка.Ключ + ", ";

            Запрос.УстановитьПараметр(Колонка.Ключ, Колонка.Значение);

        КонецЦикла; 

        

    КонецЕсли;

    

    Для каждого Колонка Из СписокКолонок Цикл

        ТекстЗапроса = ТекстЗапроса + " Док." + Колонка + " = 0 ИЛИ";

        СтрокаКолонок = СтрокаКолонок + Колонка + ", ";

    КонецЦикла;

    

    ТекстЗапроса = СтрЗаменить(ТекстЗапроса, Колонка + " = 0 ИЛИ", Колонка + " = 0)");

                       

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

    СтрокаСообщения = "Проверка табличной части на заполнение по колонкам: " + СтрокаКолонок;

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

    ЕстьОшибки = Ложь;

    Пока Результат.Следующий() Цикл

        

        СтрокаСообщения = СтрокаСообщения  + Символы.ПС

                        + "В строке № " + Формат(Результат.НомерСтроки, "ЧГ=0")

                        + " есть не заполненное значение!";

        ЕстьОшибки = Истина;

        

    КонецЦикла;

    

    Если ЕстьОшибки Тогда 

        СообщитьОбОшибке(СтрокаСообщения, Отказ, Заголовок);

    КонецЕсли;    

                    

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

 // Проверка орфоргафии переданного текста с помощью средств MS Word

// Параметры

//  <Текст> – <Строка> – проверяемый текст

//  <ДеревоЗначений> – <ДеревоЗначений> – возвращает дерево замен

// Возвращаемое значение:

//   <Булево> – Истина, если текст не содержит ошибок

Функция ПроверитьОрфографию(Текст, ДеревоЗначений = Null) Экспорт

    Попытка

		Ворд = Новый COMОбъект("Word.Application"); //Создаем объект MS Word

	Исключение

		Предупреждение("Microsoft Word не установлен!",,"Ошибка!");

		Возврат Ложь;

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



	ТекстБезОшибок = Ворд.CheckSpelling(Текст); //проверяем нашу строку на ошибки



	Если ТекстБезОшибок Тогда // Нет ошибок

		Возврат Истина;



	Иначе // Обнаружены ошибки, будем проверять по словам

        Если ДеревоЗначений <> Null Тогда

			Ворд_Активен = Ворд.Visible; //Запомним, был ли Word активен

			

			ВремДок = Ворд.Documents.Add(); //Добавляем к открытым документам

			МояОбласть = ВремДок.Range(0, 0); //Получаем пустую область в начале документа

			МояОбласть.I_nsertBefore(Текст); //Добавляем в эту область нашу строку

			ЧислоСлов = МояОбласть.Words.Count; //Подсчитываем число слов в области



			ДеревоЗначений = Новый ДеревоЗначений; //сюда будем записывать слова и варианты их замен

            МассивТипов = Новый Массив;

			МассивТипов.Добавить(Тип("Строка"));

			ОписаниеТипов = Новый ОписаниеТипов(МассивТипов);

			ДеревоЗначений.Колонки.Добавить("Слово", ОписаниеТипов, "Слово/Замена",);

			

			wdSpellword=0; //константа Word, указывающая на то, что при при вызове проверки орфографии возвращается множество замен

			wdDoNotSaveChanges=0; //константа Word, указывающая на то, что при закрытии не надо сохранять изменения в закрываемом документе

			

			Для НомерСлова = 1 По ЧислоСлов Цикл

	            ОбработкаПрерыванияПользователя();

				ПровОбласть = МояОбласть.Words(НомерСлова); //выбираем очередное слово

				ПровСлово = СокрЛП(ПровОбласть.Text);

				СловоБезОшибок = Ворд.CheckSpelling(ПровСлово); //проверяем наше слово на ошибки

				Если НЕ СловоБезОшибок Тогда //получаем варианты замен (их может и не быть!)

					Если ДеревоЗначений.Строки.Найти(ПровСлово, "Слово") = Неопределено Тогда

						НоваяСтрока = ДеревоЗначений.Строки.Добавить();

						НоваяСтрока.Слово = ПровСлово;

						

						Замены = ПровОбласть.GetSpellingSuggestions( ,1, ,wdSpellword); //проверяем орфографию, укзав, что возвращать надо множество замен

						ЧислоЗамен = Замены.Count; //получаем число возможных замен

						Если ЧислоЗамен > 0 Тогда //заносим варианты замен в таблицу значений

							Для НомерЗамены = 1 По ЧислоЗамен Цикл

								СловоЗамены = СокрЛП(Замены.Item(НомерЗамены).Name);

								НоваяПодСтрока = НоваяСтрока.Строки.Добавить();

								НоваяПодСтрока.Слово = СловоЗамены;

							КонецЦикла;

						КонецЕсли;	

					КонецЕсли; 

				КонецЕсли;	

			КонецЦикла;



			ВремДок.Close(wdDoNotSaveChanges,,);

			Если Не Ворд_Активен Тогда

				Ворд.Quit();

			КонецЕсли;

		КонецЕсли; 



		Возврат Ложь;

	КонецЕсли; 

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

 

  Перем ДеревоЗначений;

    Состояние("Идет проверка орфографии. Пожалуйста ждите...");

	Текст = ЭлементыФормы.ПолеТекстовогоДокумента.ПолучитьТекст(); // Получаем текст

    Если ПроверитьОрфографию(Текст, ДеревоЗначений) Тогда  // Проверяем орфографию

		Предупреждение("Текст ошибок не содержит!!!", 5, "OK");

	Иначе

		Если ДеревоЗначений.Строки.Количество() > 0 Тогда

			// Создаем и открываем форму автозамен...

			ФормаВыбора = ЭтотОбъект.ПолучитьФорму("ФормаВыбора");



			Для каждого СтрокаДЗ Из ДеревоЗначений.Строки Цикл

				Строка = ФормаВыбора.ДеревоЗначений.Строки.Добавить();

				Строка.Слово = СтрокаДЗ.Слово;



				Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл

					ПодСтрока = Строка.Строки.Добавить();

					ПодСтрока.Слово = ПодСтрокаДЗ.Слово;

				КонецЦикла; 

			КонецЦикла; 



			Если ФормаВыбора.ОткрытьМодально() = "OK" Тогда

		        // Производим автозамены в тексте

				Для каждого СтрокаДЗ Из ФормаВыбора.ДеревоЗначений.Строки Цикл

					Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл

						Если ПодСтрокаДЗ.Пометка Тогда

							Текст = СтрЗаменить(Текст, ПодСтрокаДЗ.Родитель.Слово, ПодСтрокаДЗ.Слово);

						КонецЕсли; 

					КонецЦикла; 

				КонецЦикла; 

             	ЭлементыФормы.ПолеТекстовогоДокумента.УстановитьТекст(Текст); //Вставим в поле исправленный текст

			КонецЕсли; 

		Иначе

			Предупреждение("В тексте найдены ошибки, но вариантов автозамены не нашлось!!!", 5, "Ошибка");

		КонецЕсли; 

	КонецЕсли;    

 // Параметры:

// ОГРН - строка - проверяемый основной государственный регистрационный номер

Функция ОГРНсоответствуетТребованиям(Знач ОГРН) Экспорт

	Попытка

		ОГРНБезВедущихНулей = Формат(ОГРН,"ЧГ=0");

	Исключение

		Возврат Ложь;

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

	ОГРН = Строка(ОГРНБезВедущихНулей);

	Если СтрДлина(ОГРН) <> 13 Тогда

		Возврат Ложь;

	Иначе

		Возврат Истина;//проверка временно отключена

	КонецЕсли;

	ОГРН12 = Число(Лев(ОГРН, 12));

	Если Прав(Формат(ОГРН12%11, "ЧН=0; ЧГ=0"), 1) = Прав(ОГРН, 1) Тогда

		Возврат Истина;

	Иначе

		Возврат Ложь;

	КонецЕсли;

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

 // Параметры:

// КПП - строка - проверяемый код причины постановки на учет

Функция КППСоответствуетТребованиям(Знач КПП) Экспорт

	

	Если НЕ ТолькоЦифрыВСтроке(КПП) Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Если СтрДлина(СтрЗаменить(Строка(КПП), "0", "1")) <> 9 Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Возврат Истина;

	

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

 // Параметры:

//		ИНН - строка - проверяемый индивидуальный номер налогоплательщика,

//		ВладелецИНН - ПеречислениеСсылка.ЮрФизЛицо - тип владельца ИНН: физлицо или юрлицо

Функция ИННСоответствуетТребованиям(Знач ИНН, ВладелецИНН) Экспорт



	ИНН = СокрЛП(ИНН);

	ДлинаИНН =  СтрДлина(ИНН);



	Если НЕ ТолькоЦифрыВСтроке(ИНН) Тогда

		Возврат Ложь;

	КонецЕсли;



	Если ДлинаИНН = 10  и ВладелецИНН = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда



		КонтрольнаяСумма = 0;



		Для Н = 1 По 9 Цикл



			Если 	  Н = 1 Тогда

				Множитель = 2;

			ИначеЕсли Н = 2 Тогда

				Множитель = 4;

			ИначеЕсли Н = 3 Тогда

				Множитель = 10;

			ИначеЕсли Н = 4 Тогда

				Множитель = 3;

			ИначеЕсли Н = 5 Тогда

				Множитель = 5;

			ИначеЕсли Н = 6 Тогда

				Множитель = 9;

			ИначеЕсли Н = 7 Тогда

				Множитель = 4;

			ИначеЕсли Н = 8 Тогда

				Множитель = 6;

			ИначеЕсли Н = 9 Тогда

				Множитель = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма = КонтрольнаяСумма + Цифра * Множитель;

			

		КонецЦикла; 

		

		КонтрольныйРазряд = (КонтрольнаяСумма %11) %10;

		

		Если КонтрольныйРазряд <> Число(Сред(ИНН,10,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	ИначеЕсли ДлинаИНН =12 и ВладелецИНН = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

		

		КонтрольнаяСумма11 = 0;

		КонтрольнаяСумма12 = 0;

		

		Для Н=1 По 11 Цикл

			

			// Расчет множителя для 11-го и 12-го разрядов

			Если Н = 1 Тогда

				Множитель11 = 7;

				Множитель12 = 3;

			ИначеЕсли Н = 2 Тогда

				Множитель11 = 2;

				Множитель12 = 7;

			ИначеЕсли Н = 3 Тогда

				Множитель11 = 4;

				Множитель12 = 2;

			ИначеЕсли Н = 4 Тогда

				Множитель11 = 10;

				Множитель12 = 4;

			ИначеЕсли Н = 5 Тогда

				Множитель11 = 3;

				Множитель12 = 10;

			ИначеЕсли Н = 6 Тогда

				Множитель11 = 5;

				Множитель12 = 3;

			ИначеЕсли Н = 7 Тогда

				Множитель11 = 9;

				Множитель12 = 5;

			ИначеЕсли Н = 8 Тогда

				Множитель11 = 4;

				Множитель12 = 9;

			ИначеЕсли Н = 9 Тогда

				Множитель11 = 6;

				Множитель12 = 4;

			ИначеЕсли Н = 10 Тогда

				Множитель11 = 8;

				Множитель12 = 6;

			ИначеЕсли Н = 11 Тогда

				Множитель11 = 0;

				Множитель12 = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма11 = КонтрольнаяСумма11 + Цифра * Множитель11;

			КонтрольнаяСумма12 = КонтрольнаяСумма12 + Цифра * Множитель12;

			

		КонецЦикла; 

		

		КонтрольныйРазряд11 = (КонтрольнаяСумма11 %11) %10;

		КонтрольныйРазряд12 = (КонтрольнаяСумма12 %11) %10;

		

		Если КонтрольныйРазряд11 <> Число(Сред(ИНН,11,1))

			ИЛИ КонтрольныйРазряд12 <> Число(Сред(ИНН,12,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	Иначе		

		Возврат Ложь;		

	КонецЕсли; 	

	Возврат Истина;	

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