ОбластьВывода.Рисунки.ШтрихКод.Объект – неопределено   

 Функция ПодключитьВнешнююКомпонентуПечатиШтрихкода() Экспорт

	

	// В зависимости от типа платформы подключим соответствующую внешнюю компоненту

	СистемнаяИнформация = Новый СистемнаяИнформация;



	Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86 Тогда

		ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ПечатьЭтикетокИЦенников.Макет.КомпонентаПечатиШтрихкодовWindows32", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);

	

	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда

		ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ПечатьЭтикетокИЦенников.Макет.КомпонентаПечатиШтрихкодовWindows64", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);

	

	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86 Тогда

		ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ПечатьЭтикетокИЦенников.Макет.КомпонентаПечатиШтрихкодовLinux32", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);

	

	Иначе

		ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ПечатьЭтикетокИЦенников.Макет.КомпонентаПечатиШтрихкодовLinux64", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);

	

	КонецЕсли;



	// Создадим объект внешней компоненты

	Если ПодключениеВыполнено Тогда

		ВнешняяКомпонента = Новый("AddIn.КартинкаШтрихкода.Barcode");

	Иначе

		Возврат Неопределено;

	КонецЕсли;

	

	// Если нет возможности рисовать

	Если НЕ ВнешняяКомпонента.ГрафикаУстановлена Тогда

		// То картинку сформировать не сможем

		Возврат Неопределено;

	Иначе

		

		// Установим основные параметры компоненты

		

		// Если в системе установлен шрифт Tahoma

		Если ВнешняяКомпонента.НайтиШрифт("Tahoma") = Истина Тогда

			// Выбираем его как шрифт для формирования картинки

			ВнешняяКомпонента.Шрифт = "Tahoma";

		Иначе

			

			// Шрифт Tahoma в системе отсутствует

			// Обойдем все доступные компоненте шрифты

			Для Сч = 0 По ВнешняяКомпонента.КоличествоШрифтов -1 Цикл

				// Получим очередной шрифт, доступный компоненте

				ТекущийШрифт = ВнешняяКомпонента.ШрифтПоИндексу(Сч);

				// Если шрифт доступен

				Если ТекущийШрифт <> Неопределено Тогда

					// Они и будет шрифтом для формирования штри-кода

					ВнешняяКомпонента.Шрифт = ТекущийШрифт;

					Прервать;

				КонецЕсли;

			КонецЦикла;

		КонецЕсли;

		

		// Утановим размер шрифта

		ВнешняяКомпонента.РазмерШрифта = 10;

		

		Возврат ВнешняяКомпонента;

		

	КонецЕсли;

	

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

 ВнешняяКомпонента = ПодключитьВнешнююКомпонентуПечатиШтрихкода();   

 Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, Ширина, Высота) Экспорт

	

	// Зададим размер картинки

	ВнешняяКомпонента.Ширина =Ширина;

	ВнешняяКомпонента.Высота =Высота;

	

	// Разрешим компоненте самой определять тип кода

	ВнешняяКомпонента.АвтоТип = истина;

	

	// Если код содержит контрольный символ, обязательно указываем

	ВнешняяКомпонента.СодержитКС = СтрДлина(Штрихкод) = 13;

	

	// Если отображать контрольный символ не нужно

	// ВнешняяКомпонента.ВидимостьКС = Ложь;

	

	// Формируем картинку штрихкода

	ВнешняяКомпонента.ЗначениеКода = Штрихкод;

	

	// Если установленная нами ширина меньше минимально допустимой для этого штрихкода

	Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда

		// Скорректируем ширину

		ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 10;

	КонецЕсли;

	

	// Сформируем картинку

	ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();

	

	// Если картинка сформировалась

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

		// Формируем из двоичных данных

		Возврат Новый Картинка(ДвоичныеДанныеКартинки);

	КонецЕсли;

	

	Возврат Неопределено;

	

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

 ВнешняяКомпонента.АвтоТип = истина;   

 ВнешняяКомпонента.АвтоТип = Ложь;

ВнешняяКомпонента.ТипКода = 1; // указан тип EAN13   

 ОбластьЗначение.Рисунки.Штрихкод.Картинка = ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, 50, 30);   

 ОбластьЗначение.Рисунки.Штрихкод.Ширина

ОбластьЗначение.Рисунки.Штрихкод.Высота   

 RegExp = CreateObject("VBScript.RegExp"); // здесь под восьмерку переделай 

 RegExp = Новый COMОбъект("VBScript.RegExp");

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

    RegExp.Global = Истина; //Поиск всех вхождений шаблона 

    RegExp.MultiLine = Истина; //Многострочный режим 

        

    RegExp.Pattern = "[^0-9]"; // отбор только чисел

    

    стр=RegExp.Replace(стр, ""); 

    Сообщить(стр);   

 Процедура БанкОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)

   СтандартнаяОбработка = Ложь;

   //Делаем запрос с поиском по шаблону вида "%" + <Текст введенный пользователм в поле ввода> + "%"

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

   Запрос.УстановитьПараметр("Наименование", "%" + Текст + "%");

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

   |    Банки.Ссылка

   |ИЗ

   |    Справочник.Банки КАК Банки

   |

   |ГДЕ

   |    Банки.Наименование ПОДОБНО &Наименование";

   

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

   Выборка = Результат.Выбрать();

   Если Результат.Пустой() Тогда

       //Ничего не нашли. Здесь можно вывести сообщение, или еще чего сделать 

   Иначе

       //Получаем результаты

       тзРезультаты = Результат.Выгрузить();

       //Подготовим список значений который будет содержать найденные элементы.

       Значение = Новый СписокЗначений();

       Значение.ЗагрузитьЗначения(тзРезультаты.ВыгрузитьКолонку("Ссылка"));

   КонецЕсли;

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

 Выбор

  Когда Наименование ПОДОБНО "Договор №%" тогда "Договора с номером" //Подходит любая строка, начинающаяся с "Договор №"

 Когда Наименование ПОДОБНО "Основной договор%[^А-яЁё"+Символ(33)+"-"+Символ(126)+"№»«"+Символы.ПС+Символы.Таб+Символы.ПФ+Символы.НПП+Символы.ВТаб+"]%" тогда "Договора по умолчанию" //Подходит любая строка, начинающаяся с "Основной договор"

  Иначе "Прочие"

Конец Как ВидДоговора   

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

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

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

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



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

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



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

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

	КонецЕсли;



	Если ДлинаИНН = 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)) Тогда

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

		КонецЕсли; 

		

	Иначе		

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

	КонецЕсли; 	

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

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