НДС

Функция ПолучитьКвотуИзДанныхОнлайнПоиска(данные, ключСвязи)
	докСсылка = Документы.МГ_Квоты.ПолучитьСсылку(данные.UID);
	Если ЗначениеЗаполнено(докСсылка.Номер) Тогда
		Возврат докСсылка;
	КонецЕсли;
	
	текПроизводитель 	= РегистрыСведений.ПЭК_ПроизводителиИПоставщикиСервисовAPI.ПолучитьПроизводителя(данные.Производитель);
	текПоставщик 		= РегистрыСведений.ПЭК_ПроизводителиИПоставщикиСервисовAPI.ПолучитьПоставщика(данные.СервисAPI, данные.Поставщик);
	
	запрос = Новый Запрос;
	запрос.Текст = 
		"ВЫБРАТЬ ПЕРВЫЕ 1
		|	МГ_Квоты.Ссылка
		|ИЗ
		|	Документ.МГ_Квоты КАК МГ_Квоты
		|ГДЕ
		|	МГ_Квоты.Наименование = &Наименование
		|	И МГ_Квоты.Поставщик = &Поставщик
		|	И МГ_Квоты.Производитель = &Производитель
		|	И МГ_Квоты.MOQ = &MOQ
		|	И МГ_Квоты.MPQ = &MPQ
		|	И МГ_Квоты.Цена = &Цена
		|	И МГ_Квоты.Количество = &Количество
		|	И МГ_Квоты.ПолученаОнлайн = ИСТИНА
		|	И МГ_Квоты.Проведен = ИСТИНА";
	
	запрос.УстановитьПараметр("MOQ", 				данные.МинКоличествоЗаказа);
	запрос.УстановитьПараметр("MPQ", 				данные.МинКоличествоПартии);
	запрос.УстановитьПараметр("Количество", 		данные.ДоступноДляЗаказа);
	запрос.УстановитьПараметр("Наименование", 		данные.ПартномерПроизводителя);
	запрос.УстановитьПараметр("Поставщик", 			текПоставщик);
	запрос.УстановитьПараметр("Производитель", 		текПроизводитель);
	запрос.УстановитьПараметр("Цена", 				данные.Цена);
	
	результатЗапроса = запрос.Выполнить().Выбрать();
	Если результатЗапроса.Следующий() Тогда
		Возврат результатЗапроса.Ссылка;
	КонецЕсли;	
	
	докОбъект = Документы.МГ_Квоты.СоздатьДокумент();
	докОбъект.УстановитьСсылкуНового(докСсылка);
	докОбъект.КлючСвязиЗаявки					= ключСвязи;
	докОбъект.Дата 								= ТекущаяДата();
	докОбъект.Наименование 						= данные.ПартномерПроизводителя;
	докОбъект.Производитель						= текПроизводитель;
	докОбъект.Номенклатура						= ПолучитьНоменклатуруПоПартномеруИПроизводителю(данные.ПартномерПроизводителя, докОбъект.Производитель);
	докОбъект.НаименованиеПолное				= ?(ЗначениеЗаполнено(докОбъект.Номенклатура), докОбъект.Номенклатура.НаименованиеПолное, данные.ПартномерПроизводителя);
	докОбъект.Автор								= ПараметрыСеанса.ТекущийПользователь;
	докОбъект.Валюта 							= данные.Валюта;
	докОбъект.ДатаВвода 						= ТекущаяДата();
	докОбъект.MOQ								= данные.МинКоличествоЗаказа;
	докОбъект.MPQ								= данные.МинКоличествоПартии;
	докОбъект.Количество 						= данные.ДоступноДляЗаказа;
	// МАКРО ППН+ 12.01.2018
	// рудимент
	//докОбъект.ГарантированныйЗапас 				= данные.ДоступноДляЗаказа;
	// МАКРО ППН- 12.01.2018
	докОбъект.Поставщик							= текПоставщик;
	докОбъект.СрокДействия						= НачалоДня(ТекущаяДата()) + 86400 * докОбъект.Поставщик.МГ_СрокДействияКвоты;
	докОбъект.Цена								= данные.Цена;
	//докОбъект.МаксимальныйСрокПоставкиВДнях 	= данные.СрокПоставки;
	//докОбъект.МаксимальныйСрокПоставкиВНеделях 	= Цел((данные.СрокПоставки + 7 - 1) / 7);
	// МАКРО ППН+ 12.01.2018
	// в случае, если есть на складе, поставка не учитывается
	докОбъект.СрокПоставки						= ?(ЗначениеЗаполнено(данные.ДоступноДляЗаказа),
														"stk",
														?(ЗначениеЗаполнено(докОбъект.МаксимальныйСрокПоставкиВНеделях), 
															Строка(докОбъект.МаксимальныйСрокПоставкиВНеделях) + " week", 
															""));
	// МАКРО ППН- 12.01.2018
	докОбъект.Комментарий						= "Создан при импорте квот из сервиса онлайн поиска (" + Строка(данные.СервисAPI) + ").";
	докОбъект.ПолученаОнлайн 					= Истина;
	
	докОбъект.Записать(РежимЗаписиДокумента.Проведение);
	
	Сообщить("Создана квота. " + Строка(докОбъект.Ссылка));
	
	Возврат докОбъект.Ссылка;
КонецФункции