helpf.pro
  Регистрация
Все категории » Штрих-код (barcode) Штрих-код (barcode) 
 +1 
 
 
Распечатать

Простое штрихкодирование документов

Была поставлена задача на предприятии, где ежедневно выписывается по 300-500 накладных организовать штрихкодирование документов, для более удобной работы с бумажным носителем в дальнейшем. И вот результат…

Конфигурация “Торговля и склад”. Хотелось сделать как можно проще и быстрее, и в тоже время надежно. На решение задачи ушло 1,5 часа. И так приступим….

У нас будет использоваться штрихкод EAN13. Создаем общий реквизит документов:
title

Общий реквизит документов "EAN13"
Тип – “Строка”, длина – 13, отбор по реквизиту

Добавляем в глобальный модуль процедуру
Код 1C v 7.x
 //******************************************************************************

// глСформироватьШтрихкодДокумента(Конт)

//

// Параметры:

//  Конт - контекст документа для которого необходимо сформировать штрихкод

//    EAN13- реквизит документа содержащий штрихкод

// Возвращаемое значение:

//  Нет                

//

// Описание:

//  На основании номера документа и вида документа формирует штрихкод в формате

//  EAN

//

Процедура глСформироватьШтрихкодДокумента(Конт, EAN13) Экспорт

   

    Если ПустаяСтрока(EAN13) = 1 Тогда

   

        ПрефиксыДокументов = СоздатьОбъект("СписокЗначений");



        ПрефиксыДокументов.ДобавитьЗначение("001", "Реализация");



        ПрефиксыДокументов.ДобавитьЗначение("002", "СчетФактураВыданный");               

        // и т.д



        КодДокумента        = СокрЛП(Прав(Конт.НомерДок,7));

        КодВидаДокумента    = ПрефиксыДокументов.Получить(Конт.Вид());

   

       

        Префикс = Прав(ДатаГод(Конт.ДатаДок), 2);

   

        ИспКолво = 10;

       

        Штрихкод = СимволыВЦифры(Прав(СокрЛП(КодДокумента+КодВидаДокумента),

                   ИспКолво));

        Штрихкод = Префикс + глДополнитьСтрокуЛ(Штрихкод, "0", ИспКолво);

                 

        EAN13 = Штрихкод + глКонтрольныйСимволEAN(Штрихкод, 13);

    КонецЕсли;

                   

КонецПроцедуры // глСформироватьШтрихкодДокумента()


После этого в документы, которым будут присваиваться штрихкоды добавляем вызов
вышеописанного в процедуру "ПриЗаписи()"
Код 1C v 7.x
 Процедура ПриЗаписи()

   //..............................

   глСформироватьШтрихкодДокумента(Контекст, EAN13);

КонецПроцедуры


В результате при первой записи документа ему будет присвоен штрихкод состоящий
из следующих блоков:
1. год документа (2 символа);
2. семь цифр справа от номера документа;
3. код вида документа (3 символа);
4. контрольный символ;

Осталось только вставить в печатную форму объект ActiveBarcode и настроить
необходимые свойства у него.

А вот и результат )
title

Автор: Александр Шкураев
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 28530
 +1 
 
 
Распечатать
Возможно, вас также заинтересует
Как заполнить табличную часть формы программно?  8
  Нужно по кнопке Заполнить - сформировать данные для заполнения табличных частей и заполнить их. Форма имеет вид: Рядом с кнопкой Записать и закрыть добавлена кнопка Заполнить документ , код ее команды: // Код заполнения ТЧ НаСервере П
17 правил для составления оптимального ЗАПРОСа к данным базы 1С  52
  Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps  21
 была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1С 8.x : Как убрать лидирующие нули в номере Документа (вариант2)  0
  Скопировать строку с номером, с лидирующими нулями, в числовом поле (с форматом без групп, без группировки), и вернуть(скопировать) обратно в строковом поле с номером. Возвращает без нулей.
Cообщение: "Не удалось удалить чеки ККМ!"  2
  Пользователь с правами Администратор ККМ проводит Закрытие кассовой смены (Z). Выходит сообщение: " Не удалось удалить чеки ККМ!" ФР печатает Z -отчет, но Отчет о рознчничных продажах не формируется. Необходимо дать роли Администратор ККМ прав
Посмотреть все результаты поиска похожих
Комментарии
McFly
12.01.2012 15:18Комментарий: 4
McFly
Функция ЗначениеВСтроку() не выдает внутренний IDDOC в 7.7. Его выдает функция : ЗначениеВСтрокуВнутр(). Беда в том, что выдает его функция в виде 10-значного числа. А в базе оно хранится в 36ричном формате. Я написал 2 небольших функции :
//*******************************************
//Перевод 10чного числа в 36чное
//*******************************************
Функция DecTo36(Значение)
СтрокаЦифр = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
Код = "";
Пока Значение>36 Цикл
Дел = Цел(Значение / 36);
Остат = Значение - Дел * 36;
Код = Сред(СтрокаЦифр,1+Остат,1) + Код;
Значение = Дел;
КонецЦикла;
Если Значение>0 Тогда
Код = Сред(СтрокаЦифр,1+Дел,1) + Код;
КонецЕсли;
Возврат Код;
КонецФункции
//*******************************************
//Выборка кода IDDOC
//*******************************************
Функция НайтиВнутреннийКод(Док)
Значение = ЗначениеВСтрокуВнутр(Док);
Значение = СтрЗаменить(Значение,"""","");
Значение = Сред(Значение,2,СтрДлина(Значение)-2);
Массив = СтрЗаменить(Значение,",",РазделительСтрок);
Значение = СтрПолучитьСтроку(Массив,СтрКоличествоСтрок(Массив));
Возврат DecTo36(Число(Значение));
КонецФункции
ab
10.01.2011 13:08Комментарий: 3
ab
Для того чтоб в 1С 7.7 получить внутренний ID обекта необходимо его преобразовать в строку с помощью функции ЗначениеВСтроку() среди прочего в результирующей строке будет и внутренний ID.
E_Migachev
14.07.2010 09:42Комментарий: 2
E_Migachev
На сколько я знаю стандартными методами в 7.7 IDDOC не получить *16, поэтому реализовано так!
newbas
14.07.2010 08:33Комментарий: 1
newbas
ИМХО вместо создания списка с префиксами видов документов лучше взять внутренний ИД документа (IDDOC), который имеет длину 9 знаков+префикс:
"222"+IDDOC
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.