1С и Web технологии

Решето или грехопадение Исполнителя 1С

Доброго времени суток!

Ну не мог я пройти мимо тестирования 1С executer и oscript — https://youtu.be/A1CedCgm1eA

Из документации 1С:
Язык «1С:Исполнителя» строго типизирован. У каждой переменной, параметра и метода, возвращающих значения, должны быть заданы типы или перечисление возможных типов через вертикальную черту «|» – нельзя передать переменную непредусмотренного типа.

И что мы имеем в Исполнителе с Массивом?
Новый Массив()
А в java на технологиях которого работает он:
ArrayList<Boolean>

Время работы исполнителя 216 сек, время oscript 97 сек, а jvm меньше 1 сек.

Для сравнения приведем что там реально на Диком Западе в динамической типизации?

Python3 27 сек

import datetime

n = 50000000;
array = []
array.insert(0, 0)
array.insert(1, 0)
i = 2
while i <= n:
    array.insert(i, 1)
    i += 1

print("Begin-");
timeBegin = datetime.datetime.now()
i = 2;
while i <= n:
    if array[i] == 1: 
        sq = i * i;
        if sq <= n: 
            m = sq
            while m <= n:
                array[m] = 0
                m += i
    i += 1

timeEnd = datetime.datetime.now();
diff = (timeEnd - timeBegin).seconds;
print("End-")
print(diff)

import datetime

n = 50000000;

array = []

array.insert(0, 0)

array.insert(1, 0)

i = 2

while i <= n:

array.insert(i, 1)

i += 1

print("Begin-");

timeBegin = datetime.datetime.now()

i = 2;

while i <= n:

if array[i] == 1:

sq = i * i;

if sq <= n:

m = sq

while m <= n:

array[m] = 0

m += i

i += 1

timeEnd = datetime.datetime.now();

diff = (timeEnd - timeBegin).seconds;

print("End-")

print(diff)

PHP7 19 сек

<?php
//$n = 50000000
ini_set("memory_limit", -1);

$n = 50000000;
$array = array();
$array[0] = 0;
$array[1] = 0;
for($i = 2; $i <= $n; $i++){
	$array[$i] = 1;
}

print("Begin-");

$timeBegin = new DateTime('now');
$i = 2;
while ( $i <= $n ) {
    if( $array[$i] === 1) {
        $sq = $i * $i;
        if($sq <= $n) {
            $m = $sq;
            while ($m <= $n) {
                $array[$m] = 0;
                $m += $i;
            }
        }
    }
	$i += 1;
}

$timeEnd = new DateTime('now');
$diff = $timeEnd->getTimestamp() - $timeBegin->getTimestamp();
print("End-".$diff)
?>

<?php

//$n = 50000000

ini_set("memory_limit", -1);

$n = 50000000;

$array = array();

$array[0] = 0;

$array[1] = 0;

for($i = 2; $i <= $n; $i++){

$array[$i] = 1;

}

print("Begin-");

$timeBegin = new DateTime('now');

$i = 2;

while ( $i <= $n ) {

if( $array[$i] === 1) {

$sq = $i * $i;

if($sq <= $n) {

$m = $sq;

while ($m <= $n) {

$array[$m] = 0;

$m += $i;

}

$i += 1;

}

$timeEnd = new DateTime('now');

$diff = $timeEnd->getTimestamp() - $timeBegin->getTimestamp();

print("End-".$diff)

И вне конкурса — статическая типизация
JAVA меньше секунды

import java.util.ArrayList;
import java.time.LocalDateTime;
import java.time.ZoneOffset;

public class Main {

    public static void main(String[] args) {
        int n = 50000000;
        ArrayList<Boolean> array = new ArrayList<Boolean>();
        array.add(false);
        array.add(false);
        long i = 2;
        while( i <= n ){
            array.add(true);
            i += 1;
        }    

        System.out.print("Start-");
        LocalDateTime timeBegin = LocalDateTime.now();
        i = 2;
        while ( i <= n ) {
            if( array.get((int)i) ){
                long sq = i * i;
                if (sq <= n) {
                    int m = (int)sq;
                    while (m <= n) {
                        array.set(m, false);
                        m += i;
                    }
                }
            }
            i += 1;
        }

        LocalDateTime timeEnd = LocalDateTime.now();
        long diff = timeEnd.toEpochSecond(ZoneOffset.UTC) - timeBegin.toEpochSecond(ZoneOffset.UTC);
        System.out.print("End-");
        System.out.print(diff);
    }

}

import java.util.ArrayList;

import java.time.LocalDateTime;

import java.time.ZoneOffset;

public class Main {

public static void main(String[] args) {

int n = 50000000;

ArrayList<Boolean> array = new ArrayList<Boolean>();

array.add(false);

long i = 2;

while( i <= n ){

array.add(true);

i += 1;

}

System.out.print("Start-");

LocalDateTime timeBegin = LocalDateTime.now();

i = 2;

while ( i <= n ) {

if( array.get((int)i) ){

long sq = i * i;

if (sq <= n) {

int m = (int)sq;

while (m <= n) {

array.set(m, false);

m += i;

}

i += 1;

}

LocalDateTime timeEnd = LocalDateTime.now();

long diff = timeEnd.toEpochSecond(ZoneOffset.UTC) - timeBegin.toEpochSecond(ZoneOffset.UTC);

System.out.print("End-");

System.out.print(diff);

}

Блеск и нищета 1С JSON

Доброго времени суток!

Если вы используете JSON внутри 1C и очень любите из него грузить данные могу Вас порадовать — это делается очень быстро и сразу получаются объекты 1С

СерилиазоторXDTO.ЗаписьJSON(ЗаписьJSON);

Но могу Васи сильно огорчить, если вы попытаетесь загрузить то что нет в вашей конфигурации, скажем нет у нас справочника СекретныйСправочник

{
"#type": "jv8:Structure",
"#value": [
{ "name": 
{ "#type": "jxs:string",
  "#value": "АдресРазгрузки" 
}, 
 "Value": 
{ "#type": "jcfg:CatalogRef.СекретныйСправочник",
  "#value": "ebe410a9-0b75-11e9-80c0-ac162da64212" 
}
}
]
}

{

"#type": "jv8:Structure",

"#value": [

{ "name":

{ "#type": "jxs:string",

"#value": "АдресРазгрузки"

"Value":

{ "#type": "jcfg:CatalogRef.СекретныйСправочник",

"#value": "ebe410a9-0b75-11e9-80c0-ac162da64212"

}

]

}

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

И прямой вылет программы 😉

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

Доброе время суток!

Как же легко и просто создать в 1С динамический список, написать понятный запрос и проставить необходимые поля.Но с течением времени количество таблиц в запросе увеличивается в 2-4 раза, количество полей в таблице растет. А количество записей растет очень быстро и за год может достигать миллиона и более в основной таблице.

И вот тут-то и начинается ОСОБЕННОСТЬ работы динамических списков. Первоначальное открытие формы начинает висеть долго, но не у всех и не всегда. Но новые пользователи конечно же должны первоначально прождать минут 20 для получения первичных данных.

И тут приходит время «Доработать» эти списки…

Первое до чего хотят добраться руки — Убрать динамическое считывание данных.

Из its 1C: Динамическое считывание данных включено (рекомендуется) https://its.1c.ru/db/v8std#content:732:hdoc:_top:%D0%B4%D0%B8%D0%BD%D0%B0%D0%BC%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B9%20%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA

Но это позволит убрать долгое зависание при прокрутке списка.

Второе это убрать загрузку кучи картинок привязной к этому списку, ну если до Вас этот список писали студенты на макете из трех документов…

Третье уже более существенное это вытащить все дополнительные данные в ПриПолученииДанныхНаСервере(https://wonderland.v8.1c.ru/blog/obrabotka-i-oformlenie-dannykh-dinamicheskogo-spiska/) чтобы разгрузить основной запрос.

//Получаем состояние задания
               Запрос = Новый Запрос;
               Запрос.Текст = "ВЫБРАТЬ
               |	ДокументВМСменноеЗадание.Ссылка КАК Ссылка,
               |	ВЫБОР
               |		КОГДА ДокументВМСменноеЗадание.Отмена
               |			ТОГДА 5
               |		КОГДА СостоянияСменныхЗаданийМК.Диспетчер = ИСТИНА
               |			ТОГДА СостоянияСменныхЗаданийМК.Состояние + 2
               |		ИНАЧЕ ЕСТЬNULL(СостоянияСменныхЗаданийМК.Состояние, 0)
               |	КОНЕЦ КАК СостояниеИндекс,
               |	ЕСТЬNULL(СостоянияСменныхЗаданийМК.Состояние, 0) КАК Состояние,
               |	ЕСТЬNULL(СостоянияСменныхЗаданийМК.ОбъемПодбора, 0) КАК ОбъемПодбора,
               |	ЕСТЬNULL(СостоянияСменныхЗаданийМК.Комментарий, """") КАК ПричинаНевыполнения,
               |	ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.ДатаПоследнейВыгрузки, """") КАК ДатаПоследнейВыгрузкиЦУР,
               |	ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.ИдентификаторЗадачи, """") КАК ИдентификаторЗадачиЦУР,
               |	ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.Ответственный, """") КАК ОтветственныйЦУР,
               |	ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.СостоянияСменногоЗаданияПоНавалам, """") КАК СостоянияСменногоЗаданияПоНавалам
               |ИЗ
               |	Документ.ВМСменноеЗадание КАК ДокументВМСменноеЗадание
               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостоянияСменныхЗаданийМК.СрезПоследних(, СсылкаНаОбъект В (&СписокСменныхЗаданий)) КАК СостоянияСменныхЗаданийМК
               |		ПО ДокументВМСменноеЗадание.Ссылка = СостоянияСменныхЗаданийМК.СсылкаНаОбъект
               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.вмИсторияВыгрузкиДанныхВЦУР КАК вмИсторияВыгрузкиДанныхВЦУР
               |		ПО ДокументВМСменноеЗадание.Ссылка = вмИсторияВыгрузкиДанныхВЦУР.Объект
               |ГДЕ
               |	ДокументВМСменноеЗадание.Ссылка В(&СписокСменныхЗаданий)";
	
	Запрос.УстановитьПараметр("СписокСменныхЗаданий", Строки.ПолучитьКлючи());
	ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
	Пока ВыборкаЗапроса.Следующий() Цикл
		CтрокаСписка = Строки[ВыборкаЗапроса.ССылка];
		CтрокаСписка.Данные["Состояние"] = ВыборкаЗапроса.Состояние;
		CтрокаСписка.Данные["СостояниеИндекс"] = ВыборкаЗапроса.СостояниеИндекс;
		CтрокаСписка.Данные["ОбъемПодбора"] = ВыборкаЗапроса.ОбъемПодбора;
		//Невидимые поля не надо устанавливать - ошибка
		//CтрокаСписка.Данные["ПричинаНевыполнения"] = ВыборкаЗапроса.ПричинаНевыполнения;
		
		CтрокаСписка.Данные["ДатаПоследнейВыгрузкиЦУР"] = ВыборкаЗапроса.ДатаПоследнейВыгрузкиЦУР;
		CтрокаСписка.Данные["ИдентификаторЗадачиЦУР"] = ВыборкаЗапроса.ИдентификаторЗадачиЦУР;
		CтрокаСписка.Данные["ОтветственныйЦУР"] = ВыборкаЗапроса.ОтветственныйЦУР;
		CтрокаСписка.Данные["СостоянияСменногоЗаданияПоНавалам"] = ВыборкаЗапроса.СостоянияСменногоЗаданияПоНавалам;
		
	КонецЦикла;

//Получаем состояние задания

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

Запрос.Текст = "ВЫБРАТЬ

| ДокументВМСменноеЗадание.Ссылка КАК Ссылка,

| ВЫБОР

| КОГДА ДокументВМСменноеЗадание.Отмена

| ТОГДА 5

| КОГДА СостоянияСменныхЗаданийМК.Диспетчер = ИСТИНА

| ТОГДА СостоянияСменныхЗаданийМК.Состояние + 2

| ИНАЧЕ ЕСТЬNULL(СостоянияСменныхЗаданийМК.Состояние, 0)

| КОНЕЦ КАК СостояниеИндекс,

| ЕСТЬNULL(СостоянияСменныхЗаданийМК.Состояние, 0) КАК Состояние,

| ЕСТЬNULL(СостоянияСменныхЗаданийМК.ОбъемПодбора, 0) КАК ОбъемПодбора,

| ЕСТЬNULL(СостоянияСменныхЗаданийМК.Комментарий, """") КАК ПричинаНевыполнения,

| ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.ДатаПоследнейВыгрузки, """") КАК ДатаПоследнейВыгрузкиЦУР,

| ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.ИдентификаторЗадачи, """") КАК ИдентификаторЗадачиЦУР,

| ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.Ответственный, """") КАК ОтветственныйЦУР,

| ЕСТЬNULL(вмИсторияВыгрузкиДанныхВЦУР.СостоянияСменногоЗаданияПоНавалам, """") КАК СостоянияСменногоЗаданияПоНавалам

|ИЗ

| Документ.ВМСменноеЗадание КАК ДокументВМСменноеЗадание

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостоянияСменныхЗаданийМК.СрезПоследних(, СсылкаНаОбъект В (&СписокСменныхЗаданий)) КАК СостоянияСменныхЗаданийМК

| ПО ДокументВМСменноеЗадание.Ссылка = СостоянияСменныхЗаданийМК.СсылкаНаОбъект

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.вмИсторияВыгрузкиДанныхВЦУР КАК вмИсторияВыгрузкиДанныхВЦУР

| ПО ДокументВМСменноеЗадание.Ссылка = вмИсторияВыгрузкиДанныхВЦУР.Объект

|ГДЕ

| ДокументВМСменноеЗадание.Ссылка В(&СписокСменныхЗаданий)";

Запрос.УстановитьПараметр("СписокСменныхЗаданий", Строки.ПолучитьКлючи());

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

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

CтрокаСписка = Строки[ВыборкаЗапроса.ССылка];

CтрокаСписка.Данные["Состояние"] = ВыборкаЗапроса.Состояние;

CтрокаСписка.Данные["СостояниеИндекс"] = ВыборкаЗапроса.СостояниеИндекс;

CтрокаСписка.Данные["ОбъемПодбора"] = ВыборкаЗапроса.ОбъемПодбора;

//Невидимые поля не надо устанавливать - ошибка

//CтрокаСписка.Данные["ПричинаНевыполнения"] = ВыборкаЗапроса.ПричинаНевыполнения;

CтрокаСписка.Данные["ДатаПоследнейВыгрузкиЦУР"] = ВыборкаЗапроса.ДатаПоследнейВыгрузкиЦУР;

CтрокаСписка.Данные["ИдентификаторЗадачиЦУР"] = ВыборкаЗапроса.ИдентификаторЗадачиЦУР;

CтрокаСписка.Данные["ОтветственныйЦУР"] = ВыборкаЗапроса.ОтветственныйЦУР;

CтрокаСписка.Данные["СостоянияСменногоЗаданияПоНавалам"] = ВыборкаЗапроса.СостоянияСменногоЗаданияПоНавалам;

КонецЦикла;

Важно понимать. что по этим данным мы не может сортировать или отбирать строки списка.

В четвертых — одно из самых главных это вставить отборы сразу в функцию ПриСозданииНаСервере — это уменьшит кардинально количество получаемых данных.

Если ПервоеОткрытиеФормы Тогда
//Всегда при первом открытии устанавливаем период сегодня
	Список.Параметры.УстановитьЗначениеПараметра("НачалоПериода", НачалоДня(ТекущаяДата()));
	Список.Параметры.УстановитьЗначениеПараметра("КонецПериода", КонецДня(ТекущаяДата()));
Иначе
	Если ЗначениеЗаполнено(НачалоПериода) И ЗначениеЗаполнено(КонецПериода) Тогда	
		Список.Параметры.УстановитьЗначениеПараметра("НачалоПериода", НачалоПериода);
		Список.Параметры.УстановитьЗначениеПараметра("КонецПериода", КонецПериода);
	КонецЕсли	
КонецЕсли;

Если ПервоеОткрытиеФормы Тогда

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

Список.Параметры.УстановитьЗначениеПараметра("НачалоПериода", НачалоДня(ТекущаяДата()));

Список.Параметры.УстановитьЗначениеПараметра("КонецПериода", КонецДня(ТекущаяДата()));

Иначе

Если ЗначениеЗаполнено(НачалоПериода) И ЗначениеЗаполнено(КонецПериода) Тогда

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

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

КонецЕсли

КонецЕсли;

Кнопка выбора периода работает на фильтрацию полученных данных, лучше переопределить ее

&НаКлиенте
Процедура УстановитьИнтервалЖурнала(Команда)

	Диалог = Новый ДиалогРедактированияСтандартногоПериода();
	Диалог.Период = Новый СтандартныйПериод(ВариантСтандартногоПериода.Сегодня);
	Если Диалог.Редактировать() Тогда 
		Элементы.Список.Период = Диалог.Период;
		УстановитьПараметрыСписка(Ложь, Диалог.Период.ДатаНачала, Диалог.Период.ДатаОкончания);	
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте

Процедура УстановитьИнтервалЖурнала(Команда)

Диалог = Новый ДиалогРедактированияСтандартногоПериода();

Диалог.Период = Новый СтандартныйПериод(ВариантСтандартногоПериода.Сегодня);

Если Диалог.Редактировать() Тогда

Элементы.Список.Период = Диалог.Период;

УстановитьПараметрыСписка(Ложь, Диалог.Период.ДатаНачала, Диалог.Период.ДатаОкончания);

КонецЕсли;

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

И лучше убрать или сделать недоступным строку состояния такого списка, иначе пользователи будут путаться при убирании отбора по этому параметру.

Файловая система из 1С, как это работает.

Доброго времени суток!

Долгое время, изучая изменения функций работы с файлами в 1С, я не понимал, что же нам предлагают. Нет, старый дубовый подход со времен 7.7 был прост и понятен. Но новый, «безмодальный», «асинхронный» и еще «Расширения для работы с Файлами» в браузере в принудительном варианте всегда вызывали вопросы. Пришло время разобраться.

Так что же мы имели раньше?

Для программиста получение информации о файле всегда сопровождалось работой с объектами файловой системы или функциями типа file_exists (в php) или Файл.Существует() (в 1С) — получаем сразу результат и пишем дальше алгоритм действий. Ведь просто же получим объект Файл, смотрим результат Файл.Существует() и в зависимости от результата делаем дополнительные действия:

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

КаталогНаДиске = Новый Файл(ИмяКаталога);

Если КаталогНаДиске.Существует() Тогда

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

Иначе

Ответ = Вопрос("Каталог не существует. Создать?", РежимДиалогаВопрос.ОКОтмена);

Если Ответ = КодВозвратаДиалога.ОК Тогда

СоздатьКаталог(ИмяКаталога);

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

Иначе

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

КонецЕсли;

Но с 2009 года в 1С стало все по-другому и теперь мы имеем встроенный метод НачатьПроверкуСуществования. И результат этой проверки мы получим не сразу, а уже внутри другой функции, специально указанной внутри вызова. Получается неудобно, длинно и непонятно где искать. Но так нам говорят необходимо для web. И маркетологи уже шепчут нам в ухо — это же асинхронно…

И вот тут у меня возникает диссонанс. То есть нам хотят сказать, что получение существования файла это длительный процесс запроса к удаленной системе и ожидание ответа от нее? Стоп, но на сервере не нужно никаких НачатьПроверку, там все прекрасно работает Файл.Существует(). То есть если мы переходим на событийную модель, как в nodеjs то это должно работать именно на сервере.

Так как же нам работать (что делать) и как во всем этом разобраться (кто виноват).

На первый вопрос практика и стальные нервы принесут нас плоды успеха.

Для циклической проверки существования файлов мы используем зацикливание на себя типа:

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

  Если Номер < НачальныйСписокКорневыхПапок.Количество() - 1 Тогда 
    Номер = Номер + 1; 
    Файл = Новый Файл(НачальныйСписокКорневыхПапок[Номер].Значение); 
    Файл.НачатьПроверкуСуществования(Новый ОписаниеОповещения("ПолучитьМассивДисковКомпьютераЗавершение", ЭтаФорма, Новый Структура("Файл, Номер, Поз", Файл, Номер, Поз))); 
  КонецЕсли; 
КонецПроцедуры

&НаКлиенте

Процедура ПолучитьМассивДисковКомпьютераЗавершение(Существует, ДополнительныеПараметры) Экспорт

Номер = ДополнительныеПараметры.Номер;

Файл = ДополнительныеПараметры.Файл;

Поз = ДополнительныеПараметры.Поз;

Если Существует Тогда

НовыйЭлемент = ДеревоПапок.ПолучитьЭлементы().Добавить();

НовыйЭлемент.Папка = Файл.ПолноеИмя;

НовыйЭлемент.ЭтоПапка = Истина;

НовыйЭлемент.ДочерниеЗагружены = Ложь;

НовыйЭлемент.ПолучитьЭлементы().Добавить();

Элементы.ДеревоПапок.Обновить();

КонецЕсли;

Если Номер < НачальныйСписокКорневыхПапок.Количество() - 1 Тогда

Номер = Номер + 1;

Файл = Новый Файл(НачальныйСписокКорневыхПапок[Номер].Значение);

Файл.НачатьПроверкуСуществования(Новый ОписаниеОповещения("ПолучитьМассивДисковКомпьютераЗавершение", ЭтаФорма, Новый Структура("Файл, Номер, Поз", Файл, Номер, Поз)));

КонецЕсли;

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

Многие скажут, что стоит подождать еще немного и с 8.3.18 можно будет писать в циклах

СуществуетФайл = Ждать Файл.СуществуетАсинх();

1	СуществуетФайл = Ждать Файл.СуществуетАсинх();

Но немногие понимают, что это практически немного другая оболочка закручивания того же самого, совместимая с современными названиями из javascript (Модненько).

Так что же нам предложили в 2009 году как прикладным программистам? Получается нам предложили callback, завернутый в ОписаниеОповешения(). И даже функции работы с обещаниями в 8.3.18 не меняют этой сути, а просто перепаковывают примерно как программисты javascript свои callback-и в promise. Но в отличие от Web вся остальная схема работы 1С осталась синхронной. Взаимодействие с сервером в 1С само синхронно — последовательно вызываются функции клиента и сервера, ответ у HTTPЗапрос — получаем последовательно. А ОписаниеОповещения повесили на клиента и функции взаимодействия с пользователем. Бардак в головах?

Нет не все функции в 1С будут прикрывать столь срамную реализацию. Есть и правильная тенденция в ПолучитьФайлССервера с несколькими Оповещениями(callback) и в них мы как раз начинаем получать правильное использование технологии. И это радует.

В второе важное, будем разбираться.

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

Берем вот так просто и копируем выделенные файлы с сервера на указанную папку пользовательской машины в браузере.

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

А функция НачатьЗапускПриложения с доступностью в браузере заставляет сердце йокать и подозревать что-то сильно нехорошее.

Но главное же быть полезным, а не правдивым ведь правда 😉

И для ИСКЛЮЧИТЕЛЬНО для полезности предлагаю обработку для работы с файловыми системами клиента и сервера в виде всеми любимых двух панелей по типу FAR, Norton Commander. — https://infostart.ru/public/1295065/

Р.S.

Проблема в мобильной приложении это поиск корневых папок, Android это будет типа /storage/emulated/0 или другое специально подобранное и доступ опять такой как у всей платформы 1С. Возможность накосячить большая 😉

Воспроизведение звука в 1С. Доступно и всерьез. 8.3.14

Доброго времени суток!

С момента предыдущей публикации infostart.ru/public/248770/ прошло много времени. И честно говоря, если вы запустите старую обработку на Windows 10 и новой платформе 8.3.14, то звук уже не будет воспроизводиться. За это время многие уже перебрались на платформу выше 8.3.14, а значит, и html поле теперь всегда новое и это не зависит от режима совместимости 😉 и режима классических форм. Все старое перестало работать! Значит, есть основание сделать мир лучше!

Можно пойти путем использования функций операционной системы (внешняя компонента) или взаимодействия с другой системой, которая сумеет воспроизвести звук. Это правильный подход и я его рекомендую в сложных проектах. Но если вам дано добавить два, три звукового сопровождения к существующей доработке, то предлагаю действующий метод.

Прежде всего скажем, что будем использовать поле html, интернет стандарты это единственное, на чем можно основываться в нашем проприоритетном мире. И конечно если мы доделываем для Web клиента, то других вариантов у нас просто нет.

Итак начнем с самых основ звука в html5 и тега audio (https://www.w3schools.com/html/tryit.asp?filename=tryhtml5_audio_all):

XHTML

<!DOCTYPE html> <html> <body> <audio controls> <source src="horse.ogg" type="audio/ogg"> <source src="horse.mp3" type="audio/mpeg"> Your browser does not support the audio element. </audio> </body> </html>

1
2
3
4
5
6
7
8
9
10
11
12

<!DOCTYPE html>
<html>
<body>

<audio controls>
<source src="horse.ogg" type="audio/ogg">
<source src="horse.mp3" type="audio/mpeg">
Your browser does not support the audio element.
</audio>

</body>
</html>

Проблема номер один ссылка на файл в контексте сервера. Где должен быть расположен файл по отношению сервера 1С, локального компьютера ил того подобного.

Ответ 1: полная ссылка на звуковой файл типа — https://blog.sikuda.ru/1c/sound1c.mp3 — ВСЕ ПРЕКРАСНО и для Вэб-клиента это пока единственный вариант.

Ответ 2: Прописывание звука в тело html типа — src=’data:audio/mpeg;base64 НЕ ПРОХОДИТ 1С клиент.

Ответ 3: Указание ссылки Адрес во временном хранилище у меня НЕ ЗАРАБОТАЛО.

Ответ 4: Использовать временные локальные файлы на клиенте file:// вместе с ПолучитьИмяВременногоФайла — РАБОТАЕТ даже в тонком клиенте.

И вторая проблема с которой я столкнулся, это однократное воспроизведение звука. Я так понял это проблема кэширования самой 1С html поля с этим сложно бороться. Простое решение работает если перезагружать страницу с кодом:

<script>
   var aud = new Audio('"+АдресЗвукаНаСтранице+"');
   aud.play();
</script>

var aud = new Audio('"+АдресЗвукаНаСтранице+"');

aud.play();

</script>

Ну а тем кто хочет использовать элементы управления звуком и не получить в стандартном 1С черный прямоугольник, рекомендую воспользоваться сторонним плеером (мне понравился https://plyr.io/#audio и вторая обработка)

Ну вот и все. Тестируем, критикуем, комментируем. Если найдете лучший метод не стесняйтесь рассказывайте.

Готовые обработки выложены на Infostart https://infostart.ru/public/1259789/

Как разнести простых толстых и web-клиентов на разные сервера 1С.

Доброго времени суток!

Добавляет функциональные требования для серверов.

Для толстых клиентов:

Для тонких и web клиентов:

И самое главное не забываем применить эти требования.

1С . Работа с Файлами раньше и завтра…

Доброго времени суток!

Вначале была Файл и файл был у системы 1С и файл был прост…
Загрузка файла:

//На форме есть поле (Путь к файлу), для кнопки Выбор (Событие начало выбора) пропишем процедуру выбора файла
Процедура ВыборФайла(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
	СтандартнаяОбработка=ложь;
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок = "Выберите файл";
	Диалог.ПолноеИмяФайла = ""; 
	Фильтр = "EXE (*.exe)|*.exe"; 
	Диалог.Фильтр = Фильтр; 
        Диалог.МножественныйВыбор = Ложь;
	Диалог.Каталог = "F:\";
	Если Диалог.Выбрать() Тогда
		Элемент.значение = Диалог.ПолноеИмяФайла;
	КонецЕсли;
КонецПроцедуры

//На форме есть поле (Путь к файлу), для кнопки Выбор (Событие начало выбора) пропишем процедуру выбора файла

Процедура ВыборФайла(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

СтандартнаяОбработка=ложь;

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

Диалог.Заголовок = "Выберите файл";

Диалог.ПолноеИмяФайла = "";

Фильтр = "EXE (*.exe)|*.exe";

Диалог.Фильтр = Фильтр;

Диалог.МножественныйВыбор = Ложь;

Диалог.Каталог = "F:\";

Если Диалог.Выбрать() Тогда

Элемент.значение = Диалог.ПолноеИмяФайла;

КонецЕсли;

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

Сохранение файла:

Режим = РежимДиалогаВыбораФайла.Сохранение; 
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 
ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 
Фильтр = "Текст(*.txt)|*.txt";                 
ДиалогСохраненияФайла.Фильтр = Фильтр; 
ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 
ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 
Если ДиалогСохраненияФайла.Выбрать() Тогда 
	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 
// выбрали файл, сохраняем в него данные
// код... 
КонецЕсли;

Режим = РежимДиалогаВыбораФайла.Сохранение;

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy");

Фильтр = "Текст(*.txt)|*.txt";

ДиалогСохраненияФайла.Фильтр = Фильтр;

ДиалогСохраненияФайла.МножественныйВыбор = Ложь;

ДиалогСохраненияФайла.Заголовок = "Выберите файл";

Если ДиалогСохраненияФайла.Выбрать() Тогда

ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;

// выбрали файл, сохраняем в него данные

// код...

КонецЕсли;

Но потом пришел Интернет и разделение локального контента и серверного у 1C. Поэтому ввели РасширениеДляРаботыСФайлами для браузеров как костыль для старой работы. И потом понеслось…

Привет ПоместитьФайл и пока с ошибкой совместимости…

Загрузка по новому которая пока работает https://infostart.ru/public/812886/
И улучшения https://wonderland.v8.1c.ru/blog/uluchshenie-raboty-s-faylami-v-veb-kliente

&НаКлиенте
Процедура ВыбратьНесколькоДляЗагрузки(Команда)
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 
	Диалог.Заголовок = "Собственный заголовок диалога загрузки файла"; 
	ОбработкаОкончанияЗагрузки = Новый ОписаниеОповещения("Обработчик_Завершения_Загрузки", ЭтотОбъект, Диалог); 
	НачатьПомещениеФайла(ОбработкаОкончанияЗагрузки, , Диалог, Истина, УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура Обработчик_Завершения_Загрузки(Результат, СсылкаВХранилище, ИмяФайла, Диалог)Экспорт
	Если Результат	Тогда
		Сообщить("Файл " + ИмяФайла + " отправлены на сервер"); 
	КонецЕсли; 	
КонецПроцедуры

&НаКлиенте

Процедура ВыбратьНесколькоДляЗагрузки(Команда)

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

Диалог.Заголовок = "Собственный заголовок диалога загрузки файла";

ОбработкаОкончанияЗагрузки = Новый ОписаниеОповещения("Обработчик_Завершения_Загрузки", ЭтотОбъект, Диалог);

НачатьПомещениеФайла(ОбработкаОкончанияЗагрузки, , Диалог, Истина, УникальныйИдентификатор);

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

&НаКлиенте

Процедура Обработчик_Завершения_Загрузки(Результат, СсылкаВХранилище, ИмяФайла, Диалог)Экспорт

Если Результат Тогда

Сообщить("Файл " + ИмяФайла + " отправлены на сервер");

КонецЕсли;

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

То есть все равно осталось две функции. Зачем?

А на javascript передача файла на сервер выглядит следующим образом:

function upload(file) {
  var xhr = new XMLHttpRequest();
  // обработчики успеха и ошибки
  xhr.onload = xhr.onerror = function() {
    if (this.status == 200) {
      log("success");
    } else {
      log("error " + this.status);
    }
  };
  xhr.open("POST", "upload", true);
  xhr.send(file);
}

function upload(file) {

var xhr = new XMLHttpRequest();

// обработчики успеха и ошибки

xhr.onload = xhr.onerror = function() {

if (this.status == 200) {

log("success");

} else {

log("error " + this.status);

}

};

xhr.open("POST", "upload", true);

xhr.send(file);

}

Но не стоит расстраиваться, через некоторое время мы снова будем переписывать на новые функции

Проанализировав имеющиеся методы (ПолучитьФайл(), ПолучитьФайлы(), НачатьПолучениеФайлов()) мы решили ничего в них не менять, а просто отказаться от них. Вместо них мы сделали два новых асинхронных метода с понятными именами: НачатьПолучениеФайлаССервера() и НачатьПолучениеФайловССервера().

https://wonderland.v8.1c.ru/blog/unifikatsiya-metodov-raboty-s-faylami/?sphrase_id=168400

Сертификаты и httpСоединение из 1С

Доброго времени суток!

Если вы из 1С 8.3 подключаетесь: В корпоративной сети не забудьте параметр ИспользоватьАутентификациюОС = Истина. Иначе localhost может не работать.

Если Порт = 443 Тогда
		
   ssl = Новый ЗащищенноеСоединениеOpenSSL(
   Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Выбирать),
   Новый СертификатыУдостоверяющихЦентровWindows());

Иначе
    ssl = Неопределено;
КонецЕсли;	
	
Соединение = Новый HTTPСоединение(Сервер, Порт,,,,0,ssl, Истина);
Заголовки = Новый Соответствие;           
Заголовки.Вставить("Content-Type","application/x-www-form-urlencoded;charset=utf-8");

Если Порт = 443 Тогда

ssl = Новый ЗащищенноеСоединениеOpenSSL(

Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Выбирать),

Новый СертификатыУдостоверяющихЦентровWindows());

Иначе

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

КонецЕсли;

Соединение = Новый HTTPСоединение(Сервер, Порт,,,,0,ssl, Истина);

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

Заголовки.Вставить("Content-Type","application/x-www-form-urlencoded;charset=utf-8");

И потом посылаете GET запрос

Запрос = Новый HTTPЗапрос("_update1C.php", Заголовки);
Попытка
   Ответ = Соединение.Получить(Запрос);
Исключение
  Сообщить(Сервер+"-ошибка подключения");
КонецПопытки;	
Если Ответ <> Неопределено Тогда 
  СтрокаОтвета = Ответ.ПолучитьТелоКакСтроку();
  Если Ответ.КодСостояния = 200 Тогда
	Сообщить("+"+Сервер+"-ответ-"+СтрокаОтвета);
  Иначе	
	Сообщить("-"+Сервер+"-"+Ответ.КодСостояния+"-"+СтрокаОтвета);
  КонецЕсли;
КонецЕсли;

Запрос = Новый HTTPЗапрос("_update1C.php", Заголовки);

Попытка

Ответ = Соединение.Получить(Запрос);

Исключение

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

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

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

СтрокаОтвета = Ответ.ПолучитьТелоКакСтроку();

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

Сообщить("+"+Сервер+"-ответ-"+СтрокаОтвета);

Иначе

Сообщить("-"+Сервер+"-"+Ответ.КодСостояния+"-"+СтрокаОтвета);

КонецЕсли;

Если у Вас на тестовых серверах поставлены бесплатные простые сертификаты, ну как обычно. То строго:

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

1	ssl = Новый ЗащищенноеСоединениеOpenSSL();

Добавить, обновить сотрудников в Битрикс24

Доброго времени суток!

Пришла тут задача по обновлению сотрудников для Битрикс24 из 1С. Так как сами сотрудники переносились из Active Directory и Подразделения тоже не хотелось бы перетаскивать из-за несоответствия
То грузим по UserData(JSON) из POST запроса прямо из 1С(в файл _update1C.php):

require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");
if(CModule::IncludeModule("main"))
{ 
	$Data = json_decode($_POST["UserData"]);
    if (isset($Data)){

    	$UF_DEPARTMENT = 0;
    	if(!empty($Data->UF_DEPARTMENT)) {
    		
	  $ufSupDepartment = CIblockSection::getList(	array(), array('IBLOCK_ID' => IbDepartments, 'NAME' => $Data->UF_DEPARTMENT), false, array('IBLOCK_ID', 'ID', 'IBLOCK_SECTION_ID', 'NAME', 'XML_ID'))->fetch();
	$UF_DEPARTMENT = $ufSupDepartment["ID"];
    	}
	  	$user = new CUser;
		$fields = Array(
			"LOGIN" => $Data->LOGIN,
			"EMAIL" => $Data->EMAIL,
			"WORK_PHONE" =>  $Data->WORK_PHONE,
			"XML_ID" =>  $Data->XML_ID,
			"NAME" => $Data->NAME,
			"LAST_NAME" => $Data->LAST_NAME,
			"SECOND_NAME" => $Data->SECOND_NAME,
			"UF_LOCATION" => $Data->UF_LOCATION,
			"WORK_DEPARTMENT" => $Data->WORK_DEPARTMENT,
			"UF_DEPARTMENT" => array($UF_DEPARTMENT),
			"WORK_POSITION" => $Data->WORK_POSITION,
			"WORK_COMPANY" => "ОАК",
			"ACTIVE" => "Y"
		);
		if(isset($Data->PERSONAL_BIRTHDAY)) $fields["PERSONAL_BIRTHDAY"] = $Data->PERSONAL_BIRTHDAY;

		if(!empty($Data->ID)){
			$fields["PASSWORD"] = "Bitrix@654321UAA";
	 		$user->Update($Data->ID, $fields);

		}else{
		 	$ID = $user->Add($fields);	
		 	if (intval($ID) > 0){
		 		//Добавляем в группу пользователей
		 		$arGroups = CUser::GetUserGroup($ID);
				$arGroups[] = 12;
				CUser::SetUserGroup($ID, $arGroups);
				echo $ID;
		 	} 
		 	else echo "ERROR:".$user->LAST_ERROR;
		}
    }
}

require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");

if(CModule::IncludeModule("main"))

{

$Data = json_decode($_POST["UserData"]);

if (isset($Data)){

$UF_DEPARTMENT = 0;

if(!empty($Data->UF_DEPARTMENT)) {

$ufSupDepartment = CIblockSection::getList( array(), array('IBLOCK_ID' => IbDepartments, 'NAME' => $Data->UF_DEPARTMENT), false, array('IBLOCK_ID', 'ID', 'IBLOCK_SECTION_ID', 'NAME', 'XML_ID'))->fetch();

$UF_DEPARTMENT = $ufSupDepartment["ID"];

}

$user = new CUser;

$fields = Array(

"LOGIN" => $Data->LOGIN,

"EMAIL" => $Data->EMAIL,

"WORK_PHONE" => $Data->WORK_PHONE,

"XML_ID" => $Data->XML_ID,

"NAME" => $Data->NAME,

"LAST_NAME" => $Data->LAST_NAME,

"SECOND_NAME" => $Data->SECOND_NAME,

"UF_LOCATION" => $Data->UF_LOCATION,

"WORK_DEPARTMENT" => $Data->WORK_DEPARTMENT,

"UF_DEPARTMENT" => array($UF_DEPARTMENT),

"WORK_POSITION" => $Data->WORK_POSITION,

"WORK_COMPANY" => "ОАК",

"ACTIVE" => "Y"

);

if(isset($Data->PERSONAL_BIRTHDAY)) $fields["PERSONAL_BIRTHDAY"] = $Data->PERSONAL_BIRTHDAY;

if(!empty($Data->ID)){

$fields["PASSWORD"] = "Bitrix@654321UAA";

$user->Update($Data->ID, $fields);

}else{

$ID = $user->Add($fields);

if (intval($ID) > 0){

//Добавляем в группу пользователей

$arGroups = CUser::GetUserGroup($ID);

$arGroups[] = 12;

CUser::SetUserGroup($ID, $arGroups);

echo $ID;

}

else echo "ERROR:".$user->LAST_ERROR;

}

И передающий код 1С из своей конфигурации

ssl = Новый ЗащищенноеСоединениеOpenSSL();
Сервер = "10.1.32.71";
Соединение = Новый HTTPСоединение(Сервер, 443,,,,0,ssl, Истина);
Заголовки = Новый Соответствие;           
Заголовки.Вставить("Content-Type","application/x-www-form-urlencoded;charset=utf-8"); 
Структура = Новый Структура;
Структура.Вставить("ID", СокрЛП(Сотрудник.bx_ID));
Если НЕ ЗначениеЗаполнено(Сотрудник.bx_login) Тогда
	Поз = Найти(Сотрудник.АдресЕлектроннойПочты, "@");	
	Если Поз > 0 Тогда
		Объект = Сотрудник.ПолучитьОбъект();	
		Объект.bx_login = Лев(Сотрудник.АдресЕлектроннойПочты, Поз-1);
		Объект.Записать();
	КонецЕсли;	
КонецЕсли;	
Структура.Вставить("LOGIN", Сотрудник.bx_login);
Если НЕ ЗначениеЗаполнено(Сотрудник.bx_email) Тогда
	Объект = Сотрудник.ПолучитьОбъект();	
	Объект.bx_email = Сотрудник.АдресЕлектроннойПочты;
	Объект.Записать();
КонецЕсли;
Структура.Вставить("EMAIL", Сотрудник.bx_email);
Если Сотрудник.bx_birthday <> Дата(1, 1, 1) Тогда
   Структура.Вставить("PERSONAL_BIRTHDAY", Сотрудник.bx_birthday);
КонецЕсли;
Структура.Вставить("WORK_PHONE", Сотрудник.bx_phone);
Структура.Вставить("LOGIN", Сотрудник.bx_login);
Если НЕ ЗначениеЗаполнено(Сотрудник.bx_XML_ID) Тогда
    Объект = Сотрудник.ПолучитьОбъект();	
    Объект.bx_XML_ID = Строка(Сотрудник.УникальныйИдентификатор());
    Объект.Записать();
КонецЕсли;
Структура.Вставить("XML_ID", Сотрудник.bx_XML_ID);
Если НЕ ЗначениеЗаполнено(Сотрудник.bx_name) Тогда
    Наименование = Сотрудник.Наименование;
    Поз = Найти(Наименование, " ");	
    Если Поз > 0 Тогда
	Объект = Сотрудник.ПолучитьОбъект();	
	Объект.bx_surname = Лев(Наименование, Поз-1);
	Объект.Записать();
	Наименование = Прав( Наименование, СтрДлина(Наименование) - Поз);
	Поз = Найти(Наименование, " ");	
	Если Поз > 0 Тогда
   	    Объект = Сотрудник.ПолучитьОбъект();	
	    Объект.bx_name = Лев(Наименование, Поз-1);
	    Объект.Записать();
	    Наименование = Прав( Наименование, СтрДлина(Наименование) - Поз);
	    Объект.bx_midname = Наименование;
	    Объект.Записать();
	КонецЕсли;
   КонецЕсли;
КонецЕсли;	
Структура.Вставить("NAME", Сотрудник.bx_name);
Структура.Вставить("LAST_NAME", Сотрудник.bx_surname);
Структура.Вставить("SECOND_NAME", Сотрудник.bx_midname);
Структура.Вставить("UF_LOCATION", Сотрудник.bx_place);
Структура.Вставить("WORK_DEPARTMENT", Сотрудник.ПодразделениеОрганизации.Наименование);
Структура.Вставить("UF_DEPARTMENT", Сотрудник.ТекущееПодразделениеОрганизации.Наименование);
Структура.Вставить("WORK_POSITION", Сотрудник.ТекущаяДолжностьОрганизации.Наименование);

ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, Структура);
СтрокаJSON = ЗаписьJSON.Закрыть();
	
Запрос = Новый HTTPЗапрос("/company/_update1C.php", Заголовки);
Запрос.УстановитьТелоИзСтроки("AUTH_FORM=Y&TYPE=AUTH&backurl=%2Fcompany%2F_update1C.php&USER_LOGIN=user1&USER_PASSWORD=topsecret&USER_REMEMBER=Y&UserData="+СтрокаJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
Попытка
   Ответ = Соединение.ОтправитьДляОбработки(Запрос);
Исключение
   Сообщить(Сервер+"-ошибка подключения");
КонецПопытки;	
Если Ответ <> Неопределено Тогда 
	СтрокаОтвета = Строка(Ответ.ПолучитьТелоКакСтроку());
	Если Ответ.КодСостояния = 200 Тогда
		Если НЕ ЗначениеЗаполнено(Сотрудник.bx_ID) И Лев(СтрокаОтвета,5) <> "ERROR" Тогда
			Объект = Сотрудник.ПолучитьОбъект();	
			Объект.bx_ID = СокрЛП(СтрокаОтвета);
			Объект.Записать();
		КонецЕсли;	
	Иначе	
		Сообщить("-"+Сервер+"-"+Ответ.КодСостояния+"-"+СтрокаОтвета);
	КонецЕсли;
Иначе
	Сообщить("Ошибка передачи данных");
КонецЕсли;

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

Сервер = "10.1.32.71";

Соединение = Новый HTTPСоединение(Сервер, 443,,,,0,ssl, Истина);

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

Заголовки.Вставить("Content-Type","application/x-www-form-urlencoded;charset=utf-8");

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

Структура.Вставить("ID", СокрЛП(Сотрудник.bx_ID));

Если НЕ ЗначениеЗаполнено(Сотрудник.bx_login) Тогда

Поз = Найти(Сотрудник.АдресЕлектроннойПочты, "@");

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

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_login = Лев(Сотрудник.АдресЕлектроннойПочты, Поз-1);

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

КонецЕсли;

Структура.Вставить("LOGIN", Сотрудник.bx_login);

Если НЕ ЗначениеЗаполнено(Сотрудник.bx_email) Тогда

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_email = Сотрудник.АдресЕлектроннойПочты;

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

КонецЕсли;

Структура.Вставить("EMAIL", Сотрудник.bx_email);

Если Сотрудник.bx_birthday <> Дата(1, 1, 1) Тогда

Структура.Вставить("PERSONAL_BIRTHDAY", Сотрудник.bx_birthday);

КонецЕсли;

Структура.Вставить("WORK_PHONE", Сотрудник.bx_phone);

Структура.Вставить("LOGIN", Сотрудник.bx_login);

Если НЕ ЗначениеЗаполнено(Сотрудник.bx_XML_ID) Тогда

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_XML_ID = Строка(Сотрудник.УникальныйИдентификатор());

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

КонецЕсли;

Структура.Вставить("XML_ID", Сотрудник.bx_XML_ID);

Если НЕ ЗначениеЗаполнено(Сотрудник.bx_name) Тогда

Наименование = Сотрудник.Наименование;

Поз = Найти(Наименование, " ");

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

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_surname = Лев(Наименование, Поз-1);

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

Наименование = Прав( Наименование, СтрДлина(Наименование) - Поз);

Поз = Найти(Наименование, " ");

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

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_name = Лев(Наименование, Поз-1);

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

Наименование = Прав( Наименование, СтрДлина(Наименование) - Поз);

Объект.bx_midname = Наименование;

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

КонецЕсли;

Структура.Вставить("NAME", Сотрудник.bx_name);

Структура.Вставить("LAST_NAME", Сотрудник.bx_surname);

Структура.Вставить("SECOND_NAME", Сотрудник.bx_midname);

Структура.Вставить("UF_LOCATION", Сотрудник.bx_place);

Структура.Вставить("WORK_DEPARTMENT", Сотрудник.ПодразделениеОрганизации.Наименование);

Структура.Вставить("UF_DEPARTMENT", Сотрудник.ТекущееПодразделениеОрганизации.Наименование);

Структура.Вставить("WORK_POSITION", Сотрудник.ТекущаяДолжностьОрганизации.Наименование);

ЗаписьJSON = Новый ЗаписьJSON;

ЗаписьJSON.УстановитьСтроку();

ЗаписатьJSON(ЗаписьJSON, Структура);

СтрокаJSON = ЗаписьJSON.Закрыть();

Запрос = Новый HTTPЗапрос("/company/_update1C.php", Заголовки);

Запрос.УстановитьТелоИзСтроки("AUTH_FORM=Y&TYPE=AUTH&backurl=%2Fcompany%2F_update1C.php&USER_LOGIN=user1&USER_PASSWORD=topsecret&USER_REMEMBER=Y&UserData="+СтрокаJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);

Попытка

Ответ = Соединение.ОтправитьДляОбработки(Запрос);

Исключение

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

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

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

СтрокаОтвета = Строка(Ответ.ПолучитьТелоКакСтроку());

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

Если НЕ ЗначениеЗаполнено(Сотрудник.bx_ID) И Лев(СтрокаОтвета,5) <> "ERROR" Тогда

Объект = Сотрудник.ПолучитьОбъект();

Объект.bx_ID = СокрЛП(СтрокаОтвета);

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

КонецЕсли;

Иначе

Сообщить("-"+Сервер+"-"+Ответ.КодСостояния+"-"+СтрокаОтвета);

КонецЕсли;

Иначе

Сообщить("Ошибка передачи данных");

КонецЕсли;

Python, pip и сертификаты

Доброго времени суток!

Если при запуске pip В увидели что-то вроде Fatal error in launcher: Unable to create process using ‘»d:\python37\python.exe» «C:\python3\Scripts\pip.exe» ‘
Это Вы переносили Python с другого компьютера
надо запускать python -m pip …

И далее если у Вас начинает ругать на сертификаты
Retrying (Retry(total=4, connect=None, read=None, redirect=None, status=None)) after connection broken by ‘SSLError(SSLCertVerificationError(1, ‘[SSL: CERTIFICATE_VERIFY_FAILED] certificate verify failed: unable to get local issuer certificate (_ssl.c:1056)’))’: /simple/pyqt/

и далее Could not fetch URL https://pypi.org/simple/pyqt/

Надо указывать загрузку без проверки сертификата.
pip install —trusted-host=pypi.python.org —trusted-host=pypi.org —trusted-host=files.pythonhosted.org xlrd