Процедура КоманднаяПанель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", ФайлРезультата);



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

 &НаКлиенте

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

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

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

 &НаСервере

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



	ПараметрыОтбора = Новый Структура("Наименование", "Тестовое задание");	

	СписокФоновыхЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ПараметрыОтбора);

	

	Для каждого Задание Из СписокФоновыхЗаданий Цикл

		Сообщить(Задание.Наименование);

	КонецЦикла;



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

  // соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

// для подключения к серверу используется прокси

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);      

  // Укажем настройки прокси-сервера

    ПроксиСервер = Новый ИнтернетПрокси;

    ПроксиСервер.Пользователь = "userfile";

    ПроксиСервер.Пароль = "12345";

    ПроксиСервер.Установить("http", "10.1.1.23", "3185");



    СерверИсточник = "shop.com"; 

    Адрес = "/price.asp"; 

    ИмяВходящегоФайла = "c:\temp\input.html";

    // Укажем в HTTP соединении что у нас есть проксик  

    НТТР = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер); 

    НТТР.Получить(Адрес, ИмяВходящегоФайла); 

    ВходящийФайл = Новый Файл(ИмяВходящегоФайла);    

 //Создаем Файл для отправки

ИмяФайлаHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;

ФайлHTML = Новый ЗаписьТекста(ИмяФайлаHTML, КодировкаТекста.ANSI);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr”);

ФайлHTML.ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);

ФайлHTML.ЗаписатьСтроку(”Content-Type: text/html”);

ФайлHTML.ЗаписатьСтроку(”");

ФайлHTML.ЗаписатьСтроку(”Дальше вставляем html код.”);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr–”);

ФайлHTML.Закрыть();





// Если необходимо использовать прокси

ПроксиСервер = Новый ИнтернетПрокси();

ПроксиСервер.Сервер(”адрес прокси”);

ПроксиСервер.Порт(”порт прокси”);

ПроксиСервер.Пользователь = “пользователь прокси”;

ПроксиСервер.Пароль = “пароль прокси”;





// Формируем заголовок для запроса

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить(”Content-Type”, “multipart/form-data; boundary=My1cV8bNdr”);





// Устанавливаем соединение и отпровляем запрос

HTTP = Новый HTTPСоединение(”сервер куда соединяемся”, , , , ПроксиСервер);

HTTP.ОтправитьДляОбработки(ИмяФайлаHTML, “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP);

HTTP = Неопределено;   

 Новый HTTPСоединение(<Сервер>, <Порт>, <ИмяПользователя>, <Пароль>, <Прокси>, <ЗащищенноеСоединение>)   

 // соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

// для подключения к серверу используется прокси

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);   

 Получить(<Источник>, <ИмяВыходногоФайла>, <Заголовки>)   

 // необходимо выполнить запрос по адресу

// https://www.mysite.com/getUsers.php?owner_id=263544&count=100

// ответ от сервера приходит в виде XML файла

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml");

 

Соединение = Новый HTTPСоединение("www.mysite.com",,,,, Истина);

Соединение.Получить("getUsers.php?owner_id=263544&count=100", имяВыходногоФайла);

 

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

ЧтениеXML.Закрыть();

 

// удаляем файл после использования

УдалитьФайлы(имяВыходногоФайла);   

 источник = "owner=263544&count=100";

 

// Передача заголовков строкой

ЗаголовкиHTTP = "Content-Type:text/html;charset=utf-8" + Символ.ВК + Символ.ПС +

            "Content-Length: "+СтрДлина(источник);

Соединение.Получить("", имяВыходногоФайла, ЗаголовкиHTTP);

 

// Вставить символы ВК+ПС можно и таким способом

ЗаголовкиHTTP = "Content-Type:text/html;charset=utf-8

            |Content-Length: 1348";

Соединение.Получить("", имяВыходногоФайла, ЗаголовкиHTTP);

 

// Установка заголовков типом Соответствие

ЗаголовкиHTTP = Новый Соответствие;

ЗаголовкиHTTP.Вставить("Content-Type", "text/html;charset=utf-8");

ЗаголовкиHTTP.Вставить("Content-Length", СтрДлина(источник));

 

Соединение.Получить(источник, имяВыходногоФайла, ЗаголовкиHTTP);   

 ОтправитьДляОбработки(<Источник>, <АдресРесурса>, <ИмяВыходногоФайла>, <Заголовки>)    

 имяФайлаОтправки = "d:\data\request.txt"; // файл с отсылаемыми для обработки данными

 

// Определим размер файла-источника

// и установим HTTP заголовки

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml");

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addPost.php", имяВыходногоФайла, Заголовки);   

 // сформируем файл для отправки на сервер

 

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

ЗаписьТекста.Записать("owner=263544&count=100");

ЗаписьТекста.Закрыть();

 

// отправим файл на сервер для обработки

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml"); // наш сервер возвращает ответы в виде XML

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addPost.php", имяВыходногоФайла, Заголовки);

 

// удалим файл отправки - он больше не нужен

Попытка

    УдалитьФайлы(имяФайлаОтправки);

Исключение

КонецПопытки;

 

// обработаем ответ сервера

 

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

ЧтениеXML.Закрыть();

 

// удаляем файл после использования

Попытка

    УдалитьФайлы(имяВыходногоФайла); 

Исключение

КонецПопытки;   

 // подготовим файл с данными для отправки

имяФайлаОтправки = ПолучитьимяВременногоФайла("xml");

 

ОбъектXML = Новый ЗаписьXML;

ОбъектXML.ОткрытьФайл(имяФайлаОтправки, "UTF-8");

ОбъектXML.ЗаписатьОбъявлениеXML();

ОбъектXML.ЗаписатьБезОбработки(

"<request>

|    <user_id>" + user_id + "</user_id>

|    <post_id>" + post_id + "</post_id>

|    <message>" + ТекстКомментария + "</message>

|</request>");

ОбъектXML.Закрыть();

 

// отправим файл на сервер для обработки

 

имяВыходногоФайла = ПолучитьимяВременногоФайла("xml"); // наш сервер возвращает ответы в виде XML

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "text/html;charset=utf-8");

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "addComment.php", имяВыходногоФайла, Заголовки);

 

// удалим файл отправки - он больше не нужен

Попытка

    УдалитьФайлы(имяФайлаОтправки);

Исключение

КонецПопытки;

 

// обработаем ответ сервера

 

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.ОткрытьФайл(имяВыходногоФайла);

 

Пока ЧтениеXML.Прочитать() Цикл

    // чтение ответа в виде XML файла

    ...

КонецЦикла;

 

ЧтениеXML.Закрыть();

 

// удаляем файл после использования

Попытка

    УдалитьФайлы(имяВыходногоФайла); 

Исключение

КонецПопытки;   

 boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");   

 // подготовим файл с данными для отправки

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

 

// параметр "uid"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""uid""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(Пользователь);

 

// параметр "desc"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""desc""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(Описание);

 

// параметр "text"

ФайлДляПередачи = Новый ТекстовыйДокумент;

ФайлДляПередачи.Прочитать(имяФайла);

 

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""text""; filename=""stih.txt""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: text/plain");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.Записать(ФайлДляПередачи.ПолучитьТекст());

ЗаписьТекста.ЗаписатьСтроку("");

 

// закроем разделитель

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть();

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "postFile.php", имяВыходногоФайла, Заголовки);   

 // подготовим файл с данными для отправки

имяФайлаДанных = "d:\photo\birthday.jpg";

 

имяФайлаОтправки = ПолучитьимяВременногоФайла("txt");

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаОтправки);

 

// параметр "file"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file""; filename=""photo.jpg""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: image/jpeg");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.Записать(Base64Строка(Новый ДвоичныеДанные(имяФайлаДанных)));

ЗаписьТекста.ЗаписатьСтроку("");

 

// закроем разделитель

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть();

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "uploadFile.php", имяВыходногоФайла, Заголовки);   

 ОбъединитьФайлы(<ИменаЧастей>, <ИмяРезультирующегоФайла>)   

 // подготовим файлы с данными для отправки

 

массивФайлов = Новый Массив;

 

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

 

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt"); // первый файл, содержащий параметры

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

// параметр "user_id"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""user_id""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(user_id);

 

// параметр "post_id"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""post_id""");

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку(post_id);

 

// начало параметра "file1"

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file1""; filename=""archive1.zip""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: application/x-zip-compressed");

ЗаписьТекста.ЗаписатьСтроку("");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 1

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 1-ый файл для объединения

массивФайлов.Добавить(имяФайлаАрхива1); // добавляем 1-ый архив для объединения

 

// второй файл параметров, содержаший начало параметра "file2"

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

// начало параметра "file2"

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку("--"+boundary);

ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file2""; filename=""archive2.zip""");

ЗаписьТекста.ЗаписатьСтроку("Content-Type: application/x-zip-compressed");

ЗаписьТекста.ЗаписатьСтроку("");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 2

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 2-ой файл для объединения

массивФайлов.Добавить(имяФайлаАрхива2); // добавляем 2-ой архив для объединения

 

ЗаписьТекста.Записать(ФайлДляПередачи.ПолучитьТекст());

ЗаписьТекста.ЗаписатьСтроку("");

 

// третий файл, закрывающий параметры

имяФайлаСПараметрами = ПолучитьимяВременногоФайла("txt");

 

ЗаписьТекста = Новый ЗаписьТекста(имяФайлаСПараметрами);

 

ЗаписьТекста.ЗаписатьСтроку("");

ЗаписьТекста.ЗаписатьСтроку("--"+boundary+"--");

 

ЗаписьТекста.Закрыть(); // заканчиваем работу с файлом 3

 

массивФайлов.Добавить(имяФайлаСПараметрами); // добавляем 3-ий файл, закрывающий параметры

 

// результирующий файл, который и будет отправлен

имяФайлаОтправки = ПолучитимяВременногоФайла("out");

 

// объединим все файлы

ОбъединитьФайлы(массивФайлов, имяФайлаОтправки);

 

ФайлОтправки = Новый Файл(имяФайлаОтправки);

РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());

 

// передадим данные на сервер 

Заголовки = Новый Соответствие();

Заголовки.Вставить("Content-Type", "multipart/form-data, boundary="+boundary);

Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);

 

Соединение = Новый HTTPСоединение("www.mysite.com");

Соединение.ОтправитьДляОбработки(имяФайлОтправки, "postFile.php", имяВыходногоФайла, Заголовки);   

 //am+

Функция ПроверитьИзменитьПарольПользователя()



    ТекПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();

    Если Не ТекПользовательИБ.ПарольУстановлен Тогда

        ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

        ФВП.Заголовок = "Установите пароль на вход в 1С (не менее 6 симв.)";

        ФВП.ОткрытьМодально();

        Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

            Пароль1 = ФВП.Пароль;

            Если СтрДлина(Пароль1)<6 Тогда

                Предупреждение("Длина пароля должна быть не менее 6 символов!");

                Возврат Ложь;

            КонецЕсли;

            ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

            ФВП.Заголовок = "Повторите новый пароль";

            ФВП.ОткрытьМодально();

            Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

                Пароль2 = ФВП.Пароль;

                Если Пароль1<>Пароль2 Тогда

                    Предупреждение("Не совпадают пароли!");

                    Возврат Ложь;

                Иначе

                    ТекПользовательИБ.Пароль = Пароль1;

                    ТекПользовательИБ.Записать();

                    Возврат Истина;

                КонецЕсли;

            Иначе

                Возврат Ложь;

            КонецЕсли;

        Иначе

            Возврат Ложь;

        КонецЕсли;

    Иначе

        Возврат Истина;

    КонецЕсли;



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

//am-   

 //am+

Если Не ПроверитьИзменитьПарольПользователя() Тогда

    ЗавершитьРаботуСистемы(Ложь);

    Возврат;

КонецЕсли;

//am-   

 &НаСервере

Функция ВыгрузитьОбъект(ТекОбъект)  Экспорт

    РезультатВыгрузки = "";



    //проверим есть ли описание объекта в базе

    ФорматированныйДокумент = ТекОбъект.Описание.Получить();

    Если ФорматированныйДокумент = Неопределено Тогда

        РезультатВыгрузки = "   У данного объекта не определено описание. Выгрузка объекта остановлена";

        Возврат РезультатВыгрузки;

    КонецЕсли;



    //Определяем настройки подключения к фтп

    Сервер = ХранилищеНастроек.ФТПСервер;

    Порт = ХранилищеНастроек.ФТПпорт;

    ИмяПользователяФТП = ХранилищеНастроек.ФТПИмяПользователя;

    ПарольПользователяФТП = ХранилищеНастроек.ФТППароль;

    ТекущийКаталогFTP = ХранилищеНастроек.ФТПТекущийКаталог;



    ФТП = Новый FTPСоединение(Сервер,,ИмяПользователяФТП,ПарольПользователяФТП);



    Попытка

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP);

    Исключение

        РезультатВыгрузки = "Невозможно подключиться к фтп";

        Возврат РезультатВыгрузки;

    КонецПопытки;



    ИмяКаталогаОбъекта = Формат(ТекОбъект.Ссылка.Код, "ЧЦ=5; ЧВН=; ЧГ=");



    //Каталог для элемента

    Попытка

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта);

    Исключение

        ФТП.СоздатьКаталог(ИмяКаталогаОбъекта);

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта);

        РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Создан каталог " + ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта;

    КонецПопытки;



    //Чистка имеющихся элементов в каталоге элемента

    ФТП.Удалить(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта,"*.*");



    ТекстХТМЛ = "";

    СтруктураКартинок = Новый Структура;

    ФорматированныйДокумент.ПолучитьHTML(ТекстХТМЛ, СтруктураКартинок);



    //Выгрузка картинок и корректировка ХТМЛ

    Для Каждого ТекКартинка Из СтруктураКартинок Цикл

        ИмяТемпФайла = ПолучитьИмяВременногоФайла();

        ТекКартинка.Значение.Записать(ИмяТемпФайла);

        ФорматТекущейКартинки = Строка(ТекКартинка.Значение.Формат());

        Если Не ФорматТекущейКартинки = ФорматКартинки.НеизвестныйФормат Тогда

            ФорматТекущейКартинкиСтрока = Строка(ФорматТекущейКартинки);

            ТекстХТМЛ = СтрЗаменить(ТекстХТМЛ,ТекКартинка.Ключ,ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока);

            ФТП.Записать(ИмяТемпФайла, ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока);

            РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока;

        Иначе

            ФТП.Записать(ИмяТемпФайла, ТекКартинка.Ключ);

            РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ТекКартинка.Ключ;

        КонецЕсли;

    КонецЦикла;



    //ВыгрузкаХТМЛ

    ИмяТемпФайла = ПолучитьИмяВременногоФайла("html");

    ФайлHТМЛ = Новый ТекстовыйДокумент;

    ФайлHТМЛ.ДобавитьСтроку(ТекстХТМЛ);

    ФайлHТМЛ.Записать(ИмяТемпФайла);



    //Собственно запись хтмл

    ФТП.Записать(ИмяТемпФайла, ИмяКаталогаОбъекта + ".html");

    РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ИмяКаталогаОбъекта + ".html";



    Возврат РезультатВыгрузки;

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

 Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт

	МД = Новый Структура;



	Состояние("Подключение к " + КаталогИБ);



	V7 = Новый COMОбъект("V77.Application");

	Если V7.Initialize(V7.RMTrade, "/d"""+КаталогИБ+""" /n"+ИмяПользователяV7+" /p"+ПарольПользователяV7, "NO_SPASH_SHOW") = 0 Тогда

		Сообщить("Нет доступа к информационной базе.");

		Возврат Ложь;

	КонецЕсли;



	MDW = V7.CreateObject("MetaDataWork");



	MD = V7.Метаданные;



	Состояние("Загрузка справочников..");

	Ст1 = Новый Структура;

	МД.Вставить("Справочник", Ст1);

	Для Номер1 = 1 По MD.Справочник() Цикл

		МДСправочник = MD.Справочник(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДСправочник.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДСправочник));

		Для Номер2 = 1 По МДСправочник.Реквизит() Цикл

			МДРеквизит = МДСправочник.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка перечислений..");

	Ст1 = Новый Структура;

	МД.Вставить("Перечисление", Ст1);

	Для Номер1 = 1 По MD.Перечисление() Цикл

		МДПеречисление = MD.Перечисление(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДПеречисление.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДПеречисление));

		Для Номер2 = 1 По МДПеречисление.Значение() Цикл

			МДЗначение = МДПеречисление.Значение(Номер2);

			Ст2.Вставить(МДЗначение.Идентификатор, V7.EvalExpr("_idtostr("+MDW.ИДОбъекта(МДЗначение)+")")+"   ");

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка документов..");

	Ст1 = Новый Структура;

	МД.Вставить("Документ", Ст1);

	Для Номер1 = 1 По MD.Документ() Цикл

		МДДокумент = MD.Документ(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДДокумент.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДДокумент));

		Для Номер2 = 1 По МДДокумент.РеквизитШапки() Цикл

			МДРеквизит = МДДокумент.РеквизитШапки(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

		Для Номер2 = 1 По МДДокумент.РеквизитТабличнойЧасти() Цикл

			МДРеквизит = МДДокумент.РеквизитТабличнойЧасти(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка регистров..");

	Ст1 = Новый Структура;

	МД.Вставить("Регистр", Ст1);

	Для Номер1 = 1 По MD.Регистр() Цикл

		МДРегистр = MD.Регистр(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДРегистр.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДРегистр));

		Для Номер2 = 1 По МДРегистр.Измерение() Цикл

			МДИзмерение = МДРегистр.Измерение(Номер2);

			Ст2.Вставить(МДИзмерение.Идентификатор, MDW.ИДОбъекта(МДИзмерение));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Ресурс() Цикл

			МДРесурс = МДРегистр.Ресурс(Номер2);

			Ст2.Вставить(МДРесурс.Идентификатор, MDW.ИДОбъекта(МДРесурс));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Реквизит() Цикл

			МДРеквизит = МДРегистр.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Константы.МетаданныеУдаленнойИБ.Установить(Новый ХранилищеЗначения(МД));

	Возврат Истина;

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