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

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

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

Решение данной задачи будем осуществлять на конфигурации «1С: Управление торговлей 11.2», но все действия можно применять и к другим конфигурациям, содержащим БСП (ЗУП 3, БУ 3, ERP 2 и т.д.).

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

Снять с поддержки конфигурацию

Редактирование с сохранением поддержки

2. Добавим новый документ с произвольной структурой

Новый документ

Также не забываем изменить описание и представление объекта.

3. В форме документа добавим процедуру «ПриЧтенииНаСервере».


&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
	ДатыЗапретаИзменения.ОбъектПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецПроцедуры

4. В общем модуле «ДатыЗапретаИзмененияПереопределяемый» необходимо доработать процедуру «ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения»


Процедура ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения(ИсточникиДанных) Экспорт
	ДатыЗапретаИзмененияУТ.ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения(ИсточникиДанных);
	ДатыЗапретаИзменения.ДобавитьСтроку(ИсточникиДанных, Метаданные.Документы.БСП_НовыйДокумент.ПолноеИмя(), "Дата"); //новая строка кода
КонецПроцедуры

Перед правкой модуля, необходимо разрешить его редактирование

ДатаЗапретаИзмененияПереопределяемый

5. Чтобы была проверка для записи нового документа или при удалении, необходимо создать 2 подписки на события:

  • «БСП_ПроверитьДатуЗапретаИзмененияПередЗаписьюДокумента» для события «ПередЗаписью», где источник наш документ «БСП_НовыйДокумент» и метод «ДатыЗапретаИзменения.ПроверитьДатуЗапретаИзмененияПередЗаписьюДокумента»

ПроверитьДатуЗапретаИзмененияПередЗаписьюДокумента

  • «БСП_ПроверитьДатуЗапретаИзмененияПередУдалениемДокумента» для события «ПередУдалением», где источник документ «БСП_НовыйДокумент» и метод «ДатыЗапретаИзменения.ПроверитьДатуЗапретаИзмененияПередУдалением»

ПроверитьДатуЗапретаИзмененияПередУдалениемДокумента

6. Запускаем режим «1С:Предприятие» и с помощью обработки из набора внешних обработок библиотеки стандартных подсистем «ИнструментыРазработчикаОбновлениеВспомогательныхДанных.epf» обновляем наши новые данные.

Обновление вспомогательных данных

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

Популярность: 1%

Рубрика: Настройка и оптимизация | Метки: | Добавить комментарий

Подключение нового объекта конфигурации к подсистеме по работе с файлами

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

В данной заметке я хочу рассказать как организовать работу с прикрепленными файлами для нового объекта в конфигурациях 1С, которые содержат библиотеку стандартных подсистем (БСП).

Задача. Создать новый документ и для этого документа добавить возможность прикреплять файлы.

Решение данной задачи будем осуществлять на конфигурации «1С: Управление торговлей 11.2», но все действия можно применять и к другим конфигурациям, содержащим БСП (ЗУП 3, БУ 3, ERP 2 и т.д.).

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

Снять с поддержки конфигурацию

Редактирование с сохранением поддержки

2. Добавим новый документ с произвольной структурой

Новый документ

3. Добавим копированием новый справочник «БСП_НовыйДокументПрисоединенныеФайлы» и в реквизите «ВладелецФайла» изменим тип на «ДокументСсылка.БСП_НовыйДокумент». Для копирования был выбран справочник «ЗаказКлиентаПрисоединенныеФайлы».

Новый справочник присоединенных файлов

Также не забываем изменить описание и представление объекта.

4. Добавляем в определяемые типы «ВладелецПрисоединенныхФайлов», «ПрисоединенныйФайл», «ПрисоединенныйФайлОбъект» новые объекты.

ПрисоединенныйФайлОбъект

ПрисоединенныйФайлОбъект НовыйТип

ПрисоединенныйФайл

ПрисоединенныйФайл НовыйТип

ВладелецПрисоединенныхФайлов

ВладелецПрисоединенныхФайлов НовыйТип

5. Если необходимо добавить возможность копирования присоединенных файлов при копировании документа, то необходимо в параметры формы документа добавить параметр «ЗначениеКопирования» и сделать его ключевым.

Копирование присоединенных файлов

В модуль формы добавить процедуру «ПриЗаписиНаСервере».

 
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	ПрисоединенныеФайлы.ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи, Параметры);
КонецПроцедуры

6. Для отображения в форме списка наличия прикрепленных файлов необходимо доработать форму списка.

Изменим текст запроса списка

 
ВЫБРАТЬ
	ДокументБСП_НовыйДокумент.Ссылка,
	ДокументБСП_НовыйДокумент.ПометкаУдаления,
	ДокументБСП_НовыйДокумент.Номер,
	ДокументБСП_НовыйДокумент.Дата,
	ДокументБСП_НовыйДокумент.Проведен,
	ДокументБСП_НовыйДокумент.Реквизит1,
	ДокументБСП_НовыйДокумент.Реквизит2,
	ДокументБСП_НовыйДокумент.МоментВремени,
	ВЫБОР
		КОГДА НаличиеПрисоединенныхФайлов.ЕстьФайлы ЕСТЬ NULL 
			ТОГДА 1
		КОГДА НаличиеПрисоединенныхФайлов.ЕстьФайлы
			ТОГДА 0
		ИНАЧЕ 1
	КОНЕЦ КАК ЕстьФайлы
ИЗ
	Документ.БСП_НовыйДокумент КАК ДокументБСП_НовыйДокумент
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НаличиеПрисоединенныхФайлов КАК НаличиеПрисоединенныхФайлов
		ПО ДокументБСП_НовыйДокумент.Ссылка = НаличиеПрисоединенныхФайлов.ОбъектСФайлами

В форму списка добавим колонку «ЕстьФайлы» и изменим настройки отображения.

Наличие прикрепленных файлов

7. Тестирование.

Запускаем режим «1С:Предприятие» и с помощью обработки из набора внешних обработок библиотеки стандартных подсистем «ИнструментыРазработчикаОбновлениеВспомогательныхДанных.epf» обновляем наши новые данные.

Обновление вспомогательных данных

Список документов
Список документов с прикрепленными файлами

Форма документа
Кнопка "Файлы"

Прикрепленный файл
Прикрепленный файл документа

Популярность: 1%

Рубрика: Настройка и оптимизация | Метки: | Добавить комментарий

Подключение нового объекта конфигурации к подсистеме дополнительных отчетов и обработок

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

В данной заметке будет описан алгоритм действий подключения нового объекта (например документа) в типовой конфигурации 1С к подсистеме «Дополнительные отчеты и обработки».

Пример будет рассмотрен на конфигурации «1С: Управление торговлей 11.2», но все действия, рассмотренные в статье, можно применять и к другим конфигурациям (ЗУП 3, БУ 3, ERP 2 и т.д.).

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

Снять с поддержки конфигурацию

Редактирование с сохранением поддержки

2. Добавим новый документ с произвольной структурой

Новый документ

3. В формы документа (списка и объекта) необходимо добавить следующий код (не забываем при этом для форм определить процедуру «ПриСозданииНаСервере»)


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	ДополнительныеОтчетыИОбработки.ПриСозданииНаСервере(ЭтотОбъект);
КонецПроцедуры

#Область ОбработчикиКомандФормы
// СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки
&НаКлиенте
Процедура Подключаемый_ВыполнитьНазначаемуюКоманду(Команда)
    Если Не ДополнительныеОтчетыИОбработкиКлиент.ВыполнитьНазначаемуюКомандуНаКлиенте(ЭтотОбъект, Команда.Имя) Тогда
        ДополнительныеОтчетыИОбработкиВыполнитьНазначаемуюКомандуНаСервере(Команда.Имя);
    КонецЕсли;
КонецПроцедуры
// Конец СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки
#КонецОбласти

#Область СлужебныеПроцедурыИФункции
// СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки
&НаСервере
Процедура ДополнительныеОтчетыИОбработкиВыполнитьНазначаемуюКомандуНаСервере(ИмяЭлемента)
    ДополнительныеОтчетыИОбработки.ВыполнитьНазначаемуюКомандуНаСервере(ЭтотОбъект, ИмяЭлемента);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки
#КонецОбласти

ПриСозданииНаСервере

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

ОбъектСДополнительнымиКомандами

ОбъектСДополнительнымиКомандами

На этом работы в конфигураторе завершены.

5. Запускаем режим «1С:Предприятие» и с помощью обработки из набора внешних обработок библиотеки стандартных подсистем «ИнструментыРазработчикаОбновлениеВспомогательныхДанных.epf» обновляем наши новые данные.

Обновление вспомогательных данных

Чтобы проверить результат, добавим внешнюю обработку по заполнению.

Добавление обработки

Добавление обработки

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

Форма списка
Внешняя обработка в форме списка

Форма документа
Внешняя обработка в форме документа

На этом все, как видите ничего сложного.

Популярность: 1%

Рубрика: Настройка и оптимизация | Метки: | Добавить комментарий

Тестовый сервер 1С на Ubuntu 14.04

Приветствую читателей блога.

В данной заметке я хочу рассказать как создать свой тестовый 64-х разрядный сервер 1С на Ubuntu server 14.04 LTS. Фишка данного сервера в том, что до 12 подключений к серверу не требуются лицензия на сервер, необходима лицензия только для клиентского компьютера. На данный сервер также будет установлен сервер СУБД Postgresql 9.4.5 адаптированный к работе с 1С сторонней командой, будет понижена версия сервера Apache с 2.4 до 2.2, чтобы можно было публиковать http-сервисы или web-сервисы.

И так начнем.

  1. Необходимо скачать и установить VirtualBox.
  2. Необходимо скачать сервер Ubuntu server 14.04 LTS.
  3. Скачать и установить WinSCPS. Данная программа понадобиться для работу с файлами (Копирование, создание папок и т.д.) нашего виртуального сервера.
  4. Скачать и установить PuTTY. Прелесть данной программы в том, что можно копировать команды в терминал из локального компьютера.
  5. Для сервера 1С будет использоваться версия 8.3.7.1759

Кратко об установке Ubuntu.

  • В самом начале выбираем язык установки. В моем случае — это русскийВыбор языка при установке Ubuntu
  • Затем выбираем что хотим установить сервер UbuntuНачало установки Ubuntu
  • Выбираем язык системы, я выбрал русскийВыбор языка сервера Ubuntu
  • Установим способ переключения раскладки клавиатуры
    Выбор переключения раскладки клавиатуры при установке Ubuntu
  • Зададим имя нашего сервера. В моем случае — это ‘Ubuntu1C2’
    Имя компьютера при установке Ubuntu
  • Укажем имя нового пользователя (это не логин сервера)Задание имени учетной записи при установки Ubuntu
  • Затем надо указать логин, под которым будем заходить на сервер. Я указал admin1C
  • После надо задать пароль для входа на серверЗадание пароля учетной записи
  • Далее указываем следующие настройки
    Не шифровать каталог
    Определение временной зоны
    Настройка дисков при установке Ubuntu
    Разметка дисков при установке Ubuntu
    Изменение разделов при разметке дисков
    Определение размера диска при разметке
    Подтверждение разметки дисков
  • В настройках обновления системы я указал «Без автоматического обновления»Настройка обновления системы
  • При выборе программного обеспечения выбрал только «OpenSSH Server»Выбор программного обеспечения
  • После завершения установки перезагружаем сервер. Для входа вводим логин (admin1C) и пароль, которые задали при установкеВход на сервер после установки

Чтобы виртуальный сервер получил адрес общей сети необходимо в VirtualBox установить настройку «Сетевой мост».
Сетевые настройки виртуальной машины
Чтобы подключиться к нашему серверу с помощью программы «PuTTY», необходимо узнать IP адрес сервера с помощью команды ifconfig.
Узнать IP адрес сервера
Подключаемся к серверу с помощью программы «PuTTY«.
Подключение к серверу с помощью PuTTy
Далее необходимо обновить сервер, установить текстовый редактор и менеджер файлов. Для этого надо выполнить последовательно следующие команды:
sudo apt-get update — обновление списка программ, доступных из репозитария
sudo apt-get upgrade — обновление данных программ
sudo apt-get install nano — установка текстового редактора
sudo apt-get install mc — установка файлового менеджера

Теперь сервер готов и дальше можно устанавливать сервер 1С и сервер СУБД Postgresql.

Далее необходимо скачать «Cервер 1С:Предприятия (64-bit) для DEB-based Linux-систем», скачать можно с сайта обновлений, либо поискать на просторах интернета.
Чтобы перенести установочные файлы на наш сервер, воcпользуемся программой WinSCP:

  1. Подключимся к серверу. Необходимо указать IP адрес, который был получен командой ifconfig
    Подключение по WinSCP
  2. В рабочей папке пользователя создадим папку Distr1C и перенесем туда установочные файлы
    Перенос файлов на сервер
  3. Закрываем WinSCP

Переходим или подключаемся к терминалу сервера с помощью программы «PuTTY».
Далее необходимо выполнить следующие команды:
sudo dpkg -i /home/admin1c/Distr1C/1c*common_8*.deb
sudo dpkg -i /home/admin1c/Distr1C/1c*ws*.deb
sudo dpkg -i /home/admin1c/Distr1C/1c*common-nls*.deb
sudo dpkg -i /home/admin1c/Distr1C/1c*server*.deb
sudo apt-get install -f
Установка сервера 1С
Чтобы была возможность делать отладку на сервере, необходимо включить параметр SRV1CV8_DEBUG=1 в конфигурационным файле «srv1cv83». Данный файл находится «/etc/init.d»
Путь к файлу srv1cv83
Данный файл можно отредактировать из файлового менеджера «mc» по кнопке «F4», но перед этим менеджер должен быть запущен командой sudo mc
Корректировка параметра srv1cvdebug
После установки, сервер надо перегрузить командой sudo reboot
Для корректной работы сервера 1с необходимо установить дополнительные пакеты:
sudo apt-get install imagemagick
sudo apt-get install unixodbc
sudo apt-get install libgsf-bin
sudo apt-get install t1utils
sudo apt-get install msttcorefonts — Установка шрифта для корректного отображения данных. Чтобы перейти к кнопке ОК надо нажать TAB, затем перейти к Yes и нажать Enter.

Еще раз перезагрузим сервер командой sudo reboot.

Перейдем к установке сервер СУБД Postgersql:

  1. С помощью команды locale необходимо проверить локализацию системы, для нас необходимо чтобы было «ru_RU.UTF-8»Проверка локали перед установкой Postgresql
    Если данной локали нет, то ее надо установить командой apt-get install libicu52. После установки проверить текущую локаль командой locale. Если в ответе нет «ru_RU.UTF-8», то данную локаль необходимо установить выполнив команды:
    ocale-gen en_US ru_RU
    locale-gen ru_RU.UTF-8
    export LANG=ru_RU.UTF-8
    dpkg-reconfigure locales
    Проверим текущую локаль командой locale, если локаль сбросилась, то добавим в файл «/root/.bashrc» строку export LANG=ru_RU.UTF-8 и выполним команду export LANG=ru_RU.UTF-8.
    Отредактировать файл .bashrc можно командой sudo nano /root/.bashrc.
  2. Установим сервер СУБД Postgresql командой sudo sh -c 'echo "deb [arch=amd64] http://1c.postgrespro.ru/deb/ $(lsb_release -cs) main" > /etc/apt/sources.list.d/postgrespro-1c.list'. Данная команда была взята с сайта
  3. После окончании установки проверь статус сервера СУБД командой service postgresql status, если ответ будет «online», то это значит все хорошо.Окончание установки сервера СУБД

Теперь зададим пароль для Postgresql

  1. Выполним команду sudo -u postgres psql
  2. Далее наберем \password
  3. Введем два раза пароль
  4. Командой \qвыйдем из установки пароля

Для работы с Postgresql в windows есть утилита PgAdmin3, для данной утилиты также необходимо скачать и установить библиотеку vcredist_x86.exe.

Чтобы обращаться к нашему серверу по имени «ubuntu1c2», а не по IP адресу, необходимо отредактировать файлы «hosts» на сервере и клиенте
В windows данный файл находится в папке «c:\Windows\System32\drivers\etc\».
Расположение файла Hosts
На ubuntu данный файл находится в папке «/etc».
Настройка hosts на сервере Ubuntu

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

Для того чтобы наш сервер еще мог работать как и вебсервер, необходимо понизить версию сервера Apache с 2.4 (по умолчанию в Ubuntu 14.04) до 2.2, т.к. 1С работает только с данной версией.
И так по порядку:

  • Открываем файл «ubuntu1204.list» командой sudo nano /etc/apt/sources.list.d/ubuntu1204.list
  • Добавляем в файл строку deb http://ru.archive.ubuntu.com/ubuntu/ recise main. Записать и закрыть файл
  • Открываем файл «apache22» командой sudo nano /etc/apt/preferences.d/apache22
  • Добавляем в файл строки:
    Package: apache*
    Pin: release a=precise
    Pin-Priority: 500
    Записать и закрыть файл
  • Выполняем команду sudo apt-get update
  • Выполняем команду sudo apt-get dist-upgrade
  • Выполняем команду sudo apt-get install apache2 — установка Apache 2.2

Результат работы проверим командой apache2 -v.
Установленная версия Apache 2.2

Опубликуем нашу созданную базу «Exmaple1C». Для этого создадим на сервере например каталог «/wwwroot/web1c», в данном каталоге будет храниться файл «default.vrd».
Создание папки для публикации базы 1С
Из каталога «/opt/1c/v8.3/x86_64» необходимо выполнить команду ./webinst -apache22 -wsdir Example1C-dir /wwwroot/web1c-connstr "Srvr=ubuntu1c2;Ref=Example1C;" -confPath /etc/apache2/httpd.conf
Публикация базы 1С на сервере Ubuntu
Расшифрую строку публикации:

  1. ./webinst — команда на исполнение
  2. -apache22 — публикация на сервер Apache версии 2.2
  3. -wsdir Example1C — имя, по которому будет доступна база из вне, в данном случае адрес будет выглядеть http://ubuntu1c2/Example1C
  4. -dir /wwwroot/web1c — путь к папке, где будет располагаться файл default.vrd
  5. -connstr "Srvr=ubuntu1c2;Ref=Example1C;" — строка подключения к информационной базе
  6. -confPath /etc/apache2/httpd.conf — путь к конфигурационному файлу Apache

После публикации Apache необходимо перезапустить командой sudo /etc/init.d/apache2 restart

P.S.
Для ускорения рекомендую использовать программу «PuTTY», т.к. в данной программе можно копировать команды в терминал через правую клавиши мыши.

Популярность: 10%

Рубрика: Платформа 1С | Метки: | Добавить комментарий

Получение токена доступа для работы с API каталога onliner.by

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

Данная небольшая заметка должна помочь разработчикам на платформе 1С 8.3 по получению токена доступа для работы с API Onliner.by.

На странице есть пример для PHP и общие данные по получения токена.

Рассмотрим 2 примера:

  1. Работа стандартными методами платформы 1С 8.3
  2. Работа с помощью «Microsoft.XMLHTTP»

Прежде чем приступить к примерам необходимо в админке магазина на b2b.onliner.by получить параметры доступа clientId и clientSecret на закладке «Настройка», предварительно там же добавить приложение (например «1С»)
Доступ к API onliner.by

Пример 1.


clientId = ""; //здесь надо указать ИД, полученный в админке магазина http://b2b.onliner.by/login
clientSecret = ""; //здесь надо указать ключ, полученный в админке магазина http://b2b.onliner.by/login

HTTPСоединение = Новый HTTPСоединение(
"b2bapi.onliner.by",,clientId,clientSecret,,,
Новый ЗащищенноеСоединениеOpenSSL);
ГраницаСекций = СтрЗаменить(Новый УникальныйИдентификатор(), "-", "");

ПакетныйЗапросHTTP = Новый HTTPЗапрос;
ПакетныйЗапросHTTP.АдресРесурса = "/oauth/token";
ПакетныйЗапросHTTP.Заголовки["Accept"] = "application/json";
ПакетныйЗапросHTTP.Заголовки["Content-Type"] = "multipart/form-data; boundary=" + ГраницаСекций;

ТелоИзСтроки = "--" + ГраницаСекций + "
		|Content-Disposition: form-data; name=""grant_type""
		|
		|client_credentials
		|--" + ГраницаСекций + "--";

ПакетныйЗапросHTTP.УстановитьТелоИзСтроки(ТелоИзСтроки,,ИспользованиеByteOrderMark.НеИспользовать);
ПакетныйОтветHTTP = HTTPСоединение.ОтправитьДляОбработки(ПакетныйЗапросHTTP);
	
РезультатЗапроса = ПакетныйОтветHTTP.ПолучитьТелоКакСтроку();
Чтение = новый ЧтениеJSON;
Чтение.УстановитьСтроку(РезультатЗапроса);
ДанныеРезультата = ПрочитатьJSON(Чтение, Ложь);
	
Если ПакетныйОтветHTTP.КодСостояния < 300 Тогда
		
	//Будет выведен токен доступа для работы с API
	Сообщить(ДанныеРезультата.access_token);
		
ИначеЕсли ДанныеРезультата.Свойство("error") Тогда
		
	//Сообщение об ошибке
	Сообщить(ДанныеРезультата.error_description);
		
КонецЕсли;	

Пример 2.


ХТТП = Неопределено;
Попытка 	
	ХТТП = Новый COMObject("Microsoft.XMLHTTP"); 
Исключение
	
	Попытка 	
		ХТТП = Новый COMObject("Msxml2.XMLHTTP");
	Исключение
		
		Попытка 	
			ХТТП = Новый COMObject("MSXML2.ServerXMLHTTP");
		Исключение
			Сообщить("Не могу создать COM объект");	
		КонецПопытки;	
		
	КонецПопытки;	
	
КонецПопытки;

Если ХТТП = Неопределено Тогда
	Возврат;
КонецЕсли;

ГраницаСекций = СтрЗаменить(Новый УникальныйИдентификатор(), "-", "");	

clientId = ""; //здесь надо указать ИД, полученный в админке магазина http://b2b.onliner.by/login
clientSecret = ""; //здесь надо указать ключ, полученный в админке магазина http://b2b.onliner.by/login

ИмяВременногоФайла = ПолучитьИмяВременногоФайла("txt");
Запись = Новый ЗаписьТекста(ИмяВременногоФайла, КодировкаТекста.UTF8);
Запись.Записать(clientId + ":" + clientSecret);
Запись.Закрыть();
Authorization = Base64Строка(Новый ДвоичныеДанные(ИмяВременногоФайла));
Authorization = Сред(Authorization,5);
Authorization = СтрЗаменить(Authorization, Символы.ВК, "");
Authorization = СтрЗаменить(Authorization, Символы.ПС, "");

НачатьУдалениеФайлов(,ИмяВременногоФайла);

ХТТП.Open("POST", "https://b2bapi.onliner.by/oauth/token", Ложь);
ХТТП.SetRequestHeader("Host", "b2bapi.onliner.by");
ХТТП.SetRequestHeader("Authorization", "Basic " + Authorization);
ХТТП.SetRequestHeader("Accept", "application/json");
ХТТП.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" + ГраницаСекций);
	
СтрокаЗапроса = "--" + ГраницаСекций + "
		|Content-Disposition: form-data; name=""grant_type""
		|
		|client_credentials
		|--" + ГраницаСекций + "--";

ХТТП.Send(СтрокаЗапроса);
Сообщить(ХТТП.Status);

Чтение = новый ЧтениеJSON;
Чтение.УстановитьСтроку(ХТТП.ResponseText);
ДанныеРезультата = ПрочитатьJSON(Чтение, Ложь);

Если ХТТП.Status < 300 Тогда
	
	//Будет выведен токен доступа для работы с API
	Сообщить(ДанныеРезультата.access_token);
	
ИначеЕсли ДанныеРезультата.Свойство("error") Тогда
	
	//Сообщение об ошибке
	Сообщить(ДанныеРезультата.error_description);
	
КонецЕсли;	

Функция "ПрочитатьJSON" и тип данных "ЧтениеJSON" доступны только начиная с платформы 1С 8.3.6, для более ранних версий можно воспользоваться обработкой по работе с форматом JSON либо самим написать парсер.

Популярность: 7%

Рубрика: Настройка и оптимизация | Метки: | Добавить комментарий