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

Работа с дополнительными полями в Битрикс

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

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

Для того, чтобы получить в выборе значения дополнительных полей их надо указать UF_INN в параметре SELECT

$arParams["SELECT"] = array("UF_INN");
$dbUsers = CUser::getList($by = 'LAST_NAME', $order = 'ASC', , $arParams);
while ($currUser = $dbUsers->Fetch())
{
      echo '<pre>';
	//print_r($currUser); 
	//print_r($currUser["ID"]."-".$currUser["LAST_NAME"]."-".$currUser["NAME"]."-".$currUser["PERSONAL_BIRTHDAY"]."-".$currUser["XML_ID"]."+".$currUser["UF_INN"]); 
	print_r($currUser["UF_INN"]); 
      echo '</pre>';
}

$arParams["SELECT"] = array("UF_INN");

$dbUsers = CUser::getList($by = 'LAST_NAME', $order = 'ASC', , $arParams);

while ($currUser = $dbUsers->Fetch())

{

echo '<pre>';

//print_r($currUser);

//print_r($currUser["ID"]."-".$currUser["LAST_NAME"]."-".$currUser["NAME"]."-".$currUser["PERSONAL_BIRTHDAY"]."-".$currUser["XML_ID"]."+".$currUser["UF_INN"]);

print_r($currUser["UF_INN"]);

echo '</pre>';

}

Источники:
https://dev.1c-bitrix.ru/support/forum/forum6/topic36976/
https://dev.1c-bitrix.ru/learning/course/?COURSE_ID=43&LESSON_ID=3496&LESSON_PATH=3913.4776.4804.3496

Импортозамещение с 1С Мобильное приложение.

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

Импортозамещение будем делать на примере 1С Мобильное приложение.
Купили тут дешевые телефоны HONOR 9S без Google-сервисов. Хотели использовать для 1С мобильного приложения. Казалось ничто не предвещало проблем. Но проблемы с определением местонахождения обнаружились сразу и очень жестко. В других моделях телефонов проблем не было. Сначала думали, можно будет немного подправить и все заработает.

Разбираем код 1С:

//получаем данные об использовании геопозиционировании
СредстваГеопозиционирования.ИспользованиеДанныхГеопозиционированияВключено() = Ложь
//список активных провайдеров
СредстваГеопозиционирования.ПолучитьПровайдеров(Истина) = Неопределено
//Список всех провайдоров
СредстваГеопозиционирования.ПолучитьПровайдеров(Ложь) = Неопределено

//получаем данные об использовании геопозиционировании

СредстваГеопозиционирования.ИспользованиеДанныхГеопозиционированияВключено() = Ложь

//список активных провайдеров

СредстваГеопозиционирования.ПолучитьПровайдеров(Истина) = Неопределено

//Список всех провайдоров

СредстваГеопозиционирования.ПолучитьПровайдеров(Ложь) = Неопределено

Долго копались, но ответ оказался неожиданным. Необходимо установить Google-сервисов или воспользоваться приложением типа GSpace. Запустить 1С внутри GSpace.
Спасибо https://forum.infostart.ru/forum92/topic261437/#message2645088
Вот такие сложное взаимозависимости оказалось. США накладывает санкции на китайские корпорации, а не работает русская 1С.

Решето или грехопадение Исполнителя 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С.

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

Как же легко и просто создать в 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трокаСписка.Данные["СостоянияСменногоЗаданияПоНавалам"] = ВыборкаЗапроса.СостоянияСменногоЗаданияПоНавалам;

КонецЦикла;

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

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

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

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

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

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

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

Иначе

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

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

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

КонецЕсли

КонецЕсли;

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

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

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

&НаКлиенте

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

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

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

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

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

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

КонецЕсли;

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

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

&nbsp
И на некоторых версиях, если у Вас у одно и тот же списка скорость прокрутки кардинально различается — то возможно Вам поможет очистка всех неиспользуемых отборов 😉

Файловая система из 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();