Нужен пример вывода на печать Штрих кода без внешней компоненты

, ,

☑

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

(0) http://infostart.ru/public/22151/

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