Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 18:25

Генерация Штрихкодов Складских Ячеек (УТ 11.1)

Автор TemkaTV, 26 ноя 2015, 16:31

0 Пользователей и 1 гость просматривают эту тему.

TemkaTV

Добрый День. УТ11.1 конфа. Прошу мне помочь, как начинающему программисту. Есть Справочник Складские Ячейки. Нужно Сгенерировать ШтрихКод к каждой из ячеек. Создал Регистр сведений с измерением Штрихкод и ресурсом Складские Ячейки. Добился генерации штрихкода и записи его в регистр. нужно сгенерировать ко всем ячейкам.

Создал Команду, с кодом:

&НаСервере
Процедура УстановитьУникальныйИдентификатор(СкладскиеЯчейки)
   
   
    НоваяЗаписьЯчеек = РегистрыСведений.ШтрихкодыСкладскихЯчеек.СоздатьМенеджерЗаписи();
    НоваяЗаписьЯчеек.СкладскиеЯчейки = СкладскиеЯчейки;
    НоваяЗаписьЯчеек.Период = ТекущаяДата();
    НоваяЗаписьЯчеек.Штрихкоды = СгенерироватьУИД();
    НоваяЗаписьЯчеек.Записать();
       
       
КонецПроцедуры

&НаСервере
Функция СгенерироватьУИД()Экспорт
   
    УИДДата    = Формат(ТекущаяДата(),"ДФ=ггггММддЧЧммсс");
    ГСЧ        = Новый ГенераторСлучайныхЧисел;
    СлучайноеЧисло = Строка(ГСЧ.СлучайноеЧисло(10000, 99999));
    //строка вида "хх_ххх", удалим пробел

    УИДНомер = Лев(СлучайноеЧисло,2)+Прав(СлучайноеЧисло,3);
   
    Возврат "99"+УИДНомер + УИДДата;
   
КонецФункции

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск