Как мы универсально заштриховали документы

Публикация № 722123

Разработка - Практика программирования

Штрихкод Макет Печатная форма

59
Стала задача, хоть как-то ускорить склад и логистику. Первым делом поняли, что не хватает скорости в обработке документов и нужны ШК на печатных формах... Что из этого получилось, читайте под катом.

Дело было на этой неделе, когда складские уже начали просто зашиваться от количества отгрузок и поступлений, мы поняли, что у нас есть очень узкое место в компании, неет, мы и раньше это понимали, но теперь, когда появился еще и свой импорт, все стало еще хуже. И тут пришла, странно что не раньше, крутая идея, ускорить склад. Начали с ТСД и подбора заказа по этикеткам со ШК (благо это уже давно было сделано), а вот чего не было, так это ШК на документах и каждый документ, приходилось искать вручную по поиску , что крайне замедляет процесс обработки. И тут пришла крутая мысль, почему бы не закодировать УИД документа, вывести его на печатную форму в шапку и спокойно искать уже сканером.

Коль придумали, начали делать и как оказалось, работы на пару часов, с отладкой и тестами.

Первое, что надо сделать, запихнуть Штрихкоды, во все макеты, которые нужны нам.

Если кто не знает, как добавить ШК

 

Устанавливаем компоненту 1С ШтрихКоды с ИТС. В макете, на панельке сверху, идем по меню Таблица - Рисунки - Вставить объект, Выделаем на макете область в которую вставляем , данный ШК, и из меню , выбираем следующее

 

После того, как добавили область и ШК на  форму, переходим к коду и выводу этого самого ШК.

ОбластьШК = Макет.ПолучитьОбласть("ШК");
Компонент = ОбластьШК.Рисунки.Штрихкод.Объект;
Компонент.Автотип         = Истина;
Компонент.Сообщение       = Строка(Ссылка.УникальныйИдентификатор());
Компонент.ОтображатьТекст = Ложь;

ОбластьШК.Рисунки.Штрихкод.Ширина = Компонент.МинимальнаяШирина + 5;

ТабДокумент.Вывести(ОбластьШК);

Тут стоит Автотип, для того, чтоб 1С сама подобрала тип ШК, но для УИД, он будет Code128.

Так же, убран текст, и назначена автоширина для рисунка. Но почему то, с такой опцией, он не отобразился, поэтому прибавил 5.

После таких манипуляций, у вас на печатной форме, будет красоваться вот это

После,  нужно было сделать поиск по ШК и тут я начал добавлять для каждого документа, где есть ШК, в форме списка, кнопку для поиска, вызывалась кнопка по F7 (Де факто для 1С и сканеров )

В коде указывал

Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
Если Результат<> "" Тогда
    Документы.РасходныйОрдерНаТовары.ПолучитьСсылку(Новый УникальныйИдентификатор(Результат)).ПолучитьФорму("ФормаДокумента").Открыть();
КонецЕсли;

Тут вроде все просто, сканируем ШК, получаем строку, и получаем ссылку по УИД. Единственный косяк, который еще не правил, раскладка при сканировании должна быть eng

И вроде бы все красиво, уже можно работать и все будет работать, но я пошел дальше. Захотелось просто подность любой документ со ШК к сканеру и получать форму.

Поэтому было сделано следующее, на панель интерфейса, добавляем значок, так же вызываемый по F7, который обращается к модулю и выполняет следующее

A279;A279;A279;A279;A279;A279;A279;&НаКлиенте
Процедура 	НайтиПоШК() Экспорт
	
        Результат = "";
	
	ВвестиСтроку(Результат, "Введите штрихкод");
	
	Если СтрДлина(Результат) < 30 ИЛИ Результат = "" Тогда
		Сообщить("Введен не верный УИД объекта");
		Возврат;
	КонецЕсли;
	
	Для Каждого Документ из Метаданные.Документы Цикл
			
		Ссылка = Документы[Документ.Имя].ПолучитьСсылку(Новый УникальныйИдентификатор(Результат));
		Если СокрЛ(Ссылка.Номер) = "" Тогда
			Продолжить;
		Иначе
			Ссылка.ПолучитьФорму().Открыть();
			Прервать;
		КонецЕсли;
	КонецЦикла;
		
КонецПроцедуры

Он перебирает все документы и ищет по УИД, то есть, если не открыт ни какой список, просто все закрыто и поднести документ к сканеру, то через пару секунд, у вас открытая форма документа.

Причем, если открыт список документов и там так же есть поиск по F7, то сработает тот, что из списка. Но никто не запрещает, вызывать поиск по нажатию кнопки на панельке  =)

Ну вроде по Code128 все. И это работает, будем потиху вводить на складе и надеяться , что это ускорит процесс работы.

 

Так же , можно использовать QR код, но он требует 2D сканера и другой компоненты. Я использую Octavita

Там есть подробный мануал + мануал по API
Но если кратко, то вывод QR выглядит так

ОбластьQR = Макет.ПолучитьОбласть("Штрих");
ОбластьQR.Рисунки.QR.Объект.symbology = 58; // тип = QR
ОбластьQR.Рисунки.QR.Объект.barcode = ШтрихКод;

ТабДокумент.Вывести(ОбластьQR);

Если эта статья Вам как то поможет, будет здорово =) Всегда рад поделиться чем то хорошим =)

 

p.s.

По совету Tria , чтоб не обходить все документы , в поисках нужного, можно закодировать сразу имя, через метаданные. Для QR будет самое то.

Сначала получаем строку для кодирования , разделяя имя и УИД символом, который будем искать

УИД = Строка(Ссылка.УникальныйИдентификатор());
Имя = Ссылка.Метаданные().Имя;
СтрокаДляКодирования = Имя + "/" + Уид;

Далее уже ищем

Позиция = Найти(мСтрока,"/");
Имя = Лев(мСтрока,Позиция-1);
УИД = Сред(мСтрока,Позиция+1,(СтрДлина(мСтрока) - Позиция + 1));
	
Документы[Имя].ПолучитьСсылку(Новый УникальныйИдентификатор(УИД)).ПолучитьФорму().Открыть();

 

Процедура поиска может быть разбита на несколько ЕСЛИ, к примеру длинна УИД = 36 символов, поиск номер 1, если больше, то уже через имя + уид, если меньге, то уже какой то другой.

59

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо
1. yarsort 28.12.17 14:42 Сейчас в теме
Я делал отдельно регистр сведений по аналогии со штрихкодами товаров и уже набралось там более 800000 штрихкодов. В целом гуд, но надо постоянно следить за индексом, что бы быстро находился следующий номер штрихкода.
В целом классно, но код128 слишком длинный для пользователя и вводить вручную для поиска тоже сложно
2. Mi11er 77 28.12.17 15:04 Сейчас в теме
(1)
В целом классно, но код128 слишком длинный для пользователя и вводить вручную для поиска тоже сложно

вот от ручного ввода конечно стоит сразу отказаться =)

Поэтому сканер и QR это лучшее что есть, наверное по тиху будем переходить на них.

А регистр сведений, в целом тоже крут, можно всегда получить срез последнего и прибавить 1 к коду.
21. DarkAn 897 29.12.17 09:48 Сейчас в теме
(1) Тоже считаю, что данное решение более простое и использовать можно простой EAN13 вместо Code128. (У нас правда регистр поменьше - 430к)
22. Mi11er 77 29.12.17 10:19 Сейчас в теме
(21) а на сколько быстро ищется документ ?
По уид и имени, прям моментально открывает.

+ если испольщзуется обмен с бух к примеру, то и по идее в бух документ будет иметь такой же уид и можно его там найти
23. DarkAn 897 29.12.17 10:36 Сейчас в теме
(22)
а на сколько быстро ищется документ

"Быстро" по Вашему это сколько? Т.к. МарьИвановне из соседнего отдела 1 минута - это тоже быстро она, чай с плюшками допить не успела :)

Примерно так же, как Ваш уникальный идентификатор. На самом деле по медленнее, т.к. из регистра я получу туже самую ссылку, которую потом буду открывать пользователю. НО уверяю Вас ни один пользователь разницы не заметит, т.к. точно сказать сколько миллисекунд прошло 5 или 15 он не сможет :)

Зато если Ваш Code128 по произвольным причинам вдруг не будет считываться(стерся в одном месте) Вашим ТСД, то я думаю вбить цифры с EAN13 у пользователя займет гораздо меньше времени чем с Code128 :)
3. RocKeR_13 689 28.12.17 15:45 Сейчас в теме
Ну это, я так понимаю, дернули из типовых конфигураций на УФ?) А компонента для формирования картинки со штрихкодом почти в каждой конфе есть в виде общего макета: там и EAN, и Code128, отдельно компонента для QR-кодов есть
6. Mi11er 77 28.12.17 16:14 Сейчас в теме
(3) Нет, просто пришло в голову как то ...

Но УФ на толкнули на мысль, я просто знаю, что там можно скопировать ссылку на объект и передать другому, чтоб тот открыл и отсюда уже понеслось.
4. pvvpvv 10 28.12.17 16:03 Сейчас в теме
Это изумительная идея. Вместо "Уникальный идентификатор + Дата" применить "Уникальный идентификатор".
5. pvvpvv 10 28.12.17 16:05 Сейчас в теме
+(4) "Уникальный идентификатор + Дата" называется "Ссылка".
7. Mi11er 77 28.12.17 16:14 Сейчас в теме
(5) Здорово.
А дата зачем ?
8. pvvpvv 10 28.12.17 17:15 Сейчас в теме
Если дата не нужна - не используй. Зачем новый реквизит - "Уникальный идентификатор" . Он есть.
9. Tria 14 28.12.17 17:31 Сейчас в теме
В штрихкод можно записывать имя документа (из его метаданных), чтобы не делать цикл по всем документам.
12. Mi11er 77 28.12.17 19:30 Сейчас в теме
(9) с QR можно и попробовать так.
Хотя и с code128 в целом можно...

Попробуем =) Спасибо за совет.
19. Mi11er 77 28.12.17 23:35 Сейчас в теме
(9) Сделал так, быстрее раз в 5 конечно =) Открытие моментальное. Спасибо за совет.
P.s. добавить метод в статью
10. palsergeich 28.12.17 18:19 Сейчас в теме
Есть более интересное решение, но оно требует что бы объекты метаданных имели имена на латинице.
По Code128 можно закодировать до 103 символов данных, это идеально подходит для следующего:
Хранить в штрих коде не УИД ссылки, а навигационную ссылку:
e1cib/data/Catalog.CatName?ref=947e0050568b2c2111e416f9b2fde6d6, это избавит от необходимости хранить в базе вообще какие либо дополнительные данные.
И тогда обработка получения данных со сканера будет иметь всего одну строчку -
ПерейтиПоНавигационнойСсылке(строка)
Согласен, что в случае со штрих кодом это практически невыполнимо переименовать справочники и документы, но если речь пойдет о QR коде, то там такого ограничения (можно и кириллицу использовать e1cib/data/Catalog.Номенклатура?ref=947e0050568b2c2111e416f9b2fde6d6) нет
корум; maxopik2; Mrgnstrn; +3 Ответить
11. Mi11er 77 28.12.17 19:29 Сейчас в теме
(10)
Да, это работет прекрасно, но есть одно НО

по причине:
Данная функция может быть вызвана только в управляемом режиме


У меня ут 10.3, простые формы.

Так что УИД.
20. palsergeich 29.12.17 09:44 Сейчас в теме
(11) Из навигационной ссылки УИД получается перестановкой символов, имя и тип объекта метаданных там есть, просто будет не одна а 2-3 строчки кода)
maxopik2; +1 Ответить
25. nomadon 377 29.12.17 10:54 Сейчас в теме
(11) ну можно не переходить а получить ссылку и ОткрытьЗначение()
27. Mi11er 77 29.12.17 14:15 Сейчас в теме
(25) Попробуем такой метод. Пока что сделали по УИД, уже начали пользоваться, всем нравится.
24. nomadon 377 29.12.17 10:54 Сейчас в теме
(10) можно русские закодировать с помощью метода КодироватьСтроку в урл, а потом обратно раскодировать.
13. ZLENKO 381 28.12.17 19:46 Сейчас в теме
Почему то в конфигураторе все нормально работает в макете, но при выполнении в 1С 8.3.9
ОбластьШК.Рисунки.Штрихкод.Объект содержит значение Неопределено
На 8.3 не работает компонент ?
14. Mi11er 77 28.12.17 20:10 Сейчас в теме
(13) У меня на 8.3.8 все сделано. Вроде работает.
15. zabaluev 408 28.12.17 20:39 Сейчас в теме
(13) Компонента "1С Штрихкод" не работает с 64 разрядной платформой. Сам пол дня потерял, после того , как поставил новую платформу и вдруг перестала работать элементарная обработка по генерации штрихкодов для бейджиков.
16. genayo 28.12.17 20:48 Сейчас в теме
В Ут11 например в штрихкоде выводится не символьный уид а его десятиричное представление. Ну и прикрутить к нему префикс к примеру для каждого вида документов дело техники.
17. Mi11er 77 28.12.17 20:58 Сейчас в теме
(16) Нужно будет 11 глянуть, что и как делается. Может чего позаимствовать
18. minimajack 55 28.12.17 21:27 Сейчас в теме
(17) все очень просто, надо не только в 10-й системе но и что бы количество символов было кратно 2-м. Тогда в кодировке Code 128C - штрихкод получается очень компактным
26. palsergeich 29.12.17 11:48 Сейчас в теме
И да вместо этого
Документы[Имя].ПолучитьСсылку(Новый УникальныйИдентификатор(УИД)).ПолучитьФорму().Открыть();
Я бы написал так:
ОткрытьФорму("Документ" + [Имя]+".Форма", Новый Структура(Ключ, Документы[Имя].ПолучитьСсылку(Новый УникальныйИдентификатор(УИД)))
28. Mi11er 77 29.12.17 14:15 Сейчас в теме
(26) а в чем принципиальная разница ?
31. palsergeich 29.12.17 14:47 Сейчас в теме
(28) Рекомендации с ИТС
1.1. Для открытия форм следует применять метод глобального контекста ОткрытьФорму (при использовании версии платформы 1С:Предприятие 8.2 и более ранних версий - также ОткрытьФормуМодально). Применение альтернативного способа, с получением формы и ее последующим открытием с помощью метода ПолучитьФорму, не рекомендуется. Исключения из этого правила возможны только в особых случаях (см. раздел ниже «Особые случаи использования форм»).
33. Mi11er 77 29.12.17 15:12 Сейчас в теме
(31) Понял, буду знать и внедрять, спасибо.
29. dandykry 3 29.12.17 14:29 Сейчас в теме
Думаю гуид лучше навигационной ссылки, потому что имя могут переименовать (по разным причинам, будь это обновление или чья-то дописка), и кто-то не уследит.
Так же думаю изначально нужно записывать тип документа в ШК, потому что в базах, которым много лет или используется кривая синхронизация, бывает в двух разных таблица ссылочных типов одного типа идентичные гуиды. К примеру у меня бывали физ лица и сотрудники с одним гуидом. Перебором будет открываться первый.

Вообще идея хорошая.
30. palsergeich 29.12.17 14:43 Сейчас в теме
(29) Переименовываются объекты метаданных редко, ибо слишком много что в итоге приходится менять, особенно документы.
В случае возникновения подобной ситуации лечится мэппингом, еще 1-2 строчки.
32. dandykry 3 29.12.17 15:02 Сейчас в теме
(30) Редко, но бывает. Только недавно в ERP было.
Я тут подумал, если документ переименуется, то и тип документа так же изменится.
С историей развития базы придется иметь где-то сопоставление Было-Стало для поддержки предыдущих штрихкодов.

Я не ради спора пишу. Есть много способов реализации этого механизма. Я думаю о путях обхода подводных камней в будущем.
34. palsergeich 29.12.17 15:32 Сейчас в теме
(32) Или хардкодом в общем модуле: соответствие старое название -новое название или регистр сведений
35. MerwMebel 30.12.17 04:30 Сейчас в теме
Ребята а нельзя просто обойтись без уникального индефикатора потому что у меня он не читается сканером!
36. MerwMebel 30.12.17 04:32 Сейчас в теме
Решил реализовать всё вышеописанное в документе РеализацияТоваровУслуг
Сам штрих код выводится в печатную форму и вроде бы все нормально, но у меня РИБ и базы индефицируются между собой номерами у которых есть префиксы в виде 5 букви они на кириллице! помогите пожалуйста не по уникальному а как-то указывать ЕАН13 заменяя его первые цифры на цифры "22" например! или назначать новый штрихкод типа как в номенклатуре что бы начинался на 200 чтоль!
44. dmt 48 07.01.18 12:33 Сейчас в теме
(36) Будет работать при соглашении, что пользователи не могу изменить номер документа.

1. Простое соответствие: префикс - двузначное число
2. Год документа - двузначное число
3. Остальные 8 цифр значащие.

Получаем штрих код:
10_17_00000001+контрольный символ
37. acanta 67 31.12.17 15:48 Сейчас в теме
При ручном наборе цифр штрих кода можно сделать поиск по вхождению.
38. Infector 142 31.12.17 18:02 Сейчас в теме
На практике доказано, что 28 числовых символов достаточно, чтобы идентифицировать любой объект в системе. Если нужно идентифицировать еще и разновидности печатных форм добавляем еще 4 символа. Итого 32 числовых символа, которые превращаются в 16 символов code128 или любой другой разновидности штрихкода.
39. DMon 90 01.01.18 22:06 Сейчас в теме
А по-моему это очередной велосипед. Чем не устраивает типовой механизм штрих-кодирования документов, где GUID преобразуется из шестнадцатеричного в десятичный код и обратно (при поиске документа в базе)?
Тогда не важна раскладка клавиатуры.
Или это для чего-то экзотичного? :)
40. Mi11er 77 02.01.18 21:58 Сейчас в теме
41. DMon 90 04.01.18 21:17 Сейчас в теме
(40) Честно, не помню где подсмотрел, но по-моему в УТ11 (и их подобных)
Пробежался по топику и уже встречались подсказки в эту сторону.
Сорри за мой флуд )
42. Antimyslitel 31 07.01.18 11:24 Сейчас в теме
(41)
Честно, не помню где подсмотрел, но по-моему в УТ11 (и их подобных)
Пробежался по топику и уже встречались подсказки в эту сторону.
Сорри за мой флуд )
вот именно в 11 Ут есть а для 10.3 нет! Помогите пожалуйста!
(40)
.3 ?
Подскажите если не сложно можно сделать что бы штрихкод был ЕАН13 а не уникальный индефикатор? и назначался по какому то алгоритму определенному?
43. Infector 142 07.01.18 11:50 Сейчас в теме
(42) EAN13 для кодирования документов базы - это грабли. ибо он слишком короток. Зато code128, QR и PDF417 задачу замечательно решают. Фактически при этом сам код может быть одним и тем же, но выводиться в разный формат при печати.
45. Mi11er 77 07.01.18 12:43 Сейчас в теме
(42) алгоритм можете задать сами. у вас для этого аж 13 цифр есть.

к примеру

год + номер + тип документа.

Дальше запросом по подобию номера в пределах года ищете
46. Infector 142 07.01.18 12:52 Сейчас в теме
(45) Грабли. Рано или поздно окажется, что или под номер знаков мало, или под тип. А еще иногда в номера любят пихать буквы, вот тогда веселье начинается.
47. Mi11er 77 07.01.18 13:58 Сейчас в теме
(46) Есть такое дело
у нас так кодировались заказы покупателя
год + номерной префик компании + номер

ну потом запросом легко находится. но это конечно не универсально, поэтому и задался вопросом =) и получилось что code128 идеально. Надо будет глянуть как в 11 сделано
48. Infector 142 07.01.18 14:02 Сейчас в теме
(47) думаю, что скоро свое решение в публикацию оформлю. Азарт, так сказать, зажгли.
49. Mi11er 77 07.01.18 14:10 Сейчас в теме
(48) =) Будем ждать. Как раз со след недели поеду на склад работать ,смотреть бизнес процессы и думать как ускорять их дальше. И повсеместно вводить ШК ..
50. Antimyslitel 31 07.01.18 17:48 Сейчас в теме
(45)
алгоритм можете задать сами. у вас для этого аж 13 цифр есть.

к примеру

год + номер + тип документа.

Дальше запросом по подобию номера в пределах года ищете

А мне надо что бы первые две цифры были 22 потом пять цифр с права на лево номер документа без префикса и потом 6 цифр дата документа тогда получается что 13 цифр еан13 идеально получается!
Помогите пожалуйста с кодом где его прописать какой код и как потом его считать если не сложно! очень надо!
51. Арчибальд 2708 07.01.18 18:11 Сейчас в теме
(50) В еан13 есть только 12 цифр.
Infector; +1 Ответить
52. Mi11er 77 07.01.18 18:19 Сейчас в теме
(51) Вообще 13, 12 кодированные и 1 контрольный. Это если действительно так. А вообще, вот пример, как у нас был ШК для заказов покупателя http://prntscr.com/hx83sq , тут 13 цифр
Infector; +1 Ответить
53. Арчибальд 2708 07.01.18 18:25 Сейчас в теме
55. Antimyslitel 31 07.01.18 19:42 Сейчас в теме
(52) Именно так и хочется! подскажите как это можно осуществить?
54. Mi11er 77 07.01.18 18:28 Сейчас в теме
(50)
Попробуйте что то вроде, код на быструю руку, поправьте что надо

Функция ФормированияСТрокаДЛяКодирования(Ссылка)
    
    НомерДокумента = прав(Ссылка.Номер,5);

    н = 4;
    СтрокаНомер = "";

    Пока н <> 0 Цикл
	
	    СтрокаНомера = СтрокаНомера + НомерДокумента [н];
	    н = н - 1;

    КонецЦикла;

    ДатаДокумента= Формат(Ссылка.Дата,"ДФ=ггММдд");

    Возврат  "22" + СтрокаНомер + ДатаДокумента;
КонецФункции
Показать
56. Antimyslitel 31 07.01.18 19:43 Сейчас в теме
(54)Спасибо сейчас в течении часа все это сделаю и отпишусь!
57. Antimyslitel 31 07.01.18 20:36 Сейчас в теме
(54)А куда надо этот код вставить?
58. Antimyslitel 31 07.01.18 20:36 Сейчас в теме
(54)Что то я пытался его вставить но похожей функции из темы нет!(((
59. ZLENKO 381 12.01.18 16:32 Сейчас в теме
Сделал штрихкодирование документов на нативных компонентах из БСП (ОбщиеМакеты.КомпонентаПечатиШтрихкодов и ОбщиеМакеты.Драйвер1ССканерШтрихкода). Удобно что не нужно регистрировать никаких DLL. Механизмы работы с торговым оборудованием не стал использовать, т.к. много лишнего кода тянуть нужно. Сделал просто несколько процедур, например подключение сканера ШК:

// Функция выполняет подключение внешней компоненты и ее первоначальную настройку.
// Возвращаемое значение: НЕОПРЕДЕЛЕНО - компоненту не удалось загрузить.
Функция ПодключитьВнешнююКомпонентуСканераШтрихкода() Экспорт
	
	ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("ОбщийМакет.Драйвер1ССканерШтрихкода", "СканерШтрихкода", ТипВнешнейКомпоненты.Native);
	
	// Создадим объект внешней компоненты.
	Если ПодключениеВыполнено Тогда
		ВнешняяКомпонента = Новый("AddIn.СканерШтрихкода.Scanner");
	Иначе
		Возврат Неопределено;
	КонецЕсли;
	
	ВнешняяКомпонента.УстройствоВключено = 0;
	ВнешняяКомпонента.ПосылкаДанных = 0;
		
	// Подсоединим компоненту
	Попытка
		ВнешняяКомпонента.Подсоединить("Scanner");
	Исключение
		Возврат Неопределено;
	КонецПопытки;
	
	// Установим основные параметры компоненты.	
	ВнешняяКомпонента.Порт = 0;				
	ВнешняяКомпонента.ИмяСобытия = "BarCode";
	ВнешняяКомпонента.ПрефиксСтрока = Символ(0);
	ВнешняяКомпонента.СуффиксСтрока = Символ(13);		
	
	ВнешняяКомпонента.УстройствоВключено = 1;
	ВнешняяКомпонента.ПосылкаДанных = 1;	
	
	// Займем компоненту	
	Если ВнешняяКомпонента.Занять(1) = 0 Тогда
		ВнешняяКомпонента.ОчиститьВход();
		ВнешняяКомпонента.ОчиститьВыход();			
	Иначе		
		Возврат Неопределено;		
	КонецЕсли;
		
	Если ВнешняяКомпонента.УстройствоВключено = 1 
		И ВнешняяКомпонента.УстройствоЗанято = 1 Тогда
		Возврат ВнешняяКомпонента;
	Иначе		
		Возврат Неопределено;
	КонецЕсли;
		
КонецФункции
Показать


// Функция выполняет подключение внешней компоненты и ее первоначальную настройку.
// Возвращаемое значение: НЕОПРЕДЕЛЕНО - компоненту не удалось загрузить.
Функция ПодключитьВнешнююКомпонентуПечатиШтрихкода() Экспорт
	
	ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
	
	// Создадим объект внешней компоненты.
	Если ПодключениеВыполнено Тогда
		ВнешняяКомпонента = Новый("AddIn.КартинкаШтрихкода.Barcode");
	Иначе
		Возврат Неопределено;
	КонецЕсли;
	
	// Если нет возможности рисовать.
	Если НЕ ВнешняяКомпонента.ГрафикаУстановлена Тогда
		// То картинку сформировать не сможем.
		Возврат Неопределено;
	Иначе
		// Установим основные параметры компоненты.
		// Если в системе установлен шрифт Tahoma.
		Если ВнешняяКомпонента.НайтиШрифт("Tahoma") Тогда
			// Выбираем его как шрифт для формирования картинки.
			ВнешняяКомпонента.Шрифт = "Tahoma";
		Иначе
			// Шрифт Tahoma в системе отсутствует.
			// Обойдем все доступные компоненте шрифты.
			Для Сч = 0 По ВнешняяКомпонента.КоличествоШрифтов -1 Цикл
				// Получим очередной шрифт, доступный компоненте.
				ТекущийШрифт = ВнешняяКомпонента.ШрифтПоИндексу(Сч);
				// Если шрифт доступен
				Если ТекущийШрифт <> Неопределено Тогда
					// Они и будет шрифтом для формирования штрихкода.
					ВнешняяКомпонента.Шрифт = ТекущийШрифт;
					Прервать;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		// Установим размер шрифта
		ВнешняяКомпонента.РазмерШрифта = 12;
		
		Возврат ВнешняяКомпонента;
	КонецЕсли;
	
КонецФункции
Показать
60. igo1 221 14.03.18 13:12 Сейчас в теме
Это же принцип работы из УТ 11. Ай как не хорошо =)
61. Mi11er 77 14.03.18 16:40 Сейчас в теме
(60) Когда я делал у себя, я еще не видел как сделано в УТ 11.
Но у них это не 2ух мерный и не 128, они впихивают спокойно в ean13 , компактно получается.
62. Muxomop 154 22.05.18 13:48 Сейчас в теме
Небольшое дополнение: т.к. Code128 не может закодировать кириллицу, то вид документа можно закодировать числом.
Например:
Имя = Ссылка.Метаданные().Имя;
ИндексДокумента = Метаданные.Документы.Индекс(Метаданные.Документы[Имя]);
СтрокаДляКодирования = ИндексДокумента + "/" + Уид;
63. Mi11er 77 22.05.18 16:47 Сейчас в теме
Оставьте свое сообщение

См. также

Агрегатные функции СКД, о которых мало кто знает 315

Статья Программист Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования

Пользуетесь ли Вы всеми возможными агрегатными функциями, которые предоставляет система компоновки данных? Если Вы используете только: СУММА, КОЛИЧЕСТВО, МИНИМУМ, МАКСИМУМ, СРЕДНЕЕ, то эта статья для Вас.

05.09.2019    9613    ids79    42       

Три костыля. Сказ про фокусы в коде 121

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Разработка

Три интересных (или странных) костыля в коде, которые могут помочь в повседневных и не очень задачах.

03.09.2019    7625    YPermitin    67       

Отслеживание выполнения фонового задания 133

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования Универсальные функции Разработка

Запуск фонового задания из модуля внешней обработки. Отслеживание выполнения задания в виде прогресса, расположенного на форме.

17.08.2019    7977    ids79    14       

Функции СКД: ВычислитьВыражение, ВычислитьВыражениеСГруппировкойМассив 240

Статья Программист Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования

Подробное описание и использование внутренних функций системы компоновки данных: Вычислить, ВычислитьВыражение, ВычислитьВыражениеСГруппировкойМассив, ВычислитьВыражениеСГруппировкойТаблицаЗначений.

08.08.2019    9990    ids79    22       

Фоновое выполнение кода в 1С - это просто 117

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования Разработка

Как легко запускать выполнение в фоне, не прибегая к долгому описанию фоновых процедур.

02.08.2019    9638    avalakh    21       

СКД - наборы данных и связи между ними, создание собственной иерархии, вложенные отчеты 126

Статья Программист Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования Разработка

Набор данных объект. Использование в схеме компоновки нескольких наборов данных. Различные варианты связи наборов: объединение, соединение. Использование иерархии в отчетах на СКД. Создание собственной иерархии, иерархия детальных записей. Использование вложенных схем в отчетах на СКД.

26.07.2019    8985    ids79    6       

СКД - использование расширений языка запросов, секция ХАРАКТЕРИСТИКИ 134

Статья Программист Нет файла v8 v8::СКД Бесплатно (free) Инструментарий разработчика Практика программирования Разработка

Автоматическое и не автоматическое заполнение полей компоновки данных. Использование расширений языка запросов для СКД «{…}», секция ВЫБРАТЬ, секция ГДЕ, параметры виртуальных таблиц. Автоматизированное использование дополнительных данных в запросе: секция ХАРАКТЕРИСТИКИ.

17.07.2019    8464    ids79    24       

"Меньше копипаста!", или как Вася универсальную процедуру писал 170

Статья Программист Стажер Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования Разработка

Программист Вася разбирает подход создания универсальных методов на примере программного вывода СКД.

04.07.2019    6132    SeiOkami    48       

Создание отчетов с помощью СКД - основные понятия и элементы 190

Статья Программист Нет файла v8 v8::СКД Бесплатно (free) Практика программирования Математика и алгоритмы

Основные принципы работы СКД. Понятия схемы компоновки и макета компоновки. Описание основных элементов схемы компоновки: наборы данных, поля, вычисляемые поля, ресурсы, параметры.

25.06.2019    17100    ids79    16       

Многопоточное ускорение однопользовательских нагрузок в 1С + Microsoft SQL Server 2017 175

Статья Программист Нет файла v8 v8::Запросы Бесплатно (free) Практика программирования Разработка

Взаимодействие с Microsoft SQL Server нередко вызывает трудности у 1С-ников, а потому интересны любые моменты, связанные с его использованием. О своем опыте работы с новым SQL Server 2017 участникам конференции Infostart-2018 рассказал директор ООО «Аналитика софт» Дмитрий Дудин.

11.06.2019    11369    dmurk    134       

Регистры накопления. Структура хранения в базе данных 174

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования Разработка

Структура хранения регистров накопления в базе данных для платформы 1С:Предприятие 8.x. Первая часть в серии публикаций.

16.05.2019    17039    YPermitin    27       

Выполнение внешней обработки в фоновом задании 147

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования Разработка

Подробное описание подхода к созданию длительной операции на основе внешней обработки. Реализация протестирована на 1С 8.3.12.1714 (x64).

11.05.2019    9647    Eret1k    22       

Выгрузка документа по условию 5

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Разработка

Что делать, если документы нужно выгружать не все подряд, а по какому-то фильтру: статусу, дате, набору условий... А что если он соответствовал этим условиям, а потом перестал? А если потом опять начал? Такие ситуации заставили попотеть не одного программиста.

25.04.2019    4718    m-rv    2       

Как прикрутить ГУИД к регистру сведений 23

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Перенос данных из 1C8 в 1C8 Разработка

... и немного теории обмена данными. В частности, разберем боль всех, кто пишет небанальные обмены данными: как набору записей регистра сведений назначить гуид и далее использовать его в обмене для идентификации этого набора.

16.04.2019    7227    m-rv    16       

О расширениях замолвите слово... 192

Статья Программист Стажер Нет файла v8 Бесплатно (free) Практика программирования Разработка

О чём стоит задуматься при принятии решения о создании расширения конфигурации…

07.04.2019    16176    ellavs    122       

Git-репозитории для 1С-кода (опыт использования при небольших проектах) 200

Статья Программист Стажер Нет файла v8 Windows Бесплатно (free) Практика программирования Разработка

Инструкции по взаимодействию с Git-репозиторием, которые писались для тех наших программистов, которые вообще никогда не работали с Git (руководства в духе "Как получить код из git-репозитория?", "Как отправить код в git-репозиторий")...

28.03.2019    12575    ellavs    83       

Трюки с внешними источниками данных 164

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования Разработка

Некоторые трюки для преодоления ограничений внешних источников данных.

14.03.2019    12688    YPermitin    52       

Возможности типовых шаблонов ограничения доступа на уровне записей (RLS) 162

Статья Программист Нет файла v8 v8::Права Бесплатно (free) Практика программирования БСП (Библиотека стандартных подсистем) Роли и права

Краткий обзор применения типовых шаблонов ограничения доступа на уровне записей в конфигурациях, созданных на базе БСП: #ПоЗначениям, #ПоНаборамЗначений, #ПоЗначениямРасширенный, #ПоЗначениямИНаборамРасширенный

03.02.2019    15237    ids79    9       

EnterpriseData – часть 2. Процесс выгрузки данных 127

Статья Программист Нет файла v8 v8::УФ Россия Бесплатно (free) Практика программирования Обмен через XML

Основные этапы выгрузки данных через ED, обработчики событий выгрузки, правила обработки данных, правила конвертации объектов, конвертация свойств первого и второго этапов, процедуры БСП, используемые при выгрузке данных, структура «КомпонентыОбмена».

26.12.2018    12563    ids79    27       

Новый подход к обмену данными EnterpriseData 202

Статья Программист Нет файла v8 v8::УФ Россия Бесплатно (free) Практика программирования Обмен через XML

Хочу предложить Вашему вниманию цикл статей, посвященных обмену данными через универсальный формат (EnterpriseData или ED).

14.12.2018    21164    ids79    72       

EnterpriseData - пример доработки правил конвертации без использования КД 3.0 в расширении конфигурации 118

Статья Программист Нет файла v8 v8::УФ БП3.0 УТ11 Россия Windows Бесплатно (free) Практика программирования Обмен через XML

В статье подробно описан реальный пример доработки обмена данными через EnterpriseData (универсальный формат обмена) между конфигурациями УТ 11.4 и Бухгалтерия 3.0

16.11.2018    18711    ids79    20       

Программное заполнение пользовательских параметров и отборов СКД 135

Статья Программист Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования

Публикация представляет из себя краткие примеры того, как можно заполнять параметры СКД программно так, чтобы все параметры и отборы были доступны в быстрых настройках и в обычных (типовых) настройках параметров и отборов СКД.

13.11.2018    19333    Unk92    18       

Автоматические и управляемые блокировки применительно к типовым конфигурациям 1С 125

Статья Программист Нет файла v8 v8::blocking 1cv8.cf Бесплатно (free) Математика и алгоритмы Практика программирования

Основные принципы работы с режимами автоматических и управляемых блокировок в 1С Предприятие 8. Теория и применение в типовых конфигурациях: БП, УТ, ЕРП

10.11.2018    20674    ids79    40       

Вспомогательные инструкции в коде 1С 104

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования

Помогаем редактору кода 1С помогать нам писать и анализировать код.

15.10.2018    20324    tormozit    100       

Произвольный код в фоновом режиме 164

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования

Задача: реализовать выполнение произвольного кода в фоновом режиме без изменения конфигурации, т.е. во внешней обработке.

03.09.2018    14452    nikita0832    41       

Основные понятия и механизмы оптимизации клиент-серверного взаимодействия в 1C 144

Статья Программист Нет файла v8 Россия Бесплатно (free) Математика и алгоритмы Практика программирования

У многих начинающих 1С программистов часто возникают вопросы про клиент-серверное взаимодействие в 1С и чтобы разобраться в непростых механизмах платформы, необходимо понять, что же такое контекст, для чего предназначены директивы компиляции, что представляют собой контекстные/внеконтекстные вызовы и как наиболее оптимально описывать прикладные задачи в модулях управляемых форм.

23.08.2018    21018    Rain88    42       

Повышаем эффективность разработки правил обмена 122

Статья Программист Нет файла v8 КД ОС Бесплатно (free) Практика программирования Перенос данных из 1C8 в 1C8

Как повысить скорость и качество разработки правил обмена? Как вести групповую разработку правил обмена? Как облегчить сопровождение правил обмена после передачи в эксплуатацию? Об этом и многом другом вы можете узнать из этой статьи.

25.06.2018    19176    olegtymko    43       

Введение в механизм представлений в ЗУП ред. 3 152

Статья Программист Нет файла v8 v8::СПР ЗУП3.x Бесплатно (free) Практика программирования

В нашей организации на первом же телефонном собеседовании на должность разработчика по ЗУП ред. 3 вас обязательно спросят о том, что такое "Представления".

04.06.2018    24188    xrrg    82       

Как сделать запрос на изменение данных 75

Статья Программист Нет файла v8 v8::Запросы 1cv8.cf Бесплатно (free) Практика программирования

В статье приведены особенности внутренней архитектуры и примеры работы с расширением языка запросов 1С.

01.06.2018    21073    m-rv    21       

Строим графы средствами 1С (без GraphViz) 42

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования

Множество статей на Инфостарте описывают, как работать с компонентой GraphViz, чтобы построить ориентированный граф. Но практически нет материалов, как работать с такими графами средствами 1С. Сегодня я расскажу, как красиво строить графы с минимальным пересечением. Нам этот метод пригодился для отрисовки алгоритмов в БИТ.Финансе, т.к. типовой механизм не устраивал. Еще это может быть полезно для визуализации различных зависимостей: расчета себестоимости, графы аффилированности компаний и т.д. Надеюсь, эта статья поможет сделать мир 1С красивее и гармоничней:) Итак, поехали...

23.05.2018    16837    slozhenikin_com    19       

Распределение расходов пропорционально продажам 9

Статья Программист Пользователь Нет файла v8 v8::ОУ УТ10 УУ Финансовый учет и бюджетирование (FRP) Учет доходов и расходов Бесплатно (free) Практика программирования

Финансовая модель. Распределение административных расходов по подразделениям пропорционально продажам за месяц. Дополнительные реквизиты против бизнес-процессов!

13.05.2018    11246    Rustig    9       

Просмотр временных таблиц запроса в отладчике без изменения кода 126

Статья Программист Нет файла v8 v8::Запросы 1cv8.cf Бесплатно (free) Практика программирования

Данный способ можно использовать для просмотра содержимого временных таблиц запросов (менеджеров временных таблиц) без внесения изменений в код.

24.04.2018    24111    avfed@rambler.ru    19       

Минимализмы 3 350

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Универсальные функции

Очередная серия "минимализмов" [http://infostart.ru/public/306536/, https://infostart.ru/public/460935/]. Также, как и в предыдущих статьях, здесь приведена подборка коротких оригинальных авторских решений некоторых задач. Ранее эти решения были разбросаны по моим комментариям к чужим публикациям.

19.02.2018    35367    ildarovich    44       

Вспомогательная подсистема для штрихкодирования объектов базы 4

Инструменты и обработки Системный администратор Программист Конфигурация (md, cf) v8 1cv8.cf Windows Абонемент ($m) Обработка документов Обработка справочников

Генерируем универсальные штрихкоды для справочников и документов выбранных типов в любой конфигурации.

10 стартмани

08.01.2018    6868    4    Infector    9       

Этюды по программированию. Взаимодействие с Microsoft Word 108

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования

Часто приходится заниматься созданием сложных документов Word с таблицами, вложенными фрагментами, хитрым оформлением и прочими радостями жизни. Это - попытка как-то структурировать полученный опыт, чтобы не приходилось перерывать ворох старых обработок в поисках крупиц истины. Надеюсь, эта статья будет полезна и Вам.

11.12.2017    25731    milkers    23       

Метод формирования движений в типовых регистрах нетиповыми регистраторами 31

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования

Вариант решения задач с проведением по типовым регистрам нетиповыми регистраторами. Зачем - чтобы при сравнении конфигурации не обращать внимание на свойства регистров и исключить вероятность допущения горькой оплошности при обновлении информационных баз, заменив типы регистраторов основной конфигурации типами конфигурации поставщика. Для программных продуктов, имеющих в своем составе метаданных документ "Корректировка регистров"("Корректировка записей регистров").

05.12.2017    21220    itriot11    34       

1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена) 719

Статья Программист Нет файла v8 КД Бесплатно (free) Перенос данных из 1C8 в 1C8 Практика программирования Обмен через XML

Что такое КД3? Как начать использовать? Полезные дополнения к документации. Что нужно исправить в типовых обработках и конфигурации. Как изменить правила обмена не снимая конфигурацию с поддержки. Как отлаживать правила обмена?

19.11.2017    136909    MaxS    251       

Заполнение данных по ИНН контрагента с помощью альтернативного сервиса огрн.онлайн 131

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования

Код для заполнения данных по ИНН контрагента из ЕГРЮЛ с сайта огрн.онлайн.

01.11.2017    22556    slava_1c    49       

Программные перечисления, ч.2: приемы кэширования при разработке 66

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования

Все знают, что такое кэш, и зачем он нужен. Но в 1С разработчик обычно использует кэширование только на уровне конфигурации, а в какой-нибудь обработке скорее ломает голову над запросом - как получить все данные за один заход... Хочется рассказать о том, как можно добиться хороших результатов с стратегией "разделяй и властвуй".

30.10.2017    20948    unichkin    17       

Разбираемся с настройками компоновки данных 159

Статья Программист Нет файла v8 v8::СКД 1cv8.cf Бесплатно (free) Практика программирования

Краткая шпаргалка по программной работе с настройками СКД

29.10.2017    23904    json    9       

Работа с Excel 287

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Загрузка и выгрузка в Excel

Собрал различные полезности для работы с Excel из 1С. Иногда приходится форматировать документ Excel программно из 1С. Так вот, чтобы не искать постоянно на просторах интернета как сделать левое выравнивание в ячейке Excel из 1С и т.п. решил опубликовать это...

23.10.2017    24428    arakelyan    39       

Добавление команд печати в конфигурациях на БСП 2.4.3 (в частности, в самописных документах в Бухгалтерии 3.0 после релиза 3.0.52.35) 143

Статья Программист Нет файла v8 v8::БУ БП3.0 Россия Бесплатно (free) Печатные формы документов Практика программирования БСП (Библиотека стандартных подсистем)

В статье https://infostart.ru/public/237013/ пользователя nick max рассматривался список действий для подключения команд печати в Бухгалтерии 3.0, работающей на БСП 2.3.6. В новом релизе Бухгалтерии 3.0.52.35 от 15.09.2017г. стала использоваться БСП 2.4.3, из-за чего произошли изменения в процедурах общих модулей, связанных с механизмом печати, и в процедурах их вызова в формах документов и в формах списков. Рассмотрим их.

18.09.2017    46489    bugtester    43