Имя: Пароль:
1C
1C 7.7
v7: OcvitaBarcode - отключить печать текста у ШК - ???
,
0 MWWRuza
 
гуру
10.03.19
20:30
Добрый день!
Вопрос в теме.
Есть какой-то метод или свойство - ?
Пробовал так:

Процедура УстановитьКод(Объект)    
    Объект.barcode         = СокрЛП(ТекстПароля);
    Объект.symbology     = 20;  // Тип Code-128
    Объект.text         = ""; - вызывает ошибку...  
КонецПроцедуры

Объект.text         = "";
{Справочник.Кассиры.Форма.Модуль(266)}: Поле агрегатного объекта не обнаружено (text)

А как тогда? Или этого вообще нет в этой компоненте?
Без последней строки, печатается нормально, но под ШК строка текста, что в данном случае не желательно...
1 mikecool
 
10.03.19
20:35
не знаю, как в OcvitaBarcode
но у 1с баркода есть свойство, которое как в контроле настраивается, так и программно
2 Злопчинский
 
10.03.19
21:19
В формексе есть печать шк.
3 MWWRuza
 
гуру
10.03.19
21:36
(1) 1С компонента, по крайней мере, которая под семерку, только EAN печатать умеет, а это только 13 или 8 символов. Мне надо другой тип ШК.

(2) Ну, в формексе есть, это понятно. Просто я эту комоненту использую для печати PDF-417, для плохочитаемых старых акцизок, для печати DataMatrix новых акцихок... Хотел ее-же прикрутить и для печати бейджиков кассиров... Не хочется "зоопарк" разводить, с разными методами печати ШК в разных местах программы. Поэтому, и подумал, может как-то можно отключить вывод текста.

PS Кстати, переключил на QR - Объект.symbology     = 58;  Печатает QR без всякого текста! Красиво, черт возьми... Я бы так и оставил, но 2D сканеры пока не у всех :-)
4 MWWRuza
 
гуру
10.03.19
23:02
(2)Ну, в общем, покопался, помучился - без толку... Так и не нашел...
Плюнул, сделал Формексом. Даже проще получилось:

Функция ВыводКартинкиШК(Объект)
    Сервис.НарисоватьШтрихкод(Объект, 20, СокрЛП(ТекстПароля), 0);
КонецФункции

Злопчинский, спасибо за подсказку! :-)))
5 MWWRuza
 
гуру
11.03.19
00:11
Подумал... Формекс все равно в конфигурации "на каждом углу" используется... Лучше, что-бы не "разводить зоопарк", избавиться от сабжевой компоненты, и все на формекс переделать. В принципе, он все то-же умеет, что и оквита, движок то один... А в общем итоге, одним "костылем" будет меньше...
Нужно будет только не забывать, вместе с обновлениями конфы и формекс обновлять, а то у большинства еще старый работает, который не умел ШК печатать.
6 fixxxer1
 
03.04.19
13:09
MWWRuza
Можете выложить пример отчета по выводу штрихкода чере FormEx
7 Kigo_Kigo
 
03.04.19
13:16
(5) стандартная баркоде.оцх много шк умее печатать, а вот текст отключается тут
https://yadi.sk/i/as_BHnDSCwrk9A
8 fixxxer1
 
04.04.19
09:52
а как на стандартной barcode.ocx сделать штрихкод узким ? пытаюсь уменьшить его, при печати тогда не видно.
9 Kigo_Kigo
 
04.04.19
10:21
вот так делал
https://yadi.sk/i/ZD_omXIYEF05fg
10 MWWRuza
 
гуру
05.04.19
00:21
(6)Пример есть здесь, или на ИнфоСтарте.
Если хотите, вот фрагмент от моей конфы, обработка "МаркиПоФорме2". Она часть конфигурации, и естественно у Вас не заработает. Но, посмотреть, как сделано - Вы сможете.
https://cloud.mail.ru/public/5m7z/4UYnAiMfQ
В принципе, Вам только вот это и надо:

Процедура УстановитьКод(Объект)    
    Объект.barcode             = СокрЛП(ТекстМарки);
    Если ТипМарки             = 1 Тогда
        Объект.symbology     = 71;  // Тип ШК DataMatrix
    Иначе
        Объект.symbology     = 55;  // Тип ШК PDF417
    КонецЕсли;
    //другие свойства ставим тут же..
КонецПроцедуры

Процедура ПечНеЧитШК()
    ТекстМарки         = СокрЛП(ТзМарок.ПолучитьЗначение(ТзМарок.ТекущаяСтрока(),"Марка").КодНовМарк);
    Таб             = СоздатьОбъект("Таблица");
    Если СтрДлина(ТекстМарки) > 68 Тогда
        ТипМарки    = 1;
        Таб.ИсходнаяТаблица("ТаблицаНов");
        СерНом         = Сред(ТекстМарки,4,3) + " " + Сред(ТекстМарки,7,8);
    Иначе
        ТипМарки    = 2;
        Таб.ИсходнаяТаблица("ТаблицаСтар");
        СерНом         = "";
    КонецЕсли;    
    Таб.Опции(0,0,0,0);
    Таб.ВывестиСекцию("СекцияШК");
    Таб.Показать("Дубликат ШтрихКода плохочитаемой марки","");
    Форма.Закрыть();
КонецПроцедуры

Ну, и сами таблицы-моксели.
11 MWWRuza
 
гуру
05.04.19
00:29
(8)Как-то одному клиенту понадобилось сделать ценники со ШтрихКодом. Точно такие, как у него другая программа печатает, не 1Сv7.7. Попытался через стандартную barcode.osx, не получилось... Очень узкий ШК, миллиметров 5 всего, не выводит она его, хоть тресни... Решил через печать с помощью шрифта EanGnivc. Тоже где-то тут нашел пример, как это делается, и все получилось.
12 fixxxer1
 
05.04.19
10:31
MWWRuza
Спасибо, то что нужно
13 MWWRuza
 
гуру
08.04.19
20:27
+(11) Вот, иллюстрация к посту 11, буквально сегодня понадобилось узкий ШК сделать:

https://content.foto.my.mail.ru/mail/m_w_w/_mypagephoto/h-270.jpg
14 Fragster
 
гуру
08.04.19
23:17
zint работает и с 7.7
15 n0isy
 
18.04.19
16:06
(0)
День добрый,
Octivia на zinc и есть, взял исходный код, добавил свойство show_hrt
1 - печатает текстом штрихкод, 0 - не печатает.
https://drive.google.com/open?id=1rjNyVlEPtHING8tD67Nzb6Ymgb1-BxlU

заодно пожал ocx upx'ом.