﻿// Фабрики
Функция ПолучитьЛюбойЭлементСправочника(ВидСправочника) Экспорт
	//Сообщить("!!!"+ВидСправочника+"!!!");
	Результат = Справочники[ВидСправочника].СоздатьЭлемент();
	Попытка
		Результат.Записать();
	Исключение
		Сообщить("!!!"+ВидСправочника+"!!!");
		ВызватьИсключение;
	КонецПопытки;
	Возврат Результат;
КонецФункции

Функция Валюта() Экспорт
	Результат = Справочники.Валюты.СоздатьЭлемент();
	Результат.УстановитьНовыйКод();
	Результат.Записать();
	Возврат Результат.Ссылка;
КонецФункции

Функция БанковскийСчетВал() Экспорт
	БС = Справочники.БанковскиеСчета.СоздатьЭлемент();
	БС.ВидСчета = "Расчетный"; // тип реквизита - строка, но там предопределенные значения. TODO - тестировать от формы.
	БС.ВалютаДенежныхСредств = Я_Тест_Фабрика.Валюта();
	БС.Владелец = ПолучитьЛюбойЭлементСправочника("Контрагенты").Ссылка;
	БС.Записать();
	Возврат БС;
КонецФункции
Функция БанковскийСчетРуб() Экспорт
	БС = Справочники.БанковскиеСчета.СоздатьЭлемент();
	БС.ВидСчета = "Расчетный"; // тип реквизита - строка, но там предопределенные значения. TODO - тестировать от формы.
	БС.ВалютаДенежныхСредств = Константы.ВалютаРегламентированногоУчета.Получить();
	БС.Банк = ПолучитьЛюбойЭлементСправочника("Банки").Ссылка;
	БС.НомерСчета = "40702810300001003838";
	БС.Владелец = ПолучитьЛюбойЭлементСправочника("Контрагенты").Ссылка;
	БС.Записать();
	Возврат БС;
КонецФункции

Функция ДоговорКонтрагента() Экспорт
	Результат = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
	Результат.Владелец = ПолучитьЛюбойЭлементСправочника("Контрагенты").Ссылка;
	Результат.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить();
	Результат.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
	Результат.Организация = ПолучитьЛюбойЭлементСправочника("Организации").Ссылка;
	Результат.Записать();
	
	Возврат Результат;
КонецФункции
