Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Учет по штрихкодам как характеристика номенклатуры
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Пользователю 1С 8.3, 8.2, 8.1, 8.0 > 1С Управление торговлей 8 > Управление торговлей для Украины редакция 2 (Управление торговлей для России редакция 10)
Constantus
Приветствую, Форумчане!
УТ 10.3, 1с8.2, обычное

В Номенклатуре имеется возможность ввести несколько штрихкодов на одно Наименование.

Как вести учет в этом случае? По требованию Заказчика в Счет-фактурах, Поступлениях, реализациях и т.д. необходимо указать и Штрихкод товара.

Даже если ввести Один и тотже товар но с разными Штрихами, в документ занесется одной строкой.

Попробовал сделать через Характеристики для номенклатуры. Но настройка характеристики крайне сложна (с учетом грамотности пользователей, всё напутали и загубили).

В связи с этим вопрос:
1. Может быть есть где-то ссылка на какой-нить реестр, где храняться данные по Реализации с введенным штрихкодом?
2. Может есть смысл при заполнении Штрих кода автоматически создать характеристику с этим Штрих кодом? Тогда как?
3. Может есть более простой способ о котором я не знаю в УТ

Всё усугубляется для меня еще и тем, что есть возможность ввести через Ф7, "Подбором" и в ручную из строки ТЧ...

Что можете посоветовать?
logist
Цитата(Constantus @ 22.02.16, 13:59) необходимо зарегистрироваться для просмотра ссылки
Но настройка характеристики крайне сложна

Единственное решение, это освоить это, совершенно ничего сложного в этом нет.

Цитата(Constantus @ 22.02.16, 13:59) необходимо зарегистрироваться для просмотра ссылки
Даже если ввести Один и тотже товар но с разными Штрихами, в документ занесется одной строкой.

Если будет учет по характеристикам, к которым будет привязан штрихкод можно сделать внешнюю печатную форму, которая будет отображать и штрихкод.

Не выдумывайте костыли.
Constantus
logist @ Сегодня, 16:41 необходимо зарегистрироваться для просмотра ссылки,

Предварительно создаем План Видов Характеристик: Справочник "Характеристики Номенклатуры"
Наименование свойства "Штрих"
Тип значений: строка

Во вкладке "Штрихкоды" номенклатуры на изменение Штрихкода вешаем код:

Процедура ШтрихкодыШтрихкодПриИзменении(Элемент)
    
    
    ТекущаяСтрока = ЭлементыФормы.Штрихкоды.ТекущиеДанные;
    
    НаименованиеХарактеристики = ТекущаяСтрока.ШтрихКод;
    
        Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(НаименованиеХарактеристики,1,,Ссылка).Ссылка;        
        
        
        Если Характеристика.Пустая() Тогда
            Характеристика = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            Характеристика.Наименование       = НаименованиеХарактеристики;
            Характеристика.Владелец           = Ссылка;
            Характеристика.Записать();
            
            Если НЕ НаименованиеХарактеристики = "" Тогда
                СоздатьЗаписатьВСвойство(Характеристика.Ссылка,"Штрих",НаименованиеХарактеристики);
            КонецЕсли;
            
            ТекущаяСтрока.ХарактеристикаНоменклатуры =     Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(НаименованиеХарактеристики,1,,Ссылка).Ссылка;
            
        КонецЕсли;

ТекущаяСтрока.ХарактеристикаНоменклатуры =     Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(НаименованиеХарактеристики,1,,Ссылка).Ссылка;

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


В том же модуле вешаем еще одну процедуру:

Процедура СоздатьЗаписатьВСвойство(ССылка,Свойство,ТекЗначение)
    
    
    ТекущееСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(Свойство).Ссылка;
    НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Объект.Установить(Ссылка);
    НаборЗаписей.Отбор.Объект.Использование = Истина;
    НаборЗаписей.Отбор.Свойство.Установить(ТекущееСвойство.Ссылка);
    НаборЗаписей.Прочитать();
    //Сообщить("Количество записей Перед записью = " + НаборЗаписей.Количество());
    Если НаборЗаписей.Количество() = 0 Тогда
        НоваяЗапись = НаборЗаписей.Добавить();
    Иначе
        НоваяЗапись = НаборЗаписей[0];
    КонецЕсли;
    
    НоваяЗапись.Объект   = Ссылка;
    НоваяЗапись.Свойство = ТекущееСвойство.Ссылка;
    НоваяЗапись.Значение = ТекЗначение;
    НоваяЗапись.Период   = ТекущаяДата();
    Попытка
        НаборЗаписей.Записать();
    Исключение
    КонецПопытки;
    
    
КонецПроцедуры


Данное изменение формы позволяет автоматически создавать Штрихкод с соответствующей Характеристикой. Всё много удобнее для простого пользователя, нежели тяжелый механизм ручного формирования.

ПО обеспечение должно работать на народ :-)
logist
Цитата(Constantus @ 22.02.16, 17:15) необходимо зарегистрироваться для просмотра ссылки
нежели тяжелый механизм ручного формирования.

Этот код лишь создает/подставляет характеристику, остальные действия те же, что и вручную.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.