1С 7.x : Простое штрихкодирование документов

 //******************************************************************************

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

//

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

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

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

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

//  Нет                

//

// Описание:

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

//  EAN

//

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

   

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

   

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



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



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

        // и т.д



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

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

   

       

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

   

        ИспКолво = 10;

       

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

                   ИспКолво));

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

                 

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

    КонецЕсли;

                   

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

 Процедура ПриЗаписи()

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

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

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