С помощью чего можно нарисовать штрих-код? #540076

Заказчик просит ставить штрих-код на накладные. Есть волшебные слова в заявке - Code 128, и пояснение  Штрих-код: C542461:1003223002348502954203223002358444994403223002351525405<032230023515944944032230023155032560230023155032164230023155032605221@ Это код Code-128 Закодировано следующее: 20175944520100311РЦРН01276911111020509 Код_ПоставщикаНомер_ЗаказаДата_заказаНомер накладнойдата накладнойКод_МагазинаНомер_КоробаКоличество_Коробок

А в чем вопрос-то?

Видимо, в том - сколько ТС хочет заплатить человеку, способному решить эту задачу...

Пока количество денег не озвучено - будем считать, что в просто поток сознания

+

(4,5) Спасибо, уже кое-что! Ох, сложно, не люблю я это дело..

люби платить тогда

Я люблю... давай сделаю за деньги

компонент 1Сбаркод

Нашла barcode.ocx, он, оказывается, просто в типовой торговле 77 есть, зарегистрировала, этикетка печатается со штрих-кодом. Но мне нужно усложнить задание! Во-первых, код должен быть не просто уникальный, а совершенно конкретный - номер накл., кол коробок, ... т.е известный мне текст "20175944520100311РЦРН01276911111020509" нужно представить цифрами. Как??? И второе - штрих-код должен быть соде128, если я правильно поняла - это 2 разные задачи.

одна задача

: Если ЖеланиеУчиться = Истина Тогда

Т.е. Code-128 - как раз и переводит данные в цифры?

я делал используя шрифты без компонент

Почему без компонент?

ну почитайте же наконец про этот штрих-код, хотя б педовикии...

там я уже прочитала, мне ж нужен сам алгоритм где-то взять! Да чтоб он для 1С работал!

алгоритм - он работает всегда. На то он и алгоритм. Ну а реализовать его на 1с (хоть на клшюках, хоть на снеговике) - никаких проблем нет...

коде 128 это только цифры. 128а это с символами букв англ.

замени русские на англ буквы, на букву англ которой нет в русском языке

автор, поставь 1С баркод и не парься он все сделает за тебя

только цифры - это 128c

вот не помню точно. там из 3 типа помоему

не помнишь - не советуй. впрочем, ей что советуй, что не советуй - пофиг.

ну человек делая эту задачу наверное подумает и проверит. я только направление подсказал

Я согласна поставить 1С баркорд и не париться! Где его взять? Вот неверно! Почти все задачи, с которыми я сюда выходила - так или иначе решены.

Жаль, что по запросу 1С баркорд - не нашлось вообще ничего! Ну ладно, понимаю, что надо было перевести на англ..

Скачать программу Barcode scanner driver for 1C, 2.0 - это то, что мне нужно? А дальше-то что? Ну, запустила я инсталяцию... Там даже описания никакого нет!

если учесть , что ей нужен "алгоритм для 1с", то "думать" - это явно не про нее... зы. прошел сейчас спецом на википедию - даже ссылка на реализованые на разных языках + фонт...

это клиника...

да можно шрифтами. но там код надо формировать есще со служ. символами. я далал давно правда. Лучше пусть баркоде ковыряет

ищи 1CBarCode на ИТС

barcode.ocx - это есть в типовой поставке, я уже нашла. Дальше-то что?

а если ИТС без диска ?

регистрируешь, в макет - Таблица-Рисунки-Вставить объект, выбираешь компонент и дальше 1С Barcode

Скачала, установила. Элемент управления может использоваться только совместно с программными продуктами системы "1С:Предприятие 8" - а мне-то для семерки надо!

ты какой-то троян установила

Ошибка там же, где и всегда...

Где? Ну сколько можно загадками говорить? Не похоже на троян, похоже на установку 1С было.

barcode.ocx - 100% есть в типовой поставке ТИС

Да есть он у меня!! Дальше-то что? Кому мне сообщить, что хочу в виде штрихкода получить 20175944520100311РЦРН01276911111020509??

Во вложении Barcode.ttf – шрифт TrueType для отражения штрих-кодов. Его используйте в печатной форме в 1С, для ячейки в которой будет отображаться штрих-код Его необходимо установить на те рабочие места на которых будут печатать документы и паспорт короба. В файле «Функции на VB.txt» функции на языке VB. Переделать на встроенный 1С думаю не составит труда. Основная функция «Code_128» Будут вопросы – пишите. Получила такую подсказку от заказчика. Похоже на правду?

Абсолютно верно Нужно скопировать этот шрифт в папочку Fonts виндосовскую Используем этот шрифт и функцию перевода

2 Какой-то странный заказчик... Почему прислал код на VB, а не сразу на 1С?

а фломастеры уже предлагали?

Где взять функцию перевода? Это будущий потребитель нашего штрихкода, он-то им уже давно пользуется, не знаю только, в 1с или нет. Это, кстати, первое, что пришло в голову!

Похоже, заказчик таки зашел в англицкую педовикию... :-)) на что так и не сподобился за 7 часов топикстартер...

Не могу тут выложить, вдруг по судам затаскают, не я писал :) Вообще какая-то огромная она у меня, думаю в инете найти можно покрасивее

А вроде в ТиС-е есть сабрутина для формирования контрольной суммы баркода срецтвами 1с. Вводишь число - на выходе получаешь контрольную цыфру. Добавляешь к строке - и - PROFIT!

+А на печать отправляешь шрифтом ГНИВЦ

И в бухии есть, в отчетах вроде.

А еще можно на зебре напечатать этикетку и наклеить на накладную

Где-то там, что ли?

И еще вот это. Только мне-то надо - с буквами!

Спасибо! Попробую!

За сутки можно было и самостоятельно написать. путь даже с неадаптивной сменой режима...

а что с 1сбаркод не срослось? ибо компонент сам рассчитывает контрольную цифирь, передавай ему текст, остальное делает сам

Так с расчетом кэцэ вообще никаких проблем нет...

Он говорит (баркод), что только с восьмеркой работает, я не стала пробовать, тем более, что и на работе мне то же самое сказали.

Я за сутки 2 другие работы выполнила.

напрягать моск всегда тяжело

трудно напрягать то, чего нет...

прислать баркод который с 7кой работет?

Очень длинный у меня штрих получается! Может такое быть? Вот, например, строка для кодирования - "COD9-910.03.113/14/5125.03.11ERT568" Из этого получился такой код: "B8818210982300235482034160230326052300235842034520234492034520239442032300234492030650234522030650231282032300236052034520234492034520239442032308189021:0023:012032300230322450<5@" С помощью того, что в

Автор. скажи. зачем тебе в штрихкод надо запхнуть COD9-910.03.113/14/5125.03.11ERT568 какой смысл и кто его будет читать? А главное кто его будет расшифровывать?

а тут уже мона использовать 2-D

+67 если ты делаешь это внутри своей системы. сделай служебный справочник где длинна кода 12 чисел, в справочник пихай все ссылки на все что ты там в номер запхнуть хочешь. А идентификатором этой записи будет обычный еан 13 который ты впихаешь в накладную.

> С помощью чего можно нарисовать штрих-код? с помощью х...

Мне именно такое задание дали! В виде штрих-кода д.б. след. информация: Код_ПоставщикаНомер_ЗаказаДата_заказаНомер накладнойдата накладнойКод_МагазинаНомер_КоробаКоличество_Коробок

имхо - смотри в сторону 2-мерного штриха, чтобы можно было все в него упаковать с одномерным - куча ограничений либо установи стандарт на длины каждого из полей и выкинь из кода обратный слеш

у меня сейчас одномерный штрих код128 длиной 19 символов по минимуму в ширину сантиметров 5, меньше уже проблема сканеру читать, вот и думай, какой ширины у тебя получится рисунок

Пока выкинула точки из дат и еще кое-что, слэши не могу выкидывать - это требование принимающей стороны. Код должен быть 128В. Использую программку из , может, надо было что-то другое?

Можно нанести не один штрих-код, а несколько подряд - как это делается на билетах, только надо будет объяснить операторам, что штрих-код нужно считывать в определённой последовательности. Что касается символов, то никто не мешает сделать перекодировку, то есть число из системы с основанием, равным таблице необходимых символов, перевести в число с основанием, равным числу различных возможных символов в штрих-коде.

У заказчика явно есть потребность в контроле соответствия содержимого накладной ее представлению. Хотя "лобовым кодированием" это делать слишком глупо - прочитав ШК, можно запросто выявить соответствие, и подделать так, как надо. тут проблемы с кодированием готового алгоритма, а ты предлагаешь еще и такие страшные слова, как подъем основания системы счисления... :-) --------- Вообще, задача похожа на тестовое задание при принятии на работу. Нормальный заказчик так задачи не ставит.

Что значит, "слэши не могу выкидывать - это требование принимающей стороны", Не все можно решить прогибами под заказчика. У всего есть свои ограничения.

тут более другой случай :-)

Это фирма, торгующая книгами. Все, кто с ними работает - именно так ставят штрих-коды на своих накладных, мои заказчики тоже хотят с ними работать и общаюсь я с программистом - вот той фирмы, что будет считывать штрих-код. У остальных-то получается! Так что, скорее всего - надо искать другой алгоритм, в - не подходит.

А еще у меня цифирки стоят очень редко! выводимый цифровой код - длиннее штриха, где там его можно ужать? Я не нашла!

Скорее всего, вашим заказчикам необходимо поискать [другого] программиста...

Ну вот еще! Разберемся! Уже почти всё получилось!

у меня 3.5 см 18 символов (цифра)

S1 = Code_2of5_Ch(Mid(Pair, 1, 1)) Mid - это что? (это я перевожу алгоритм с какого-то другого языка)

S = S & "0" - а это что бы могло быть?

Всё перевела, получилась ерунда! С какого еще боку подойти?

ибо компонент сам рассчитывает контрольную цифирь, передавай ему текст, остальное делает сам - как бы теперь с этого бока подойти? - ну, т.е., похоже, он у меня стоит. А как ему текст-то мой передать?

Кто скажет, правильно я перевела? Function Code_Char(A)    Если  A ="211412" Тогда S = "A";    ИначеЕсли A ="211214" Тогда S = "B";    ИначеЕсли A = "211232" Тогда S = "C";    ИначеЕсли A = "2331112" Тогда S = "@";                    ИначеЕсли A1 ="21" Тогда S = S + "1" ;            ИначеЕсли A1 = "31" Тогда S = S + "2";            ИначеЕсли A1 = "41" Тогда S = S + "3";            ИначеЕсли A1 = "12" Тогда S = S + "4";            ИначеЕсли A1 = "22" Тогда S = S + "5";            ИначеЕсли A1 = "32" Тогда S = S + "6";            ИначеЕсли A1 = "42" Тогда S = S + "7";            ИначеЕсли A1 = "13" Тогда S = S + "8";            ИначеЕсли A1 = "23" Тогда S = S + "9";            ИначеЕсли A1 = "33" Тогда S = S + ":";            ИначеЕсли A1 = "43" Тогда S = S + ";";            ИначеЕсли A1 = "14" Тогда S = S + "";            ИначеЕсли A1 = "24" Тогда S = S + "=";            ИначеЕсли A1 = "34" Тогда S = S + ">" ;            ИначеЕсли A1 = "44" Тогда S = S + "?";

А было так: 'Штриховые символы шрифта iQs Code 128 по набору полос Private Function Code_Char(A As String) As String    Dim S As String    Dim I As Integer    Dim B As String    Select Case A        For I = 0 To Len(A) / 2 - 1            Select Case Mid(A, 2 * I + 1, 2)