Підключення до BAF/BAS/1C в ручному режимі

Ініціалізація СОМ-об'єкта в BAF/BAS/1C

Якщо ви використовуєте NativeAPI-версію драйвера, то цей пункт пропускайте.

Версія платформи 8.х:

Перем ВагиДрук Экспорт;  
 
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Попытка
		ПодключитьВнешнююКомпоненту("AddIn.UniScalesLPrint");
		ВагиДрук = Новый ("AddIn.UniScalesLPrint");
	Исключение
		Сообщить("Компонента UniScalesLPrint для роботи з вагами НЕ завантажена!");
	КонецПопытки;
КонецПроцедуры

Версія платформи 7.7:

Перем ВагиДрук  Экспорт;
//////////////////////////////////////////////////////////////	           
//Инициализация при открытии обработки
Попытка
	ПодключитьВнешнююКомпоненту ("AddIn.UniScalesLPrint");
	ВагиДрук = СоздатьОбъект ("AddIn.UniScalesLPrint");
Исключение
	Сообщить("Компонента UniScalesLPrint для роботи з вагами НЕ завантажена!");
КонецПопытки;

Ініціалізація NativeAPI-версії драйвера в BAF/BAS/1C

Якщо ви використовуєте СОМ-об'єкт, то цей пункт пропускайте.

Версія тільки для платформи 8.х:

Перем ВагиДрук Экспорт;  
 
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Перем ПутьКПапкеУстановки;
 
	/////////////////////////////////////////////////////////////
	///  Впишіть шлях до папки DLL-файлів   "ПутьКПапкеУстановки"
	///  в кінці без слеша: ПутьКПапкеУстановки = "C:\UniScalesLPrint\UniScalesLPrint";
 
	ПутьКПапкеУстановки = "C:\UniScalesLPrint\UniScalesLPrint";
 
	СистемнаяИнформация = Новый СистемнаяИнформация;
 
	Попытка 		
		Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда			
			ПодключитьВнешнююКомпоненту(
				ПутьКПапкеУстановки+"\UniScalesLPrintNativeAPI64.dll",
				"UniScalesLPrint",
				ТипВнешнейКомпоненты.Native);
		Иначе 
			ПодключитьВнешнююКомпоненту(
				ПутьКПапкеУстановки+"\UniScalesLPrintNativeAPI32.dll",
				"UniScalesLPrint",
				ТипВнешнейКомпоненты.Native);			
		КонецЕсли;
 
		ВагиДрук = Новый ("AddIn.UniScalesLPrint.UniScalesLPrint");
 
		Сообщить("Загружено UniScalesLPrint: "+ВагиДрук.GetVersion());
 
	Исключение
		Сообщить("Помилка завантаження драйвера вагів UniScalesLPrint."
			    +" Перевірте шлях до драйвера та розрядність платформи!");
	КонецПопытки;    	
 
КонецПроцедуры