После обновления на платформу 8.3.23 и далее 8.3.24. При рассылке сообщений на электронную почту появляется ошибка:

Произошла ошибка при работе с SMTP. Код ошибки: 27 (Ошибка установки защищенного SSL/TLS соединения.)"

Произошла ошибка при работе с IMAP ...

Это ошибка1С  https://bugboard.v8.1c.ru/error/000142347

Описание:

При использовании почтового сервера imap.gmail.ru происходит ошибка

Произошла ошибка соединения с сервером при работе с IMAP. Код ошибки: 43 Ошибка установки защищенного SSL/TLS соединения

Способ обхода:

В conf.cfg добавить опцию IgnoreInternetMailServerCertificateVerificationList:

 IgnoreInternetMailServerCertificateVerificationList=imap.gmail.com;smtp.gmail.com   

В баг репорте ошибка описана для почты gmail, но у нас свой почтовый сервер и ошибка та же самая, и попутно было обнаружено, что и с mail.ru такая же есть ошибка, а вот Yandex.ru ошибку не дает.

Файл conf.cfg находится в папке C:\Program Files\1cv8\conf (для 64 платформы).

Сделайте запись по примеру выше. только замените gmail.com на свой сервер

// Возвращает содержимое ответа 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=Партии. Как заполнить партии в проводках, которые уже проведены ранее?

Спасибо.

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

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

Зарплата и управление персоналом, редакция 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

Подскажите пожалуйста, формирую отчет по остаткам сумм на бух счетах.

В запросе необходимо выбрать конкретные счета для вывода остатков.Но план счетов нетиповой, имеются счета, с маской ******** в которых присутствуют пробелы, т.е формат 1110 21, 1030 25 итд.Пробел чем то заменить нельзя. По законодательству только так.

Как в запросе этот пробел проставить? Пробовала и @ и нижнее подчеркивание, но при выводе отчета вылезает ошибка что такого счета нет (с нижним пробелом) или что задано неверное имя атрибута структуры.

Если пишешь слитно счет, тоже не находит

1с Предприятие Управление торговлей 2.1 Не проводится документ Поступление товаров и услуг. Ошибка - не заполнены оба счета. Не могу найти, где заполнить счета учета расчетов с контрагентами

Помогите. Ошибка при нажатие на обновление "Адресный классификатор устарел" 

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

 

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

Функция ПолучитьПрофильПочты()

	//Создаем профиль либо считываем из справочника 

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

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

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

	Профиль.ПортPOP3 = 995;//Отправитель.ПортPOP3; //110;

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

	Профиль.Пользователь = "s_v@inbox.ru";// Отправитель.Email; //"test@mail.ru"; 

	Профиль.Пароль = "8mFTnDjC4KftTzh"; //Отправитель.Пароль; //"123456789"; 

	Профиль.ПользовательSMTP =  "s_v@inbox.ru";//Отправитель.Email; //"test@mail.ru"; 

	Профиль.ПарольSMTP = "8mFTnDjC4KftTzh";//Отправитель.Пароль; //"123456789"; 

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

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

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

	//Создаем письмо 

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

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





Процедура ОсновныеДействияФормыСчетОтправитьНаПочту(Кнопка)

	Если ЗначениеЗаполнено(Ответственный.ПочтаДляОтправкиСчета) Тогда

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

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

		Текст = Письмо.Тексты.Добавить("В приложении счет"); 

		Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

		Письмо.Тема = Строка(Ссылка); 

		Письмо.Отправитель = "s_vmeste@inbox.ru"; 

		Письмо.ИмяОтправителя = "1С";

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



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

		текТабдок=СчетФаксимилеТовары(); //Функция возвращает табличный документ печать счета

		текТабдок.Записать(врфайл,ТипФайлаТабличногоДокумента.PDF);



		Письмо.Вложения.Добавить(врфайл);

		//добавляем вложение если нужно, например "C:\Приложение.doc" 

		//Вложений можно добавлять сколько требуется. 

		//Отправляем письмо

		Попытка 

			Почта.Подключиться(ПолучитьПрофильПочты()); Почта.Послать(Письмо); Предупреждение("Письмо отправлено",3);

		Исключение 

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

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

		//Закрываем письмо

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

		//Закрываем файл вложения

		Письмо.Вложения.Очистить();

	Иначе

		Предупреждение("В настройках ответственного не указана почта для отправки счета");

	КонецЕсли;

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

С версиями 8.2 сложнее, так как все почтовые сервисы перешли на SSL, а медоты:

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

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

появились только в 8.3.1 , остается использовать stunnel или CDO:

 //Отправка через CDO, Адрессаты через ";"

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



    Оправитель         = "s_v@inbox.ru";

    Пароль             = "8mFTnDjC4KftTzh";



    loConfig         = Новый COMОбъект("CDO.Configuration");

    loCdoMessage     = Новый COMОбъект("CDO.Message");

    loCdoMessage.Configuration = loConfig;

    loCdoMessage.From    = Строка("1С <"+Оправитель+">");  //loCdoMessage.From    = "Тест 1C"""" <xxxxxxx@yandex.ru>";

    loCdoMessage.To      = Адрессаты; //loCdoMessage.To      = "xxxxxxx@gmail.ru>";

    loCdoMessage.Subject = ?(ТемаСообщения="","1С",ТемаСообщения);

    loCdoMessage.TextBody = "1C";

     HTMLBody = "<html>

    |<head>

    |<meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">

    |<title> Тестовое сообщение </title>

    |</head>

    |<body>

    |<h4>" + ТекстСообщения + "</h4>

    |<p></p>

    |</body>

    |</html>";

    //loCdoMessage.BodyPart.Charset = "windows-1251"; 

    loCdoMessage.HTMLBody = HTMLBody;



    Если ТипЗнч(СписокВложений) = Тип("Строка") И Не СписокВложений = "" Тогда

        Попытка

            loCdoMessage.AddAttachment(СписокВложений);

        Исключение

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

    ИначеЕсли ТипЗнч(СписокВложений) = Тип("СписокЗначений") Тогда

        Для каждого ПутьКВложению Из СписокВложений Цикл

            Попытка

                loCdoMessage.AddAttachment(ПутьКВложению.Значение);

            Исключение

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

        КонецЦикла;

    КонецЕсли;

   loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").            Value = 2;

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").           Value = "smtp.mail.ru";

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").       Value = "465";

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").     Value = 1;

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").         Value = Оправитель;

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").         Value = Пароль;

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 1;

    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;



    loConfig.Fields.Update();   

    Попытка

        loCdoMessage.Send();

    Исключение

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

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

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



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



Процедура ОсновныеДействияФормыСчетТовары(Кнопка)

	Если ЗначениеЗаполнено(Менеджер.ПочтаДляОтправкиСчета) Тогда

		

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

		текТабдок=СчетФаксимилеТовары();

		текТабдок.Записать(врфайл,ТипФайлаТабличногоДокумента.XLS);

		ПослатьПоПочте(Менеджер.ПочтаДляОтправкиСчета,Строка(Ссылка),"Счет в приложении",врфайл);

		

		Предупреждение("Письмо отправлено",3);		

	Иначе

		Предупреждение("В настройках ответственного не указана почта для отправки счета");

	КонецЕсли;

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

Через stunnel в 1С код, менять не нужно, только установить программу и изменить настройки подключения к почтовому ящику

Скачиваем stunnel c официального сайта (stunnel.org)  и запускаем инсталятор, жмем yes при установке спросит страну и ваши данные, это нужно для создания сертификата на вашем компьютере.

После запуска в трее появится его иконка, правой клавишей и редактировать edit configuration

В блокноте откроется файл настроек, там будет пример для gmail дополняем или заменяем его следующим:

 [gmail-pop3]

client = yes

accept = 127.0.0.1:10110

connect = pop.gmail.com:995

[gmail-imap]

client = yes

accept = 127.0.0.1:10143

connect = imap.gmail.com:993

[gmail-smtp]

client = yes

accept = 127.0.0.1:10025

connect = smtp.gmail.com:465

[yandex-pop3]

client = yes

accept = 127.0.0.1:20110

connect = pop.yandex.ru:995

[yandex-imap]

client = yes

accept = 127.0.0.1:20143

connect = imap.yandex.ru:993

[yandex-smtp]

client = yes

accept = 127.0.0.1:20025

connect = smtp.yandex.ru:465

[mail-pop3]

client = yes

accept = 127.0.0.1:30110

connect = pop.mail.ru:995

[mail-imap]

client = yes

accept = 127.0.0.1:30143

connect = imap.mail.ru:993

[mail-smtp]

client = yes

accept = 127.0.0.1:30025

connect = smtp.mail.ru:465   

Сохраняем файл и делаем Reload configuration

В настройка 1С меняем порты для работы

gmail

pop3 10110

imap 10143

smtp 10025

yandex

pop3 20110

imap 20143

smtp 20025

mail

pop3 30110

imap 30143

smtp 30025

Если в коде прописано, то:

 Функция ПолучитьПрофильПочты()

	//Создаем профиль либо считываем из справочника 

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

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

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

	Профиль.ПортPOP3 = 30110;//Отправитель.ПортPOP3; //110;  995

	Профиль.ПортSMTP = 30025;//Отправитель.ПортSMTP; //587; 465

	Профиль.Пользователь = "s_v@inbox.ru";// Отправитель.Email; //"test@mail.ru"; 

	Профиль.Пароль = "8mFTnDjC4KftTzh"; //Отправитель.Пароль; //"123456789"; 

	Профиль.ПользовательSMTP =  "s_v@inbox.ru";//Отправитель.Email; //"test@mail.ru"; 

	Профиль.ПарольSMTP = "8mFTnDjC4KftTzh";//Отправитель.Пароль; //"123456789"; 

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

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

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

	//Создаем письмо 

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

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

   

Все, можно отправлять и проверять работу через консоль Show log window в меню

P.S. Почтовый ящик в примерах не рабочий, как пример 

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

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

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

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

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

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

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



        Если Движение.Количество() > 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Аутентификации.Обычная;

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

	

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

	Попытка

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

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

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

	Исключение

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

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

	

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

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

   

Устанавливаем на сервер лицензию на 20 раб. мест, проходит все этапы и пишет что лицензия получена. 

Но в программу 1С не заходит, выдает что как-будто изменилась конфигурация компьютера: Ошибка программного лицензирования. Ошибка привязки программной лицензии к компьютеру

Точно ни кто и ничего не менял в компьютере, пробовал удалять лицензию и делать восстановление - опять просит лицензию

Подробное описание ошибки:

• Не найдена лицензия. Не обнаружен ключ защиты программы или полученная программная лицензия!
• по причине:
• Поиск лицензии на клиенте:
• локальный ключ недоступен: Status=-10, ORGL8 Локальный, не установлен
• Ошибка программного лицензирования. Файл программной лицензии не предусматривает возможность запуска клиентских приложений 1С:Предприятия или внешних соединений: file://C:/ProgramData/1C/licenses/20170928112353.lic
• Ошибка программного лицензирования. Ошибка привязки программной лицензии к компьютеру: file://C:/ProgramData/1C/licenses/20180305020153.lic
• После получения лицензии удалены:
• DISK_2: SYNOLOGY iSCSI Storage SCSI Disk Device, SCSI\DISK&VEN_SYNOLOGY&PROD_ISCSI_STORAGE\1&1C121344&0&000100, 512, 63, 110307, 255, 28128285, 1772081955, 907305960960
• DISK_0: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000600, 512, 63, 29180, 255, 7440900, 468776700, 240013670400
• BIOS_0: HP, 20171002000000.000000+000, U23, 2, 8
• NET_10: [00000011] HPE Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:00
• NET_9: [00000010] HPE Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:01
• В текущей конфигурации компьютера имеются:
• DISK_0: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000600, 512, 63, 21884, 255, 5580420, 351566460, 180002027520
• DISK_3: SYNOLOGY iSCSI Storage SCSI Disk Device, SCSI\DISK&VEN_SYNOLOGY&PROD_ISCSI_STORAGE\1&1C121344&0&000000, 512, 63, 248029, 255, 63247395, 3984585885, 2040107973120
• DISK_2: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000400, 512, 63, 26107, 255, 6657285, 419408955, 214737384960
• DISK_1: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000500, 512, 63, 95489, 255, 24349695, 1534030785, 785423761920
• NET_10: [00000011] HP Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:00
• NET_9: [00000010] HP Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:01
• BIOS_0: HP, 20170117000000.000000+000, U23, 2, 8
• локальный ключ недоступен: Status=-10, ORG8A Локальный, не установлен
• локальный ключ недоступен: Status=-10, ORG8B Локальный, не установлен
• nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORGL8 Сетевой, не установлен
• nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORG8A Сетевой, не установлен
• nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORG8B Сетевой, не установлен
• Поиск лицензии на сервере:
• локальный ключ недоступен: Status=-100, ORGL8 Локальный, не установлен

Решение:

Удалите на компьютере все файлы 1cv8conn.pfl

Если после этого лицензия не найдена - восстановите ее по активному пин-коду.

После удачного входа, увидеть лицензию можно здесь:

Периодически возникает сообщение "Обнаружено неправомерное использование данного программного продукта". Что делать и как убрать это сообщение?

Сообщение о неправомерном использовании появляется в конфигурации, если при подключении к интернет-поддержке указан логин, у которого не выполняются условия доступа к обновлениям этой конфигурации, например:

• Программа не зарегистрирована на Портале 1С:ИТС, т.е. вы подключены к поддержке, но на сайте поддержки не зарегистрировали программу.
• Нет действующего договора ИТС
• Ошибочно подключен логин другой интернет поддержки (в котором нет зарегистрированной текущей программы)

Способы решения:

На портале 1С:ИТС у вас должна быть зарегистрирована текущая программа 1C (в коробке с программой белый конверт с пин-кодом для регистрации) и оформлен договор ИТС (Проф или Техно)

Далее по пунктам:

1. Для проверки регистрации программы на Портале 1С:ИТС, перейдите по пунктам меню "Администрирование->Интернет поддержка пользователей" В секции "Настройки Интернет-поддержки пользователей" будет виден логин на сайте ИТС

2. Если нажать на Логин, то откроется Портал 1С:ИТС, страница личного кабинета, где можно увидеть список зарегистрированных программных продуктов 1С. Если он пуст, тогда, возможно, ваши программы 1С зарегистрированы на другой логин или еще не зарегистрированы!

Для проверки регистрации договора ИТС можно нажать на ссылку "Договоры" на той же странице слева сверху в меню.

Если зарегистрированный договор ИТС есть, то он должен отображаться под надписью "Действующие и будущие договоры 1С:ИТС", например так:

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

Для входа в программе под другой учетной записью, нужно отключиться от текущей интернет-поддержки, нажав кнопку "Отключить":

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

Если проблема не ушла, обращайтесь, мы обязательно Вам поможем! - Наши услуги по обслуживанию 1С

Иногда возникает необходимость обработать фотографии в 1С автоматически, уменьшить вес картинок в килобайтах, за счет удаления из файла не нужной технической информации и сглаживания цветов, или изменить размер, уменьшить картинку пропорционально задав максимальный размер по ширине или высоте.В этом случае можно:1) установить специальные библиотеки в операционной системе для работы с графикой, н-р GFLAx и подключать их как com-объекты2) использовать api сервисов, таких как optipic.io.

Рассмотрим оба варианта:1) Использование GFLAxСкачиваем и устанавливаем библиотеку GFLAx, скачать можно здесь https://www.xnview.com/en/#downloads

Далее её надо зарегистрировать в Windows. Для этого запускаем CMD.exe с правами администратора и набираем: regsrv32 "путь_к_DLL\GFLAx.dll"Далее уже в программе, для пропорционального изменения размера файла до максимального размера в 500 пикселей можно вставить такой код:

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

GFLAx.LoadBitmap(ИмяИсходногоФайла);

// Получаем исходный размер картинки

Ширина = GFLAx.Width;

Высота = GFLAx.Height;

//определяем максимальную сторону по которой будем проводить пропорциональное изменениеДелитель= ?(Ширина>Высота, Делитель=Ширина/500, Делитель=Высота/500);

НоваяШирина = Ширина/Делитель;

НоваяВысота = Высота/Делитель;

GFLAx.Resize(Цел(НоваяШирина),Цел(НоваяВысота));

GFLAx.SaveBitmapИмяВыходногоФайла);   

Данный способ требует специальных настроек операционной системы, навыков системного администрирования и данный способ не проводит полноценную оптимизацию картинки.Кроме того, на компьютере или сервере, где производиться оптимизация эта библиотека должна быть установлена.2) Использование сервиса optipic.ioПодобные сервисы обычно платные, но стоимость использования не высокая, а качество и гибкость существенно выше.

Преимущества использования сервиса optipic.io в проектах 1С:

• Легко подключить
• Не нужно устанавливать дополнительные библиотеки в операционной системе
• Можно использовать как для оптимизации изображений, так и для изменения размера изображения в пикселях (ресайз)
• Не зависит от операционной системы и типа используемого клиента
• Конфигурация будет работать после переезда на другой компьютер или сервер
• Качество и эффективность сжатия производятся в самом оптимальном виде

Использование сервиса можно легко встроить в любой свой проект на 1С. Для этого можно добавить себе функцию, в которую передавать имя файла с исходной картинкой и параметры оптимизации. А в качестве ответа получить имя файла уже оптимизированного сервисом.

Пример такой функции для 1C8:

 Функция ОптимизироватьКартинку(ФайлКартинкиИсходный, Качество=70, НужноИзменятьРазмер=Ложь, МаксимальнаяШирина=1000, МаксимальнаяВысота=1000) Экспорт

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

	email  = "ВашEmail";

	Пароль = "ВашПароль";

	Соедиенение = Новый HTTPСоединение("optipic.io", , email, Пароль, , ,ssl);

	СкриптНаСайте = "api/compress?quality="+Качество+"&from=1c";

	Если НужноИзменятьРазмер Тогда

		СкриптНаСайте = СкриптНаСайте + "&maxwidth="+Формат(МаксимальнаяШирина, "ЧГ=")+"&maxheight="+Формат(МаксимальнаяВысота, "ЧГ=");

	КонецЕсли;

	

	НовыйФайлКартинки = ПолучитьИмяВременногоФайла();

	

	Попытка

		Результат  = Соедиенение.ОтправитьДляОбработки(ФайлКартинкиИсходный, СкриптНаСайте, НовыйФайлКартинки);

		Возврат НовыйФайлКартинки;

		

	Исключение

		//Обработка ошибки

		//Не удалось получить файл

		//Или нужно пополнить баланс

		Возврат ФайлКартинкиИсходный;

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

		

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

И далее в коде обращаться к данной функции, н-р так

 НовыйФайл = ОптимизироватьКартинку(ФайлКартинкиИсходный, 70, Истина, 500, 500);