&НаКлиенте
Процедура КомандаДобавитьФизЛицо(Команда)
СгенерироватьФизЛицо();
КонецПроцедуры

Функция СгенерироватьФизЛицо()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.ФизическиеЛица_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "ФизЛицо №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьНоменклатуру(Команда)
СгенерироватьНоменклатуру();
КонецПроцедуры

Функция СгенерироватьНоменклатуру()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Номенклатура_1552_Шенгелия.СоздатьЭлемент();
НовыйЭлемент.ВидНоменклатуры = Перечисления.ВидыТоваров_1552_Шенгелия.Получить(Рандом.СлучайноеЧисло(0,2));
НовыйЭлемент.Наименование = "Номенклатура №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.ОсновнаяЕдиницаИзмерения = Справочники.ЕдиницыИзмерения_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(1,2));
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьДолжность(Команда)
СгенерироватьДолжности();
КонецПроцедуры

Функция СгенерироватьДолжности()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Должности_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Должность №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьСотрудника(Команда)
СгенерироватьСотрудника();
КонецПроцедуры

Функция СгенерироватьСотрудника()

Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Сотрудники_1552_Шенгелия.СоздатьЭлемент();
НовыйЭлемент.Должность = Справочники.Должности_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(3,5));
СлучКод = "0000000" + Число(Рандом.СлучайноеЧисло(1,25) + 10);
НовыйЭлемент.ФизическоеЛицо = Справочники.ФизическиеЛица_1552_Шенгелия.НайтиПоКоду(СлучКод);
НовыйЭлемент.Наименование = Справочники.ФизическиеЛица_1552_Шенгелия.НайтиПоКоду(СлучКод).Наименование;
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьСклад(Команда)
СгенерироватьСклад();
КонецПроцедуры

Функция СгенерироватьСклад()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Склады_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Склад №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьКонтрагента(Команда)
СгенерироватьКонтрагента();
КонецПроцедуры

Функция СгенерироватьКонтрагента()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Контрагенты_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Контрагент №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьКонтактноеЛицо(Команда)
СгенерироватьКонтактноеЛицо();
КонецПроцедуры

Функция СгенерироватьКонтактноеЛицо()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.КонтактныеЛица_1552_Шенгелия.СоздатьЭлемент();
НовыйЭлемент.Наименование = "Контактное лицо №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Владелец = Справочники.Контрагенты_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,39));
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьТранспортноеСредство(Команда)
СгенерироватьТранспортноеСредство();
КонецПроцедуры

Функция СгенерироватьТранспортноеСредство()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.ТранспортныеСредства_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Транспортное средство №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьВодителя(Команда)
СгенерироватьВодителя();
КонецПроцедуры

Функция СгенерироватьВодителя()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Водители_1552_Шенгелия.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Водитель №" + Рандом.СлучайноеЧисло(0,10000);
СлучКод =
Рандом.СлучайноеЧисло(10,99);
НовыйЭлемент.ФизЛицо = Справочники.ФизическиеЛица_1552_Шенгелия.НайтиПоКоду("0000000" + СлучКод);
НовыйЭлемент.Записать();
КонецФункции

&НаКлиенте
Процедура КомандаДобавитьГрузчика(Команда)
СгенерироватьГрузчика();
КонецПроцедуры

Функция СгенерироватьГрузчика()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйЭлемент = Справочники.Грузчики_1552_Шенгелия.СоздатьЭлемент();

СлучКод = Рандом.СлучайноеЧисло(10,99);
НовыйЭлемент.Наименование = "Грузчик №" + Рандом.СлучайноеЧисло(0,10000);
НовыйЭлемент.ФизЛицо = Справочники.ФизическиеЛица_1552_Шенгелия.НайтиПоКоду("0000000" + СлучКод);
НовыйЭлемент.Записать();

КонецФункции

&НаКлиенте
Процедура КомандаЗаполнитьДокументПродажаТоваров(Команда)
СгенерироватьДокументПродажаТоваров();
КонецПроцедуры

Функция СгенерироватьДокументПродажаТоваров()
Рандом = Новый ГенераторСлучайныхЧисел();
Для НомерСтроки=0 по 50 Цикл
НовыйДокумент = Документы.ПродажаТоваров_1552_Шенгелия.СоздатьДокумент();

СлучКод = Рандом.СлучайноеЧисло(10, 30);
НовыйДокумент.Дата = ТекущаяДата();
Контрагент = Справочники.Контрагенты_1552_Шенгелия.НайтиПоКоду("0000000" + СлучКод);
НовыйДокумент.Контрагент = Контрагент;

ВыборкаКонтактноеЛицо = Справочники.КонтактныеЛица_1552_Шенгелия.Выбрать(,Контрагент);
Пока ВыборкаКонтактноеЛицо.Следующий() Цикл
КонтактноеЛицо = ВыборкаКонтактноеЛицо.ПолучитьОбъект();
КонецЦикла;

НовыйДокумент.КонтактноеЛицо = КонтактноеЛицо.Ссылка;
НовыйДокумент.Сотрудник = Справочники.Сотрудники_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(3,29));
НовыйДокумент.Склад = Справочники.Склады_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(1,25));

Для НовыйТовар = 0 по Рандом.СлучайноеЧисло(1,10) Цикл

НоваяСтрокаТЧ = НовыйДокумент.Товары.Добавить();
НоваяСтрокаТЧ.Номенклатура = Справочники.Номенклатура_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,30));

РандКоличество = Рандом.СлучайноеЧисло(1,100);
НоваяСтрокаТЧ.Количество = РандКоличество;

РандЦена = Рандом.СлучайноеЧисло(50,50000);
НоваяСтрокаТЧ.Цена = Рандом.СлучайноеЧисло(50,50000);
НоваяСтрокаТЧ.Сумма = РандКоличество * РандЦена;

НовыйДокумент.СуммаДокумента = НовыйДокумент.Товары.Итог("Сумма");

НовыйТовар = НовыйТовар + 1;
КонецЦикла;
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
КонецЦикла;

КонецФункции

&НаКлиенте
Процедура КомандаЗаполнитьДокументПоступлениеТоваров(Команда)
СгенерироватьДокументПоступлениеТоваров();
КонецПроцедуры

Функция СгенерироватьДокументПоступлениеТоваров()
Рандом = Новый ГенераторСлучайныхЧисел();
НовыйДокумент = Документы.ПоступлениеТоваров_1552_Шенгелия.СоздатьДокумент();

СлучКод = Рандом.СлучайноеЧисло(1, 30);
НовыйДокумент.Дата = Дата(Рандом.СлучайноеЧисло(2016, 2018), Рандом.СлучайноеЧисло(1,12), Рандом.СлучайноеЧисло(1, 28));

Контрагент = Справочники.Контрагенты_1552_Шенгелия.НайтиПоКоду("0000000" + СлучКод);
НовыйДокумент.Контрагент = Контрагент;

ВыборкаКонтактноеЛицо = Справочники.КонтактныеЛица_1552_Шенгелия.Выбрать(,Контрагент);
Пока ВыборкаКонтактноеЛицо.Следующий() Цикл
КонтактноеЛицо = ВыборкаКонтактноеЛицо.ПолучитьОбъект();
КонецЦикла;

НовыйДокумент.КонтактноеЛицо = КонтактноеЛицо.Ссылка;

НовыйДокумент.Сотрудник = Справочники.Сотрудники_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(3,9));
НовыйДокумент.Склад = Справочники.Склады_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(1,2));

Для НовыйТовар = 0 по Рандом.СлучайноеЧисло(1,10) Цикл

НоваяСтрокаТЧ = НовыйДокумент.Товары.Добавить();
НоваяСтрокаТЧ.Номенклатура = Справочники.Номенклатура_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,30));

РандКоличество = Рандом.СлучайноеЧисло(1,100);
НоваяСтрокаТЧ.Количество = РандКоличество;

РандЦена = Рандом.СлучайноеЧисло(50,50000);
НоваяСтрокаТЧ.Цена = Рандом.СлучайноеЧисло(50,50000);
НоваяСтрокаТЧ.Сумма = РандКоличество * РандЦена;

НовыйДокумент.СуммаДокумента = НовыйДокумент.Товары.Итог("Сумма");

НовыйТовар = НовыйТовар + 1;
КонецЦикла;
Попытка
НачатьТранзакцию();
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
КонецПопытки
КонецФункции

&НаКлиенте
Процедура КомандаФормированияБригадыИЗаявки(Команда)
СгенерироватьФормированияБригадыИЗаявки();
КонецПроцедуры

Функция СгенерироватьФормированияБригадыИЗаявки()
Рандом = Новый ГенераторСлучайныхЧисел();
НоваяЗаявкаНаТранспорт = Документы.ЗаявкаНаТранспорт_1552_Шенгелия.СоздатьДокумент();
НоваяБригада = Документы.ФормированиеБригады_1552_Шенгелия.СоздатьДокумент();

СлучКод = Рандом.СлучайноеЧисло(10, 30);
НоваяЗаявкаНаТранспорт.Дата = ТекущаяДата() + Рандом.СлучайноеЧисло(1, 100) * 24 * 60 * 60;

// Документ основание
Запрос = Новый Запрос;

Запрос.Текст =
"ВЫБРАТЬ
| ПродажаТоваров_1552_Шенгелия.Ссылка КАК Ссылка,
| ПродажаТоваров_1552_Шенгелия.СуммаДокумента КАК СуммаДокумента,
| ПродажаТоваров_1552_Шенгелия.Контрагент КАК Покупатель,
| ПродажаТоваров_1552_Шенгелия.КонтактноеЛицо КАК КонтактноеЛицо
|ИЗ
| Документ.ПродажаТоваров_1552_Шенгелия КАК ПродажаТоваров_1552_Шенгелия
|ГДЕ
| ПродажаТоваров_1552_Шенгелия.СуммаДокумента >= &СуммаДокумента";

Запрос.УстановитьПараметр("СуммаДокумента", Число(1000));
РезультатЗапроса = Запрос.Выполнить();
ТЗ = РезультатЗапроса.Выгрузить();


НоваяЗаявкаНаТранспорт.Состояние = Перечисления.СостоянияБригады_1552_Шенгелия.Получить(Рандом.СлучайноеЧисло(0,4));

// Информация о магазине
НоваяЗаявкаНаТранспорт.Покупатель = Справочники.Контрагенты_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(3,9));

// Транспорт
ТранспортноеСредство = Справочники.ТранспортныеСредства_1552_Шенгелия.НайтиПоКоду("00000000" + СлучКод);
ДатаИВремяДоставки = Дата(2018, Рандом.СлучайноеЧисло(5,12), Рандом.СлучайноеЧисло(1, 28), Рандом.СлучайноеЧисло(10, 20), 0, 0);
// Формирование бригады на этот день
НоваяБригада.Дата = ДатаИВремяДоставки;
НоваяБригада.ТранспортноеСредство = ТранспортноеСредство;
НоваяБригада.ЗначениеСпидометра = Рандом.СлучайноеЧисло(0,500);

НоваяБригада.Водитель = Справочники.Водители_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,30));
НоваяБригада.Грузчик1 = Справочники.Грузчики_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,30));
НоваяБригада.Грузчик2 = Справочники.Грузчики_1552_Шенгелия.НайтиПоКоду("0000000" + Рандом.СлучайноеЧисло(10,30));
НоваяБригада.ДопускОтВрача = Истина;
НоваяБригада.ПрохождениеИнструктажа = Истина;

// *********************************** //
НоваяЗаявкаНаТранспорт.Транспорт = ТранспортноеСредство;
КонтактноеЛицо = Справочники.КонтактныеЛица_1552_Шенгелия.НайтиПоКоду("00000000" + Рандом.СлучайноеЧисло(3,9));
НоваяЗаявкаНаТранспорт.КонтактноеЛицо = КонтактноеЛицо;


// Детали доставки
НоваяЗаявкаНаТранспорт.ДатаИВремяДоставки = ДатаИВремяДоставки;
НоваяЗаявкаНаТранспорт.Километраж = Рандом.СлучайноеЧисло(10,150);
Попытка
НачатьТранзакцию();
НоваяБригада.Записать(РежимЗаписиДокумента.Проведение);

НоваяЗаявкаНаТранспорт.Записать(РежимЗаписиДокумента.Проведение);
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
КонецПопытки

КонецФункции