&НаКлиенте

Процедура ЗапуститьСканирование()

	

	#Если МобильноеПриложениеКлиент  Тогда

		 Если НЕ СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда

    		ВызватьИсключение НСтр("ru='Сканирование штрихкодов не поддерживается';en='Barcode scanning is not supported'");

			Возврат;

  		КонецЕсли;

		ОбработчикСканирования = Новый ОписаниеОповещения("ОбработкаСканирования", ЭтаФорма);

  		ОбработчикЗакрытия = Новый ОписаниеОповещения("ОбработкаЗакрытияИнтерфейса", ЭтаФорма);

  		СредстваМультимедиа.ПоказатьСканированиеШтрихКодов(НСтр("ru='Наведите камеру на штрихкод';en='Aim the camera at an barcode'"), ОбработчикСканирования, ОбработчикЗакрытия, ТипШтрихКода.Линейный);

	#конецесли



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





&НаКлиенте

Процедура ОбработкаСканирования(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт

	

	пТовар    = "";

	

	Если Результат Тогда

		

		Структура = ОбщегоНазначенияСервер.ПоискПоШтрихкодуОбъекта(ШтрихКод);			     			

		Если Структура = Неопределено Тогда

			пТовар = Неопределено;

			//#Если МобильноеПриложениеКлиент  Тогда

			//	СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();

			//#конецесли

			Сообщение = "Не найден объект по штрихкоду " + Штрихкод;

		Иначе

			пТовар    = Структура.Наименование;

			

			Сообщение = сокрЛП(пТовар) + Символы.ПС + Штрихкод;

						

			ДобавитьТоварВТаблицу(пТовар);

			

		КонецЕсли;

		

	КонецЕсли;

	

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



&НаКлиенте

Процедура ОбработкаЗакрытияИнтерфейса(ДополнительныеПараметры) Экспорт

	

	//Если ЗначениеЗаполнено(пТовар) Тогда

	//	можем встроить код открытия формы ввода количества

	//КонецЕсли;	



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

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

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

	

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

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



	Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.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);   

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

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

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

    Попытка

        КомпонентШК = Новый COMОбъект("V8.Barcod.1");

        Макет                   = ПолучитьОбщийМакет("Этикетка");

        ЭтикеткаОбласть         = Макет.ПолучитьОбласть(1,1,4,2);

        ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = "1111111111116";

    Исключение

        Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!

                 |Возможна печать только штрих-кодов Interleave!", СтатусСообщения.Важное);

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

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



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

 #Если Клиент Тогда

// Печать этикеток со штрих-кодом

//

Процедура ПечатьЭтикеток(Товары = Неопределено) Экспорт



//am+ Эта проверка нам не нужна, во первых она выполняется ПередОткрытием в форме обработки.

// Кроме того у нас есть тип штрихкода, который печататется без компоненты.

//Попытка

// КомпонентШК = Новый COMОбъект("V8.Barcod.1");

//Исключение

// Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);

// Возврат;

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

//am-   

 

// Возвращает значение типа штрих-кода для использования в ЭУ

// "1С:Печать штрих-кодов"

//

// Параметры

//  ТипКода -   ПланыВидовХарактеристик.ТипыШтрихкодов - тип, значение для которого

//              нужно получить

//

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

//   Число, которое может быть присвоено свойству ЭУ "ТипКода"

//

Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода) Экспорт

    Перем Значение;



    Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда

        Значение = 0;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда

        Значение = 1;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда

        Значение = 2;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда

        Значение = 3;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда

        Значение = 4;



//am+

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

        Значение = 100;

//am-



    Иначе

        Значение = -1;

    КонецЕсли;



    Возврат Значение;

КонецФункции // ПолучитьЗначениеТипаШтрихкодаДляЭУ()   

 Процедура Печать(ТаблицаТоваров) Экспорт



    //am+ Так как у нас два разных макета, то нам нельзя смешивать типы ШК

    //    печатаемые в разных макетах. Выполним проверку.



    флВремЕстьInterleave = Ложь;

    флВремЕстьНеInterleave = Ложь;

    Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл

        Если СтрокаИзСписка.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

            флВремЕстьInterleave = Истина;

        Иначе

            флВремЕстьНеInterleave = Истина;

        КонецЕсли;

        Если флВремЕстьInterleave и флВремЕстьНеInterleave Тогда

            Предупреждение("В списке одновременно встречаются штрих-коды несовместимых типов,

                           |Штрих-коды Interleave необходимо печатать отдельно от остальных!");

            Возврат;

        КонецЕсли;

    КонецЦикла;

    //am-



    Таб                     = Новый ТабличныйДокумент;

    Таб.ИмяПараметровПечати =   "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка"+СокрЛП(ИмяКомпьютера());

    //am+ Используем наш макет.

    Если флВремЕстьInterleave Тогда

        Макет                   = ПолучитьОбщийМакет("ЭтикеткаInterleave");

    Иначе

    //am-

        Макет                   = ПолучитьОбщийМакет("Этикетка");

    КонецЕсли;



    //am+ Некоторые строки в нашем макете не заработают, необходимо добавить условие.

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;

    КонецЕсли;



    //am+

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод.Расположить(ОбластьШтрихкод);

    КонецЕсли;





        Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод,

            СтрокаИзСписка.ТипШтрихкода) Тогда

            //am+ здесь мы установим размер шрифта (об этом в конце статьи) и зададим параметр ШтрихКод нашего макета для вывода

            Если флВремЕстьInterleave Тогда

                ЭтикеткаОбласть.Параметры.Установить(0,

              СформироватьШтрихКодДляМакетаЭтикеткаInterleave(СтрокаИзСписка.ШтрихКод));

                ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт =

              Новый Шрифт(ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт,,РезмерШрифтаInterleave);

            Иначе

            //am-

                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;

                Исключение

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

            КонецЕсли;