Имя: Пароль:
1C
 
Нужен пример вывода на печать Штрих кода без внешней компоненты
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
Все получилось.
  Пора писать свою обработку на инфостарте :)