добрый вечер как правильно создать генератор случайных чисел в 1С? Я для справочника номенклатура создал код который должен генерировать случайные числа для элемента справочника Серийные номера. Вот код
/////////////////////////////////////////////////////////////////////
Процедура ГенераторСерийныхНомеров() экспорт   //Дима+
ГСЧ = Новый ГенераторСлучайныхЧисел();
СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0,1000000000);
КонецПроцедуры    

Процедура СгенерироватьСерийныйНомерНажатие(Элемент)  //Дима+
    Если  ПустаяСтрока(СерийныйНомер) тогда
         СерийныйНомер.ГенераторСерийныхНомеров();
     КонецЕсли;
    
КонецПроцедуры
//////////////////////////////////////////////////////////////
При нажатии на кнопку выходит ошибка
{Справочник.СерииНоменклатуры.Форма.ФормаЭлемента.Форма(330)}: Значение не является значением объектного типа (ГенераторСерийныхНомеров)
         СерийныйНомер.ГенераторСерийныхНомеров();

СерийныйНомер=ГенераторСерийныхНомеров();

и на функцию рпереписать

Может так лучше? СерийныйНомер=ГенераторСерийныхНомеров();

только вот что будешь делать, когда у тебя для разных номенклатур сгенерится одинаковый серийник?

(0) Серийники через ГСЧ делать?
Ведь дубли будут.

(0) В чем преимущество случайного серийника перед последовательным?

Дима+ :)

я тут себе картинки когда-то переименовывал...

Процедура КнопкаВыполнитьНажатие(Кнопка)
    ГСЧ=Новый ГенераторСлучайныхЧисел;
    Файлы=НайтиФайлы(Путь, "*.jpg");
    ОбщееКоличество=Файлы.Количество();
    
    Для й=0 По ОбщееКоличество-1 Цикл
        НовоеИмя=Путь+"\"+Формат(ГСЧ.СлучайноеЧисло(0, 99999999), "ЧЦ=8; ЧВН=; ЧГ=0")+".jpg";
        ф=Новый Файл(НовоеИмя);
        Если ф.Существует() Тогда
            й=й-1;
            Продолжить;
        КонецЕсли;
        ПереместитьФайл(Файлы[й].ПолноеИмя, НовоеИмя);
    КонецЦикла;
КонецПроцедуры

(7) Так и не понял в чем преимущество случайного номера перед последовательным?

(8) Я не понял

хорошо как избежать дублей при генерировании серийных номеров?

(8) попытка сделать рандомное слайд-шоу на девайсе, не знающем о ГСЧ
(10) генерировать последовательно, начиная с максимального иммеющегося + 1

(10) Смотреть (7)

(10) Найти последний и прибавить 1

(10) А вот еще - сделать код справочника уникальным и просто копировать его в серийник :)

guaranteed to be random
http://imgs.xkcd.com/comics/random_number.png

(10) код справочника и так уникален, нужно генерить серийный номер товара

(16) вот тебе с твоим ГСЧ не пофих ли, будет он равен коду или нет?

сейчас такая ситуация- я жму на кнопку сгенерировать код, но никакой операции не происходит-поле Серийный номер пустое как и прежде

(18) ну если ты до сих пор не внял советам, то всё верно. заполняться не будет

(16) И в чем проблема? Серийный уникальный? Уникальный. То что он равен коду - тебе что от этого? Душевный дискомфорт испытываешь?

(19) не совсем понял советы еще раз подробнее можно?

если я правильно понял то Серийный номер = Код справочника так?

(21) -> (1)
(22) предлагаем назначить серийником код

(23) Еще можно просто на форме переименовать поле "Код" в "Серийный номер" :)

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

(25) ну вы нам объясните, в какой строчке вы записываете Поле Серийный номер? Пока видно, что вы его нигде не записываете. Поэтому поле пустое. Программа работает правильно.

я кнопку поставил в справочнике Серии Номенклатуры, там есть поле Серийный номер туда я и пытаюсь сгенерировать серийный номер товара

ситуация такая если заполнен серийный номер справочника серии номенклатуры то автоматически заполняется наименование серии и далее наименование отображается в справочнике номенклатура как серия товара. так что генерировать серийный номер все равно надо

(27) Тогда покажи код. И не забыл ли ты назначить кнопке обработчик?

код указан в (0)

обработчик принажатии()

(30) Код из (0) работать не может по определению.
У строк нет метода ГенераторСерийныхНомеров.

Тут всё дело в ДНК.

используй УникальныйИдентификатор, его тоже можно перевести из строки в число

+(32) Кстати, об этом тебе в посте (1) было сказано.

(28) И ещё. Не знаю, что там за конфигурация используется. Но обычно у серийных номеров нет наименования. А есть код - уникальный в пределах владельца (номенклатуры). А у объектов справочников есть метод УстановитьНовыйКод. Который сам всё, что надо сделает. Только не генератором псевдослучайных чисел, а найдёт максимальный - и поставит следующий за ним.

(35) и вы предлагаете связать код справочника с серийным номером?

Нашел такую функцию
////////////////////////////////////////////////
Функция Ранд(Парам=0)
    Если Парам<>0 Тогда
        Случай=Парам;
    КонецЕсли;
    Если Число(Случай)=0 Тогда
        Случай=Число(СтрЗаменить(""+ТекущееВремя(),":",""));
        Случай=(16807*Случай)%2147483647;
    КонецЕсли;
    Случай=(16807*Случай)%2147483647;
    Случай=макс(Случай,-Случай);
    Возврат(Случай/2147483647);
КонецФункции  
/////////////////////////////////////////////////
можно ее будет применить в данном случае?

(36) Какая конфигурация? В типовых они так и связаны.

(37) Если применять так, как в (0) - то нельзя. И эта функция ничем не лучше стандартного ГСЧ.

у меня УТ 10.3, также такое надо сделать в УНФ

(39) В УТ 10.3 серийный номер - это уникальный в пределах подчинения код элемента справочника.

код справочника номенклатура и серийный номер справочника серийные номера все же разные вещи

(41) Используй УстановитьНовыйКод - и наступит счастье.

(42) Извини, невнимательно читал ветку. У тебя же Серии, а не СерийныеНомера.

+(43) Тем не менее - всё равно можешь использовать УстановитьНовыйКод через вспомогательный справочник при записи серии.

после долгих усилий пришлось по нажатии на кнопку Сгенерировать Код() сделать такое УстановитьНовыйКод("AZ-"),переименовать реквизит Код в Серийный Номер на вкладке Серийные номера справочника Номенклатура. Получилось может не очень красиво и эстетично зато работает и не будет проблем с уникальностью кодов

(45) а чо ты, сразу гуид фигач!

когда-то я занимался расчетами с применением последовательностей СЧ.. знал наизусть машинный код генератора псевдослучайных чисел.. вроде б стартовое число определялось из комбинации системных дата+время.
или несколько цифр от дробной части деления чего-нибудь на что-нибудь..
правда, в любом случае глубоко такую последовательность применять нельзя, вырождается, и числа начинают повторяться.

ЗЫ... ностальджи..  на вычислительной машине МИР-1 я делал перепрошивку логической матрицы под электронный генератор СЧ, источником СЧ был генератор белого шума на ПП-диоде..

(47) на то они и случайные, чтоб повторяться. у меня вот периодически зачем-то возникает потребность получить серию неповторяющихся в диапазоне..

(48) видел такую последовательность: 5,3,5,3,5,3,5,3 и т.д.. это поле 5000 вполне нормальных СЧ

поле = после

(49) тоже случайные. просто с другим распределением ;)

(51) ну.. не знаю :) был специальный алгоритм анализа случайности, так вот, машина начинала угадывать следующие числа из последовательности.. это уже совсем не случайные :)

(52) а 6 из 36 спецалгоритм мог?

(53) не помню уже, друже.. вроде тоже диапазончик не очень широкий..

(54) гм.. это был намёк на спортлото

(55) ааа.. а я-то разумничался :)

да, источником СЧ могла быть и заранее сгенерированная  (созданная чем-нибудь) последовательность чисел, в виде массива.

был у нас и такой вариант, предложенный ведущим инженером-математиком предприятия :)

в справочнике номенклатура переименованое поле код в серийный номер отображается но при вызове обработки печать этикеток серийные номера не отображаются так как идет ссылка на регистр штрихкоды в котором реквизит серия ссылается на справочник серии номенклатуры

ага, созданная кем-то последовательность...
а неплохо было. задача: у меня двое детей, один из них мальчик. какова вероятность того, что второй тоже мальчик?
моделировалась с помощью монетки, бумажки, 500 подбрасываний и 5 литров пива

(58) вот видишь, сколько у тебя ещё работы

+(60) а всё почему? потому что, как любой студент, придумал решение, не посоветовавшись со старшими

да мало переименовать поля справочника надо еще в обработке поковыряться чтобы заполнялись поля тоже. Кстати никто не работал с УНФ, так как все эти  навороты надо применить и в ней.

(61) а что старшие посоветуют?

(63) описать исходную задачу

(63) напиши свой алгоритм ГСЧ

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

(66) задача не такая. необходимо организовать создание, хранение и вывод в ПФ серийных номеров номенклатуры. так лучше?

(67) в принципе вы правы в итоге работа сводится к печати штрихкодов и серийных номеров на этикетки

есть какие предложения от старших братьев?

справочник про серии подходит? на печать он выводится? если так, то остаётся нагенерить элементов справочника и всего делов. если серий несколько, что бывает?

я сейчас зашел по другому. При печати этикеток важны поля штрихкод и наименование из регистра штрихкоды. Я сделал небольшие изменения в самом справочнике серийные номера и теперь в поле наименование садится значение поля код под которым подразумевается серийный номер товара

Добрый вечер заказчик изменил решение теперь он хочет чтобы штрихкод товара генерировался случайными числами. 1С дает последовательную систему выдачи номеров штрихкода, как можно сделать формирование штрихкода случайным образом чтобы не было как сейчас 2000077-2000078 и т.д а как-нибудь так 77adg5, и т.д.
Пишу здесь чтобы не открывать новую ветку

(72) рассказать тебе, как я картинки переименовывал? можно было и усложнить: генерить коды символов, а не голые числа

(73) есть процедура формирования нового штрихкода, туда как-то можно добавить генерацию так как я описал?

(74) это техническое любопытство или ты разрешения спрашиваешь? в обоих случаях ответ положителен

//мне делать пока лениво, я наблюдаю и жду каких-то подвижек со стороны автора

(75) это я совета спрашиваю

х=ГСЧ.СлучайноеЧисло(0, 36);
х=х+?(х<10, 48, 65);
стр=стр+Символ(х)

это дело в цикл на длину строки, цикл повторять до уникальности. на здоровье

спасибо за совет

Лев(СтрЗаменить(Ссылка.УникальныйИдентификатор(), "-", ""), НужнаяДлина)

а задавался я как-то вопросом, как поиметь случайный элемент справочника. ничего лучше, чем брать случайную строку из запроса по всем элементам, не придумал. найдутся идеи у кого?

(79)УникальныйИдентификатор.
GUID (Globally Unique Identifier) — статистически уникальный 128-битный идентификатор. Его главная особенность — уникальность, которая позволяет создавать расширяемые сервисы и приложения без опасения конфликтов, вызванных совпадением идентификаторов. Хотя уникальность каждого отдельного GUID не гарантируется, общее количество уникальных ключей настолько велико (2128 или 3,4028?1038), что вероятность того, что в мире будут независимо сгенерированы два совпадающих ключа, крайне мала.
Чем тебе не штрихкод?

В Википедий написано.
Код товара. Ранее было сказано, что 3-5 оставшихся цифр выделяется для кодировки самого товара. И длина этого поля зависит от политики регистратора, то есть, в зависимости от того, какую длину кода предприятия выбрал регистратор в качестве базовой. То есть, от одной до ста тысяч наименований. Вопреки сложившемуся мнению, цифровой код самого товара никакой смысловой нагрузки не несёт. <<<Ассоциация рекомендует последовательное присвоение кодов по мере выпуска нового вида продукции без вложения в этот код какой-либо дополнительной смысловой нагрузки>>>. То есть, это ни вес, ни цвет, ни цена, ни что бы то ни было ещё — это всего лишь порядковый номер товара, который компьютер терминала магазина просто берёт из своей компьютерной базы, где хранится как наименование, так и цена товара.

Лучше последовательное штрихкодирование.Генератор всё таки не уникален,и при большом количестве продукций может совпасть.

ясное дело что последовательное штрихкодирование лучше, но если заказчик хочет чтобы при выдаче штрихкода сам код формировался случайным образом, чтобы никто не смог отследить количество выпущенного товара при последовательном штрихкодировании

(85) навеяло

Троим инженерам необходимо посчитать их общий средний оклад, но ни один из них категорически не хочет, чтобы двое других узнали, какой оклад у него.
Вопрос:     Как инженеры могут посчитать их средний оклад?

(85) тогда, текущаяДата() берите. Случайное число.

(0)А сделать из кода справочника серийный номер + уникальность кодов в справочнике не проще ли будет?

+(88)при генераторе есть маленькая но вероятность дублей

(88) это ещё в начале ветки затерялось

(88) у меня и так код справочника=серийный номер товара, в настройке справочника стандартная уникальность кода, только он последовательный. Я общался с нашими программистами они посоветовали сделать шифратор чтобы в момент создания штрихкода последняя цифра формировалась случайным образом и последующий штрихкод отличался от предыдущего например
2001145-2001134-2001156
У меня сейчас так выходит при печати этикеток
Матрас AZ-0009 200000077
Матрас AZ-00010 200000078
А можно извините за повтор как-то так
Матрас AZ-0009 200000077
Матрас AZ-00020 200000086

(91) можно и как-то так, да

дело в том сам штрихкод не дает последовательную комбинацию цифр к примеру несколько наименований товаров и такие штрихкоды
2000000000022,2000000000039,2000000000046,2000000000060,2000000000077. В программе только при печати этикеток серийные номера идут последовательно так как они привязаны к коду справочника. Можно ли сам код сделать случайными цифрами и буквами?

(93) благословляю

так же есть предложение вместо 2000000000022,2000000000039,2000000000046,2000000000060,2000000000077 чтобы печатался случайный набор цифр и букв. Это можно как-то реализовать в УТ?

(95) на 1Се даже сапёра можно реализовать

поможет идея кода, выдающего строку, собранную из случайных букв и цифр?

(97) можно по конкретнее?

думаю что это было бы хорошо строка из случайных цифр и букв.

(98) вот если я возьму и накидаю пару строк, которые будут возвращать последовательность случайных символов, тебе станет легче жить?

(99) поищи в конце семидесятых постов

сто два!

(100) жить станет гораздо легче

(101) нашел такую функцию
//////////////////////////////////////////////////////
Функция ГенераторСерийныхНомеров() экспорт
    
    //вместо Randomize
    
     перем мин;
     перем макс;
    
     //вместо Randomize
   Для н = 1 По 100 Цикл
       Уник = Новый УникальныйИдентификатор;
   КонецЦикла;
  
       //генерируем GUID
   Уник = СокрЛП(Новый УникальныйИдентификатор);

       //оставляем только цифры
   Уник = СтрЗаменить(Уник,"-","");
   Уник = СтрЗаменить(Уник,"a","");
   Уник = СтрЗаменить(Уник,"b","");
   Уник = СтрЗаменить(Уник,"c","");
   Уник = СтрЗаменить(Уник,"d","");
   Уник = СтрЗаменить(Уник,"e","");
   Уник = СтрЗаменить(Уник,"f","");

   //знаменатель должен иметь такое же количество нулей + 1
   Знаменатель = 10;
   Для н = 2 По (СтрДлина(СтрЗаменить(Уник,Символы.НПП,""))) Цикл
       Знаменатель = Знаменатель * 10;
   КонецЦикла;
  
   Случ = Число(Уник) / Знаменатель; //здесь получается дробное случайное число от 0 до 1
  

   ЧислоИзИнтервала = Цел(0.5 + (Макс - Мин + 1) * Случ) + Мин - 1;
   Если ЧислоИзИнтервала = Мин - 1 Тогда
        ЧислоИзИнтервала = Макс;
   КонецЕсли;

   Возврат ЧислоИзИнтервала;

КонецФункции     
//////////////////////////////////////////////////
теперь есть элемент серийный номер, есть кнопка генератор. Есть процедура ГенераторПриНажатии()
СерийныйНомер = ГенераторСерийныхНомеров();
КонецПрцедуры

При таком ходе в поле серийный номер при нажатии кнопки сформируется число? И как можно будет вместо цифр штрихкода при печати указать случайный набор букв и цифр?

там, по-моему, первый же комментарий к этому коду: "чем штатный ГСЧ плох?"

(105) я не говорю что штатный ГСЧ плох или хорош. У меня вопрос как сделать так чтобы при нажатии кнопки в нужном поле выходил результат выполнения команды. У меня еще вчера поле Серийный номер оставалось пустым при выполнении команды Генерировать

(106) а я не призываю дискутировать на тему хорошести штатного ГСЧ. ответ в (1)

(107) возвращаясь к (100) как можно закодировать надпись штрихкода и серийного кода набором случайных цифр и букв?

(107) вы имели ввиду цикл в (78)?

(109) да

Функция ВернутьСлучайную36ричнуюСтроку(ДлинаСтроки)
    
    Результат = "";
    ГСЧ = НОвый ГенераторСлучайныхЧисел;
    
    Для Идн = 1 по ДлинаСтроки Цикл
        СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0, 35);
        Если СлучайноеЧисло<10 Тогда
            Результат = Результат + СлучайноеЧисло;
        Иначе
            Результат = Результат + Символ(55 + СлучайноеЧисло);
        КонецЕсли;
    КонецЦикла;
    
    Возврат Результат;
    
КонецФункции

(111) не взлетит. надо переименовать в ГенераторСерийныхНомеров()

(112) нет уж, пусть сам мозгами пораскинет

да назвать можно как угодно главное чтобы работало

(114) название уже придумал?

(95) Серийный номер = Новый УникальныйИдентификатор;
Точно уникальный будет

(116) было уже. пускай уж хоть как-нибудь сделает, я на всё согласен ;)

Воспользовался подсказанной функцией
///////////////////////////////////////////
Функция ГенераторСерийныхНомеров() экспорт
Парам = 0;    
  Если Парам<>0 Тогда
        Случай=Парам;
    КонецЕсли;
    Если Число(Случай)=0 Тогда
        Случай=Число(СтрЗаменить(""+ТекущаяУниверсальнаяДатаВМиллисекундах(),":",""));
        Случай=(16807*Случай)%2147483647;
    КонецЕсли;
    Случай=(16807*Случай)%2147483647;
    Случай=макс(Случай,-Случай);
    Возврат(Случай/2147483647);
КонецФункции
//////////////////////////////////////////////////
сделал привязку СерийныйНомер =ГенераторСерийныхНомеров(); которая по нажатию на кнопку Генератор должна выполниться.
но получаю ошибку {Справочник.СерииНоменклатуры.МодульОбъекта(146)}: Преобразование значения к типу Число не может быть выполнено
    Если Число(Случай)=0 Тогда
СерийныйНомер имеет тип Строка

что только не придумают, лишь бы не работало...

(118) вот здесь

Если Парам<>0 Тогда
        Случай=Парам;
    КонецЕсли;

если Парам = 0 ты не определил чему равен Случай.

как-то так

Если Парам<>0 Тогда
        Случай=Парам;
КонецЕсли;
Если Парам=0 Тогда
    Случай=Парам;
КонецЕсли;
Если Парам<>1 Тогда
        Случай=Парам;
КонецЕсли;
Если Парам=1 Тогда
    Случай=Парам;
КонецЕсли;

а завтра будем сюда буквы добавлять?

подправил функцию серийный номер сгенерировался в таком виде
0,18773090848127887979209
0,19817088832993567377791
как можно избавиться от 0 в начале,т.е чтобы было целое число?

ГСЧ.СлучайноеЧисло(1, 99999999999999999999)

(124) применительно к указанной функции куда вставить ГСЧ.СлучайноеЧисло(1, 99999999999999999999) ибо это уже другая функция

Функция БолееДругаяФункция()
  Возврат ГСЧ.СлучайноеЧисло(1, 99999999999999999999);
КонецФункции