Процедура КоманднаяПанель1ВыгрузитьНаСайт(Кнопка)
	
	//Выгружается фоновым заданием на серваке
	ПараметрыФоновогоЗадания = Новый Массив;
	ПараметрыФоновогоЗадания.Добавить(Группа); //Группа номенклатуры
	ФоновыеЗадания.Выполнить("МодульРегламентныхЗаданий.ВыгрузкаПрайсаНАФТП",
				ПараметрыФоновогоЗадания, Новый УникальныйИдентификатор, 
				"Выгрузка прайса на сайт"); 	
	ПоказатьОповещениеПользователя("Выгрузка прайса на сайт", ,"Запущено задание выгрузки прайса на сайт, проверьте данные на сайте через 2-3 минуты...", БиблиотекаКартинок.Информация32);
   

 Процедура ВыгрузкаПрайсаНАФТП(Группа) Экспорт   	
	Запрос = Новый Запрос();
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ПрайсЛист1СрезПоследних.НоменклатураПрайса,
	|	ПрайсЛист1СрезПоследних.Цена
	|ИЗ
	|	РегистрСведений.ПрайсЛист.СрезПоследних(, Поставщик = ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)) КАК ПрайсЛист1СрезПоследних
	|ГДЕ
	|	&Условие
	|	И ПрайсЛист1СрезПоследних.НоменклатураПрайса.ИДдляСайта > 0";
	
	Если ЗначениеЗаполнено(Группа) Тогда
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ПрайсЛист1СрезПоследних.НоменклатураПрайса В ИЕРАРХИИ(&НоменклатураПрайса)")
	Иначе
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ИСТИНА")
	КонецЕсли;	
	Запрос.УстановитьПараметр("НоменклатураПрайса", Группа);
	Выборка = Запрос.Выполнить().Выбрать();	
	Текст = Новый ТекстовыйДокумент; 	
	Пока Выборка.Следующий() Цикл
		НомПрайса = Выборка.НоменклатураПрайса;
		ЦенаА = Выборка.Цена;
		Цена = Ценообразование.ОкруглитьЦену(ЦенаА * ( 1 + НомПрайса.Наценка20 / 100) + НомПрайса.Надбавка20, НомПрайса.ПорядокОкругления, НомПрайса.ОкруглятьВБольшуюСторону); 		
		Если Цена > 0 Тогда
			Текст.ДобавитьСтроку(""+Формат(НомПрайса.ИДдляСайта, "ЧГ=0")+";"+Формат(Цена, "ЧГ=0"));
		КонецЕсли;
	КонецЦикла;
	
	// запись в текстовый файл
	ПутьКФайлВыгр = "\\FG-1\1c_data\naSite\vigruz.csv";//"D:\!!!For1C!!!\naSite\vigruz.csv";
	Текст.Записать(ПутьКФайлВыгр, "windows-1251");
	КаталогНаSFTPСервере = "/sitetest.ru/public_html/p";	
	Попытка
		ИмяПользователя = "serveruser";
		ПарольПользователя = "password";
		Сервер = "192.253.6.47";
		Порт = "21";  		
		Прокси = Новый ИнтернетПрокси();
		Прокси.Пользователь = ИмяПользователя;
		Прокси.Пароль = ПарольПользователя;
		
		FTPСоединение = Новый FTPСоединение(Сервер,,ИмяПользователя,ПарольПользователя,,Ложь);
		FTPСоединение.УстановитьТекущийКаталог(КаталогНаSFTPСервере);
		//FTPСоединение.ПассивныйРежим(Ложь);
		ТекущийКаталог = FTPСоединение.ТекущийКаталог();
	Исключение
	КонецПопытки;
	FTPСоединение.Записать(ПутьКФайлВыгр,"vigruz.csv"); 
	
	//Вызов PHP скрипта для иморта данных из csv файла на сайт
	НТТР = Новый HTTPСоединение("sitetest.ru");
	ФайлРезультата = ПолучитьИмяВременногоФайла();
	НТТР.Получить("/p/import_price.php", ФайлРезультата);

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

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

 &НаСервере
Процедура ПолучитьФоновыеЗаданияНаСервере()

	ПараметрыОтбора = Новый Структура("Наименование", "Тестовое задание");	
	СписокФоновыхЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ПараметрыОтбора);
	
	Для каждого Задание Из СписокФоновыхЗаданий Цикл
		Сообщить(Задание.Наименование);
	КонецЦикла;

КонецПроцедуры // ПолучитьФоновыеЗаданияНаСервере()   

 Число=1.1;
ЧислоОкр=Окр(Число + 0.5, 0, РежимОкругления.Окр15как10);
   

  //Если делитель равен нулю, возвращает ноль

//Есть возможность округления результата

Функция БезопасноеДеление(А, Б, Окр=Неопределено) Экспорт

	Рез=?(Б=0,0,А/Б);

	Если Окр<>Неопределено Тогда

		Рез=Окр(Рез, Окр);

	КонецЕсли;

	Возврат Рез;

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

 

// Функция выполняет пропорциональное распределение суммы в соответствии с заданными коэффициентами распределения

//

// Параметры:

//		ИсхСумма - распределяемая сумма

//		МассивКоэф - массив коэффициентов распределения

//		Точность - точность округления при распределении. Необязателен.

//

//	Возврат:

//		МассивСумм - массив размерностью равный массиву коэффициентов, содержит

//			суммы в соответствии с весом коэффициента (из массива коэффициентов)

//          В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0,

//          или суммарный вес коэф. = 0), тогда возвращается значение Неопределено

//

Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2) Экспорт

	

	Если МассивКоэф.Количество() = 0 Или ИсхСумма = 0 Или ИсхСумма = Null Тогда

		Возврат Неопределено;

	КонецЕсли;

	

	ИндексМакс = 0;

	МаксЗнач   = 0;

	РаспрСумма = 0;

	СуммаКоэф  = 0;

	

	Для К = 0 По МассивКоэф.Количество() - 1 Цикл

		

		МодульЧисла = ?(МассивКоэф[К] > 0, МассивКоэф[К], - МассивКоэф[К]);

		

		Если МаксЗнач < МодульЧисла Тогда

			МаксЗнач = МодульЧисла;

			ИндексМакс = К;

		КонецЕсли;

		

		СуммаКоэф = СуммаКоэф + МассивКоэф[К];

		

	КонецЦикла;

	

	Если СуммаКоэф = 0 Тогда

		Возврат Неопределено;

	КонецЕсли;

	

	МассивСумм = Новый Массив(МассивКоэф.Количество());

	

	Для К = 0 По МассивКоэф.Количество() - 1 Цикл

		МассивСумм[К] = Окр(ИсхСумма * МассивКоэф[К] / СуммаКоэф, Точность, 1);

		РаспрСумма = РаспрСумма + МассивСумм[К];

	КонецЦикла;

	

	// Погрешности округления отнесем на коэффиецент с максимальным весом

	Если Не РаспрСумма = ИсхСумма Тогда

		МассивСумм[ИндексМакс] = МассивСумм[ИндексМакс] + ИсхСумма - РаспрСумма;

	КонецЕсли;

	

	Возврат МассивСумм;

	

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