Архивы 1C - Страница 14 из 41

1С: Преобразование данных в JSON. Вся боль и печаль.

02.11.2020 Павел Грибов 1C

К сожалению 1С не умеет преобразовывать абсолютно любые данные в формат JSON. Есть некоторые ограничения. Из тех которые мне попались: не умеет преобразовывать NULL, не умеет преобразовывать таблицы значений.

Как обхожу проблему NULL в запросах:

		|	ВЫБОР
		|		КОГДА ПользователиПриложения.КлиентЮрлицо.Наименование ЕСТЬ NULL
		|			ТОГДА """"
		|		ИНАЧЕ ПользователиПриложения.КлиентЮрлицо.Наименование
		|	КОНЕЦ КАК КлиентЮрлицоНаименование

| ВЫБОР

| КОГДА ПользователиПриложения.КлиентЮрлицо.Наименование ЕСТЬ NULL

| ТОГДА """"

| ИНАЧЕ ПользователиПриложения.КлиентЮрлицо.Наименование

| КОНЕЦ КАК КлиентЮрлицоНаименование

Как преобразовываю Таблицу Значений:

Вариант 1:

    Если ТипЗнч(Значение) = Тип("ТаблицаЗначений") Тогда
        Значение1 = ОбщегоНазначения.ТаблицаЗначенийВМассив(Значение);
    КонецЕсли;

Если ТипЗнч(Значение) = Тип("ТаблицаЗначений") Тогда

Значение1 = ОбщегоНазначения.ТаблицаЗначенийВМассив(Значение);

КонецЕсли;

Вариант 2 (по сути «ручной» вариант первого варианта):

	МассивАвто=Новый Массив();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		ТаблицаАвтомобилейПользователя=Новый структура("AutoName,AutoCode","","");		
		ТаблицаАвтомобилейПользователя.AutoName=ВыборкаДетальныеЗаписи.Наименование;
		ТаблицаАвтомобилейПользователя.AutoCode=ВыборкаДетальныеЗаписи.Код;
	КонецЦикла;
	
	Информация.ТаблицаАвтомобили=МассивАвто;

МассивАвто=Новый Массив();

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

ТаблицаАвтомобилейПользователя=Новый структура("AutoName,AutoCode","","");

ТаблицаАвтомобилейПользователя.AutoName=ВыборкаДетальныеЗаписи.Наименование;

ТаблицаАвтомобилейПользователя.AutoCode=ВыборкаДетальныеЗаписи.Код;

КонецЦикла;

Информация.ТаблицаАвтомобили=МассивАвто;

Оставить комментарий 1с, json, таблица значений

1С: проверка вилидности email и пароля

27.10.2020 Павел Грибов 1C

Ну например можно организовать вот так:

Функция ПарольСоответствуетТребованиям (Пароль) экспорт
	УстановитьПроверкуСложностиПаролейПользователей(Истина);
	ВременныйПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
	ВременныйПользовательИБ.АутентификацияСтандартная = Истина;
	ВременныйПользовательИБ.Имя = НСтр("ru = 'Временный пользователь'")+
	" (" + Строка(Новый УникальныйИдентификатор) + ")";
	ВременныйПользовательИБ.Пароль = Пароль;
	ХорошийПароль = Истина;
	Попытка
		ВременныйПользовательИБ.Записать();
	Исключение
		ХорошийПароль = Ложь;
	КонецПопытки;
	ВременныйПользовательИБ.Удалить();
Возврат ХорошийПароль;
КонецФункции
Функция ПроверкаВалидностиEmail(Адрес) Экспорт
    ЛатинскиеБуквы = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
    Цифры = "0123456789";
    //ищем крайний справа символ @ для правильного выделения локальной и доменной части
    ИндексСобаки = Найти(Адрес,"@");
    //1. строка адреса вообще не содержит разделителя
    Если ИндексСобаки = 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    УрезаемаяСтрока = Сред(Адрес, ИндексСобаки+1);
    Пока Найти(УрезаемаяСтрока,"@") > 0 Цикл
        ИндексСобаки = ИндексСобаки + Найти(УрезаемаяСтрока,"@");
        УрезаемаяСтрока = Сред(УрезаемаяСтрока, ИндексСобаки+1);
    КонецЦикла;
    ДоменнаяЧасть = Сред(Адрес, ИндексСобаки+1);
    ЛокальнаяЧасть = Лев(Адрес, ИндексСобаки-1);
    //2. Проверяем длину локальной части
    Если СтрДлина(ЛокальнаяЧасть) < 1 ИЛИ СтрДлина(ЛокальнаяЧасть) > 64 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //3. Проверяем длину доменной части
    Если СтрДлина(ДоменнаяЧасть) < 1 ИЛИ СтрДлина(ДоменнаяЧасть) > 255 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //4. Проверяем что локальная части не начинается и не заканчивается на "."
    Если Лев(ЛокальнаяЧасть, 1) = "." ИЛИ Прав(ЛокальнаяЧасть, 1) = "." Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //5. Локальная части не содержит 2 или более "." подряд
    Если Найти(ЛокальнаяЧасть, "..") > 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //Проверка доменной части
    //6. Доменная часть не начинается с точки
    Если Лев(ДоменнаяЧасть, 1) = "." Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //7. Доменная часть не содержит 2 или более "." подряд
    Если Найти(ДоменнаяЧасть, "..") > 0 Тогда
        Возврат ЛОЖЬ;
    КонецЕсли;
    //8. Проверка частей доменной части
    //каждая часть начинается с буквы и заканчивается буквой или цифрой
    //каждая часть длиной не более 63 символов
    ИдентификаторыДоменнойЧасти = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ДоменнаяЧасть, ".");
    Для Каждого ИдентификаторДомена ИЗ ИдентификаторыДоменнойЧасти Цикл
        Если СтрДлина(ИдентификаторДомена) > 63 Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
        Если Найти(ЛатинскиеБуквы, Лев(ИдентификаторДомена,1)) = 0
            //для доменов, нарушающих RFC 1035 п.2.3.1, например @1c.ru :)
            И Найти(Цифры, Лев(ИдентификаторДомена,1)) = 0
            Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
        Если Найти(ЛатинскиеБуквы, Прав(ИдентификаторДомена,1)) = 0 И Найти(Цифры, Прав(ИдентификаторДомена,1)) = 0 Тогда
            Возврат ЛОЖЬ;
        КонецЕсли;
    КонецЦикла;
    //Все проверки пройдены - радуемся
    Возврат ИСТИНА;
КонецФункции

Функция ПарольСоответствуетТребованиям (Пароль) экспорт

УстановитьПроверкуСложностиПаролейПользователей(Истина);

ВременныйПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

ВременныйПользовательИБ.АутентификацияСтандартная = Истина;

ВременныйПользовательИБ.Имя = НСтр("ru = 'Временный пользователь'")+

" (" + Строка(Новый УникальныйИдентификатор) + ")";

ВременныйПользовательИБ.Пароль = Пароль;

ХорошийПароль = Истина;

Попытка

ВременныйПользовательИБ.Записать();

Исключение

ХорошийПароль = Ложь;

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

ВременныйПользовательИБ.Удалить();

Возврат ХорошийПароль;

КонецФункции

Функция ПроверкаВалидностиEmail(Адрес) Экспорт

ЛатинскиеБуквы = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";

Цифры = "0123456789";

//ищем крайний справа символ @ для правильного выделения локальной и доменной части

ИндексСобаки = Найти(Адрес,"@");

//1. строка адреса вообще не содержит разделителя

Если ИндексСобаки = 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

УрезаемаяСтрока = Сред(Адрес, ИндексСобаки+1);

Пока Найти(УрезаемаяСтрока,"@") > 0 Цикл

ИндексСобаки = ИндексСобаки + Найти(УрезаемаяСтрока,"@");

УрезаемаяСтрока = Сред(УрезаемаяСтрока, ИндексСобаки+1);

КонецЦикла;

ДоменнаяЧасть = Сред(Адрес, ИндексСобаки+1);

ЛокальнаяЧасть = Лев(Адрес, ИндексСобаки-1);

//2. Проверяем длину локальной части

Если СтрДлина(ЛокальнаяЧасть) < 1 ИЛИ СтрДлина(ЛокальнаяЧасть) > 64 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//3. Проверяем длину доменной части

Если СтрДлина(ДоменнаяЧасть) < 1 ИЛИ СтрДлина(ДоменнаяЧасть) > 255 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//4. Проверяем что локальная части не начинается и не заканчивается на "."

Если Лев(ЛокальнаяЧасть, 1) = "." ИЛИ Прав(ЛокальнаяЧасть, 1) = "." Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//5. Локальная части не содержит 2 или более "." подряд

Если Найти(ЛокальнаяЧасть, "..") > 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//Проверка доменной части

//6. Доменная часть не начинается с точки

Если Лев(ДоменнаяЧасть, 1) = "." Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//7. Доменная часть не содержит 2 или более "." подряд

Если Найти(ДоменнаяЧасть, "..") > 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

//8. Проверка частей доменной части

//каждая часть начинается с буквы и заканчивается буквой или цифрой

//каждая часть длиной не более 63 символов

ИдентификаторыДоменнойЧасти = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ДоменнаяЧасть, ".");

Для Каждого ИдентификаторДомена ИЗ ИдентификаторыДоменнойЧасти Цикл

Если СтрДлина(ИдентификаторДомена) > 63 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

Если Найти(ЛатинскиеБуквы, Лев(ИдентификаторДомена,1)) = 0

//для доменов, нарушающих RFC 1035 п.2.3.1, например @1c.ru :)

И Найти(Цифры, Лев(ИдентификаторДомена,1)) = 0

Тогда

Возврат ЛОЖЬ;

КонецЕсли;

Если Найти(ЛатинскиеБуквы, Прав(ИдентификаторДомена,1)) = 0 И Найти(Цифры, Прав(ИдентификаторДомена,1)) = 0 Тогда

Возврат ЛОЖЬ;

КонецЕсли;

КонецЦикла;

//Все проверки пройдены - радуемся

Возврат ИСТИНА;

КонецФункции

Оставить комментарий 1с, проверка email, проверка пароля

1c: ошибка конвертирования в JSON значений с null

26.10.2020 Павел Грибов 1C

Сегодня словил чудный глюк. 1С при :

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

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

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

ЗаписатьJSON(ЗаписьJSON, answer);

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

В том случае, если внтури структуры answer есть значения с null, выдавал ошибку записи JSONanswer.

Решение:

при формировании ответа делаем проверку на null:

		|	ВЫБОР
		|		КОГДА ПользователиПриложения.КлиентЮрлицо.Код ЕСТЬ NULL
		|			ТОГДА """"
		|		ИНАЧЕ ПользователиПриложения.КлиентЮрлицо.Код
		|	КОНЕЦ КАК ЮрлицоКод

| ВЫБОР

| КОГДА ПользователиПриложения.КлиентЮрлицо.Код ЕСТЬ NULL

| ТОГДА """"

| ИНАЧЕ ПользователиПриложения.КлиентЮрлицо.Код

| КОНЕЦ КАК ЮрлицоКод

Оставить комментарий json, null, ошибка

Взаимодействие с HTTP сервисом 1с через PHP

14.10.2020 Павел Грибов 1C

Приём данных и ответ от 1С :

Функция telegram_callbacktcallback(Запрос)
	 
  	ЧтениеJSON = Новый ЧтениеJSON; 
 	ЧтениеJSON.УстановитьСтроку(Запрос.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8)); 
 	JSONM = ПрочитатьJSON(ЧтениеJSON); 
 	ЧтениеJSON.Закрыть();	 
	
	
	HTTPОтвет = Новый HTTPСервисОтвет(200);
	HTTPОтвет.УстановитьТелоИзСтроки("Всем привет");
	HTTPОтвет.Заголовки["Content-Type"] = "text/html; charset=utf-8";
	Возврат HTTPОтвет;	

КонецФункции

Функция telegram_callbacktcallback(Запрос)

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(Запрос.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));

JSONM = ПрочитатьJSON(ЧтениеJSON);

ЧтениеJSON.Закрыть();

HTTPОтвет = Новый HTTPСервисОтвет(200);

HTTPОтвет.УстановитьТелоИзСтроки("Всем привет");

HTTPОтвет.Заголовки["Content-Type"] = "text/html; charset=utf-8";

Возврат HTTPОтвет;

КонецФункции

Обращение к сервису 1С из PHP:

<?php
mb_internal_encoding("UTF-8");
$bodyz = file_get_contents('php://input');
$body =$bodyz;

$data=Date("d-m-Y H:i:s")." Ent:".serialize($body)."\n";
file_put_contents('telegram.log', $data, FILE_APPEND);

        $url = "https://сервер:80/путь/вызов";
        $ch = curl_init($url);
            curl_setopt($ch, CURLOPT_USERPWD, "ЛОГИН.:ПАРОЛЬ");
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));

            curl_setopt($ch, CURLOPT_POST, 1);
            curl_setopt($ch, CURLOPT_POSTFIELDS,$bodyz);
            $response = curl_exec($ch);
            var_dump($response);

        if(curl_errno($ch)){
            throw new Exception(curl_error($ch));
        };
        echo $response;
$data=Date("d-m-Y H:i:s")." Exit:".serialize($response)."\n";
file_put_contents('telegram.log', $data, FILE_APPEND);
?>

<?php

mb_internal_encoding("UTF-8");

$bodyz = file_get_contents('php://input');

$body =$bodyz;

$data=Date("d-m-Y H:i:s")." Ent:".serialize($body)."\n";

file_put_contents('telegram.log', $data, FILE_APPEND);

$url = "https://сервер:80/путь/вызов";

$ch = curl_init($url);

curl_setopt($ch, CURLOPT_USERPWD, "ЛОГИН.:ПАРОЛЬ");

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));

curl_setopt($ch, CURLOPT_POST, 1);

curl_setopt($ch, CURLOPT_POSTFIELDS,$bodyz);

$response = curl_exec($ch);

var_dump($response);

if(curl_errno($ch)){

throw new Exception(curl_error($ch));

};

echo $response;

$data=Date("d-m-Y H:i:s")." Exit:".serialize($response)."\n";

file_put_contents('telegram.log', $data, FILE_APPEND);

Оставить комментарий в 1с из php

1С: выполнение запроса в другой базе

30.09.2020 Павел Грибов 1C

Задача: из текущей базы получить данные другой базы

Решение: используем COM соедниение

Функция ПолучитьПодключениеКСервернойБД()
	ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";
	V83COMConnector= Новый COMОбъект("V83.COMConnector");
	Попытка
		Base1С = V83COMConnector.Connect(ПараметрыСоед);
		сообщить(Base1С);
	Исключение
		сообщить ("Ошибка подключения!");
		Base1С=неопределено;
	КонецПопытки;
    возврат Base1С;
КонецФункции

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)
//получаю остатки
		Запрос = Новый Запрос;
		Запрос.Текст = 
			"ВЫБРАТЬ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток
			|ИЗ
			|	РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты
			|ГДЕ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет
			|	И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)
			|
			|СГРУППИРОВАТЬ ПО
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";
		
		Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);
		Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

возврат ВыборкаДетальныеЗаписи;

конецфункции

Функция ПолучитьПодключениеКСервернойБД()

ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";

V83COMConnector= Новый COMОбъект("V83.COMConnector");

Попытка

Base1С = V83COMConnector.Connect(ПараметрыСоед);

сообщить(Base1С);

Исключение

сообщить ("Ошибка подключения!");

Base1С=неопределено;

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

возврат Base1С;

КонецФункции

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)

//получаю остатки

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

Запрос.Текст =

"ВЫБРАТЬ

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток

|ИЗ

| РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты

|ГДЕ

| vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет

| И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)

|СГРУППИРОВАТЬ ПО

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";

Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);

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

РезультатЗапроса = Запрос.Выполнить();

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

возврат ВыборкаДетальныеЗаписи;

конецфункции

Обратить внимание! В качестве передаваемых параметров нельзя использовать объекты. ТОЛЬКО примитивные типы. Типа строка,номер и т.д.

Оставить комментарий выборка, другая бд

« 1 … 12 13 14 15 16 … 41 »

Апрель 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30