Загрузка данных

&НаСервере
Процедура СоздатьМатериал(Наименование, ЕдиницаИзмерения, ЦенаЗакупки, МинимальныйОстаток, Описание)

	Ссылка = Справочники.Материалы.НайтиПоНаименованию(Наименование);

	Если Ссылка.Пустая() Тогда
		Объект = Справочники.Материалы.СоздатьЭлемент();
		Объект.Наименование = Наименование;
		Объект.ЕдиницаИзмерения = ЕдиницаИзмерения;
		Объект.ЦенаЗакупки = ЦенаЗакупки;
		Объект.МинимальныйОстаток = МинимальныйОстаток;
		Объект.Описание = Описание;
		Объект.Записать();
	КонецЕсли;

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


&НаСервере
Процедура СоздатьКлиента(Наименование, Телефон, Email)

	Ссылка = Справочники.Клиенты.НайтиПоНаименованию(Наименование);

	Если Ссылка.Пустая() Тогда
		Объект = Справочники.Клиенты.СоздатьЭлемент();
		Объект.Наименование = Наименование;
		Объект.Телефон = Телефон;
		Объект.Email = Email;
		Объект.Записать();
	КонецЕсли;

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


&НаСервере
Процедура СоздатьДолжность(Наименование, Оклад, ПроцентПремии)

	Ссылка = Справочники.Должности.НайтиПоНаименованию(Наименование);

	Если Ссылка.Пустая() Тогда
		Объект = Справочники.Должности.СоздатьЭлемент();
		Объект.Наименование = Наименование;
		Объект.Оклад = Оклад;
		Объект.ПроцентПремии = ПроцентПремии;
		Объект.Записать();
	КонецЕсли;

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


&НаСервере
Процедура СоздатьУслугу(Наименование, Категория, Цена, ДлительностьМинут, ТребуетсяМатериал, Описание)

	Ссылка = Справочники.Услуги.НайтиПоНаименованию(Наименование);

	Если Ссылка.Пустая() Тогда
		Объект = Справочники.Услуги.СоздатьЭлемент();
		Объект.Наименование = Наименование;
		Объект.Категория = Категория;
		Объект.Цена = Цена;
		Объект.ДлительностьМинут = ДлительностьМинут;
		Объект.ТребуетсяМатериал = ТребуетсяМатериал;
		Объект.Описание = Описание;
		Объект.Записать();
	КонецЕсли;

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


&НаСервере
Процедура СоздатьПарик(Наименование, ТипПарика, Цвет, Длина, Размер, Себестоимость, ЦенаПродажи, Описание)

	Ссылка = Справочники.Парики.НайтиПоНаименованию(Наименование);

	Если Ссылка.Пустая() Тогда
		Объект = Справочники.Парики.СоздатьЭлемент();
		Объект.Наименование = Наименование;
		Объект.ТипПарика = ТипПарика;
		Объект.Цвет = Цвет;
		Объект.Длина = Длина;
		Объект.Размер = Размер;
		Объект.Себестоимость = Себестоимость;
		Объект.ЦенаПродажи = ЦенаПродажи;
		Объект.Описание = Описание;
		Объект.Записать();
	КонецЕсли;

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