Функция получение содержимого адреса url (веб-страницы) методом GET // Возвращает содержимое ответа HTTP-сервера, полученного методом GET, в виде строки или двоичных данныхhttp://www.w3.org/Protocols/rfc2616/rfc2616-sec10.... //Если сервер вернул один из статусов переадресацииhttp://ru.wikipedia.org/wiki/HTTP_cookie, http://www.faqs.org/rfcs/rfc6265.html?#41;, //вставим их в заголовки для передачи на страницу переходаhttp://ru.wikipedia.org/wiki/Список_MIME-типов Если Найти(ТипСодержимого, "text/") = 1 ИЛИ Найти(ТипСодержимого, "/javascript")http://www.http11.ru/post.php?post=2) Если ОтветHTTP.Заголовки["Content-Disposition"] Неопределено Тогдаhttp://forum.aeroion.ru/topic749.html [/pre]Примеры использования:
// Получение содержимого в виде строки// Категория: Нет
Как декодировать (преобразовать) Unicode в 1С При разработке очередного обмена с интернет магазином через API столкнулисть что сайт возвращает ответ в виде:
Код VBS {"ok" :"true" ,"description" :"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d" } из кода ясно что это JSON и используя код ПрочитатьJSON
Код 1C v 8.3 Чтение = Новый ЧтениеJSON;
Чтение. УстановитьСтроку( стрВходящая) ;
ДанныеЛога = ПрочитатьJSON( Чтение) ;
Чтение. Закрыть( ) ; В переменной ДанныеЛога будет структура в виде
В результате получилась функция с 2-мя вариантами возрата, в зависимости от того как нужно
Код 1C v 8.3
Функция ДекодироватьUniCodeВJSON(стрВходящая) = Новый ЧтениеJSON;
Чтение. УстановитьСтроку( стрВходящая) ;
ДанныеЛога = ПрочитатьJSON( Чтение) ;
Чтение. Закрыть( ) ;
Текст = "" ;
Для каждого Элемент Из ДанныеЛога Цикл
Текст = Текст + ? ( НЕ ПустаяСтрока( Текст) , Символы. ПС, "" ) ;
Текст = Текст + Элемент. Ключ + " = " + Элемент. Значение;
КонецЦикла ;
Возврат Текст;
Запись = Новый ЗаписьJSON;
Запись. УстановитьСтроку( Новый ПараметрыЗаписиJSON( ПереносСтрокJSON. Нет) ) ;
ЗаписатьJSON( Запись, ДанныеЛога, ) ;
Возврат Запись. Закрыть( ) ;
КонецФункции На просторах интернета была найдена еще одна функция:
Код 1C v 8.3
Функция ПереобразоватьЮникод(Строка) = "" ;
МасУкр = Новый Массив( 66 ) ;
МасУкр[0 ]= "А" ; МасУкр[1 ]= "Б" ; МасУкр[2 ]= "В" ; МасУкр[3 ]= "Г" ; МасУкр[4 ]= "Ґ" ; МасУкр[5 ]= "Д" ;
МасУкр[6 ]= "Е" ; МасУкр[7 ]= "Є" ; МасУкр[8 ]= "Ж" ; МасУкр[9 ]= "З" ; МасУкр[10 ]= "И" ; МасУкр[11 ]= "І" ;
МасУкр[12 ]= "Ї" ; МасУкр[13 ]= "Й" ; МасУкр[14 ]= "К" ; МасУкр[15 ]= "Л" ; МасУкр[16 ]= "М" ; МасУкр[17 ]= "Н" ;
МасУкр[18 ]= "О" ; МасУкр[19 ]= "П" ; МасУкр[20 ]= "Р" ; МасУкр[21 ]= "С" ; МасУкр[22 ]= "Т" ; МасУкр[23 ]= "У" ;
МасУкр[24 ]= "Ф" ; МасУкр[25 ]= "Х" ; МасУкр[26 ]= "Ц" ; МасУкр[27 ]= "Ч" ; МасУкр[28 ]= "Ш" ; МасУкр[29 ]= "Щ" ;
МасУкр[30 ]= "Ь" ; МасУкр[31 ]= "Ю" ; МасУкр[32 ]= "Я" ;
МасУкр[33 ]= "а" ; МасУкр[34 ]= "б" ; МасУкр[35 ]= "в" ; МасУкр[36 ]= "г" ; МасУкр[37 ]= "ґ" ; МасУкр[38 ]= "д" ;
МасУкр[39 ]= "е" ; МасУкр[40 ]= "є" ; МасУкр[41 ]= "ж" ; МасУкр[42 ]= "з" ; МасУкр[43 ]= "и" ; МасУкр[44 ]= "і" ;
МасУкр[45 ]= "ї" ; МасУкр[46 ]= "й" ; МасУкр[47 ]= "к" ; МасУкр[48 ]= "л" ; МасУкр[49 ]= "м" ; МасУкр[50 ]= "н" ;
МасУкр[51 ]= "о" ; МасУкр[52 ]= "п" ; МасУкр[53 ]= "р" ; МасУкр[54 ]= "с" ; МасУкр[55 ]= "т" ; МасУкр[56 ]= "у" ;
МасУкр[57 ]= "ф" ; МасУкр[58 ]= "х" ; МасУкр[59 ]= "ц" ; МасУкр[60 ]= "ч" ; МасУкр[61 ]= "ш" ; МасУкр[62 ]= "щ" ;
МасУкр[63 ]= "ь" ; МасУкр[31 ]= "ю" ; МасУкр[65 ]= "я" ;
МасКод = Новый Массив( 66 ) ;
МасКод[0 ]= "0410" ; МасКод[1 ]= "0411" ; МасКод[2 ]= "0412" ; МасКод[3 ]= "0413" ; МасКод[4 ]= "0490" ; МасКод[5 ]= "0414" ;
МасКод[6 ]= "0415" ; МасКод[7 ]= "0404" ; МасКод[8 ]= "0416" ; МасКод[9 ]= "0417" ; МасКод[10 ]= "0418" ; МасКод[11 ]= "0406" ;
МасКод[12 ]= "0407" ; МасКод[13 ]= "0419" ; МасКод[14 ]= "041A" ; МасКод[15 ]= "041B" ; МасКод[16 ]= "041C" ; МасКод[17 ]= "041D" ;
МасКод[18 ]= "041E" ; МасКод[19 ]= "041F" ; МасКод[20 ]= "0420" ; МасКод[21 ]= "0421" ; МасКод[22 ]= "0422" ; МасКод[23 ]= "0423" ;
МасКод[24 ]= "0424" ; МасКод[25 ]= "0425" ; МасКод[26 ]= "0426" ; МасКод[27 ]= "0427" ; МасКод[28 ]= "0428" ; МасКод[29 ]= "0429" ;
МасКод[30 ]= "042C" ; МасКод[31 ]= "042E" ; МасКод[32 ]= "042F" ;
МасКод[33 ]= "0430" ; МасКод[34 ]= "0431" ; МасКод[35 ]= "0432" ; МасКод[36 ]= "0413" ; МасКод[37 ]= "0491" ; МасКод[38 ]= "0434" ;
МасКод[39 ]= "0435" ; МасКод[40 ]= "0454" ; МасКод[41 ]= "0436" ; МасКод[42 ]= "0437" ; МасКод[43 ]= "0438" ; МасКод[44 ]= "0456" ;
МасКод[45 ]= "0457" ; МасКод[46 ]= "0439" ; МасКод[47 ]= "043A" ; МасКод[48 ]= "043B" ; МасКод[49 ]= "043C" ; МасКод[50 ]= "043D" ;
МасКод[51 ]= "043E" ; МасКод[52 ]= "043F" ; МасКод[53 ]= "0440" ; МасКод[54 ]= "0441" ; МасКод[55 ]= "0442" ; МасКод[56 ]= "0443" ;
МасКод[57 ]= "0444" ; МасКод[58 ]= "0445" ; МасКод[59 ]= "0446" ; МасКод[60 ]= "0447" ; МасКод[61 ]= "0448" ; МасКод[62 ]= "0449" ;
МасКод[63 ]= "044C" ; МасКод[31 ]= "044E" ; МасКод[65 ]= "044F" ;
тмпСтрока = "" ;
Для Счетчик = 1 По СтрДлина( Строка) Цикл
Если Лев( Строка, 1 ) = "\" Тогда
Если Лев( Строка, 2 ) = "\u" Тогда
тмпСтрока = Прав( Лев( Строка, 6 ) , 4 ) ;
Если МасКод. Найти( тмпСтрока) = Неопределено Тогда
СтрокаЗамены = Прав( тмпСтрока, 1 ) ;
тмпСтрока = СтрЗаменить( тмпСтрока, СтрокаЗамены, ТРег( СтрокаЗамены) ) ;
Если МасКод. Найти( тмпСтрока) = Неопределено Тогда
Сообщить( "Код символа не найден: " + тмпСтрока) ;
Иначе
ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод. Найти( тмпСтрока) ] ;
КонецЕсли ;
Иначе
ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод. Найти( тмпСтрока) ] ;
КонецЕсли ;
Строка = Прав( Строка, ( СтрДлина( Строка) - 6 ) ) ;
Иначе
Строка = Прав( Строка, ( СтрДлина( Строка) - 2 ) ) ;
КонецЕсли ;
Иначе
ГотововаяСтрока = ГотововаяСтрока + Лев( Строка, 1 ) ;
Строка = Прав( Строка, ( СтрДлина( Строка) - 1 ) ) ;
КонецЕсли ;
КонецЦикла ;
Возврат ГотововаяСтрока ;
КонецФункции Категория:
WEB-сервисы, WS-ссылки, XDTO-пакеты Отправка почты через Mail.ru с использованием технологии шифрования SSL Часто клиенты просят сделать автоматическую отправку счетов или отчетов на электронную почту, ниже приведены примеры кода для разных версий 1С:
Код 1C v 8.3
Функция ПолучитьПрофильПочты() = Новый ИнтернетПочтовыйПрофиль;
Профиль. АдресСервераSMTP = "smtp.mail.ru" ;
Профиль. АдресСервераPOP3 = "pop.mail.ru" ;
Профиль. ПортPOP3 = 995 ;
Профиль. ПортSMTP = 465 ;
Профиль. Пользователь = "s_v@inbox.ru" ;
Профиль. Пароль = "8mFTnDjC4KftTzh" ;
Профиль. ПользовательSMTP = "s_v@inbox.ru" ;
Профиль. ПарольSMTP = "8mFTnDjC4KftTzh" ;
Профиль. АутентификацияSMTP = СпособSMTPАутентификации. Login;
Профиль. ИспользоватьSSLPOP3 = Истина ;
Профиль. ИспользоватьSSLSMTP = Истина ;
Возврат Профиль;
КонецФункции
Процедура ОсновныеДействияФормыСчетОтправитьНаПочту(Кнопка) Если ЗначениеЗаполнено( Ответственный. ПочтаДляОтправкиСчета) Тогда
Почта = Новый ИнтернетПочта;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо. Тексты. Добавить( "В приложении счет" ) ;
Текст. ТипТекста = ТипТекстаПочтовогоСообщения. ПростойТекст;
Письмо. Тема = Строка( Ссылка) ;
Письмо. Отправитель = "s_vmeste@inbox.ru" ;
Письмо. ИмяОтправителя = "1С" ;
Письмо. Получатели. Добавить( Ответственный. ПочтаДляОтправкиСчета) ;
врфайл= ПолучитьИмяВременногоФайла( "pdf" ) ;
текТабдок= СчетФаксимилеТовары( ) ;
текТабдок. Записать( врфайл, ТипФайлаТабличногоДокумента. PDF) ;
Письмо. Вложения. Добавить( врфайл) ;
Попытка
Почта. Подключиться( ПолучитьПрофильПочты( ) ) ; Почта. Послать( Письмо) ; Предупреждение( "Письмо отправлено" , 3 ) ;
Исключение
Сообщить( ОписаниеОшибки( ) ) ;
КонецПопытки ;
Почта. Отключиться( ) ;
Письмо. Вложения. Очистить( ) ;
Иначе
Предупреждение( "В настройках ответственного не указана почта для отправки счета" ) ;
КонецЕсли ;
КонецПроцедуры С версиями 8.2 сложнее, так как все почтовые сервисы перешли на SSL, а медоты:
Код 1C v 8.3 Профиль. ИспользоватьSSLPOP3 = Истина ;
Профиль. ИспользоватьSSLSMTP = Истина ; появились только в 8.3.1 использовать stunnel или CDO :
Код 1C v 8.2 УП
Функция ПослатьПоПочте(Знач Адрессаты, ТемаСообщения = "" ,ТекстСообщения = "" ,СписокВложений = "" ) Экспорт = "s_v@inbox.ru" ;
Пароль = "8mFTnDjC4KftTzh" ;
loConfig = Новый COMОбъект( "CDO.Configuration" ) ;
loCdoMessage = Новый COMОбъект( "CDO.Message" ) ;
loCdoMessage. Configuration = loConfig;
loCdoMessage. From = Строка( "1С <" + Оправитель+ ">" ) ;
loCdoMessage. To = Адрессаты;
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. 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 дополняем или заменяем его следующим:
Код Batch File (DOS, CMD, BAT) [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
Если в коде прописано, то:
Код 1C v 8.х Функция ПолучитьПрофильПочты() = Новый ИнтернетПочтовыйПрофиль;
Профиль. АдресСервераSMTP = "localhost" ;
Профиль. АдресСервераPOP3 = "localhost" ;
Профиль. ПортPOP3 = 30110 ;
Профиль. ПортSMTP = 30025 ;
Профиль. Пользователь = "s_v@inbox.ru" ;
Профиль. Пароль = "8mFTnDjC4KftTzh" ;
Профиль. ПользовательSMTP = "s_v@inbox.ru" ;
Профиль. ПарольSMTP = "8mFTnDjC4KftTzh" ;
Профиль. АутентификацияSMTP = СпособSMTPАутентификации. Login;
Возврат Профиль;
КонецФункции
Все, можно отправлять и проверять работу через консоль Show log window в меню
P.S. Почтовый ящик в примерах не рабочий, как пример
Категория:
Работа с Интернет, Почтой (Mail), FTP Функция расчет среднемесячного количества часов Код 1C v 8.3
&НаСервере
Функция СреднемесячноеКоличествоЧасов(Год) = Новый Запрос;
Запрос. УстановитьПараметр( "Год" , Год) ;
Запрос. УстановитьПараметр( "РабочийДень" , Перечисления. ВидыДнейПроизводственногоКалендаря. Рабочий) ;
Запрос. УстановитьПараметр( "ПредпраздничныйДень" , Перечисления. ВидыДнейПроизводственногоКалендаря. Предпраздничный) ;
Запрос. Текст =
"ВЫБРАТЬ
| СУММА(ВЫБОР
| КОГДА РегламентированныйПроизводственныйКалендарь.ВидДня =РабочийДень
| ТОГДА 1
| ИНАЧЕ 0
| КОНЕЦ) КАК ЧислоРабочихДней,
| СУММА(ВЫБОР
| КОГДА РегламентированныйПроизводственныйКалендарь.ВидДня =ПредпраздничныйДень
| ТОГДА 1
| ИНАЧЕ 0
| КОНЕЦ) КАК ЧислоПредпраздничныхДней
|ИЗ
| РегистрСведений.ДанныеПроизводственногоКалендаря КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
| РегламентированныйПроизводственныйКалендарь.Год =Год" ;
ВыборкаКалендаря = Запрос. Выполнить( ) . Выбрать( ) ;
Если ВыборкаКалендаря. Следующий( ) тогда
ЧислоРабочихДнейВГоду = ? ( ВыборкаКалендаря. ЧислоРабочихДней = NULL , 0 , ВыборкаКалендаря. ЧислоРабочихДней) ;
ЧислоПредпраздничныхДнейВГоду = ? ( ВыборкаКалендаря. ЧислоПредпраздничныхДней= NULL , 0 , ВыборкаКалендаря. ЧислоПредпраздничныхДней) ;
Иначе
ЧислоРабочихДнейВГоду = 0 ;
ЧислоПредпраздничныхДнейВГоду = 0 ;
КонецЕсли ;
СреднеМесячное = Окр( ( ЧислоРабочихДнейВГоду* 8 + ЧислоПредпраздничныхДнейВГоду* 7 ) / 12 , 2 ) ;
Возврат СреднеМесячное;
КонецФункции
Категория:
1С Зарплата и Управление Персоналом 3.0 Библиотека кода: Сравнить две таблицы значений Код 1C v 8.х
Функция ТаблицыЗначенийРавны(ТаблицаЗначений1, ТаблицаЗначений2) Экспорт Если ТипЗнч( ТаблицаЗначений1 ) < > Тип( "ТаблицаЗначений" ) ИЛИ ТипЗнч( ТаблицаЗначений2 ) < > Тип( "ТаблицаЗначений" ) Тогда
Возврат Ложь ;
КонецЕсли ;
Если ТаблицаЗначений1 . Количество( ) < > ТаблицаЗначений2 . Количество( ) Тогда
Возврат Ложь ;
КонецЕсли ;
Если ТаблицаЗначений1 . Колонки. Количество( ) < > ТаблицаЗначений2 . Колонки. Количество( ) Тогда
Возврат Ложь ;
КонецЕсли ;
Для каждого Колонка Из ТаблицаЗначений1 . Колонки Цикл
Если ТаблицаЗначений2 . Колонки. Найти( Колонка. Имя) = Неопределено Тогда
Возврат Ложь ;
КонецЕсли ;
КонецЦикла ;
Для каждого Колонка Из ТаблицаЗначений2 . Колонки Цикл
Если ТаблицаЗначений1 . Колонки. Найти( Колонка. Имя) = Неопределено Тогда
Возврат Ложь ;
КонецЕсли ;
КонецЦикла ;
СтрокаИндекса = "" ;
Для каждого Колонка Из ТаблицаЗначений1 . Колонки Цикл
Если СтрокаИндекса = "" Тогда
СтрокаИндекса = Колонка. Имя;
Иначе
СтрокаИндекса = СтрокаИндекса+ "," + Колонка. Имя;
КонецЕсли ;
КонецЦикла ;
ТаблицаЗначений2 . Индексы. Добавить( СтрокаИндекса) ;
Для каждого СтрокаТаблицы Из ТаблицаЗначений1 Цикл
СтруктураПоиска = Новый Структура;
Для каждого Колонка Из ТаблицаЗначений1 . Колонки Цикл
СтруктураПоиска. Вставить( Колонка. Имя, СтрокаТаблицы[Колонка. Имя]) ;
КонецЦикла ;
СтрокиТаблицы2 = ТаблицаЗначений2 . НайтиСтроки( СтруктураПоиска) ;
Если СтрокиТаблицы2 . Количество( ) < > 1 Тогда
Возврат Ложь ;
КонецЕсли ;
КонецЦикла ;
СтрокаИндекса = "" ;
Для каждого Колонка Из ТаблицаЗначений2 . Колонки Цикл
Если СтрокаИндекса = "" Тогда
СтрокаИндекса = Колонка. Имя;
Иначе
СтрокаИндекса = СтрокаИндекса+ "," + Колонка. Имя;
КонецЕсли ;
КонецЦикла ;
ТаблицаЗначений1 . Индексы. Добавить( СтрокаИндекса) ;
Для каждого СтрокаТаблицы Из ТаблицаЗначений2 Цикл
СтруктураПоиска = Новый Структура;
Для каждого Колонка Из ТаблицаЗначений2 . Колонки Цикл
СтруктураПоиска. Вставить( Колонка. Имя, СтрокаТаблицы[Колонка. Имя]) ;
КонецЦикла ;
СтрокиТаблицы1 = ТаблицаЗначений1 . НайтиСтроки( СтруктураПоиска) ;
Если СтрокиТаблицы1 . Количество( ) < > 1 Тогда
Возврат Ложь ;
КонецЕсли ;
КонецЦикла ;
Возврат Истина ;
КонецФункции
Категория:
Полезные, Универсальные Функции Отправка и получение почты с использованием технологии шифрования SSL Почти все почтовые сервисы перешли на использование SSL и для получения почты нужно использовать IMAP, можно конечно и POP, но это уже прошлый век )
Пример получения почты с mail.ru по IMAP используя SSL:
Код 1C v 8.3 Функция ПолучитьНовыеПисьма() Экспорт = Новый ИнтернетПочта;
ИспользоватьIMAP= Истина ; ПочтовыйЯщик = "" ;
Профиль = ПолучитьПрофиль( ) ;
Попытка
Если ИспользоватьIMAP Тогда
Почта. Подключиться( Профиль, ПротоколИнтернетПочты. IMAP) ;
Если ПочтовыйЯщик = "" Тогда
ПочтовыйЯщик = "INBOX" ;
КонецЕсли ;
Почта. ТекущийПочтовыйЯщик = ПочтовыйЯщик;
Иначе ;
Почта. Подключиться( Профиль, ПротоколИнтернетПочты. POP3) ;
КонецЕсли ;
Исключение
Сообщить( НСтр( "ru = 'Ошибка при подключении к почтовому серверу. Проверьте настройки.'" ) ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Возврат 0 ;
КонецПопытки ;
ЗагруженныеПисьма = ПолучитьИдентификаторыЗагруженныхПисем( ) ;
ИдентификаторыНовыхПисем = Почта. ПолучитьИдентификаторы( ЗагруженныеПисьма) ;
Если ИдентификаторыНовыхПисем. Количество( ) = 0 Тогда
Иначе
Письма = Почта. Выбрать( Ложь , ИдентификаторыНовыхПисем, Истина ) ;
Для каждого Письмо Из Письма Цикл
Если Найти( Письмо. Тема, "siteabc.ru" ) > 0 Тогда
ПисьмоОбъект = Справочники. ВходящиеПисьма. СоздатьЭлемент( ) ;
ПисьмоОбъект. Идентификатор = Письмо. Идентификатор[0 ];
ПисьмоОбъект. Наименование = Письмо. Тема;
ПисьмоОбъект. Дата = Письмо. ДатаОтправления;
ПисьмоОбъект. Отправитель = Письмо. Отправитель;
Если ИспользоватьIMAP Тогда
ПисьмоОбъект. ПочтовыйЯщик = "IMAP/" + ПочтовыйЯщик;
Иначе
ПисьмоОбъект. ПочтовыйЯщик = "POP3" ;
КонецЕсли ;
Для каждого Элемент Из Письмо. Тексты Цикл
Если Элемент. ТипТекста = ТипТекстаПочтовогоСообщения. HTML Тогда
ПисьмоОбъект. ВидСодержимого = "HTML" ;
Текст = Элемент. Текст;
Если Найти( Текст, "<HTML>" ) = 0 Тогда
Текст = "<HTML><BODY>" + Текст + "</BODY></HTML>" ;
КонецЕсли ;
Прервать ;
ИначеЕсли Элемент. ТипТекста = ТипТекстаПочтовогоСообщения. ПростойТекст Тогда
ПисьмоОбъект. ВидСодержимого = "Текст" ;
Текст = Элемент. Текст;
КонецЕсли ;
КонецЦикла ;
ПисьмоОбъект. Текст = Текст;
ПисьмоОбъект. Записать( ) ;
КонецЕсли ;
КонецЦикла ;
КонецЕсли ;
Почта. Отключиться( ) ;
Функция ПолучитьПрофиль(ИмяОтправителя = "" , ИспользоватьIMAP = Ложь) Экспорт = Новый ИнтернетПочтовыйПрофиль;
Профиль. АутентификацияPOP3 = СпособPOP3Аутентификации. Обычная;
Профиль. POP3ПередSMTP= Ложь ;
Профиль. АдресСервераIMAP = "imap.mail.ru" ;
Профиль. ПортIMAP = 993 ;
Профиль. ИспользоватьSSLIMAP = Истина ;
Профиль. ПользовательIMAP = "siteabcz@mail.ru" ;
Профиль. ПарольIMAP = "9Ljkuf" ;
Профиль. ТолькоЗащищеннаяАутентификацияIMAP = Ложь ;
Возврат Профиль;
КонецФункции
Функция ПолучитьИдентификаторыЗагруженныхПисем() Экспорт = Новый Массив( ) ;
Запрос = Новый Запрос;
Запрос. Текст = "ВЫБРАТЬ Идентификатор ИЗ Справочник.ВходящиеПисьма" ;
Выборка = Запрос. Выполнить( ) . Выбрать( ) ;
Пока Выборка. Следующий( ) Цикл
Идентификаторы. Добавить( Выборка. Идентификатор) ;
КонецЦикла ;
Возврат Идентификаторы;
КонецФункции
Функция ПолучитьПрофиль(ИмяОтправителя = "" , ИспользоватьIMAP = Ложь) Экспорт = Новый ИнтернетПочтовыйПрофиль;
Профиль. Аутентификация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Аутентификации. Обычная;
МассивПисем = Новый массив( ) ;
Попытка
Почта = Новый ИнтернетПочта;
Почта. Подключиться( Профиль) ;
МассивПисем = Почта. Выбрать( Ложь ) ;
Исключение
Сообщить( "Ошибка получения почты " + ОписаниеОшибки( ) ) ;
КонецПопытки ;
Возврат МассивПисем;
КонецФункции
Категория:
Работа с Интернет, Почтой (Mail), FTP Программное создание, заполнение документа и открытие формы (УП, тонкий клиент) Чтобы программно заполнить документ по кнопке, делаем примерно следующее:
1. на форму, в нашем случае документа, добавляем кнопку (Команда и у нее процедура СоздатьПеремещение(Команда))
2. в ее обработчике пишем код создания документа перемещение товаров и заполняем его
Код 1C v 8.3 &НаСервере
Функция СоздатьПеремещениеНаСервере(ДанныеФормы) . Дата= ТекущаяДата( ) ;
ДанныеФормы. СкладОтправитель = Справочники. Склады. НайтиПоНаименованию( "Склад гарантийного обслуживания" ) ;
ДанныеФормы. СкладПолучатель = Справочники. Склады. НайтиПоНаименованию( "Склад гарантийных" ) ;
новСП= Новый СписокЗначений; н= 0 ;
Для Каждого стр из Объект. ДанныеПоГН Цикл
Если стр. ДанныеПроверки= Перечисления. СтатусПроверкиГарантии. зн0 тогда
новСП. Добавить( Строка( стр. НомерЗаводской) ) ; н= н+ 1 ;
КонецЕсли ;
КонецЦикла ;
Если н> 0 Тогда
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
| РеализацияТоваровУслугСерии.Серия КАК Серия,
| РеализацияТоваровУслугСерии.Ссылка.Дата КАК ДатаОтгрузки,
| РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,
| РеализацияТоваровУслугСерии.Ссылка КАК Возврат,
| РеализацияТоваровУслугСерии.Номенклатура,
| ПРЕДСТАВЛЕНИЕ(РеализацияТоваровУслугСерии.Серия) КАК СерияСТР
|ИЗ
| Документ.ВозвратТоваровОтКлиента.Серии КАК РеализацияТоваровУслугСерии
|ГДЕ
| РеализацияТоваровУслугСерии.Серия В
| (ВЫБРАТЬ
| СерииНоменклатуры.Ссылка КАК Ссылка
| ИЗ
| Справочник.СерииНоменклатуры КАК СерииНоменклатуры
| ГДЕ
| СерииНоменклатуры.Наименование В (&Наименование))
|
|УПОРЯДОЧИТЬ ПО
| Серия
|АВТОУПОРЯДОЧИВАНИЕ" ;
Запрос. УстановитьПараметр( "Наименование" , новСП) ;
ТаблицаЗапроса = Запрос. Выполнить( ) . Выгрузить( ) ;
Для каждого стр из новСП Цикл
НайденнаяСтрока= ТаблицаЗапроса. Найти( стр. Значение, "СерияСТР" ) ;
Если НайденнаяСтрока = Неопределено Тогда
Иначе
нстр= ДанныеФормы. Товары. Добавить( ) ;
нстр. Номенклатура = НайденнаяСтрока. Номенклатура;
нстр. Серия= НайденнаяСтрока. Серия;
нстр. КоличествоУпаковок= 1 ;
нстр. Количество= 1 ;
нстр. СтатусУказанияСерий= 2 ;
нстр. СтатусУказанияСерийОтправитель= 2 ;
нстр. СтатусУказанияСерийПолучатель= 2 ;
нстр= ДанныеФормы. Серии. Добавить( ) ;
нстр. Номенклатура = НайденнаяСтрока. Номенклатура;
нстр. Серия= НайденнаяСтрока. Серия;
нстр. Количество= 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 пикселей можно вставить такой код:
Код 1C v 8.х GFLAx = Новый COMОбъект( "GFLAx.GFLAx" ) ;
GFLAx. LoadBitmap( ИмяИсходногоФайла) ;
Ширина = GFLAx. Width;
Высота = GFLAx. Height;
НоваяШирина = Ширина/ Делитель;
НоваяВысота = Высота/ Делитель;
GFLAx. Resize( Цел( НоваяШирина) , Цел( НоваяВысота) ) ;
GFLAx. SaveBitmapИмяВыходногоФайла) ; Данный способ требует специальных настроек операционной системы, навыков системного администрирования и данный способ не проводит полноценную оптимизацию картинки.Кроме того, на компьютере или сервере, где производиться оптимизация эта библиотека должна быть установлена.2) Использование сервиса optipic.io Подобные сервисы обычно платные, но стоимость использования не высокая, а качество и гибкость существенно выше.
Преимущества использования сервиса optipic.io в проектах 1С:
Легко подключить Не нужно устанавливать дополнительные библиотеки в операционной системе Можно использовать как для оптимизации изображений, так и для изменения размера изображения в пикселях (ресайз) Не зависит от операционной системы и типа используемого клиента Конфигурация будет работать после переезда на другой компьютер или сервер Качество и эффективность сжатия производятся в самом оптимальном виде Использование сервиса можно легко встроить в любой свой проект на 1С. Для этого можно добавить себе функцию, в которую передавать имя файла с исходной картинкой и параметры оптимизации. А в качестве ответа получить имя файла уже оптимизированного сервисом.
Пример такой функции для 1C8:
Код 1C v 8.х Функция ОптимизироватьКартинку(ФайлКартинкиИсходный, Качество=70, НужноИзменятьРазмер=Ложь, МаксимальнаяШирина=1000, МаксимальнаяВысота=1000) Экспорт = Новый ЗащищенноеСоединениеOpenSSL( Неопределено , Неопределено ) ;
email = "ВашEmail" ;
Пароль = "ВашПароль" ;
Соедиенение = Новый HTTPСоединение( "optipic.io" , , email, Пароль, , , ssl) ;
СкриптНаСайте = "api/compress?quality=" + Качество+ "&from=1c" ;
Если НужноИзменятьРазмер Тогда
СкриптНаСайте = СкриптНаСайте + "&maxwidth=" + Формат( МаксимальнаяШирина, "ЧГ=" ) + "&maxheight=" + Формат( МаксимальнаяВысота, "ЧГ=" ) ;
КонецЕсли ;
НовыйФайлКартинки = ПолучитьИмяВременногоФайла( ) ;
Попытка
Результат = Соедиенение. ОтправитьДляОбработки( ФайлКартинкиИсходный, СкриптНаСайте, НовыйФайлКартинки) ;
Возврат НовыйФайлКартинки;
Исключение
Возврат ФайлКартинкиИсходный;
КонецПопытки ;
КонецФункции И далее в коде обращаться к данной функции , н-р так
Код 1C v 8.х НовыйФайл = ОптимизироватьКартинку( ФайлКартинкиИсходный, 70 , Истина , 500 , 500 ) ; Категория:
1С ERP Управление предприятием 2.0 Как посчитать разницу между двумя датами? Код уникален и сработает везде.
Код 1C v 8.3 Функция ПолучитьКоличествоДней() = 1 ;
НачалоПериода = Объект. НачалоПериода;
Пока НачалоПериода < Объект. КонецПериода Цикл
Счетчик = Счетчик + 1 ;
НачалоПериода = НачалоПериода + 86400 ;
КонецЦикла ;
Возврат Счетчик
КонецФункции Категория:
Работа с Датами (Временем) Запрос с ответом простое решения как получить значения с запросом.
Код 1C v 8.х
Функция ШтрихКодВыбрать (Наименование) ; = Новый Запрос;
Запрос. Текст = "ВЫБРАТЬ
| Штрихкоды.Штрихкод
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Владелец.Наименование =Наименование" ;
Запрос. УстановитьПараметр( "Наименование" , Наименование) ;
Результат = Запрос. Выполнить( ) . Выбрать( ) ;
Если Результат. Следующий( ) Тогда
ШТ = Результат. Штрихкод;
КонецЕсли ;
Возврат ШТ;
КонецФункции
Категория:
Запросы Пример работы с общим макетом типа ActiveDocument в клиент-серверном варианте Код 1C v 8.х
&НаСервере
Функция ПолучитьДанныеМакета() = Новый УникальныйИдентификатор( ) ;
Макет = ПолучитьОбщийМакет( "Договор" ) ;
ВременныйФайл = ПолучитьИмяВременногоФайла( "doc" ) ;
Макет. Записать( ВременныйФайл) ;
Адрес = ПоместитьВоВременноеХранилище( Новый ДвоичныеДанные( ВременныйФайл) , АдресХранилища) ;
УдалитьФайлы( ВременныйФайл) ;
Возврат Адрес;
КонецФункции
&НаСервере
Функция КодПользователя(Пользователь) Возврат СокрЛП( Пользователь. Сотрудник. Код) ;
КонецФункции
&НаКлиенте
Процедура ПечатьДоговора(Ссылка,РеквизитыДляПечати) = ОбщегоНазначения. ТекущийПользователь( ) ;
Каталог = КаталогВременныхФайлов( ) ;
Каталог = ? ( Прав( Каталог, 1 ) = "\" , Каталог, Каталог+ "\" ) ;
ПолноеИмяФайла = Каталог+ "Договор_" + КодПользователя( Пользователь) + ".doc" ;
Попытка
Индификатор = ПолучитьДанныеМакета( ) ;
МакетДоговора = ПолучитьИзВременногоХранилища( Индификатор) ;
МакетДоговора. Записать( ПолноеИмяФайла) ;
Исключение
Сообщить( ОписаниеОшибки( ) ) ;
КонецПопытки ;
Попытка
MSWord = Новый COMОбъект( "Word.Application" ) ;
Исключение
Сообщить( "Ошибка при попытке создать объект "" MS Word"" !" + Символы. ПС +
"Возможно приложение "" MS Word"" не установлено или установлено неправильно." , СтатусСообщения. Внимание) ;
КонецПопытки ;
MSWord. Documents. Open( ПолноеИмяФайла) ;
Попытка
Документ = MSWord. Application. Documents( 1 ) ;
Документ. Activate( ) ;
Исключение
Сообщение = Новый СообщениеПользователю( ) ;
Сообщение. Текст = ОписаниеОшибки( ) ;
Сообщение. Сообщить( ) ;
MSWord. Application. Quit( ) ;
Возврат ;
КонецПопытки ;
Попытка
Замена = Документ. Content. Find;
Замена. Execute( "{ЧтоМеняем}" , Ложь , Истина , Ложь , , , Истина , , Ложь , "На что меняем" ) ;
Исключение
КонецПопытки ;
MSWord. Application. Visible = Истина ;
MSWord. Activate( ) ;
КонецПроцедуры
Категория:
Работа с Microsoft Office и OpenOffice Перестал работать поиск в документах, справочниках и журналах Открыли документ Счет, в поле Контрагент набираете первую букву & поиск осуществляется, набираете вторую (третью) букву и список становится пустым - это слетел индекс полнотекстового поиска, его нужно обновить:
- Главное меню - Все функции - Стандартные - Управление полнотекстовым поиском
Если Пункт меню Все функции недоступен, то включить его можно в меню Сервис - Параметры - Показывать Все функции
или такой вариант:
Меню - Администрирование - Поддержка и обслуживание - Регламентные операции - Полнотекстовый поиск данных - Настроить - Очистить индекс - Обновить индекс
Категория:
1С Общие вопросы - Управляемые формы и Такс… Полезные советы по интерфейсу "Такси" Чтобы шрифт не казался крупным, и формы помещались на экране, можно уменьшить масштаб
Для этого нужно воспользоваться Меню «Вид – Изменить масштаб».
Чтобы быстро найти нужный пункт меню, можно воспользоваться поиском меню
Найти окно поиска меню на любой панели. В верхнем правом углу написать ключевое слово для поиска.
Так же используя поиск можно быстро искать необходимые документы или элементы справочника
Чтобы на форме помещалось больше информации, можно сократить панель разделов
Вызвать настройку панели разделов, для этого нужно воспользоваться Меню «Вид – Настройка панели разделов». Убрать надписи с панели разделов и оставить только картинку в окне «Показывать».
Чтобы на форме были видны нужные колонки и не видны ненужные, можно настроить форму
Открыть форму и воспользоваться кнопкой «Еще». В верхней правой части формы снять флажки с ненужных колонок, а нужные колонки передвинуть вперед.
Чтобы добавить журналы документов покупателей и поставщиков, можно настроить панели «Продажи» и «Покупки»
Нажать меню «Продажи». В правом верхнем углу нажать на серую шестеренку «Настройки». Выбрать меню «Настройка навигации». В списке слева щелкнуть два раза на «Документы покупателей».
Фильтры / отборы в журнале
Нажать на меню «Операции». Открыть «Журнал операций». В левом верхнем углу в поле «Контрагент» указать покупателя.
Все функции и стандартные операции
Откройте Меню-Сервис-Параметры, установите галку Отображать команду Все функции и нажмите ОК
Стандартные
Внизу раздел Стандартные:
Как вернуть стандартную настроку списка документов или справочника
Избранное - быстрый доступ к документам, справочникам
Для добавления в избранное нажмите на значек звездочки в открытом списке
или в меню раздела
Для быстрого доступа к избранному нажмите на звездочку в левом верхнем углу
Категория:
1С Общие вопросы - Управляемые формы и Такс… Добавление дополнительных отчетов и обработок в тонком клиенте БП 3.0, ЗУП 3.0, УТ 11 Любой отчет и обработку можно подключить пользователям как дополнительные отчеты или обработки, вот например пункт в БП - Банк:
Добавление происходит через
далее Дополнительные отчеты и обработки , в списке нажмите Создать и Выберите Файл отчета/обработки:
Перед добавлением файл нужно подготовить, дописать в модуль объекта код подключения:
Для обработок код:
Код 1C v 8.3 Функция СведенияОВнешнейОбработке() Экспорт = Новый Структура;
ПараметрыРегистрации. Вставить( "Вид" , "ДополнительнаяОбработка" ) ;
ПараметрыРегистрации. Вставить( "Назначение" , Новый СписокЗначений) ;
ПараметрыРегистрации. Вставить( "Наименование" , "Сравнение документов БУХ и УТ" ) ;
ПараметрыРегистрации. Вставить( "Версия" , "1.0" ) ;
ПараметрыРегистрации. Вставить( "БезопасныйРежим" , Истина ) ;
ПараметрыРегистрации. Вставить( "Информация" , "" ) ;
ПараметрыРегистрации. Вставить( "Команды" , Новый СписокЗначений) ;
ТаблицаКоманд = ПолучитьТаблицу_Команд( ) ;
ДобавитьКоманду( ТаблицаКоманд,
"Сравнение документов БУХ и УТ" ,
"Сравнение документов БУХ и УТ" ,
"ОткрытиеФормы" ,
Ложь ,
"" ) ;
ПараметрыРегистрации. Вставить( "Команды" , ТаблицаКоманд) ;
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицу_Команд() = Новый ТаблицаЗначений;
Команды. Колонки. Добавить( "Представление" , Новый ОписаниеТипов( "Строка" ) ) ;
Команды. Колонки. Добавить( "Идентификатор" , Новый ОписаниеТипов( "Строка" ) ) ;
Команды. Колонки. Добавить( "Использование" , Новый ОписаниеТипов( "Строка" ) ) ;
Команды. Колонки. Добавить( "ПоказыватьОповещение" , Новый ОписаниеТипов( "Булево" ) ) ;
Команды. Колонки. Добавить( "Модификатор" , Новый ОписаниеТипов( "Строка" ) ) ;
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "" ) = ТаблицаКоманд. Добавить( ) ;
НоваяКоманда. Представление = Представление;
НоваяКоманда. Идентификатор = Идентификатор;
НоваяКоманда. Использование = Использование;
НоваяКоманда. ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда. Модификатор = Модификатор;
КонецПроцедуры Для отчетов и печатных форм меняйте параметр Вид :
Код 1C v 8.3
ПараметрыРегистрации. Вставить( "Вид" , "ДополнительнаяОбработка" ) ;
Возможные значения этого поля приведу в виде таблицы
Значение поля "Вид" Расположение команды
Расширение
файла
ПечатнаяФорма В меню "Печать" на форме объекта или списка epf ЗаполнениеОбъекта В меню "Заполнить" на форме объекта или списка epf СозданиеСвязанныхОбъектов В меню "Создать на основании" - "Создание связанных объектов.." на форме объекта или списка epf Отчет В меню "Отчеты" на форме объекта или списка erf ДополнительнаяОбработка В списке соответствующих подсистем в меню "Сервис" - "Дополнительные обработки" epf ДополнительныйОтчет В списке соответствующих подсистем в меню "Сервис" - "Дополнительные отчеты" erf
Это поле может принимать одно из значений, возвращаемых функциями в типовых конфигурациях:
ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработки<Вид>(). Например, для вида "ПечатнаяФорма" есть функция ВидОбработкиПечатнаяФорма().
Категория:
Внешние печатные формы, отчеты и обработк�… Циклы в языке 1С, примеры и тест - какой цикл быстрее? Циклы применяются для выполнения каких либо повторяющихся действий, возможные варианты перебора в цикле:
Перебираем строки с помощью цикла Для каждого
Код 1C v 8.3 Для каждого ТекСтрока Из КоллекцияСтрок Цикл
КонецЦикла ; Перебираем строки с помощью цикла Пока
Код 1C v 8.3 Пока л < КолСтрок Цикл
КонецЦикла ; Перебираем строки с помощью цикла Для
Код 1C v 8.3 Для л= 0 по КолСтрок Цикл
КонецЦикла Еще вариант, но советую его использовать только в без выходных ситуациях, Если
Код 1C v 8.3 ~НачалоЦикла:
Если л < > КоличествоИтераций Тогда
Перейти ~НачалоЦикла;
КонецЕсли ; Примеры циклов Код 1C v 8.2 УП &НаКлиенте
Процедура ВыполнитьКод(Команда) Для Счетчик = 1 По 5 Цикл
Сообщить( Счетчик) ;
КонецЦикла ;
Дни = Новый Массив( ) ;
Дни. Добавить( "Понедельник" ) ;
Дни. Добавить( "Вторник" ) ;
Дни. Добавить( "Среда" ) ;
Для Каждого Элемент Из Дни Цикл
Сообщить( Элемент) ;
КонецЦикла ;
Счетчик = 0 ;
Пока Счетчик < Дни. Количество( ) Цикл
Сообщить( Дни[Счетчик]) ;
Счетчик = Счетчик + 1 ;
КонецЦикла ;
Счетчик = Дни. Количество( ) - 1 ;
Пока Счетчик > = 0 Цикл
Сообщить( Дни[Счетчик]) ;
Счетчик = Счетчик - 1 ;
КонецЦикла ;
Для Счетчик = 1 По 5 Цикл
Если Счетчик > 2 Тогда
Прервать ;
КонецЕсли ;
Сообщить( Счетчик) ;
КонецЦикла ;
Для Счетчик = 1 По 5 Цикл
Если Счетчик < > 3 Тогда
Продолжить;
КонецЕсли ;
Сообщить( Счетчик) ;
КонецЦикла ;
КонецПроцедуры
А какой цикл работает быстрее? Итак, я нашел пять способов, как можно организовать цикл средствами 1С.
Первый вид цикла, назовем его условно «Для По » выглядит так:
Код 1C v 8.х Для н = 0 по КоличествоИтераций Цикл
КакиеТоДействия( ) ;
КонецЦикла ; Второй вид «Для Каждого »:
Код 1C v 8.х Для Каждого ЭлементКоллекции из Коллекция Цикл
КакиеТоДействия( ) ;
КонецЦикла ; Третий «Пока »:
Код 1C v 8.х Пока н < > КоличествоИтераций Цикл
КакиеТоДействия( ) ;
н = н + 1 ;
КонецЦикла ; Далее вспомнил ассемблерную молодость & цикл «Если »:
Код 1C v 8.х ~НачалоЦикла:
Если н < > КоличествоИтераций Тогда
КакиеТоДействия( ) ;
н = н + 1 ;
Перейти ~НачалоЦикла;
КонецЕсли ; Ну и напоследок «Рекурсия »
Код 1C v 8.х Процедура РекурсивныйЦикл(н, КоличествоИтераций) ( ) ;
Если н < > КоличествоИтераций Тогда
РекурсивныйЦикл( н+ 1 , КоличествоИтераций) ;
КонецЕсли ;
КонецПроцедуры Естественно, что относить рекурсию к циклам не совсем корректно, но тем ни менее с её помощью можно добиться похожих результатов. Сразу оговорюсь, что в дальнейшем тестировании рекурсия не участвовала. Во первых все тесты проводились при 1 000 000 итераций, а рекурсия выпадает уже при 2 000. Во вторых скорость рекурсии в десятки раз меньше, чем скорость остальных циклов.
Последнее отступление. Одним из условий было выполнение в цикле каких-либо действий. Во первых пустой цикл используется очень редко. Во вторых цикл «ДляКаждого» используется для какой-либо коллекции, а значит и остальные циклы должны работать с коллекцией, чтобы тестирование проходило в одинаковых условиях.
Ну что ж, поехали. В качестве тела цикла использовалось чтение из заранее заполненного массива.
Код 1C v 8.х ПриемникТестовогоЗначения = ТестовыйМассив. Получить( н) ; или, при использовании цикла «Для Каждого »
Код 1C v 8.х ПриемникТестовогоЗначения = Элем; Тестирование проводилось на платформе 8.3.5.1231 для трех видов интерфейса (Обычное приложение, Управляемое приложение и Такси).
Результаты для 8.3.5.1231
Интерфейс ДляПо ДляКаждого Пока Если Обычное приложение 5734,2 4680,4 7235,4 7263,0 Управляемое приложение 5962,4 4882,6 7497,4 7553,6 Такси 5937,2 4854,6 7500,8 7513,0
Числа это время в миллисекундах полученное с помощью функции ТекущаяУниверсальнаяДатаВМиллисекундах() , которую я вызывал до цикла и после его завершения. Числа дробные, потому что я использовал среднее арифметическое пяти замеров. Почему я не использовал Замер производительности? У меня не было цели замерить скорость каждой строчки кода, только скорость циклов с одинаковым результатом работы.
Казалось бы и все, но & тестировать так тестировать!
Результаты для 8.2.19.106
Интерфейс ДляПо ДляКаждого Пока Если Обычное приложение 4411,8 3497,2 5432,0 5454,0 Управляемое приложение 4470,8 3584,8 5522,6 5541,0
В среднем платформа 8.2 на 25% быстрее, чем 8.3. Я немножко не ожидал такой разницы и решил провести тест на другой машине. Скажу только, что там 8.2 была быстрее процентов на 20.
Почему? Не знаю, дезасемблировать ядро в мои планы не входило, но в замер производительности я все же заглянул. Оказалось, что сами циклические операции в 8.3 проходят несколько быстрее, чем в 8.2. Но на строке
Код 1C v 8.х ПриемникТестовогоЗначения = ТестовыйМассив. Получить( н) ; то есть при считывании элемента коллекции в переменную происходит значительное снижение производительность.
Для себя я сделал несколько выводов:
1. Если есть возможность использовать специализированный цикл & «Для Каждого», то лучше использовать его. Кстати, сам по себе он отрабатывает дольше чем другие циклы, но скорость доступа к элементу коллекции у него на много выше.
2. Если заранее знаешь количество итераций & используй «Для По». «Пока» отработает медленнее.
3. Если использовать цикл «Если» & другие программисты тебя явно не поймут.
В статье использованы материалы с хабра и хелпме
Категория:
Встроенные Функции 
Функция получение содержимого адреса url (веб-страницы) методом GET 
, остается использовать stunnel или CDO:
.gif)
