Как заполнить данные справочника случайными числами программно?

ЛУчше всего для этого использовать генератор случайных чисел. Ваш КО

&НаКлиенте
Процедура ЗаполнитьСлучайно(Команда)
   Если Вопрос("Табличная часть будет очищена. Продолжить?", РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Да Тогда
       СлучайноЗаполнить();
   КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура СлучайноЗаполнить()
   док=РеквизитФормыВЗначение("Объект");
   СерверныйМодуль.ЗаполнитьСлучайно(док);
   ЗначениеВРеквизитФормы(док, "Объект");
КонецПроцедуры

http://pikucha.ru/i9mAe
вот че получается, и форма у меня обычная

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

Процедура ЗаполнитьСлучайно(док) Экспорт
   ГСЧ=Новый ГенераторСлучайныхЧисел;
   М=Новый Массив;
   док.Товары.Очистить();
   Для й=1 По ГСЧ.СлучайноеЧисло(1, 12) Цикл
       М=док.Товары.ВыгрузитьКолонку("Номенклатура");
       НоваяСтрока=док.Товары.Добавить();
       ном=ПолучитьСлучайнуюНоменклатуру(М);
       Если ном.Пустая() Тогда
           Прервать;
       КонецЕсли;
       НоваяСтрока.Номенклатура=ном;
       НоваяСтрока.Количество=ГСЧ.СлучайноеЧисло(1, 200);
       НоваяСтрока.Цена=ГСЧ.СлучайноеЧисло(1, 200);
       НоваяСтрока.Стоимость=НоваяСтрока.Количество*НоваяСтрока.Цена;
       Если ТипЗнч(док)=Тип("ДокументОбъект.ПриходнаяНакладная") Тогда
           НоваяСтрока.СрокГодности=НачалоМесяца(ДобавитьМесяц(док.Дата, ГСЧ.СлучайноеЧисло(1, 24)));
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры

Функция ПолучитьСлучайнуюНоменклатуру(Исключаемые=0) Экспорт
   ГСЧ=Новый ГенераторСлучайныхЧисел;
   Запрос=Новый Запрос;
   Запрос.Текст=
   "ВЫБРАТЬ
   |    Номенклатура.Ссылка
   |ИЗ
   |    Справочник.Номенклатура КАК Номенклатура
   |ГДЕ
   |    (НЕ Номенклатура.Ссылка В (&Исключение) ИЛИ &Исключение=0)
   |    И НЕ Номенклатура.ПометкаУдаления";
   Запрос.УстановитьПараметр("Исключение", Исключаемые);
   Результат=Запрос.Выполнить().Выгрузить();
   
   Если Результат.Количество()=0 Тогда
       Возврат Справочники.Номенклатура.ПустаяСсылка();
   Иначе
       Возврат Результат[ГСЧ.СлучайноеЧисло(0, Результат.Количество()-1)].Ссылка;
   КонецЕсли;
КонецФункции

(3) вот ты сейчас это зачем показал?

(5) затем, что заполняется одними данными, хоть я и ввожу цикл:
   Для Счет = 1 По ВводимоеПользователемЧисло Цикл    
       ГСЧ = Новый ГенераторСлучайныхЧисел(255);
       Рандом = ГСЧ.СлучайноеЧисло(0,1000);
       Справочник1 = Справочники.С1.СоздатьЭлемент();
       Справочник1.Наименование = Рандом;
       ТабличнаяЧастьСправочника1 = Справочник1.Детали;
       НоваяСтрокаТЧ = ТабличнаяЧастьСправочника1.Добавить();
       НоваяСтрокаТч.Количество = Рандом;
       НоваяСтрокаТЧ2 = ТабличнаяЧастьСправочника1.Добавить();
       НоваяСтрокаТч2.Количество = Рандом;
       Справочник1.Записать();
   КонецЦикла;

(6) конструктор ГСЧ вынеси за цикл

(7) тоже самое получается, пробовал

(6) сказать почему? у тебя ГСЧ инициализируется одним и тем же каждый раз

машина не может сделать случайное число, она умеет только _псевдо_случайные. почитай на досуге

(9)  и как мне сделать чтоб числа всегда были рахзные?

зачем?

(11) >ГСЧ = Новый ГенераторСлучайныхЧисел(255)
а что ты имел в виду под 255?

(12) он уже запрашивал готовую обработку по заполнению справочника мусором. не нашёл ;)

(13) начальное значение = 255 к примеру я имел ввиду

2(14) Она есть на ИТС, зачем ее искать и спрашивать?
Но зачем именно мусором?

(15) на зачем оно?

(16) как называется? тестовые данные человек генерит

(17) не понял вопроса

и у меня нет доступа к итсу

(19) почему 255? для чего служит параметр в конструкторе?

(21) ну можно 1 поставить:
ачальноеЧисло = 1;
     ГСЧ = Новый ГенераторСлучайныхЧисел(НачальноеЧисло);
       Рандом = ГСЧ.СлучайноеЧисло(0,1000);

толку больше не будет от этого

плин, заставил немолодого в СП лазить..
давай, запости сюда кусок из СП про этот самый параметр

2(18) Отлично... чем с точки зрения этой задачи
элементы справочника у которых код и наименование имеют такой вид:
464 порпорпорпор
809090 sdvbpkcsd
98723 ррорлол osrfg
более ценны чем те, которые имею вид
464 ЭлементСпраовчника464
465 ЭлементСпраовчника465
466 ЭлементСпраовчника466

?

А для последнего на ИТС обработка точно есть, называется что-то там КонфиденциальныхДанных

ГенераторСлучайныхЧисел.Конструктор по умолчанию (RandomNumberGenerator.Default constructor)
ГенераторСлучайныхЧисел (RandomNumberGenerator)
Конструктор по умолчанию
Синтаксис:

Новый ГенераторСлучайныхЧисел(<НачальноеЧисло>)
Параметры:

<НачальноеЧисло> (необязательный)

Тип: Число.
Начальное число, которым инициализируется генератор случайных чисел.
Описание:

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

(24) мне пофих, это у автора лабораторная

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

(25) так. последнюю строку разжевать?

(28) то есть не вводим начальное число при создании ГСЧ?

ГСЧ = Новый ГенераторСлучайныхЧисел();
   Рандом = ГСЧ.СлучайноеЧисло(0,1000);
все равно одними и теми же данными забивает

(29) то есть готовый код, любезно предоставленный тебе в самом начале, ты даже не посмотрел?

http://land1c.ru/programming/ansvers_prg/50-generator-sluchaynyh-chisel-1s-8h.html

2(27)
Тогда просто создай элементы справочника. Наименования у них будут пыстыми, код будет автоинкрементирован, и потом ты на этот справочник натравишь упомянутую обработку и получишь аккуратные данные.

(30) не верю

(31) где управляемое приложение?

+(34) весь код покажи
(35) да, где управляемое

Процедура КнопкаВыполнитьНажатие(Кнопка)
   ВводимоеПользователемЧисло = ВводимоеЧисло;
   Если ВводимоеПользователемЧисло < 0 Тогда
       Сообщить("Введите число больше 0");
       Возврат;
   КонецЕсли;
   
   Если ВводимоеПользователемЧисло  > 200 Тогда
       Сообщить("Введите число меньше 200");
       Возврат;
   КонецЕсли;
   ГСЧ = Новый ГенераторСлучайныхЧисел();
   Рандом = ГСЧ.СлучайноеЧисло(0,1000);
   
   
   Для Счет = 1 По ВводимоеПользователемЧисло Цикл    
       Справочник1 = Справочники.С1.СоздатьЭлемент();
       Справочник1.Наименование = Рандом;
       ТабличнаяЧастьСправочника1 = Справочник1.Детали;
       НоваяСтрокаТЧ = ТабличнаяЧастьСправочника1.Добавить();
       НоваяСтрокаТч.Количество = Рандом;
       НоваяСтрокаТЧ2 = ТабличнаяЧастьСправочника1.Добавить();
       НоваяСтрокаТч2.Количество = Рандом;
       Справочник1.Записать();
   КонецЦикла;
   
   Сообщить("Данные были загружены");
   
КонецПроцедуры

(37) взял одно случайное число и пихаешь его куда-то в цикле

Для случайных числе. Можно э... :) Поставить 17-й релиз. Получать разницу в миллисекундах между двумя какими-то моментами времени в миллисекундах до и после выполнения какой-нибудь фигни. :)

(39) а что такого в 17м релизе? 8.2.17 имеется в виду? уже вышла?

(37) можно засунуть в цикл этот констурктор ГСЧ, по идеи разные должны быть значения, но нет, все опять одинаково

+(40) я миллисекунды до этого как-то скриптово получал

(41) засунь ГСЧ.СлучайноеЧисло() и не морочь нам голову

(43) в цикл засунь

опять полсотни постов ни о чём...

все, gj, работает

(46) не за что

спс

2(40) Да. тестовая.. Там можно получить количество миллисекунд прошедших с начала эпохи.

Как всегда правильный ответ в первой десятке постов