Штрих-код

Goodwin

26.06.2009 - 05:15

Каков вообще принцип действия сканера штрих кода? Каким образом при проведении по нему сканером позиция Номенклатуры попадает в документ? Можно ли штрихкодировать не только элементы справочника, но и документы?

К списку тем

1 >

К списку форумов

Интересные темы

odines.ru

17.01.2025 - 20:43

Смотри также:
УРБД по элементам справочника.
1C Тис 7.7 Как изменить код номеклатуры?
Опт и ЕНВД - как разделить входящий НДС?

Re: Штрих-код

USSR

10 - 01.07.2009 - 12:29

а сам штрих-код формирую, например вот так, Вы сделаете по свему:

ШтрихКод = "1" +Сред(НомерДок, 4,2) + Прав(НомерДок,5) + Формат(ДатаДок - Дата("01.01.2005"),"Ч(0)4.0") +"0";
ШтрихКодСимв = ПолучитьШтрихКод(ШтрихКод);

Важно, чтобы код подчинялся правилам, например EAN-13, и Вы могли из него извлечь всю инфу по которой искать документ, либо писать штрихкод прямо в реквизит

Re: Штрих-код

Serginio

11 - 01.07.2009 - 13:17

Помотри
http://www.mista.ru/articles1c/hare/article.20.html

Re: Штрих-код

Программ1

12 - 01.07.2009 - 13:29

(11) Спасибо! Буду пробовать.

Re: Штрих-код

Serginio

13 - 01.07.2009 - 13:35

Если в номере докумена не содержаться кирилица

то например

Функция СформироватьКод39(ВыбРеализация,Знач суффикс="") Экспорт
        Если ВыбРеализация.Выбран()=1 Тогда
Номер=СокрП(ВыбРеализация.НомерДок);
// Номер=Трим(Номер);
            Код=Формат(ВыбРеализация.ДатаДок,"ДГГГГММДД")+Номер;
Если ПустаяСтрока(Суффикс)=0 Тогда
    Код=Код+Суффикс;
КонецЕсли;

Стр=Code39Generate(код);
возврат Стр
КонецЕсли;
возврат "";
КонецФункции

Re: Штрих-код

USSR

14 - 01.07.2009 - 13:58

Блин, я привел готовый, несколько лет работающий код, а спасибо другому, за ссылку, по которой в принципе все тоже самое. И есть ли в этом мире хоть толика справедливости? ))