Имя: Пароль:
1C
1С v8
штрих код на чеке при печати
0 dimogen
 
20.04.12
12:34
Подскажите, как можно осуществить печать штрих кода на чеке. Есть обработка, которая печает чек, и как в нее засунуть штрих код? делаю на платформе 8.1, конфига торговля стройматериалами.
Вставил в обработку эту:
Функция глСформироватьEAN13(ШК) Экспорт
// Функция вычисляет контрольный символ кода EAN13
// дополняет им переданный параметр и возвращает сформированный EAN13
ШК=СокрЛП(ШК);
ШК=Лев(ШК,12);
ШК=глСтрокаПривести(ШК,"0",12,1);
ШК=Число(ШК);
Четн = 0;
Нечетн = 0;
Для Индекс=1 По 6 Цикл
 Четн=Четн+Сред(ШК,2*Индекс,1);
КонецЦикла;
Четн=Четн*3;

Для Индекс=1 По 6 Цикл
 Нечетн=Нечетн+Сред(ШК,2*Индекс-1,1);
КонецЦикла;

КонтЦифра=(Четн+Нечетн)/10-Цел((Четн+Нечетн)/10);
КонтЦифра=10-Цел(КонтЦифра*10);
Если КонтЦифра=10 Тогда
 КонтЦифра=0;
КонецЕсли;
Возврат Число(Строка(ШК)+Строка(КонтЦифра));
КонецФункции

Затем:

Процедура СформироватьШтрихКод(ШК) //Формирование внутреннего шрих кода
Перем Префикс;

Если ШК=0 Тогда
 // если штрихкод уже задан, то сначала нужно уточнить,
 // а действительно ли нужно формировать
 Если Вопрос("Штирх-код задан. Сформировать новый?",4)<>6
Тогда
     Возврат;
 КонецЕсли;
КонецЕсли;    

Префикс = "20";

ШК=глСформироватьEAN13(Строка(Префикс)+глСтрокаПривести(Строка(Документы.ЧекККМ.НомерЧека),"0",6,1)
+ глСтрокаПривести(Строка(Документы.ЧекККМ.ДатаЧека),"0",4,1));
КонецПроцедуры // СформироватьШтрихКод

и где печается первая строка добавил(отмечено плюсами):

Если КопияЧека Тогда
ПечатьСтроки("НА СКЛАД",ШиринаСтроки/3,Истина);    
++++ПечатьСтроки(ШК, -ШиринаСтроки/3 + ШиринаСтроки, Истина);+++
КонецЕсли;

Что делаю не так? пробую печатать на термопринтере люк хан. драйвер баркод поставил + шрифты
1 Apokalipsec
 
21.04.12
13:00
Ну ты сам объект штрихкод добавил на макет?)
2 dimogen
 
22.04.12
23:45
он без макета, штрих кода заливается в текстовый файл...вот я думаю что это вообще возможно в txt загнать штрих код?
3 Torquader
 
23.04.12
01:07
Если он печатается на принтере чеков или фискальном регистраторе-то есть специальные команды для печати штрих-кода.
Для принтера чеков используется Esc-последовательность,а для фискального регистратора - специальная команда драйвера.
Только не все ФР и принтеры умеют печатать штрих-коды.
4 Trance_1C
 
23.04.12
04:39
(0)Ставь зЁбру.
5 dimogen
 
23.04.12
09:08
(3) спс...буду разбираться
6 mikecool
 
23.04.12
09:09
(2) загнать туда последовательность символов, которые печатаются в штрихкоде
7 dimogen
 
23.04.12
11:36
(6) а можете подсказать где про это почитать? чтоб загнать эти символы...я нашел esc-pos команды для принтера, понять не могу как их в тхт загнать
8 2S
 
23.04.12
11:37
в качестве фронта что? фронтол умеет это делать красиво...
9 dimogen
 
23.04.12
12:07
lewoo lkt200, у него тоже есть поддержка печати штрих кодов.
10 dimogen
 
04.05.12
12:22
может у кого есть пример как именно эти esc pos команды через 1с запустить?