|
Нужен пример вывода на печать Штрих кода без внешней компоненты | ☑ | ||
---|---|---|---|---|
0
Grekos2
27.02.15
✎
15:20
|
Нужен пример вывода на печать Штрих кода без внешней компоненты.
Пока не смог найти ничего подходящего. |
|||
1
Garykom
гуру
27.02.15
✎
15:24
|
(0) плохо искал поищи получше
|
|||
2
Strogg
27.02.15
✎
15:27
|
шрифт называется, вроде, EANBwrP36Tt. Там цифры уже фрагменты штрихкода.
|
|||
3
Ёпрст
27.02.15
✎
15:28
|
на нимфостарте полна коробка решений..
|
|||
4
Ёпрст
27.02.15
✎
15:28
|
и шрифтом, и палочками и картинкой.
|
|||
5
Garykom
гуру
27.02.15
✎
15:30
|
(3)(4) нимфы сча "бесплатно не дают" почти...
|
|||
6
Ёпрст
27.02.15
✎
15:31
|
там есть в виде статей, они бесплатны, кому нужны нимфомани - могу подкинуть
|
|||
7
Fragster
гуру
27.02.15
✎
15:31
|
СтрокаЗапуска = ВременныйКаталог + "zint -b 58 -o " + ПутьКВременномуФайлу + " -d """ + Данные + """";
WshShell=Новый COMОбъект("Wscript.Shell"); sReturn = WshShell.run(СтрокаЗапуска,0,True); Картинка = Новый Картинка(ПутьКВременномуФайлу); УдалитьФайлы(ПутьКВременномуФайлу); |
|||
8
Cyberhawk
27.02.15
✎
15:32
|
(6) подкинь мне инфомани, только как?
|
|||
9
Garykom
гуру
27.02.15
✎
15:32
|
||||
10
Ёпрст
27.02.15
✎
15:36
|
(8) если есть логин на нимфостарте, то запросто
|
|||
11
icipher
27.02.15
✎
15:44
|
Функция СформироватьСтрокуEanGnivc(ШтрихкодСтрокойСимволов)
Попытка Тест = Число(ШтрихкодСтрокойСимволов); Исключение //Сообщить("Штрихкод может содержать только цифры: " + ШтрихкодСтрокойСимволов, СтатусСообщения.Внимание); Возврат ""; КонецПопытки; СимволыСпособовКодирования = "#$%&'()*+,"; ЛевыйЗащитныйШаблон = "!"; СреднийЗащитныйШаблон = "-"; ПравыйЗащитныйШаблон = "!"; СимволыШрифтаПоТипамКодов = Новый Соответствие; СимволыШрифтаПоТипамКодов.Вставить("L", "0123456789"); СимволыШрифтаПоТипамКодов.Вставить("G", "ABCDEFGHIJ"); СимволыШрифтаПоТипамКодов.Вставить("R", "abcdefghij"); СпособыКодированияЛевойЧасти = Новый Массив; СпособыКодированияЛевойЧасти.Добавить("LLLLLL"); СпособыКодированияЛевойЧасти.Добавить("LLGLLG"); СпособыКодированияЛевойЧасти.Добавить("LLGGLG"); СпособыКодированияЛевойЧасти.Добавить("LLGGGL"); СпособыКодированияЛевойЧасти.Добавить("LGLLGG"); СпособыКодированияЛевойЧасти.Добавить("LGGLLG"); СпособыКодированияЛевойЧасти.Добавить("LGGGLL"); СпособыКодированияЛевойЧасти.Добавить("LGLGLG"); СпособыКодированияЛевойЧасти.Добавить("LGLGGL"); СпособыКодированияЛевойЧасти.Добавить("LGGLGL"); СпособКодированияПравойЧасти = "RRRRRR"; Если СтрДлина(ШтрихкодСтрокойСимволов) = 13 Тогда КоличествоСимволовВГруппе = 6; ИначеЕсли СтрДлина(ШтрихкодСтрокойСимволов) = 8 Тогда КоличествоСимволовВГруппе = 4; СимволыСпособовКодирования = ""; ШтрихкодСтрокойСимволов = "0"+ШтрихкодСтрокойСимволов; Иначе //Сообщить("Поддерживаются только штрихкоды длиной 13 и 8 символов: " + ШтрихкодСтрокойСимволов, СтатусСообщения.Внимание); Возврат ""; КонецЕсли; ИндексСпособаКодирования = Число(Лев(ШтрихкодСтрокойСимволов,1)); ЛеваяЧастьКода = ""; ПраваяЧастьКода = ""; Для ИндексСимвола = 1 По КоличествоСимволовВГруппе Цикл ЛеваяЧастьКода = ЛеваяЧастьКода + Сред(СимволыШрифтаПоТипамКодов[Сред(СпособыКодированияЛевойЧасти[ИндексСпособаКодирования],ИндексСимвола,1)] ,Число(Сред(ШтрихкодСтрокойСимволов,(ИндексСимвола+1),1))+1 ,1); ПраваяЧастьКода = ПраваяЧастьКода + Сред(СимволыШрифтаПоТипамКодов[Сред(СпособКодированияПравойЧасти,ИндексСимвола,1)] ,Число(Сред(ШтрихкодСтрокойСимволов,(ИндексСимвола+КоличествоСимволовВГруппе+1),1))+1 ,1); КонецЦикла; Результат = "" + Сред(СимволыСпособовКодирования,ИндексСпособаКодирования+1,1) + ЛевыйЗащитныйШаблон + ЛеваяЧастьКода + СреднийЗащитныйШаблон + ПраваяЧастьКода + ПравыйЗащитныйШаблон; Возврат Результат; КонецФункции нужен шрифт EanGnivc |
|||
12
Cyberhawk
27.02.15
✎
15:46
|
(10) такой же, как тут. Не нашел там переброса мань по логину...
|
|||
13
Ёпрст
27.02.15
✎
15:48
|
(12) отвечай
infostart.ru/forum16/topic126195/message1310948/#message1310948 |
|||
14
Tatitutu
27.02.15
✎
15:48
|
Без внешних компонент (через Примечание)
http://magazkat.ru/forum/obrabotki/177-universalnyj-redaktor-tsennikov-i-etiketok-v-1s-urok-1 |
|||
15
Ёпрст
27.02.15
✎
15:50
|
forum.infostart.ru/forum16/topic126195/
|
|||
16
ИС-2
naïve
27.02.15
✎
15:59
|
(0) вроде все просто.
Устанавливаешь шрифт EANGNIVC в ячейке В ячейку подаешь текст И в ячейке отображается сам штрих-код в виде палочек |
|||
17
Ёпрст
27.02.15
✎
16:01
|
Шрифтом не всегда удобно, надо всегда помнить о нём при переносе базы на другой сервак..
|
|||
18
Tatitutu
27.02.15
✎
16:03
|
(17) Да ладно. Проверка на наличие, если нет то установка. Правда иногда косяк с правами бываем (только под админом)
(16) почти все так. Только текст нужен в специальном формате (на лету на форматирует - будут кракозяблики) |
|||
19
Grekos2
27.02.15
✎
16:04
|
В ячейке шрифт EANGNIVC.
В качестве параметра подаю полученное функцией из (11) СформироватьСтрокуEanGnivc(ШтрихкодСтрокойСимволов) где аргументом мой Штрихкод из 13 символов из регистра Штрихкоды. Правильно я понял ? |
|||
20
Ёпрст
27.02.15
✎
16:06
|
(12) чего, нимфомани не нужны ?
|
|||
21
Cyberhawk
27.02.15
✎
16:08
|
(20) увлекся чтением санта-барбары в комментариях к одной статье.
P.S. Ответил)) |
|||
22
Cyberhawk
27.02.15
✎
16:10
|
Зачетно, забыл о возможности вознаграждать, спасибо! :о)
|
|||
23
Grekos2
27.02.15
✎
16:14
|
Все получилось.
Пора писать свою обработку на инфостарте :) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |