Код

Перем гМаксКолЭлем;
Перем гСписСправочников;


// ОпределитьсяСоСправочником()
Функция ОпределитьсяСоСправочником(псВид, псИтерация)
	ЗначВозврата = 0;
	вСпр = СоздатьОбъект("Справочник."+псВид);
	псИтерация = псИтерация + 102;
	Пока псИтерация>=гМаксКолЭлем Цикл
	    псИтерация = Цел(псИтерация / 12);
	КонецЦикла;
	вКод = Формат(псИтерация,"Ч(0)6");
	Если вСпр.НайтиПоКоду(вКод) = 1 Тогда
	    ЗначВозврата = вСпр.ТекущийЭлемент();
	Иначе

		Сообщить("Не нашли:"  + псВид + " код: " + вКод);
	КонецЕсли;

	Возврат ЗначВозврата;
КонецФункции // ОпределитьсяСоСправочником()


//*******************************************
Процедура Сформировать()

	гСписСправочников = СоздатьОбъект("СписокЗначений");
	гСписСправочников.ДобавитьЗначение("Номенклатура");
	гСписСправочников.ДобавитьЗначение("Контрагенты");
	гСписСправочников.ДобавитьЗначение("МестаХранения");
	гСписСправочников.ДобавитьЗначение("Фирмы");

	СЦ = 0;
	Для СЦ = 1 По гСписСправочников.РазмерСписка() Цикл
		вСпрВид = гСписСправочников.ПолучитьЗначение(СЦ);
		вСпр = СоздатьОбъект("Справочник." + вСпрВид);

		СЦ_2 = 0;
		Для СЦ_2 = 1 По гМаксКолЭлем Цикл
			вСпр.Новый();
			вСпр.Наименование = вСпрВид + " № " + СЦ_2;
			Если вСпрВид = "Номенклатура" Тогда
			    вСпр.Цена = СЦ_2 * 3;
			КонецЕсли;
			Попытка
				вСпр.Записать();
				Состояние(вСпрВид+":" + вСпр.Наименование);
			Исключение
				Состояние(вСпрВид+":" + вСпр.Наименование+" ->" + ОписаниеОшибки());
			КонецПопытки;
		КонецЦикла;
	КонецЦикла;

	вДок = СоздатьОбъект("Документ.Продажа");
	вТекДата = НачДата; вИтерация = 0;
	Пока вТекДата<=КонДата Цикл
		СЦ = 0;
		Для СЦ = 1 По 50 Цикл

			вИтерация = вИтерация + 1;

			вДок.Новый();
			вДок.ДатаДок = вТекДата;
			вДок.УстановитьНовыйНомер("П-");
			вДок.Контрагент = ОпределитьсяСоСправочником("Контрагенты",вИтерация);
			вДок.Склад = ОпределитьсяСоСправочником("МестаХранения",вИтерация);
			вДок.Фирма = ОпределитьсяСоСправочником("Фирмы",вИтерация);
			вДок.Автор = глПользователь;
			СЦ_С = 0;
			Для СЦ_С = 1 По Мин(15,вИтерация) Цикл
				вИтерация = вИтерация + 1;
				вДок.НоваяСтрока();
				вДок.Товар = ОпределитьсяСоСправочником("Номенклатура",вИтерация);
				вДок.Количество = СЦ_С+СЦ;
				вДок.Сумма = вИтерация;
			КонецЦикла;
			Попытка
				вДок.Записать();
				вДок.Провести();
				Состояние(""+вТекДата);
			Исключение
				Сообщить("!!!" + ОписаниеОшибки());
			КонецПопытки;
		КонецЦикла;
		вТекДата = вТекДата + 1;
	КонецЦикла;


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


//============================================================
Процедура ПриОткрытии()
	КонДата = ТекущаяДата();
	НачДата = КонДата - 1000;
КонецПроцедуры // ПриОткрытии

гМаксКолЭлем = 4000;