Преобразование строки в штрихкод Code128 с адаптивным способом смены подсистемы кодирования.Обработка, на вход даем строку, на выходе получаем строку, которую вставляем куда нужно (форма, отчет), назначая шрифт Barcode.ttf. Отличия - адаптивный способ смены подсистемы кодирования. | | Автор статьи: Последняя редакция №1 от 03.11.06 URL: http://kb.mista.ru/article.php?id=404 | |
Ключевые слова: штрихкод, Code128
КонецФункции
Процедура ПриОткрытии()
Форма.Параметр = БарКод(СокрЛП(Форма.Параметр),6);
Форма.Закрыть();
КонецПроцедуры
АскиБар =
// 0 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
"155515551449485845458494854548584944056416452065425461560506542164524212245605641254614650"+ //29
"11919191108980988109881889018890898001:0928120290:18212211829021281:0122209281:01218290:10"+ //59
"2305<0;0004=0<540=4<1<05<4105<0=441<4=0<14<50=4050<320=04830047407443074434470344704740113"+ //89
"13131100;0838030380;0308380023032203302";//102
ВыхТ = СоздатьОбъект("ТаблицаЗначений");
ВыхТ.НоваяКолонка("А",,,,"Аск",4); //Аски код
[/1С] |