// Возвращает содержимое ответа HTTP-сервера, полученного методом GET, в виде строки или двоичных данных


// ** Coded by Sergey (aka Porutchik) * 2014 http://forum.aeroion.ru/cat1.html //


// Параметры


//  СерверПриемник -  - доменное имя сервера или полный адрес (url) запрашиваемой ссылки.


//                        Может включать протокол (http://, https://) и порт.


//  АдресСтраницы -  - опционально. Адрес страницы на сервере без протокола (http://, https://),


//                        доменного имени сервера (хоста) и порта.


//                Если не указано, адрес страницы будет извлечён из параметра СерверПриемник


//  ПараметрыСоединения -  - опционально. Структура, содержащая дополнительные параметры для HTTPСоединение.


//                Назначение ключей:


//                Логин или Пользователь - Тип Строка - Имя пользователя на указанном сервере.


//                Пароль - Тип Строка - Пароль пользователя на указанном сервере.


//                Прокси - Тип ИнтернетПрокси - Прокси, используемый для соединения с сервером.


//                Таймаут - Тип Число - Таймаут осуществляемого соединения и операций, в секундах. 0 - не устанавливать таймаут..


//  ЗаголовкиHTTP  -  - опционально.


//                Заголовки, которые будут отправлены на сервер в виде соответствия: "Заголовок" - "Значение".


//                Если указано, функция возвратит в программу заголовки HTTP-ответа с кодом состояния в ключе StatusCode,


//                имя файла в ключе FileName, url-кодированное имя в ключе EncodeFileName


//  ПолучитьКакДвоичныеДанные -  - опционально. Определяет, в каком виде получить содержимое ответа сервера


//                            По умолчанию Ложь.


//  ЗащищенноеСоединение -  - опционально. По умолчанию Ложь.


//                            Если Истина, соединение будет происходить по протоколу https://


//


// Возвращаемое значение:


//   ,  - содержимое ответа сервера, если ресурс найден по указанному адресу.


//


Функция ПолучитьСодержимоеВебАдреса(Знач СерверПриемник, Знач АдресСтраницы = "",


                Знач ПараметрыСоединения = Неопределено, ЗаголовкиHTTP = Неопределено,


                Знач ПолучитьКакДвоичныеДанные = Ложь, Знач ЗащищенноеСоединение = Ложь) Экспорт


    Перем ИмяФайлаОтветаКодированное, ИмяФайлаОтвета, Порт, Логин, Пользователь, Пароль, Прокси, Таймаут;





    Если Не ЗначениеЗаполнено(СерверПриемник) Тогда Возврат Неопределено; КонецЕсли;


    Если ТипЗнч(ЗаголовкиHTTP)  Тип("Соответствие") Тогда ЗаголовкиHTTP = Новый Соответствие; КонецЕсли;


    Если Найти(Нрег(СерверПриемник), "https://") = 1 Тогда ЗащищенноеСоединение = Истина; КонецЕсли;





    Протокол = ?(Найти(Нрег(СерверПриемник), "https://") = 1 ИЛИ ЗащищенноеСоединение, "https://", "http://");


    Если Лев(НРег(СерверПриемник), СтрДлина(Протокол)) = Протокол Тогда


        СерверПриемник = Сред(СерверПриемник, СтрДлина(Протокол) + 1);


    КонецЕсли;





    Если НЕ ЗначениеЗаполнено(АдресСтраницы) Тогда


        Позиция = Найти(СерверПриемник, "/");


        Если Позиция > 0 Тогда


            АдресСтраницы = Сред(СерверПриемник, Позиция, СтрДлина(СерверПриемник));


            СерверПриемник = Лев(СерверПриемник, Позиция - 1);


        Иначе


            АдресСтраницы = "/";


        КонецЕсли;


    КонецЕсли;





    СерверПриемник = СтрЗаменить(СерверПриемник, "/", "");





    //Выделяем порт из доменного имени


    ПозицияДвоеточия = Найти(СерверПриемник, ":");


    Если ПозицияДвоеточия > 0 Тогда


        Порт = Число(Сред(СерверПриемник, ПозицияДвоеточия + 1));


        СерверПриемник = Лев(СерверПриемник, ПозицияДвоеточия - 1);


    КонецЕсли;





    Если ТипЗнч(ПараметрыСоединения) = Тип("Структура") Тогда


        Для каждого КлючЗначение из ПараметрыСоединения Цикл


            Значение = КлючЗначение.Значение; Выполнить(КлючЗначение.Ключ + " = Значение;");


        КонецЦикла;


        Пользователь = ?(ЗначениеЗаполнено(Пользователь), Пользователь, Логин);


    КонецЕсли;


    НТТР = Новый HTTPСоединение(СерверПриемник, Порт, Пользователь, Пароль, Прокси, Таймаут,


                        ?(ЗащищенноеСоединение, Новый ЗащищенноеСоединениеOpenSSL(), Неопределено));





    //Ответ от сервера получим в возвращаемом значении типа HTTPОтвет


    ОтветHTTP = НТТР.Получить(Новый HTTPЗапрос(АдресСтраницы, ЗаголовкиHTTP)); //


    ОшибкаЗапроса = (ОтветHTTP.КодСостояния >= 400);





    //После получения ответа сервера необходимо проверить статус или код состояния.


    //http://www.w3.org/Protocols/rfc2616/rfc2616-sec10....     //Если сервер вернул один из статусов переадресации


    //301 Moved Permanently («перемещено навсегда») или 302 Moved Temporarily («перемещено временно»),


    //то в этом случае можно попытаться перейти на ресурс, на который переадресовал сервер


    Если ОтветHTTP.КодСостояния = 301 или ОтветHTTP.КодСостояния = 302 Тогда





        Если ОтветHTTP.Заголовки.Количество() > 0 Тогда


            //Адрес страницы переадресации содержится в поле Location заголовка ответа


            АдресСтраницы = ОтветHTTP.Заголовки["Location"]; //


            Если ЗначениеЗаполнено(АдресСтраницы) Тогда


                Если Найти(НРег(АдресСтраницы), "http://") = 0 И Найти(НРег(АдресСтраницы), "https://") = 0 Тогда


                    АдресСтраницы = ?(Лев(АдресСтраницы, 1) = "/", Сред(АдресСтраницы, 2), АдресСтраницы);


                    Если Найти(АдресСтраницы, СерверПриемник + "/") = 0  Тогда


                        АдресСтраницы = Протокол + СерверПриемник + ?(ЗначениеЗаполнено(Порт), ":" + Порт, "") + "/" + АдресСтраницы;


                    КонецЕсли;


                КонецЕсли;





                //Если сервер вернул cookies (http://ru.wikipedia.org/wiki/HTTP_cookie, http://www.faqs.org/rfcs/rfc6265.html?#41;,                 //вставим их в заголовки для передачи на страницу перехода


                Куки = ОтветHTTP.Заголовки["Set-Cookie"];//


                Если ЗначениеЗаполнено(Куки) Тогда ЗаголовкиHTTP.Вставить("Cookie", Куки); КонецЕсли;





                //Рекурсивный вызов


                Возврат ПолучитьСодержимоеВебАдреса(АдресСтраницы, , , ЗаголовкиHTTP, ПолучитьКакДвоичныеДанные, ЗащищенноеСоединение);//





            КонецЕсли;


        КонецЕсли;





    ИначеЕсли ОтветHTTP.КодСостояния >= 100 И ОтветHTTP.КодСостояния  0 Тогда


            ТипСодержимого = ОтветHTTP.Заголовки["Content-Type"];


            //http://ru.wikipedia.org/wiki/Список_MIME-типов             Если Найти(ТипСодержимого, "text/") = 1 ИЛИ Найти(ТипСодержимого, "/javascript")


                ИЛИ Найти(ТипСодержимого, "+xml") ИЛИ Найти(ТипСодержимого, "/xml")  0 ИЛИ Найти(ТипСодержимого, "/json")  0 Тогда


                ПолучитьКакДвоичныеДанные = Ложь;


            ИначеЕсли Найти(ТипСодержимого, "image/") = 1 ИЛИ Найти(ТипСодержимого, "video/") = 1 


                ИЛИ Найти(ТипСодержимого, "application/") = 1 ИЛИ Найти(ТипСодержимого, "audio/") = 1 Тогда


                //Если содержимое полученного ответа представляет собой изображение, видео, приложение,


                //возвращаем двоичные данные, так как возвращать в виде строки не имеет смысла.


                ПолучитьКакДвоичныеДанные = Истина;


            КонецЕсли;


            //Некоторые сервера возвращают в типе содержимого имя отданного файла, например image/png; name="Имя файла.png"


            //или отдают в заголовке Content-Disposition: attachment; filename=Имя файла.png (http://www.http11.ru/post.php?post=2)             Если ОтветHTTP.Заголовки["Content-Disposition"]  Неопределено Тогда


                ТипСодержимого = ОтветHTTP.Заголовки["Content-Disposition"];


            КонецЕсли;


            ТипСодержимого = СтрЗаменить(СтрЗаменить(ТипСодержимого, """", ""), "'", "");





            //в ключе filename*=UTF-8'' содержится url-кодированное имя файла


            ПозицияИмениФайла = Найти(ТипСодержимого, "filename*=UTF-8");


            Если ПозицияИмениФайла  0 Тогда


                ИмяФайлаОтветаКодированное = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("filename*=UTF-8"));


                ПозицияДвоеточия = Найти(ИмяФайлаОтветаКодированное, ";");


                Если ПозицияДвоеточия  0 Тогда


                    ИмяФайлаОтветаКодированное = Лев(ИмяФайлаОтветаКодированное, ПозицияДвоеточия - 1);


                КонецЕсли;


            КонецЕсли;





            //в ключе filename= содержится обычное имя файла


            ПозицияИмениФайла = Найти(ТипСодержимого, "name=");


            Если ПозицияИмениФайла  0 Тогда


                ИмяФайлаОтвета = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("name="));


                ПозицияДвоеточия = Найти(ИмяФайлаОтвета, ";");


                Если ПозицияДвоеточия  0 Тогда


                    ИмяФайлаОтвета = Лев(ИмяФайлаОтвета, ПозицияДвоеточия - 1);


                КонецЕсли;


            КонецЕсли;


        КонецЕсли;


    КонецЕсли;





    ЗаголовкиHTTP = ОтветHTTP.Заголовки;


    //Добавляем в заголовки ответа код состояния (ответа) HTTP-сервера и имя файла содержимого, если есть.


    ЗаголовкиHTTP.Вставить("StatusCode", ОтветHTTP.КодСостояния);


    Если ЗначениеЗаполнено(ИмяФайлаОтвета) Тогда ЗаголовкиHTTP.Вставить("FileName", ИмяФайлаОтвета); КонецЕсли;


    Если ЗначениеЗаполнено(ИмяФайлаОтветаКодированное) Тогда


        ЗаголовкиHTTP.Вставить("EncodeFileName", ИмяФайлаОтветаКодированное);


    КонецЕсли;





    Если ОшибкаЗапроса ИЛИ НЕ ПолучитьКакДвоичныеДанные Тогда Возврат ОтветHTTP.ПолучитьТелоКакСтроку(); КонецЕсли;


    Возврат ОтветHTTP.ПолучитьТелоКакДвоичныеДанные();





КонецФункции // ПолучитьСодержимоеВебАдреса()











//Источник: http://forum.aeroion.ru/topic749.html[/pre]
Примеры использования:
// Получение содержимого в виде строки//


СодержимоеАдреса = ПолучитьСодержимоеВебАдреса("

//


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


ЗаголовкиHTTP.Вставить("Referer", "a href="http://some_site.com/" )"="">http://some_site.com/");


СодержимоеАдреса = ПолучитьСодержимоеВебАдреса("

Здравствуйте!

Прошу помощи.

Зарплата и управление персоналом, редакция 3.1 (3.1.16.108)

Столкнулся с такой ситуацией:

При расчете зарплаты за октябрь и ноябрь 2020 г., сумма начисления по некоторым сотрудниками регистр накопления "Учет доходов для исчисления страховых взносов" не совпадают. Пример во вложении.

Обнаружили при подготовке отчета за 2020г.

Если предположить, что в декабре программа сделает перерасчет за год, то нет. Мы и обнаружили, что сумма по году не совпадает. Потом я стал сравнивать по каждому сотруднику.

До октября цифры совпадают

Регистр "Начисления и удержания по сотрудникам" совпадает с расчетным листком.

Проверял с помощью «chdbfl.exe», тестировал из конфигуратора : реиндексация, проверка логической целостности, проверка ссылочной целостности, перерасчет итогов, сжатие таблиц, реструктуризация таблиц. Ошибка осталась

Отменил все начисления зарплаты после октября 2020, на текущей конфигурации, с помощью нового документы сделал начисление зарплаты. Результат тот же.

При нажатии на строку в регистре, открывает документ начисление зарплаты, где ни у кого нет такой суммы начисления.

В регистре "Учет доходов для исчисления страховых взносов" документ-основание "Начисление зарплаты и взносов" стоит на всех записях октября

Сравнивал конфигурацию рабочей базы с чистой конфигурацией. Они идентичны.

Выгрузка в «dt» и обратная загрузка в пустую конфигурацию не помогла.

У меня несколько клиентов, у всех все нормально.

Внешнего воздействия на базу не было, за исключением загрузки кадровых документов из «Контур персонал». Кадровичка не хочет работать с 1С. Следов в этом регистре тоже не обнаружил.

Не совпадают начисления почти все, за исключение созданных отдельным документом, доплаты и т.д.

Повторюсь, ошибки примерно у половины сотрудников из 350 чел

Пробовал отследить с отладчиком откуда берется дурное значение, запутался в модулях.

Я так глубоко давно не разбирался с конфигурацией.

Если кто то подскажет хотя бы примерно где копать, буду очень благодарен.

Спасибо.

Sravnenie_nachisleniy.pdf

Здравствуйте!

Прошу помощи.

Зарплата и управление персоналом, редакция 3.1 (3.1.16.108)

Столкнулся с такой ситуацией:

При расчете зарплаты за октябрь и ноябрь 2020 г., сумма начисления по некоторым сотрудниками регистр накопления "Учет доходов для исчисления страховых взносов" не совпадают. Пример во вложении.

Обнаружили при подготовке отчета за 2020г.

Если предположить, что в декабре программа сделает перерасчет за год, то нет. Мы и обнаружили, что сумма по году не совпадает. Потом я стал сравнивать по каждому сотруднику.

До октября цифры совпадают

Регистр "Начисления и удержания по сотрудникам" совпадает с расчетным листком.

Проверял с помощью «chdbfl.exe», тестировал из конфигуратора : реиндексация, проверка логической целостности, проверка ссылочной целостности, перерасчет итогов, сжатие таблиц, реструктуризация таблиц. Ошибка осталась

Отменил все начисления зарплаты после октября 2020, на текущей конфигурации, с помощью нового документы сделал начисление зарплаты. Результат тот же.

При нажатии на строку в регистре, открывает документ начисление зарплаты, где ни у кого нет такой суммы начисления.

В регистре "Учет доходов для исчисления страховых взносов" документ-основание "Начисление зарплаты и взносов" стоит на всех записях октября

Сравнивал конфигурацию рабочей базы с чистой конфигурацией. Они идентичны.

Выгрузка в «dt» и обратная загрузка в пустую конфигурацию не помогла.

У меня несколько клиентов, у всех все нормально.

Внешнего воздействия на базу не было, за исключением загрузки кадровых документов из «Контур персонал». Кадровичка не хочет работать с 1С. Следов в этом регистре тоже не обнаружил.

Не совпадают начисления почти все, за исключение созданных отдельным документом, доплаты и т.д.

Повторюсь, ошибки примерно у половины сотрудников из 350 чел

Пробовал отследить с отладчиком откуда берется дурное значение, запутался в модулях.

Я так глубоко давно не разбирался с конфигурацией.

Если кто то подскажет хотя бы примерно где копать, буду очень благодарен.

Спасибо.

Sravnenie_nachisleniy.pdf

Здравствуйте!

Прошу помощи.

Зарплата и управление персоналом, редакция 3.1 (3.1.16.108)

Столкнулся с такой ситуацией:

При расчете зарплаты за октябрь и ноябрь 2020 г., сумма начисления по некоторым сотрудниками регистр накопления "Учет доходов для исчисления страховых взносов" не совпадают. Пример во вложении.

Обнаружили при подготовке отчета за 2020г.

Если предположить, что в декабре программа сделает перерасчет за год, то нет. Мы и обнаружили, что сумма по году не совпадает. Потом я стал сравнивать по каждому сотруднику.

До октября цифры совпадают

Регистр "Начисления и удержания по сотрудникам" совпадает с расчетным листком.

Проверял с помощью «chdbfl.exe», тестировал из конфигуратора : реиндексация, проверка логической целостности, проверка ссылочной целостности, перерасчет итогов, сжатие таблиц, реструктуризация таблиц. Ошибка осталась

Отменил все начисления зарплаты после октября 2020, на текущей конфигурации, с помощью нового документы сделал начисление зарплаты. Результат тот же.

При нажатии на строку в регистре, открывает документ начисление зарплаты, где ни у кого нет такой суммы начисления.

В регистре "Учет доходов для исчисления страховых взносов" документ-основание "Начисление зарплаты и взносов" стоит на всех записях октября

Сравнивал конфигурацию рабочей базы с чистой конфигурацией. Они идентичны.

Выгрузка в «dt» и обратная загрузка в пустую конфигурацию не помогла.

У меня несколько клиентов, у всех все нормально.

Внешнего воздействия на базу не было, за исключением загрузки кадровых документов из «Контур персонал». Кадровичка не хочет работать с 1С. Следов в этом регистре тоже не обнаружил.

Не совпадают начисления почти все, за исключение созданных отдельным документом, доплаты и т.д.

Повторюсь, ошибки примерно у половины сотрудников из 350 чел

Пробовал отследить с отладчиком откуда берется дурное значение, запутался в модулях.

Я так глубоко давно не разбирался с конфигурацией.

Если кто то подскажет хотя бы примерно где копать, буду очень благодарен.

Спасибо.

Sravnenie_nachisleniy.pdf

Потребовалось в УТ быстро удалить все движения по банку, дело вроде легкое - отменить проведение всех поступлений и списаний безналичных денежных средств, но не тут то было...

При попытке отмены проведения выполнялись проверки на условия оплаты по заказу и документ ни как не отменял проведения

Ну не может типовым способом, заставим не типовым: Через запрос делаем выбору необходимых нам документов и в обработке результата пишем:

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

   //алгоритм обработки строки результата - начало

ДокОбъект = СтрокаРезультата.Ссылка.ПолучитьОбъект();

Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));

            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;

            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            

        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;

        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

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

    КонецЦикла;



	ДокОбъект.Проведен = Ложь;

	//ДокОбъект.ОбменДанными.Загрузка = Истина;

	ДокОбъект.Записать(режимзаписидокумента.запись);



   //алгоритм обработки строки результата - конец

КонецЦикла;   

Готовая функция для использования в своих обработках или общем модуле:

 Процедура УдалитьДвиженияДокумента(Документ)



    ДокОбъект = Документ.ПолучитьОбъект();



    Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));



            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;



            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            



        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;



        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

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

    КонецЦикла;



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

Почти все почтовые сервисы перешли на использование SSL и для получения почты нужно использовать IMAP, можно конечно и POP, но это уже прошлый век )

Пример получения почты с mail.ru по IMAP используя SSL:

 Функция ПолучитьНовыеПисьма() Экспорт

	Почта = Новый ИнтернетПочта;

	ИспользоватьIMAP=Истина; ПочтовыйЯщик = "";

	Профиль = ПолучитьПрофиль();

	Попытка

		Если ИспользоватьIMAP Тогда

			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);

			Если ПочтовыйЯщик = "" Тогда

				ПочтовыйЯщик = "INBOX";

			КонецЕсли;

			Почта.ТекущийПочтовыйЯщик = ПочтовыйЯщик;

		Иначе;

			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);

		КонецЕсли;

	Исключение

		Сообщить(НСтр("ru = 'Ошибка при подключении к почтовому серверу. Проверьте настройки.'"));

		Сообщить(ОписаниеОшибки());

		Возврат 0;

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

	

	ЗагруженныеПисьма = ПолучитьИдентификаторыЗагруженныхПисем();

	ИдентификаторыНовыхПисем = Почта.ПолучитьИдентификаторы(ЗагруженныеПисьма);

	Если ИдентификаторыНовыхПисем.Количество() = 0 Тогда

		//Новых нет 

	Иначе

		//Получаем новые письма	

		Письма = Почта.Выбрать(Ложь, ИдентификаторыНовыхПисем,Истина);

		Для каждого Письмо Из Письма Цикл 

			Если Найти(Письмо.Тема,"siteabc.ru")>0 Тогда //Если это наше письмо то грузим его

				ПисьмоОбъект = Справочники.ВходящиеПисьма.СоздатьЭлемент();

				ПисьмоОбъект.Идентификатор = Письмо.Идентификатор[0];

				ПисьмоОбъект.Наименование = Письмо.Тема;

				ПисьмоОбъект.Дата = Письмо.ДатаОтправления;

				ПисьмоОбъект.Отправитель = Письмо.Отправитель;		

				Если ИспользоватьIMAP Тогда

					ПисьмоОбъект.ПочтовыйЯщик = "IMAP/" + ПочтовыйЯщик;

				Иначе

					ПисьмоОбъект.ПочтовыйЯщик = "POP3";

				КонецЕсли;

				Для каждого Элемент Из Письмо.Тексты Цикл

					Если Элемент.ТипТекста = ТипТекстаПочтовогоСообщения.HTML Тогда

						ПисьмоОбъект.ВидСодержимого = "HTML";

						Текст = Элемент.Текст;

						Если Найти(Текст, "<HTML>") = 0 Тогда

							Текст = "<HTML><BODY>" + Текст + "</BODY></HTML>";

						КонецЕсли;

						//Вложения = Новый Массив;

						//// обрабатываем вложения, что бы правильно сформировать HTML

						//Для каждого Вложение Из Письмо.Вложения Цикл

						//	Ид = "cid:" + Вложение.Идентификатор;

						//	Если Найти(Текст, Ид) <> 0 Тогда

						//		Вложения.Добавить(Вложение);

						//	КонецЕсли;

						//КонецЦикла;

						Прервать;

					ИначеЕсли Элемент.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст Тогда

						ПисьмоОбъект.ВидСодержимого ="Текст";

						Текст = Элемент.Текст;

					КонецЕсли;

				КонецЦикла;				

				

				ПисьмоОбъект.Текст = Текст;

				ПисьмоОбъект.Записать();

			КонецЕсли;

		КонецЦикла;

	КонецЕсли;

	Почта.Отключиться();



Функция ПолучитьПрофиль(ИмяОтправителя = "", ИспользоватьIMAP = Ложь) Экспорт

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	Профиль.POP3ПередSMTP=Ложь;

	Профиль.АдресСервераIMAP = "imap.mail.ru";

	Профиль.ПортIMAP = 993;

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.ПользовательIMAP ="siteabcz@mail.ru";

	Профиль.ПарольIMAP = "9Ljkuf";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP = Ложь;

	Возврат Профиль;

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





Функция ПолучитьИдентификаторыЗагруженныхПисем() Экспорт

	Идентификаторы = Новый Массив();

	Запрос = Новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ Идентификатор ИЗ Справочник.ВходящиеПисьма";

	Выборка = Запрос.Выполнить().Выбрать();

	Пока Выборка.Следующий() Цикл

		Идентификаторы.Добавить(Выборка.Идентификатор);

	КонецЦикла;

	Возврат Идентификаторы;

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



/// ЕЩЕ примеры настройки профиля

Функция ПолучитьПрофиль(ИмяОтправителя = "", ИспользоватьIMAP = Ложь) Экспорт

	//Профиль = Новый ИнтернетПочтовыйПрофиль; 	

	//Профиль.АдресСервераSMTP = Выборка.АдресSMTPСервера;

	//Профиль.ПортSMTP = Выборка.ПортSMTP;

	//Профиль.ИспользоватьSSLSMTP = Выборка.SSLSMTP;

	//Профиль.ПарольSMTP = Выборка.ПарольSMTP;

	//Профиль.ПользовательSMTP = Выборка.ПользовательSMTP;

	//Профиль.ТолькоЗащищеннаяАутентификацияSMTP  = Ложь;    

	//

	//Профиль.АдресСервераIMAP = Выборка.АдресIMAPСервера;

	//Профиль.ПортIMAP = Выборка.ПортIMAP;

	//Профиль.ИспользоватьSSLIMAP = Выборка.SSLIMAP;

	//Профиль.ПользовательIMAP = Выборка.ПользовательIMAP;

	//Профиль.ПарольIMAP = Выборка.ПарольIMAP;

	//Профиль.ТолькоЗащищеннаяАутентификацияIMAP  = Ложь;	

	//

	//Профиль.АдресСервераPOP3 = Выборка.АдресPOP3Сервера;

	//Профиль.ПортPOP3 = Выборка.ПортPOP3;

	//Профиль.ИспользоватьSSLPOP3 = Выборка.SSLPOP3;

	//Профиль.Пароль = Выборка.ПарольPOP3;

	//Профиль.Пользователь = Выборка.ПользовательPOP3;

	//Профиль.ТолькоЗащищеннаяАутентификацияPOP3  = Ложь;

	//

	//Профиль.ВремяОжидания = Выборка.ТаймаутИнтернетПочты;

	//

	//ИмяОтправителя = Выборка.ИмяОтправителяПочтовогоСообщения;

	//ИспользоватьIMAP = Выборка.ИспользоватьIMAP;

	//

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	//Профиль.АдресСервераSMTP = "smtp.mail.ru";

	//Профиль.ПортSMTP = 465;

	//Профиль.ИспользоватьSSLSMTP = Истина;

	//Профиль.ПарольSMTP ="9LEY";

	//Профиль.ПользовательSMTP = "siteabcz@mail.ru";

	//Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина; 

	//Профиль.Пользователь = "siteabcz@mail.ru";

	//Профиль.Пароль = "siteabcz";

	//Профиль.АдресСервераPOP3 = "pop.mail.ru";

	//Профиль.ПортPOP3 = 995;

	//Профиль.ИспользоватьSSLPOP3 = Истина;

	Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	Профиль.POP3ПередSMTP=Ложь;

	Профиль.АдресСервераIMAP = "imap.mail.ru";

	Профиль.ПортIMAP = 993;

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.ПользовательIMAP ="siteabcz@mail.ru";

	Профиль.ПарольIMAP = "siteabcz";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP = Ложь;

	Возврат Профиль;

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







//ОБЩИЙ ПРИМЕР ОТПРАВКИ и ПОЛУЧЕНИЯ

Функция ОтправитьПисьмо(EmailОтправителя, ПарольОтправителя, 

						Порт, АдресСервера, EmailПолучателя, 

						ИмяПолучателя, ТекстСообщения, 

						ЗаголовокСообщения, МассивФайловыхПутей)

						

	//ПОЧТОВЫЙ ПРОФИЛЬ

	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.ИспользоватьSSLSMTP = Истина;

	Профиль.АдресСервераSMTP = АдресСервера; 

	Профиль.ПортSMTP = Порт;

	Профиль.Пользователь = EmailОтправителя;

	Профиль.Пароль = ПарольОтправителя;

	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

	Профиль.ПарольSMTP = ПарольОтправителя;

	Профиль.ПользовательSMTP = EmailОтправителя; 

   

	//ПОЧТОВОЕ СООБЩЕНИЕ

	

	Сообщение = Новый ИнтернетПочтовоеСообщение;

	Сообщение.Отправитель = EmailОтправителя;

	Сообщение.Тема = ЗаголовокСообщения;

	Сообщение.Тексты.Добавить(ТекстСообщения, ТипТекстаПочтовогоСообщения.HTML);

	Сообщение.Организация = "The company";		

	Адрес = Сообщение.Получатели.Добавить(EmailПолучателя);

	Адрес.ОтображаемоеИмя = ИмяПолучателя;

	

	Для каждого ПутьКФайлу Из МассивФайловыхПутей Цикл

		Сообщение.Вложения.Добавить(ПутьКФайлу);

	КонецЦикла; 

	

	// ПОЧТОВЫЙ СЕРВЕР

	

	Почта = Новый ИнтернетПочта();

	

	//Подключение к серверу

	Попытка

		Почта.Подключиться(Профиль);

	Исключение

		Сообщить("Ошибка при подключении к серверу: " + ОписаниеОшибки());

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

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

	

	//Отправка письма

	Попытка

		Почта.Послать(Сообщение);

	Исключение

		Почта.Отключиться();

		Сообщить("Ошибка при отправке письма: " + ОписаниеОшибки());

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

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

	

	Почта.Отключиться();

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

	

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



Функция ПолучитьПисьма()



	//ПОЧТОВЫЙ ПРОФИЛЬ	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.Пользователь = "xxx@xxxx.xx";

	Профиль.Пароль = "xxxxxx";

	Профиль.АдресСервераPOP3 = "pop3.mail.ru";

	ПРофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	МассивПисем = Новый массив();

	

	//ПОЛУЧЕНИЕ ПИСЕМ	

	Попытка

		Почта = Новый ИнтернетПочта;

		Почта.Подключиться(Профиль);

		МассивПисем = Почта.Выбрать(Ложь);

	Исключение

		Сообщить("Ошибка получения почты " + ОписаниеОшибки());

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

	

	Возврат МассивПисем;

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

   

Effector saver - это специализированная программа для автоматического резервного копирования 1С:Предприятия.Программа позволяет создавать резервные копии баз данных 1С:Предприятия, баз Microsoft SQL или PostgreSQL серверов, пользовательских папок и файлов.Сохранять же резервные копии можно на внешние, сетевые и локальные диски, FTP сервер.Effector saver вмещает большое количество расширенных функций, которые значительно упрощают резервное копирование: планирование и автоматический запуск задач, удобное заполнение настроек и тестирование баз 1С, автоотключение пользователей 1С:Предприятия 8.

Наша цель - создание ежедневных архивов. На компьютере где производится настройка, должна быть установлена программа 1С:Предприятие и подключена необходимая база данных.Скачаем программу с официального сайта https://efsaver.ru/download.htmlЗапускаем файл инсталляции Мастера установки.

На последнем этапе Мастера установки, соглашаемся с запуском программы и нажимаем "Завершить".

Настроим параметры автозапуска "Агента". Для этого в Панели инструментов выбераем "Сервис" & "Параметры программы" & "Параметры запуска".

Выбираем "Запускать агент как приложение" (выбор зависит от установки программы на рабочую станцию или на сервер).  

Нажимаем кнопку "Запустить агента" - "Сохранить".

Создаем задачу резервного копирования

Выбираем "Задачи" - "Добавить задачу".

Выбираем чем архивироватьПоле "Наименование" оставим по умолчанию, оно автоматически изменится на имя выбранной базы 1С.

Из выпадающего списка "Вид задачи" выбираем "Архивирование средствами 1С:Предприятие 8".

Указываем базу для архивацииВ закладке "Подключение" нажимаем "Выбрать и заполнить". В открывшемся окне "Выбор базы 1С:Предприятия" указываем нужную нам базу и нажимаем "Выбрать".

Поля "Исполняемый файл", "Вариант базы" и "Каталог базы" автоматически заполнятся значениями в соответствии с выбранной базой или же их можно заполнить вручную.

Заполняем имя и пароль пользователя выбранной базы, под которым будет запускаться резервное копирование средствами конфигуратора 1С:Предприятия.У этого пользователя в базе должны быть соответствующие права. Обратите внимание, имя задачи автоматически изменилось на имя выбранной базы.

Если для защиты 1С используется USB ключ, то не нужно устанавливать флаг "Использовать программную лицензию 1С".

Указываем место размещения архивированной базыПереходим на вкладку "Настройка архивов". Указываем каталог для хранения архивов: нажимаем на кнопку с тремя точками в конце поля "Каталог архивов" и выбераем в диалоговом окне каталог, или, если потребуется, создайте новый каталог с помощью кнопки "Создать папку".

В параметре "Количество одновременно хранимых архивов" установим 10. Effector saver будет удалять более старые резервные копии данной задачи, как только их количество превысит 10 штук.

Выбираем когда производить архивированиеЧтобы установить время выполнения задачи, переходим на вкладку "Расписание".

В нашем примере резервное копирование производится на рабочей станции, поэтому выбираем в поле "Назначить задание", пункт "Ежедневно после загрузки системы".

Если необходимо чтобы между стартом программы и архивированием прошла небольшая пауза, установите "Время задержки" в формате "чч:мм".

В поле "Время начала" установите произвольное время в формате "чч:мм" в тот период, когда последний пользователь прекращает работу с базой и до момента начала работы первого пользователя. Например ночь, 01:00.

Активация и сохранение настройки задачиУстанавливаем флаг "Выполнять задачу" в верхней части окна настройки.

Проверка работы задачиПосле выбора и настройки всех параметров резервного копирования, приступаем непосредственно к проведению самого копирования.

Удостоверьтесь, что пользователи вышли из базы 1С:Предприятия.

В главном окне "Менеджера" кликнув мышкой делаем активной строку со своей задачей.

Всё, готово. Резервная копия успешно создана.

Просмотр результатов работы задачиПосле завершения процесса резервного копирования во вкладке "Журнал" мы увидим дату и результат выполнения задачи по созданию бэкапа.

Для подробного просмотра результата выполнения задачи, выберите в меню "Журнал" - "Открыть запись", или сделайте двойной клик мышкой по записи выполнения задачи.

Во вкладке "Файлы" можно просмотреть список файлов бэкапа, которые были созданы в результате выполнения задачи.

Таким вот образом, за считанные минуты, можно создать автоматическую задачу резервного копирования 1С:Предприятия, и тем самым обезопасить себя от потери важных данных. С резервными копиями, сбой жесткого диска или непреднамеренное удаление пройдет менее болезненно.

Любой отчет и обработку можно подключить пользователям как дополнительные отчеты или обработки, вот например пункт в БП - Банк:

Добавление происходит через

далее Дополнительные отчеты и обработки, в списке нажмите Создать и Выберите Файл отчета/обработки:

Перед добавлением файл нужно подготовить, дописать в модуль объекта код подключения:

Для обработок код:

 Функция СведенияОВнешнейОбработке() Экспорт

	

	ПараметрыРегистрации = Новый Структура;

	

	//Вид

	//Строка, вид обработки, один из возможных: 

	//"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 

	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");

	

	//Массив строк имен объектов метаданных в формате: 

	//<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 

	//Например, "Документ.СчетЗаказ" или "Справочник.*". 

	//Прим. параметр имеет смысл только для назначаемых обработок, для глобальных может не задаваться. 

	ПараметрыРегистрации.Вставить("Назначение", Новый СписокЗначений);

	

	//Наименование обработки, которым будет заполнено наименование элемента справочника по умолчанию - краткая строка для идентификации обработки администратором 

	ПараметрыРегистрации.Вставить("Наименование", "Сравнение документов БУХ и УТ");

	

	//Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу. Например “. 

	ПараметрыРегистрации.Вставить("Версия", "1.0");

	

	//Принимает значение Истина или Ложь, в зависимости от того, требуется ли устанавливать или отключать безопасный режим исполнения обработок. Если истина, обработка будет запущена в безопасном режиме. Более подбробно о безопасном режиме в справке к платформе 1С:Предприятие. 

	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);

	

	//Краткая информация по обработке, описание обработки. 

	ПараметрыРегистрации.Вставить("Информация", "");

	

	//Команды, поставляемые обработкой. Таблица значений с колонками: 

	ПараметрыРегистрации.Вставить("Команды", Новый СписокЗначений);

		

	ТаблицаКоманд = ПолучитьТаблицу_Команд();





  	ДобавитьКоманду(ТаблицаКоманд,

          "Сравнение документов БУХ и УТ", 	//Представление

          "Сравнение документов БУХ и УТ",	//Идентификатор

          "ОткрытиеФормы", 				//Использование

          Ложь,					 		//ПоказыватьОповещение

          "");			 				//Модификатор





  	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

	

	Возврат ПараметрыРегистрации;

	

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





Функция ПолучитьТаблицу_Команд()





  Команды = Новый ТаблицаЗначений;

  

  //Представление – представление команды в пользовательском интерфейсе;

  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));

  

  //Идентификатор – идентификатор команды; 

  //любая строка, уникальная в пределах данной обработки (отчета). 

  //В случае с обработками печатных форм на основе макета табличного документа передается список макетов, 

  //на основе которых нужно получить печатную форму 

  //(см. описание параметра ИменаМакетов процедуры УправлениеПечатьюКлиент.ВыполнитьКомандуПечати в разделе Печать). 

  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));

  

  //"ОткрытиеФормы" – открыть форму обработки; 

  //"ВызовКлиентскогоМетода" – вызвать клиентскую экспортную процедуру из модуля формы обработки; 

  //"ВызовСерверногоМетода" – вызвать серверную экспортную процедуру из модуля объекта обработки.

  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));

 	

  //ПоказыватьОповещение – если Истина, требуется показать оповещение при начале и при завершении работы обработки. 

  //Имеет смысл только при запуске обработки без открытия формы. 

  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

  

  //Модификатор – дополнительный модификатор команды. 

  //Используется для дополнительных обработок печатных форм на основе табличных макетов, 

  //для таких команд должен содержать строку ПечатьMXL (см. пример в демонстрационной конфигурации).

  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));

  

  Возврат Команды;

           

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





Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")





  НоваяКоманда = ТаблицаКоманд.Добавить();

  НоваяКоманда.Представление = Представление;

  НоваяКоманда.Идентификатор = Идентификатор;

  НоваяКоманда.Использование = Использование;

  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;

  НоваяКоманда.Модификатор = Модификатор;



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

Для отчетов и печатных форм меняйте параметр Вид:

 //"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 

	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");

   

Возможные значения этого поля приведу в виде таблицы

Расширение

файла

Это поле может принимать одно из значений, возвращаемых функциями в типовых конфигурациях:

 ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработки<Вид>(). Например, для вида "ПечатнаяФорма" есть функция ВидОбработкиПечатнаяФорма(). 

при разработке на обычных формах было удобно выводить результат запроса используя метод СоздатьКолоки():

 Процедура ПоискНажатие(Элемент)

Запрос = Новый Запрос;

Запрос.Текст = 

"ВЫБРАТЬ

|	ДокументоОборот.Этап,

|	ДокументоОборот.Отдел,

|	ДокументоОборот.ФИО,

|	ДокументоОборот.ДатаВремя КАК Дата_Время,

|	ДокументоОборот.Документы,

|	ДокументоОборот.Примечание,

|	ДокументоОборот.Доставка

|ИЗ

|	РегистрСведений.ДокументоОборот КАК ДокументоОборот

|ГДЕ

|	ДокументоОборот.Документы ПОДОБНОДокументы

|	И ДокументоОборот.Доставка.Дата МЕЖДУДатаН ИДатаК

|

|УПОРЯДОЧИТЬ ПО

|	ДокументоОборот.ДатаВремя";  

Запрос.УстановитьПараметр("Документы", "%"+СокрЛП(Строка(СтрокаПоиска))+"%");

Запрос.УстановитьПараметр("ДатаК", КонПериода);

Запрос.УстановитьПараметр("ДатаН", НачПериода);

Рез=Запрос.Выполнить();

НайденДок = рез.Выгрузить();

ЭлементыФормы.НайденДок.СоздатьКолонки();   

В управляемом приложении метод СоздатьКолоки() не доступен, ниже представлена процедура, которая отображает на управляемой форме содержимое таблицы значений переданное ей в качестве параметра:

Пример формы:

Код вывода результата запроса на управляемую форму:

 &НаСервере

Процедура СоздатьТаблицуФормы(Знач ИмяПоляТаблицыФормы, Знач ИмяРеквизитаДанныеФормыКоллекция, Знач ТаблицаЗначений)

    

    // Если руками не создали эелемент формы Таблица, то создается программно

    Если Элементы.Найти(ИмяПоляТаблицыФормы) = Неопределено Тогда

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы, Тип("ТаблицаФормы"),);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция;

    КонецЕсли;

    

    УдаляемыеРеквизиты = Новый Массив;

    РеквизитыДляУдаления = ПолучитьРеквизиты(ИмяРеквизитаДанныеФормыКоллекция);

    Для Каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл

        УдаляемыеРеквизиты.Добавить(ИмяРеквизитаДанныеФормыКоллекция+"."+РеквизитУдаления.Имя);

        // Удаляем элементы формы

        Элементы.Удалить(Элементы[ИмяПоляТаблицыФормы+РеквизитУдаления.Имя]);

    КонецЦикла;

    

    // Добавление реквизитов в таблицу формы

    ДобавляемыеРеквизиты = Новый Массив;

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяРеквизитаДанныеФормыКоллекция, Колонка.Заголовок));

    КонецЦикла;

    ИзменитьРеквизиты(ДобавляемыеРеквизиты,УдаляемыеРеквизиты);

    

    

    // Добавление элементов форму

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы + Колонка.Имя, Тип("ПолеФормы"), Элементы[ИмяПоляТаблицыФормы]);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция + "." + Колонка.Имя;

        ЭлементРеквизита.Вид = ВидПоляФормы.ПолеВвода;

    КонецЦикла;

    

    ЗначениеВРеквизитФормы(ТаблицаЗначений, ИмяРеквизитаДанныеФормыКоллекция);      

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





&НаСервере

Процедура ВПоискНаСервере()

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	РеализацияТоваровУслугСерии.Серия КАК Серия,

	|	РеализацияТоваровУслугСерии.Ссылка КАК Реализация,

	|	РеализацияТоваровУслугСерии.Ссылка.ЗаказКлиента КАК ЗаказКлиента,

	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,

	|	РеализацияТоваровУслугСерии.Ссылка.Договор КАК Договор

	|ИЗ

	|	Документ.РеализацияТоваровУслуг.Серии КАК РеализацияТоваровУслугСерии

	|ГДЕ

	|	РеализацияТоваровУслугСерии.Серия В

	|			(ВЫБРАТЬ

	|				СерииНоменклатуры.Ссылка КАК Ссылка

	|			ИЗ

	|				Справочник.СерииНоменклатуры КАК СерииНоменклатуры

	|			ГДЕ

	|				СерииНоменклатуры.Наименование ПОДОБНОНаименование)

	|

	|УПОРЯДОЧИТЬ ПО

	|	Серия

	|АВТОУПОРЯДОЧИВАНИЕ"; 	

	Запрос.УстановитьПараметр("Наименование", "%"+НомерФН+"%");	

	РезультатЗапроса = Запрос.Выполнить();

	ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();

	СоздатьТаблицуФормы("ТЗ","ТЗ",ТаблицаЗапроса);

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



&НаКлиенте

Процедура ВПоиск(Команда)

	ВПоискНаСервере();

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

Циклы применяются для выполнения каких либо повторяющихся действий, возможные варианты перебора в цикле:

Перебираем строки с помощью цикла Для каждого

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

// код обработки

КонецЦикла;   

Перебираем строки с помощью цикла Пока

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;   

Перебираем строки с помощью цикла Для

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла   

Еще вариант, но советую его использовать только в без выходных ситуациях, Если

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;   

Примеры циклов

 &НаКлиенте

Процедура ВыполнитьКод(Команда)

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

    Дни.Добавить("Среда");

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

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

   

А какой цикл работает быстрее?

Итак, я нашел пять способов, как можно организовать цикл средствами 1С.

Первый вид цикла, назовем его условно «Для По» выглядит так:

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;   

Второй вид «Для Каждого»:

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;   

Третий «Пока»:

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;   

Далее вспомнил ассемблерную молодость & цикл «Если»:

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;   

Ну и напоследок «Рекурсия»

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

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

Естественно, что относить рекурсию к циклам не совсем корректно, но тем ни менее с её помощью можно добиться похожих результатов. Сразу оговорюсь, что в дальнейшем тестировании рекурсия не участвовала. Во первых все тесты проводились при 1 000 000 итераций, а рекурсия выпадает уже при 2 000. Во вторых скорость рекурсии в десятки раз меньше, чем скорость остальных циклов.

Последнее отступление. Одним из условий было выполнение в цикле каких-либо действий. Во первых пустой цикл используется очень редко. Во вторых цикл «ДляКаждого» используется для какой-либо коллекции, а значит и остальные циклы должны работать с коллекцией, чтобы тестирование проходило в одинаковых условиях.

Ну что ж, поехали. В качестве тела цикла использовалось чтение из заранее заполненного массива.

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

или, при использовании цикла «Для Каждого»

 ПриемникТестовогоЗначения = Элем;   

Тестирование проводилось на платформе 8.3.5.1231 для трех видов интерфейса (Обычное приложение, Управляемое приложение и Такси).

Числа это время в миллисекундах полученное с помощью функции ТекущаяУниверсальнаяДатаВМиллисекундах(), которую я вызывал до цикла и после его завершения. Числа дробные, потому что я использовал среднее арифметическое пяти замеров. Почему я не использовал Замер производительности? У меня не было цели замерить скорость каждой строчки кода, только скорость циклов с одинаковым результатом работы.

Казалось бы и все, но & тестировать так тестировать!

В среднем платформа 8.2 на 25% быстрее, чем 8.3. Я немножко не ожидал такой разницы и решил провести тест на другой машине. Скажу только, что там 8.2 была быстрее процентов на 20.

Почему? Не знаю, дезасемблировать ядро в мои планы не входило, но в замер производительности я все же заглянул. Оказалось, что сами циклические операции в 8.3 проходят несколько быстрее, чем в 8.2. Но на строке

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

то есть при считывании элемента коллекции в переменную происходит значительное снижение производительность.

Для себя я сделал несколько выводов:

1. Если есть возможность использовать специализированный цикл & «Для Каждого», то лучше использовать его. Кстати, сам по себе он отрабатывает дольше чем другие циклы, но скорость доступа к элементу коллекции у него на много выше.

2. Если заранее знаешь количество итераций & используй «Для По». «Пока» отработает медленнее.

3. Если использовать цикл «Если» & другие программисты тебя явно не поймут.

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

В версии 8.3.9.2170 была усилена безопасность - теперь система запрашивает подтверждение на запуск внешних обработок, расширений и прочее. Видимо после трояна: Внимание! Первый троян для 1С -запускающий шифровальщика-вымогателя

Реализован механизм защиты от опасных действий. При выполнении потенциально опасного действия система выдает предупреждение, содержащее информацию о выполняемом действии и потенциальной опасности этого действия. К потенциально опасным действиям относятся:

• Загрузка внешнего отчета, обработки или расширения конфигурации.
• Загрузка или обновление конфигурации/расширения.
• Доступ из внешнего отчета/обработки или расширения к следующим возможностям:
• Исполнение команды операционной системы.
• Управление пользователями.
• Загрузка внешней компоненты.

Пользователь имеет возможность разрешить или отклонить потенциально опасное действие. Если действие разрешено, в ряде случаев может потребоваться повторно выполнить разрешенное действие. 

Сообщение выглядит так:

Предупреждение безопасности

Открывается "" из файла " C:\.......epf". Рекомендуется обращать внимание на источник, из которого был получен данный файл. Если с источником нет договоренности о разработке дополнительных модулей, или есть сомнения в содержимом файла, то его не рекомендуется открывать, поскольку это может нанести вред компьютеру и данным. Разрешить открывать данный файл. ДА, НЕТ

Решение:

В конфигураторе в свойствах пользователя ИБ убрать флажок "Защита от опасных действий".

Из документации: Отключение механизма защиты от опасных действий

В ряде случае необходимо отключить механизм защиты от опасных действий. Для этого можно воспользоваться следующими возможностями:

1. Выключить флажок Защита от опасных действий (ЗащитаОтОпасныхДействий) в свойствах конкретного пользователя. Это отключит защиту для этого пользователя.

2. Воспользоваться параметром ЗащитаОтОпасныхДействий методов Подключить() менеджеров внешних обработок (отчетов). В этом случае имеется возможность загрузить внешнюю обработку (отчет) без запросов пользователя.

3. Воспользоваться свойством ЗащитаОтОпасныхДействий объекта РасширениеКонфигурации перед вызовом метода Записать() этого объекта.

4. Воспользоваться параметром DisableUnsafeActionProtection файла conf.cfg. В этом случае механизм защиты от опасных действий будет отключаться для всех пользователей информационных баз, строки соединения которых удовлетворяют указанным маскам.

Отключение защиты от опасных действий выполняется по следующим правилам (в указанном порядке):

1. Защита считается отключенной, если у текущего пользователя сброшен флажок Защита от опасных действий.

2. Защита считается отключенной, если строка соединения с информационной базой удовлетворяет одному из шаблонов, указанных в параметре DisableUnsafeActionProtection файла conf.cfg.

3. Если внешняя обработка (отчет) подключается с явным образом отключенной защитой с помощью параметра ЗащитаОтОпасныхДействий.

4. Если защита явным образом отключена с помощью свойства расширения ЗащитаОтОпасныхДействий. 

Есть несколько вариантов вывода информации перед основным отчетом,какой лучше?! - зависит от задачи:

Допустим нам нужно вывести дату и время формирования отчета и свою шапку отчета, например так:

Варианты решения:

1. Использование группировки и макета заголовка:

1. Создаем в схеме новую группировку (без поля) и установим имя группировке Шапка отчета.

2. Удалим у данной группировки из выбранных полей автополе

В других настройках выберем макет оформления "Без оформления" (иначе на наш макет будет накладываться стандартный макет и вокруг всех ячеек будет рамка)

На вкладке макеты добавляем макет заголовка группировки (при добавлении указываем наше имя группировки (Шапка отчета) и указываем область с нашими данными), справа в табличном документе пишем необходимый текст и параметр

Сохраняем, формируем и видим результат как выше

2. Программное изменение текста заголовка

Код нужно установить в процедуре модуля отчета ПриКомпоновкеРезультата()

 ЗначениеПараметра = КомпоновщикНастроек.Настройки.ПараметрыВывода.

НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Title"));

ЗначениеПараметра.Значение="Отчет сформирован "+Формат(ТекущаяДата(),"ДЛФ=DDT");

ЗначениеПараметра.Использование = Истина;   

еще пример:

 Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

    

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Использование = Истина;

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Значение      = ТипВыводаТекстаКомпоновкиДанных.Выводить; 

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("Заголовок").Использование         = Истина;

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("Заголовок").Значение              = "Пример вывода своего заголовка,"      + Символы.ПС 

                                                                                                    + "Отчет сформирован "+Формат(ТекущаяДата(),"ДЛФ=DDT");     

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

3. Вывод табличного макета с параметром перед формированием отчета

Создаем макет ВыводСформирован, в нем создаем параметр Сформирован и назначаем имя области Заголовок

В модуле перед 

 МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);   

Пишем:

 // получим макет заголовка отчета

МакетЗаголовка = ПолучитьМакет("ВыводСформирован");

ОбластьЗаголовка = МакетЗаголовка.ПолучитьОбласть("Заголовок");

ОбластьЗаголовка.Параметры.Сформирован = "Сформирован: " + Формат(ТекущаяДата(),"ДЛФ=DDT");

//ОбластьЗаголовка.Параметры.Заголовок = ТекстЗаголовка;

ТабличныйДокумент.Вывести(ОбластьЗаголовка);    

в результате:

Установили мини сервер 1С на Cent OS 7 + Postgree SQL , Подключились через консоль, создали базу, загрузи DT и при открытии программы:

Ошибка загрузки библиотеки libWand.so по причине:Библиотека не обнаружена. Часть функций будет недоступна.

Обратитесь к разделу справочной системы «1С:Предприятие - Работа пользователя – Особенности работы в Linux – Внешние библиотеки»

Решение:

Ошибку libwand.so лечится установкой старого пакета libwand

Для 1С 32х:

apt-get install imagemagick-6.q16:i386

apt-get install imagemagick:i386

Для 1С 64х

apt-get install imagemagick-6.q16

apt-get install imagemagick

+ В интернете нашлись рекомендации 1Справда они от 2013г)

Если при запуске из командной строки /opt/1C/v8.3/i386/1cv8 (или для 64разр /opt/1C/v8.3/x86_64/1cv8) ругается на отсутствие libWand.so то:

либо не установлен imagemagick, либо отсутствует символьная ссылка на эту библиотеку.

Во втором случае ищем что у нас есть:

sudo find /usr/lib/ -name "libMagickWand.so*" -print

получим например:

/usr/lib/libMagickWand.so.3.0.0

/usr/lib/libMagickWand.so.3

создадим ссылку на любой из них

ln -s -T /usr/lib/libMagickWand.so.3 /usr/lib/libWand.so

Заказали виртуальный сервер на FastVPS, купили мини сервер 1С и пришло время установки.

В сети нашлась хорошая статья, где все по порядку:

Итак, устанавливаем минимальный CentOS, настраиваем имена хостов, DNSы и сетевые подключения и приступаем собственно к установке серверных компонентов.

1. Установка Postgre SQL server

Обновление от 03-ноя-2016: в последних версиях CentOS (у меня сегодня был 7.2.1511) отсутствует поддержка libtermcap (и как-то "иначе" реализована libreadline), из-за чего сборки с сайта 1С не устанавливаются - решил поставить сборку от Postgres Professionals https://postgrespro.ru/products/1c_build - вроде работает, но о стабильности и производительности пока судить рано. Так что у кого проблемы с libtermcap.so.2() и/ли libreadline.so.5() при установке PostgreSQL с патчами 1С, можете попробовать этот альтернативный вариант.

Для установки использовался рекомендованный (адаптированный) 1С дистрибутив, для чего потребуется скачать его из раздела поддержки пользователей сайта 1С. В моём случае это был "Дистрибутив СУБД PostgreSQL для Linux x86 (64-bit) одним архивом (RPM)", который я сохранил в /root/temp. Распаковываем архив:

[root@vm-sql01 temp]# tar -vxf postgresql-9.2.1-1.1C_x86_64_rpm.tar.gz

postgresql92-9.2.1-1.1C.x86_64.rpm

postgresql92-libs-9.2.1-1.1C.x86_64.rpm

postgresql92-server-9.2.1-1.1C.x86_64.rpm

postgresql92-contrib-9.2.1-1.1C.x86_64.rpm

[root@vm-sql01 temp]#

Устанавливаем в следующей последовательности:

yum install postgresql92-libs-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-server-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-contrib-9.2.1-1.1C.x86_64.rpm

Все недостающие зависимости (пакеты) будут установлены в процессе установки этих rpm, хотя на сайте 1С рекомендуют предварительно установить пакеты readline, libtermcap, krb5-libs и openssl, но в моём случае они либо уже были установлены, либо не были обнаружены в репозиториях.

2. Первый запуск Postgre SQL server

В отличии от сценариев установки большинства знакомых мне sql-серверов, postgres требует предварительной инициализации перед запуском, для чего существует два пути - первый, правильный:

[root@vm-sql01 pgsql]# su postgres -c '/usr/pgsql-9.2/bin/initdb -D /var/lib/pgsql/9.2/data --locale=ru_RU.UTF-8'

Файлы, относящиеся к этой СУБД, будут принадлежать пользователю "postgres".

От его имени также будет запускаться процесс сервера.

Кластер баз данных будет инициализирован с локалью "ru_RU.UTF-8".

Кодировка БД по умолчанию, выбранная в соответствии с настройками: "UTF8".

Выбрана конфигурация текстового поиска по умолчанию "russian".

исправление прав для существующего каталога /var/lib/pgsql/9.2/data... ок

создание подкаталогов... ок

выбирается значение max_connections... 100

выбирается значение shared_buffers... 32MB

создание конфигурационных файлов... ок

создание базы template1 в /var/lib/pgsql/9.2/data/base/1... ок

инициализация pg_authid... ок

инициализация зависимостей... ок

создание системных представлений... ок

загрузка описаний системных объектов... ок

создание правил сортировки... ок

создание преобразований... ок

создание словарей... ок

установка прав для встроенных объектов... ок

создание информационной схемы... ок

загрузка серверного языка PL/pgSQL... ок

очистка базы данных template1... ок

копирование template1 в template0... ок

копирование template1 в postgres... ок

ВНИМАНИЕ: используется проверка подлинности "trust" для локальных подключений.

Другой метод можно выбрать, отредактировав pg_hba.conf или используя ключи -A,

--auth-local или --auth-host при следующем выполнении initdb.

Готово. Теперь вы можете запустить сервер баз данных:

/usr/pgsql-9.2/bin/postgres -D /var/lib/pgsql/9.2/data

или

/usr/pgsql-9.2/bin/pg_ctl -D /var/lib/pgsql/9.2/data -l logfile start

-bash-4.1$

Или тот же вывод на английском языке:

[root@vm-sql01 ~]# su postgres -c '/usr/pgsql-9.2/bin/initdb -D /var/lib/pgsql/9.2/data --locale=ru_RU.UTF-8'

could not change directory to "/root"

The files belonging to this database system will be owned by user "postgres".

This user must also own the server process.

The database cluster will be initialized with locale "ru_RU.UTF-8".

The default database encoding has accordingly been set to "UTF8".

The default text search configuration will be set to "russian".

fixing permissions on existing directory /var/lib/pgsql/9.2/data ... ok

creating subdirectories ... ok

selecting default max_connections ... 100

selecting default shared_buffers ... 32MB

creating configuration files ... ok

creating template1 database in /var/lib/pgsql/9.2/data/base/1 ... ok

initializing pg_authid ... ok

initializing dependencies ... ok

creating system views ... ok

loading system objects' descriptions ... ok

creating collations ... ok

creating conversions ... ok

creating dictionaries ... ok

setting privileges on built-in objects ... ok

creating information schema ... ok

loading PL/pgSQL server-side language ... ok

vacuuming database template1 ... ok

copying template1 to template0 ... ok

copying template1 to postgres ... ok

WARNING: enabling "trust" authentication for local connections

You can change this by editing pg_hba.conf or using the option -A, or

--auth-local and --auth-host, the next time you run initdb.

Success. You can now start the database server using:

/usr/pgsql-9.2/bin/postgres -D /var/lib/pgsql/9.2/data

or

/usr/pgsql-9.2/bin/pg_ctl -D /var/lib/pgsql/9.2/data -l logfile start

[root@vm-sql01 ~]#

Или второй, более простой, но не всегда дающий необходимый результат (зависит от региональных настроек сервера, но у меня иногда приводивший к установке базы данных без поддержки необходимого collation ru_RU.UTF-8):

[root@vm-sql01 pgsql]# service postgresql-9.2 initdb

Инициализируется база данных: [ OK ]

[root@vm-sql01 pgsql]#

В результате была создана структура базы данных (с настройками) в /var/lib/pgsql/9.2/data. Хочу обратить особое внимание на конструкцию --locale=ru_RU.UTF-8, которую необходимо указать при инициализации, иначе сервер может быть инициализирован с неверным набором языковых параметров, что в конечном итоге приведёт к сообщениям

Ошибка установки или изменения национальных настроек информационной базы

Порядок сортировки не поддерживается базой данных

по причине:

Порядок сортировки не поддерживается базой данных

при установке информационной базы. Теперь можно настраивать автоматический запуск sql-сервера и, собственно, запускать его:

[root@vm-sql01 temp]# chkconfig postgresql-9.2 on

[root@vm-sql01 temp]# service postgresql-9.2 start

Запускается служба postgresql-9.2: [ OK ]

[root@vm-sql01 temp]#

Всё. Для локальных подключений сервер настроен. В моём случае сервер 1С и сервер SQL находятся на разных машинах, поэтому потребуется настроить и удалённые подключения с авторизацией.

В случае каких-то проблем, читаем содержимое файлов:

/var/lib/pgsql/9.2/pgstartup.log

/var/lib/pgsql/9.2/data/postgresql-*.log

Для повышения быстродействия документация PostgreSQL рекомендует как минимум унести журнал /var/lib/pgsql/9.2/data/pg_xlog на отдельный физический том и создать симлинк на него в исходном месте; из личных наблюдений - надо ещё и значительно увеличить размер используемой памяти... но необъятное не охватить, поэтому за статьями по оптимизации работы PostgreSQL для 1С предлагаю обращаться в поисковые системы, а оттуда - на профильные форумы.

3. Настройка пользователей (ролей) Postgre SQL server

Для управления PostgreSQL на начальном этапе потребуется сменить текущего пользователя на postgres и создать нового пользователя из командной строки:

[root@vm-sql01 temp]# su - postgres

-bash-4.1$ cd /usr/pgsql-9.2/bin

-bash-4.1$ createuser --interactive -P

Введите имя новой роли:server1c

Введите пароль для новой роли:

Повторите его:

Должна ли новая роль иметь полномочия суперпользователя? (y - да/n - нет) n

Новая роль должна иметь право создавать базы данных? (y - да/n - нет) y

Новая роль должна иметь право создавать другие роли? (y - да/n - нет) n

-bash-4.1$ exit

logout

[root@vm-sql01 temp]#

В принципе, для обслуживания полезно иметь пользователя с правами суперпользователя - создавать его можно тем же путём.

Теперь осталось разрешить удалённое подключение с авторизацией - для этого в файле /var/lib/pgsql/9.2/data/pg_hba.conf потребуется заменить значение ident на md5 в строке "host all all 0.0.0.0/0 md5" и перезапустить сервис.

Не следует забывать и про настройки iptables - для работы Postgre SQL необходимо открыть как минимум порт tcp 5432, хотя привычнее (да и проще) объявить сетевой интерфейс "внутренним" (разрешить все подключения на интерфейсе).

Для управления сервером потребуется pgAdmin, который можно установить из репозиториев используемого для административных целей линукса, либо скачать с сайта проекта.

4. Установка компонентов сервера 1С

Внимание!!! Для избежания проблем с зависимостями, желательно, чтобы разрядность сервера 1С совпадала с разрядностью используемого дистрибутива Linux! Иначе (если ставим 32-битный 1С на 64-битный Linux), при входе в базу, можно получить сообщение типа "Ошибка загрузки библиотеки libWand.so по причине:Библиотека не обнаружена. Часть функций будет недоступна." и клиенты не будут запускаться (хотя конфигуратор - будет). В принципе, я с этой проблемой справился на CentOS 7 (которой не выпускают больше в 32-битном исполнении) - просто поставил не только 'ImageMagick', но и 'ImageMagick.i686' (yum install ImageMagick.i686) - всё заработало (хоть и притянуло за собой гору зависимостей).

Первый шаг установки сервера 1С мало отличается от аналогичного этапа с SQL-сервером - распаковать скачанный дистрибутив сервера командой tar -vxf rpm64.tar.gz. В итоге получим файлы:

1C_Enterprise83-common-8.3.3-715.x86_64.rpm - основные файлы 1С (включая русский и английский интерфейсы)

1C_Enterprise83-common-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-server-8.3.3-715.x86_64.rpm - сервер 1С

1C_Enterprise83-server-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-ws-8.3.3-715.x86_64.rpm - компоненты вэб-сервера 1С

1C_Enterprise83-ws-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-crs-8.3.3-715.i386.rpm - хранилище конфигураций (только в 32-битном комплекте)

Устанавливаем нужные пакеты командами:

yum install 1C_Enterprise83-common-8.3.3-715.x86_64.rpm

yum install 1C_Enterprise83-server-8.3.3-715.x86_64.rpm

Настраиваем автоматический запуск демона и стартуем его:

[root@vh-1c83 temp]# chkconfig srv1cv83 on

[root@vh-1c83 temp]# service srv1cv83 start

Starting 1C:Enterprise 8.3 server: Error: service failed to start!

FAILED

[root@vh-1c83 temp]# service srv1cv83 start

Starting 1C:Enterprise 8.3 server: OK

[root@vh-1c83 temp]#

Хочу обратить внимание - если сразу после установки сервис (как в приведённом примере) не стартовал, а при второй попытке старта он запустился, скорее всего не настроен DNS - об этом чуть ниже. Если верить информации с многочисленных форумов, то наш сервер уже готов обслуживать до 12 клиентов. Для работы большего числа пользователей, необходимо установить лицензию сервера - либо в виде USB HASP и драйвера, либо в виде электронной лицензии. Про установку аппаратных ключей я уже писал, а установка программных лицензий достаточно проста: запускаем конфигуратор (с клиентской машины; кластер уже должен быть настроен и должна быть информационная база), вызываем "Сервис" - "Получение лицензии", вводим номер комплекта (с коробки или "Регистрационный номер" с карточки из конверта "Пинкоды программной лицензии") и пин-код (с той самой карточки из конверта), ставим галочку "Установка на сервер", вводим имя сервера в соответствующем поле, нажимаем "Далее", говорим, что это - "Первый запуск", заполняем форму "Владелец лицензии" (к стати, я не понял что писать в полях "Фамилия", "Имя", "Отчество" - то ли ответственного за эксплуатацию, то ли генерального директора - оставил поля пустыми, и оно получило лицензию, не ругнувшись), "Далее", "Автоматически" - профит! в /var/1C/licenses на сервере появился файлик XXXXXXXXXXXXXX.lic и серверу "стало хорошо" (если это была многопользовательская лицензия, то клиентам тоже "станет хорошо", т.к. они будут получать лицензии на сервере).

Для работы с графическими объектами и экспорта в xls, могут потребоваться дополнительные пакеты: ImageMagick, freetype (входит в зависимости ImageMagick), libgsf (входит в зависимости ImageMagick), corefonts (отсутствует в репозитариях CentOS - см. раздел 6); для "ТАКСИ" и "Управляемого приложения" они необходимы, для классического толстого клиента вроде бы не особо нужны, но 1С всё равно ругается на их отсутствие, хоть и работает.

По умолчанию сервер 1С слушает порт tcp 1541(1540) и для соединений использует диапазон портов 1560-1691.

5. Настройка экземпляра (кластера) сервера 1С

Информации о наличии оснастки управления сервером 1С для Linux мне не попадалось, так что для управления сервером будем использовать традиционную оснастку mmc для Windows "Администрирование серверов 1С:Предприятия", которую следует поставить из дистрибутива технологической платформы для Windows.

В этом месте на тестовом сервере возникли трудности - кластер по умолчанию отсутствовал, а при попытке создания нового кластера, ragent аварийно завершал работу с сообщением Sep 3 21:29:04 vh-1c83 kernel: ragent[1879]: segfault at 8 ip 00007f56473c9fd4 sp 00007f563b7b14a0 error 4 in rserver.so[7f56472db000+70e000]... странно, но если верить форумам, на CentOS у многих сервер 1С 8.3 ставится некорректно - не создаётся начальная конфигурация, включающая "Кластер по умолчанию". Краткий анализ ситуации выявил, что настройки кластера по умолчанию не были сгенерированы полностью и не попали в /home/usr1cv8/.1cv8/1C/1cv8/.

При попытке подложить файлы с рабочего сервера на неудачный, сервис 1С не запускается абсолютно без каких-либо диагностических сообщений - подобное поведение я видел при проблемах (неверных контекстах) SELinux, но в данном случае никаких отказов в audit.log не обнаружилось.

В результате детального изучения проблемы с применением strace удалось выяснить, что агент сервера при запуске ищет настройки по пути ~/.1cv8/1C/1cv8/ (в домашнем каталоге запустившего пользователя) и если не находит, пытается создать настройки кластера по умолчанию, для чего ему нужно имя хоста (выяснено экспериментально), и если верить "Руководству администратора", нужен корректно работающий DNS; экспериментально же был установлен факт, что сначала ragent читает файл /etc/hosts, затем обращается к DNS-серверу, а затем вызывает uname и снова лезет в hosts и к DNS и если не находит сопоставления, аварийно завершается. Итак, для нормального запуска потребуется полноценная и правильно настроенная сетевая инфраструктура, ну а в отсутствии работающего DNS достаточно дописать строчку в /etc/hosts и привести его примерно к такому виду:

127.0.0.1 localhost

192.168.122.227 vh-1c83.test.lan vh-1c83

::1 localhost localhost.localdomain localhost6 localhost6.localdomain6

За дальнейшими инструкциями пока отсылаю к своей статье про 8.2 - принципиальных отличий пока нет. Единственное замечание - при создании новой информационной базы, если указывать пользователя подключения к базе данных не с правами суперпользователя (а с набором прав из пункта 3), информационная база не создавалась, а в /var/lib/pgsql/9.2/data/pg_log/postgresql-Xxx.log наблюдались сообщения:

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: нет доступа к языку c

ОПЕРАТОР: CREATE OR REPLACE FUNCTION plpgsql_call_handler() RETURNS language_handler AS '$libdir/plpgsql' LANGUAGE C

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: ошибка синтаксиса (примерное положение: "application") в символе 24

ОПЕРАТОР: lock table pg_class in application share mode

ПРЕДУПРЕЖДЕНИЕ: нет незавершённой транзакции

ОШИБКА: тип "mvarchar" не существует в символе 31

ОПЕРАТОР: create table Config (FileName mvarchar(128) not null, Creation timestamp not null, Modified timestamp not null, Attributes int not null, DataSize int8 not null, BinaryData bytea not null, PartNo int not null, PRIMARY KEY (FileName, PartNo))

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: нет доступа к языку c

ОПЕРАТОР: CREATE OR REPLACE FUNCTION plpgsql_call_handler() RETURNS language_handler AS '$libdir/plpgsql' LANGUAGE C

После подключения с учётными данными суперпользователя БД, сообщения изменились на англоязычные и проблемы исчезли. Судя по всему, если на сервере установлен язык по умолчанию en_US, данного казуса не случится, но это - не проверенная информация, а лишь предположение, сделанное по прочтении чужой статьи про 8.1 и праздных раздумий =)

Ещё одна странность - если создать пустую SQL базу не из шаблона1 (см. официальную документацию по 1С), и попытаться ей указать на этапе создания ИБ, то всё равно получим сообщение "ОШИБКА: тип "mvarchar" не существует (символ 31)"/"ERROR: type "mvarchar" does not exist at character 31", но мне так и не удалось создать из требуемого шаблона БД - валились разные ошибки, но если пользователя sql, от которого создаётся ИБ временно повысить до суперпользователя с правом создания БД, и указать создание базы данных в случае её отсутствия, то всё получается в лучшем виде, так что на этапе первичной настройки, видимо, придётся повышать пользователя до супер...

Что порадовало - теперь в 1С можно работать непосредственно из Linux, что актуально для компаний, использующих его как основную ОС в корпоративной сети (я сейчас работаю как раз в такой компании); из неожиданностей - что при установке клиента 1С, он заявляет о зависимости от сервера и требует его установки, но потом ставится, прописывает значки запуска в "Офис" - "Финансы" и работает довольно сносно (по ощущениям - чуть менее комфортно, чем 8.2 под Windows, но заметно приятнее, чем тот же 8.2 через WINE от Ethersoft).

6. Установка недостающих зависимостей

При запуске клиента к настроенному по данной инструкции серверу, появится сообщение "На сервере отсутствуют шрифты из состава Microsoft Core Fonts. Внешний вид приложения может отличаться от ожидаемого. Процедура установки описана в справочной системе..." - данное сообщение появляется достаточно редко (периодичность не выявил, но появляется точно не единожды, но и не при каждом запуске), и на работе особо не сказывается, но "для красоты" я решил пройтись по всей цепочке и поставить рекомендуемые пакеты. Всё, кроме "corefonts" поставилось из репозиториев (хотя в той самой "справочной системе" безбожно перепутаны регистры в названиях пакетов, из-за чего их идентификация оказалась весьма развлекательна), ну а шрифты я решил пересобрать (в соответствии с рекомендациями из "справочной системы") и результат прикрепляю к статье - msttcorefonts-2.5-1.noarch.rpm, заодно и сами шрифты (уже переименованные в нижний регистр, как происходит при сборке rpm рекомендованным скриптом) - msttcorefonts.tar.gz - содержимое этого архива рекомендуют распаковать в /home/usr1cv8/.fonts (не забыв сменить владельца как на папку, так и на файлы!), если нет возможности установить предложенный .rpm

Кроме "ImageMagick" и шрифтов, для возможности сохранения в табличные файлы (кроме xls - его я пока не заставил формироваться, хотя xlsx формируется), на клиенте должны быть установлены пакеты "libMagickWand5", "libgomp1", "liblcms2-2" и "libbz2-1" - на ряде машин они отсутствовали. При чём той же разрядности, что и сервер 1С (см. п. 4).

7. Настройка аппаратного hasp для виртуализированного сервера 1С (работающего на виртуальной машине KVM)

Не планировал описывать эту процедуру, но раз уж столкнулся с такой ситуацией, опишу... Итак, на этот раз я использовал драйвер от "Alladin Knowledge Systems USB HASP", предоставляемый компанией Sentinel - мне попались две версии:

2878061 сен 11 2012 aksusbd-2.0-1.i386.rpm - с сайта aladdin-rd.ru

3009880 авг 6 16:35 aksusbd-2.2-1.i386.rpm - с сайта safenet-inc.com

Можно воспользоваться драйвером эзерсофт - окончательный выбор следует делать из опыта практической эксплуатации.

Наиболее правильная (на мой взгляд) последовательность действий:

а) убедиться, что на хост-машине драйвер HASP не установлен;

б) установить выбранный драйвер USB HASP4 на виртуальном сервере;

в) выяснить список подключенных USB-устройств к хост-машине

[root@vh01 files]# ls -R /dev/bus/usb

/dev/bus/usb:

001

002

003

004

/dev/bus/usb/001:

001

002

/dev/bus/usb/002:

001

/dev/bus/usb/003:

001

/dev/bus/usb/004:

001

[root@vh01 files]#

г) подключить USB-HASP к хост-машине и выяснить адрес ключа:

[root@vh01 files]# ls -R /dev/bus/usb

/dev/bus/usb:

001

002

003

004

/dev/bus/usb/001:

001

002

/dev/bus/usb/002:

001

/dev/bus/usb/003:

001

/dev/bus/usb/004:

001

002 <==== это наш ключ - раньше его не было

[root@vh01 files]#

д) используя любой из способов (я использовал Virtual Manager на удалённой машине) добавить "USB Host Device" с найденным адресом (в моём примере - 004:002) к виртуальной машине 1С - может потребоваться выключение и включение машины (я добавлял устройство на выключенную машину).

Собственно, всё - на CentOS 6.4 x64/i686 всё работает (были багрепорты про CentOS 6.0/6.1, но вроде всё починили). Если при запуске виртуалки выдаётся сообщение о занятости устройства, скорее всего подцепился драйвер на хост-машине (так писали на паре форумов, хотя мне эту ситуацию воспроизвести не получилось - даже с установленным драйвером на сервере устройство мапилось корректно). Естественно, если переставить ключ в другой порт USB, придётся перенацеливать и виртуальную машину!

И напоследок, коротко о том "что где лежит":

/etc/sysconfig/srv1cv83 - файл конфигурации сервера 1С

/home/usr1cv8/.1cv8/1C/1cv8/1cv8wsrv.lst - файл, в котором хранятся основные свойства сервера - например, учётные данные администратора сервера, зарегистрированые кластеры и т.п.

/home/usr1cv8/.1cv8/1C/1cv8/reg_1541/1CV8Clst.lst - файл, в котором хранятся свойства кластера по умолчанию

/opt/1C/v8.3/x86_64/ - (вместо "x86_64" может быть "i386" - в зависимости от архитектуры системы) исполняемые файлы и сопутствующие ресурсы сервера (и клиента) 1С

/var/1C/licenses - здесь лежат файлы электронных ключей лицензий

8. Настройка локального репозитория 1С для удобства обновления платформы 

В процессе эксплуатации 1С нередко приходится обновлять платформу. Если всё установлено по приведённой выше инструкции, это вызывает определённые неудобства - надо останавливать сервис, удалять старые пакеты, ставить новые... не знаю - мне это ещё в винде надоело смертельно. Linux предлагает очень удобный механизм пакетного обновления из локального репозитория - всё, что нужно - это выбрать место, где будут лежать обновки: для одиночного сервера, к которому все ходят только через web-интерфейс, это может быть /root/repo (всё равно обновление под рутом идёт), ну а в общем случае - хоть /var/www/1c-repo - главное, чтобы все, кому он нужен, его видели. Далее надо установить пакет 'createrepo' (yum install createrepo) - за собой он притащит немало зависимостей, но не смертельно. Теперь командой 'createrepo /root/repo' (где "/root/repo" - выбранный путь хранения репозитория) создаём его "описание" и можно пользоваться.

Затем создаём файл описания нашего репозитория и помещаем его в каталог описаний репозиториев (для CentOS это /etc/yum.repos.d). Пример конфига локального файлового репозитария:

[root@1c yum.repos.d]# cat local-1c.repo

[local-1c]

name=1C Enterprise

#baseurl=http://inhost.firm.lan/repo

baseurl=file:///root/repo

gpgcheck=0

enabled=1

По-моему, разъяснять что за что отвечает, особого смысла нет. Единственное, что важно - сразу yum его может не увидеть - в этой ситуации поможет очистка его кэшей (yum clean all).

Всё. Теперь если надо обновиться, то помещаем новые файлы дистрибутива 1С рядом со старыми, повторяем 'createrepo /root/repo' вызываем 'yum update' - и всё - платформа пошла обновляться! Естественно, за сохранностью и защищённостью своего репозитория надо следить, так как GPG у нас выключен, и это всё же дыра в безопасности, хоть и не особо толстая...

В 1С предполагается, что СообщениеПользователю выводятся для того, чтобы сообщить пользователю об ошибках. 

А для информирования о выполняемом действии рекомендуется использовать метод встроенного языка ПоказатьОповещениеПользователя().

СообщениеПользователю выводит сообщение пользователю (после окончания обработки) или сохраняет его в очередь, если сообщение невозможно вывести прямо сейчас.

Пример вывода сообщения на клиенте:

 Если ЗначениеЗаполнено(объект.ИнтернетМагазин) Тогда		

		// Все заполнено, обрабатываем

	Иначе

		сбп=Новый СообщениеПользователю;

		сбп.Текст = "Укажите интернет-магазин данные которого Вы загружаете!";

		сбп.Поле="ИнтернетМагазин";

		сбп.ПутьКДанным = "Объект";

		сбп.Сообщить();

	КонецЕсли;   

При обработке на сервере:

Необходимо зарегистрировать в системе соответствие объекта и имени реквизита формы. Для этого в глобальном контексте реализована функция УстановитьСоответствиеОбъектаИРеквизитаФормы(). Сделать это можно следующим образом:

  &НаСервере

Процедура ПроцедураВызываемаяСКлиента(ОбъектДанных)   

    Документ = ДанныеФормыВЗначение(Объект, Тип("ДокументОбъект.ПоступлениеТМЦ"));    // Преобразования данных формы в объект

    УстановитьСоответствиеОбъектаИРеквизитаФормы(Документ, "Объект");    // Установка соответствия

    ДействиеСОбъектом(Документ);    // Действия над объектом, в процессе работы которых может возникнуть необходимость вывода сообщений

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

В данном фрагменте выполняется преобразование объекта из данных формы в реальный объект и устанавливается его соответствие с реквизитом формы по имени "Объект".

Если в дальнейшем требуется создать сообщение, можно сделать это следующим образом:

  &НаСервере

Процедура ДействиеСОбъектом(ОбъектДанных)

    // Какие либо действия, которые требуют создания сообщения



    // Создание сообщения

    Сообщение = Новый СообщениеПользователю();

    Сообщение.Текст = "В строке 11 табличной части ""Номенклатура"" не хватает " + 

                      НедостающееКоличество + " " + ЕдиницаИзмеренияНоменклатуры;

    Сообщение.Поле = "Номенклатура[10].Количество";



    // Привязка объекта к реквизиту формы произойдет за счет

    // установленного выше по стеку соответствия методом

    // УстановитьСоответствиеОбъектаИРеквизитаФормы

    Сообщение.УстановитьДанные(ОбъектДанных);

    // Теперь у сообщения заполнено поле ПутьКДанным (установлено имя реквизита формы, до этого была пустая строка),

    // и свойство КлючДанных (установлена ссылка на документ, до этого было Неопределено)



    // Сообщение выводится пользователю

    Сообщение.Сообщить();

    // в дальнейшем сообщение будет показано в форме и привязано к

    // элементу управления связанного с полем Количество 

    // в 11-й строке табличной части Номенклатура.

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

В этом фрагменте создается новый объект СообщениеПользователю, в котором запоминается Текст сообщения и указывается Поле объекта, ошибка в данных которого вызвала необходимость вывода сообщения. Информация о том, как объект расположен в форме берется из предварительно запомненной пары "Объект/ИмяРеквизитаФормы". В дальнейшем сообщение будет выведено в окно сообщений формы и привязано к соответствующему элементу управления.

Примеры заполнения свойства Поле объекта СообщениеПользователю

Еще примеры:

 &НаКлиенте

Процедура ДействиеСОбъектомНаКлиенте(ОбъектДанных)

     // Какие либо действия, которые требуют создания сообщения

    // Создание сообщения

    Сообщение = Новый СообщениеПользователю();

    Сообщение.Текст = "В строке 11 табличной части ""Номенклатура"" не хватает " + 

                      НедостающееКоличество + " " + ЕдиницаИзмеренияНоменклатуры;

    Сообщение.Поле = "Номенклатура[10].Количество";





    // Привязка объекта к реквизиту формы "вручную"

    Сообщение.КлючДанных = ОбъектДанных.Ссылка;

    Сообщение.ПутьКДанным = "Объект";





    // Сообщение выводится пользователю

    Сообщение.Сообщить();

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





&НаСервере

Процедура Сообщить4НаСервере()

	Сообщение4 = новый СообщениеПользователю;

	Сообщение4.УстановитьДанные(РеквизитФормыВЗначение("Объект"));

	Сообщение4.Текст = "4. Сообщение привязанное к реквизиту шапки Организация";

	Сообщение4.Поле = "Организация";

	Сообщение4.Сообщить();

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



// Показываем сообщение из обработки

// КлючДанных и ПутьКДанным - пустые

   Сообщение = Новый СообщениеПользователю;

   Сообщение.Поле = "Комментарий";

   Сообщение.Текст = "Заполните комментарий";

   Сообщение.Сообщить();





// Показываем сообщение из документа

// КлючДанных - пустой, ПутьКДанным заполнится автоматически

    Сообщение = Новый СообщениеПользователю;

    Сообщение.Поле = "Товары[0].Количество";

    Сообщение.Текст = "Не заполнено количество товара в первой строке!";

    Сообщение.УстановитьДанные(ЭтотОбъект);

    Сообщение.Сообщить();



////////////////////  КОД для ТИПОВЫХ конфигураций, БСП:

//в модуле объекта

ОбщегоНазначенияКлиентСервер.СообщитьПользователю(“Текст ошибки”,                

                        ЭтотОбъект,

                        "Договор",,

                        Отказ);

//в форме объекта

ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Дублирование пременной'"), ,

"Запросы["+ИдентификаторСтроки+"].ИмяПеременнойЗапроса",//путь к данным

 "Объект", Отказ);   

   

ПоказатьОповещениеПользователя - оповещение возникает в правом нижнем углу приложения и сообщает о совершенном действии. В течение нескольких секунд оно постепенно гаснет и пропадает. При этом, если навести на оповещение курсор мышки, оно не гаснет, и есть возможность внимательно его прочитать:

 ПоказатьОповещениеПользователя(НСтр("ru = 'Выполнение:'"), ПолучитьНавигационнуюСсылку(Объект), "Выгрузка завершена, все ОК!", БиблиотекаКартинок.ПолнотекстовыйПоискДалее);   

  &НаКлиенте

Процедура ПриОткрытии(Отказ)

	Если ПолучитьДатуЗапретаРедактирования() >= Объект.Дата Тогда

		НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(Объект.Ссылка);

		ПоказатьОповещениеПользователя("Только просмотр!", 

		НавигационнаяСсылка, 

		"Разрешен только просмотр документа!");

	КонецЕсли;                                

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





&НаСервереБезКонтекста

Функция ПолучитьДатуЗапретаРедактирования()

	Запрос = Новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	|	Константы.ДатаЗапретаРедактирования

	|ИЗ

	|	Константы КАК Константы";

	РезультатЗапроса = Запрос.Выполнить();

	Возврат РезультатЗапроса.Выгрузить()[0].ДатаЗапретаРедактирования;

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