Имя: Пароль:
1C
1С v8
Нужна демо база
0 AlexAl-77
 
03.10.12
17:33
Нужна очень демо база УТ. С номенклатурой 100 000 позиций у которой есть штрих коды. Для тестов. кто может помочь ? важен только справочник номенклатура и регистр штрих коды.
1 Deon
 
03.10.12
17:35
(0) Так напиши процедурку рандомного создания этих позиций
2 Dimasik2007
 
03.10.12
17:35
Щас набегут и тему закроют. Ибо правила.
3 Maxus43
 
03.10.12
17:35
написать обработку которая мильён заполнит позиций не предлагать?
4 AlexAl-77
 
03.10.12
17:50
(3)нет. я думал кто поделиться. =(
5 Wobland
 
03.10.12
17:51
(4) лентяй

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

Функция ПолучитьСлучайнуюНоменклатуру(Исключаемые=0) Экспорт
   ГСЧ=Новый ГенераторСлучайныхЧисел;
   Запрос=Новый Запрос;
   Запрос.Текст=
   "ВЫБРАТЬ
   |    Номенклатура.Ссылка
   |ИЗ
   |    Справочник.Номенклатура КАК Номенклатура
   |ГДЕ
   |    (НЕ Номенклатура.Ссылка В (&Исключение) ИЛИ &Исключение=0)
   |    И НЕ Номенклатура.ПометкаУдаления";
   Запрос.УстановитьПараметр("Исключение", Исключаемые);
   Результат=Запрос.Выполнить().Выгрузить();
   
   Если Результат.Количество()=0 Тогда
       Возврат Справочники.Номенклатура.ПустаяСсылка();
   Иначе
       Возврат Результат[ГСЧ.СлучайноеЧисло(0, Результат.Количество()-1)].Ссылка;
   КонецЕсли;
КонецФункции
6 AlexAl-77
 
03.10.12
17:56
Уговорили ушел писать
7 Aprobator
 
03.10.12
17:57
(0) а демопользователи не требуются случаем?
8 AlexAl-77
 
03.10.12
17:58
Ну началось.
9 Aprobator
 
03.10.12
17:58
а вообще была у 1С какая то приблуда по тестированию слабых мест в конфе. Эмулировала работу пользователей. Тока я название забыл. Ща может подскажет кто.
10 AlexAl-77
 
03.10.12
17:59
я подумал зачем тогда mista раз нельзя не чего попросить.
(9) я понял о чем ты - это не то.
11 Aprobator
 
03.10.12
18:00
о глянь сюды 1С:ЦУП.
(10) а зачем тогда?
12 Aprobator
 
03.10.12
18:03
обработка на генерацию элементов справочника с нужным реквизитом минут 15 пиештся.
13 Aprobator
 
03.10.12
18:03
(5) во ты извращенец.
14 Wobland
 
03.10.12
18:16
(13) это почему это?
15 Жан Пердежон
 
03.10.12
18:25
(5) смотрите все! запрос в цикле! и это после 6 лет сидения на мисте!
16 Господин ПЖ
 
03.10.12
18:26
(15) расскажи это в 1С... они таким иногда тоже промышляют
17 Aprobator
 
03.10.12
18:28
(16) давай теперь все дурное перенимать.
18 Wobland
 
03.10.12
18:31
(15) хм, действительно. а как иначе?
19 Wobland
 
03.10.12
18:35
(18) получить всё в ТЗ для начала
20 1Страх
 
03.10.12
18:40
(15) это пример конфликта взаимоотношения реляционного и объектного подходов
Закон Брукера: Даже маленькая практика стоит большой теории.