8.х Добавить в печать ценника Штрих код

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Kyja, 19 мар 2012.

  1. TopicStarter Overlay
    Kyja
    Offline

    Kyja

    Регистрация:
    19 мар 2012
    Сообщения:
    17
    Симпатии:
    0
    Баллы:
    1
    Я не знаю честно я взял эту обработку из этой темы http://www.1c-pro.ru/topic27722.html и пытался идти по ответам которые давали ТС дошел до её же ошибки которая сейчас и у меня там посоветовали исправить в общем модуле
    Код:
    Четн = Четн + Число(Сред(ШтрихКод, 2 * Индекс, 1))
    исправил так же менял значение реквизита штрихкод со Строки на Число с числа на РегистрСведенийСписок.Штрихкоды. Но ничего не получилось.
    Я бы вообще не писал этих вопросов если бы хоть что-то понимал в этом и начальство не мучало с фразой, Что так сложно штрихкод в ценик добавить? я обычно некогда не спрашиваю предпочитаю искать ведь в инете уже давно есть ответы на все вопросы. Но в этой ситуации я просто сдался.
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.735
    Симпатии:
    508
    Баллы:
    204
    Для какой конфы у вас это?
  3. TopicStarter Overlay
    Kyja
    Offline

    Kyja

    Регистрация:
    19 мар 2012
    Сообщения:
    17
    Симпатии:
    0
    Баллы:
    1
    1С:Предприятие 8.1 (8.1.14.72) "Управление торговлей", редакция 10.3 (10.3.10.4)
  4. TopicStarter Overlay
    Kyja
    Offline

    Kyja

    Регистрация:
    19 мар 2012
    Сообщения:
    17
    Симпатии:
    0
    Баллы:
    1
    Всем большое спасибо особенно Аlexburn



    Код:
    Попытка
    КомпонентШК = Новый COMОбъект("V8.Barcod.1");
    ОбластьЦенника.Рисунки.Штрихкод.Объект.ТипКода  = КомпонентШК.ТипКода;
    ОбластьЦенника.Рисунки.Штрихкод.Объект.Сообщение = "4600490615416";  
    Исключение
    Сообщить("Компонента 1С:Печать штрих-кодов не установлена на данном компьютере!");
    Возврат "";
    КонецПопытки;
    
    Запрос = Новый Запрос("
    |ВЫБРАТЬ
    | РегШтрихкоды.Владелец КАК Владелец,
    | РегШтрихкоды.ШтрихКод КАК Штрихкод
    |ИЗ
    | РегистрСведений.Штрихкоды КАК РегШтрихкоды
    |ГДЕ
    | РегШтрихкоды.Владелец = &Владелец
    |");
    
    Запрос.УстановитьПараметр("Владелец", Строкатаблицы.Номенклатура);
    РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
    Выборка.следующий();
    
    Если РезультатЗапроса.Пустой() Тогда
    Выборка = РезультатЗапроса.Выбрать();
    Выборка.Следующий();
    Сообщить("Штрихкод не найден! Сгенерируйте штрихкод для номенклатуры:  " + СокрЛП(СсылкаНаОбъект) + """.");
    Отказ = Истина;
    КонецЕсли;
    
    КомпонентШК.Сообщение = Выборка.ШтрихКод;
    
    ОбластьЦенника.Рисунки.Штрихкод.Объект.ТипКода	 = КомпонентШК.ТипКода;
    ОбластьЦенника.Рисунки.Штрихкод.Объект.Сообщение	= КомпонентШК.Сообщение;
    ОбластьЦенника.Рисунки.Штрихкод.Объект.ОтображатьТекст   = КомпонентШК.ОтображатьТекст;
    

    так и решилась моя проблема ура))) начальство довольно))

Поделиться этой страницей