Erişim hakları, RLS ve entegrasyon: JSON, XML, HTTP servisleri

Gerçek bir projede kod yazmak işin yalnızca yarısıdır. Depocu Murad yalnızca kendi deposunun belgelerini görmeli, maaşları ise hiç görmemelidir. Bir çevrim içi mağazanın web sitesi stok bilgisini her dakika 1C'den almalı, 1C ise döviz kurlarını bir bankadan yüklemelidir. Bu ders bir 1C geliştiricisinin iki profesyonel becerisine ayrılmıştır: güvenlik ve entegrasyon.

Roller ve erişim hakları

Rol (Общие › Роли), her metadata nesnesi için bir haklar kümesidir. Bir kullanıcıya birden fazla rol verilebilir ve haklar toplanır: rollerden en az biri bir hakkı veriyorsa kullanıcı o hakka sahip olur. “Yasaklayan” rol yoktur; bu yüzden rolleri küçük ve amaca yönelik oluştur: Кладовщик (depocu), Бухгалтер (muhasebeci), ЧтениеСправочников (katalog okuma).

Если Не ПравоДоступа("Изменение", Метаданные.Документы.РасходТовара) Тогда
    ВызватьИсключение "Недостаточно прав для изменения документа";
КонецЕсли;

Если РольДоступна("Бухгалтер") Тогда
    // показываем дополнительные колонки
КонецЕсли;

Kayıt düzeyinde güvenlik (RLS)

Rol “РасходТовара belgeleri okunabilir” der ama “hangileri” demez. Bunun için RLS (kayıt düzeyinde güvenlik) vardır: Чтение, Добавление, Изменение ve Удаление haklarına sorgu diline benzer bir koşul yazılır. Koşulda genellikle oturum parametreleri kullanılır; bunlar oturum başlarken УстановкаПараметровСеанса (SessionParametersSetting) işleyicisinde doldurulur.

// Модуль сеанса
Процедура УстановкаПараметровСеанса(ТребуемыеПараметры)
    // НастройкиПользователей - наш общий модуль
    ПараметрыСеанса.ТекущийСклад = НастройкиПользователей.СкладТекущегоПользователя();
КонецПроцедуры

ГДЕ Склад = &ТекущийСклад

RLS'nin iki önemli sonucu vardır. Birincisi, okuma kısıtlaması olan bir tabloya yapılan sorgu, kullanıcının göremeyeceği bir kayda rastlarsa hata verir; yalnızca izin verilen kayıtları sessizce almak için ВЫБРАТЬ РАЗРЕШЕННЫЕ (SELECT ALLOWED) yazılır. İkincisi, platform koşulu her sorguya ekler; bu yüzden karmaşık RLS tabanı yavaşlatabilir. Sunucu kodunun hakları bilerek aşması gerektiğinde УстановитьПривилегированныйРежим(Истина) (SetPrivilegedMode) veya Привилегированный bayraklı bir ortak modül kullanılır.

Veri biçimleri: JSON ve XML

Данные = Новый Структура;
Данные.Вставить("code", "0001");
Данные.Вставить("name", "Çay 100 q");
Данные.Вставить("price", 4);

Запись = Новый ЗаписьJSON;
Запись.УстановитьСтроку();
ЗаписатьJSON(Запись, Данные);
ТекстJSON = Запись.Закрыть();

Чтение = Новый ЧтениеJSON;
Чтение.УстановитьСтроку(ТекстJSON);
Прочитано = ПрочитатьJSON(Чтение);   // Структура
Чтение.Закрыть();
Сообщить(Прочитано.name);

Çay 100 q

XML için ЗаписьXML (XMLWriter) ve ЧтениеXML (XMLReader) nesneleri, yapılandırılmış alışveriş için ise XDTO mekanizması vardır: СериализаторXDTO bir katalog öğesini ya da belgeyi bütün olarak XML'e yazar. Dağıtık tabanlar arasındaki alışverişte alışveriş planları (Планы обмена) değişiklikleri kendileri izler; tipik konfigürasyonlar ise birbirleriyle EnterpriseData biçiminde veri alışverişi yapar.

HTTP servisleri, web servisleri ve harici API'ler

Bir HTTP servisi (Общие › HTTP-сервисы) 1C'yi bir REST API'ye dönüştürür. Bir kök URL'si (örneğin shop), URL şablonları (örneğin /items/{code}) ve her şablon için yöntemleri (GET, POST…) vardır. Taban bir web sunucusunda yayımlandıktan sonra servis https://server/base/hs/shop/items/0001 gibi bir adreste yanıt verir. Her yöntemin işleyicisi, bir HTTPСервисЗапрос (istek) alan ve bir HTTPСервисОтвет (yanıt) döndüren bir fonksiyondur.

// HTTP-сервис Shop, шаблон URL /items/{code}, метод GET
Функция ItemsGET(Запрос)
    Код = Запрос.ПараметрыURL["code"];
    Товар = Справочники.Товары.НайтиПоКоду(Код);
    Если Товар.Пустая() Тогда
        Возврат Новый HTTPСервисОтвет(404);
    КонецЕсли;

    Данные = Новый Структура("code, name, price", Код, Товар.Наименование, Товар.Цена);
    Запись = Новый ЗаписьJSON;
    Запись.УстановитьСтроку();
    ЗаписатьJSON(Запись, Данные);

    Ответ = Новый HTTPСервисОтвет(200);
    Ответ.Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
    Ответ.УстановитьТелоИзСтроки(Запись.Закрыть());
    Возврат Ответ;
КонецФункции

// Вызов внешнего API из 1С
Соединение = Новый HTTPСоединение("api.example.com", 443, , , , 30, Новый ЗащищенноеСоединениеOpenSSL);
ЗапросHTTP = Новый HTTPЗапрос("/v1/rates?base=AZN");
Ответ = Соединение.Получить(ЗапросHTTP);
Если Ответ.КодСостояния <> 200 Тогда
    ВызватьИсключение СтрШаблон("Сервис курсов вернул код %1", Ответ.КодСостояния);
КонецЕсли;

Чтение = Новый ЧтениеJSON;
Чтение.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
Курсы = ПрочитатьJSON(Чтение, Истина);   // Соответствие
Чтение.Закрыть();