Как сгенерировать картинку штрихкода для табличного документа 1С 8.2
Интернет-сервис имеет небольшую утилиту по генерации штрихкодов. Как сгенерировать картинку штрихкода для табличного документа в 1С Предприятие 8.2? Просто… ниже указан код, который позволит это сделать. Проверял работу на Windows 7.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
Функция ПолучитьКартинку(КодТовара,УникИдентТовара)Экспорт Попытка WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); //WinHttpRequest Stream = Новый COMОбъект("ADODB.Stream"); //Stream (ADO) Адрес = "http://www.calc.ru/generator-shtrikh-kodov/download.php?code="+КодТовара+"&type=code128"; //Адрес = "http://barcode.tec-it.com/barcode.ashx?translate-esc=off&data="+КодТовара+"&code=ISBN13&unit=Fit&dpi=96&imagetype=Gif&rotation=0&color=000000&bgcolor=FFFFFF&qunit=Mm&quiet=0"; //Адрес = "https://www.barcodesinc.com/generator_files/image.php?code="+КодТовара+"&style=196&type=C128B&width=200&height=60&xres=2&font=3"; FileName = КаталогВременныхФайлов()+УникИдентТовара+".png"; WinHttp.Open("GET", Адрес, Ложь); WinHttp.Send(); Если WinHttp.Status = 200 Тогда Stream = Новый COMОбъект("ADODB.Stream"); Stream.Type = 1; Stream.Mode = 3; Stream.Open(); Stream.Write(WinHttp.ResponseBody); Stream.SaveToFile(FileName, 2); Stream.Close(); Stream = Неопределено; Возврат FileName; Иначе Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText); Возврат FileName; КонецЕсли; Исключение Сообщить("Ошибка подключения к серверу! Проверьте интернет-соединение! |"+ОписаниеОшибки()); Возврат ""; КонецПопытки; КонецФункции |
В закомментированом коде хранится ссылка на подобные сервисы, но они там с приколами, а потому я не брал их во внимание. В результате работы функции мы получим путь к сохраненному файлу с готовой картинкой в формате PNG. Файл будет сохранен во временный каталог.
«COMОбъект(«ADODB.Stream»)» используется в качестве инструмента для сохранения файла как результата запроса на сервер сервиса генерации.
«УникИдентТовара» — уникальный идентификатор номенклатуры в базе данных необходим для присвоения уникального имени файла картинки штрихкода.
«КодТовара» — штрихкод в любом формате. У меня был EAN13.
