Жизнь замечательных грибов
Такая ошибка случилась при штатном обмене с сайтом в УТ 11.3 Почему? А один из реквизитов для выгрузки у меня более чем 1000 символов. 1С видимо думает что такие длинные реквизиты зло. Может оно и право, но заказчику нужны нормальные тексты, а не обрезанные до 1000 символов.
Решение: правим схему XDTO CML208, а именно у типа значений ЗначениеТип, ставим нужную длинну.
К сожалению 1С не умеет преобразовывать абсолютно любые данные в формат JSON. Есть некоторые ограничения. Из тех которые мне попались: не умеет преобразовывать NULL, не умеет преобразовывать таблицы значений.
Как обхожу проблему NULL в запросах:
|
1 2 3 4 5 |
| ВЫБОР | КОГДА ПользователиПриложения.КлиентЮрлицо.Наименование ЕСТЬ NULL | ТОГДА """" | ИНАЧЕ ПользователиПриложения.КлиентЮрлицо.Наименование | КОНЕЦ КАК КлиентЮрлицоНаименование |
Как преобразовываю Таблицу Значений:
Вариант 1:
|
1 2 3 |
Если ТипЗнч(Значение) = Тип("ТаблицаЗначений") Тогда Значение1 = ОбщегоНазначения.ТаблицаЗначенийВМассив(Значение); КонецЕсли; |
Вариант 2 (по сути «ручной» вариант первого варианта):
|
1 2 3 4 5 6 7 8 |
МассивАвто=Новый Массив(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл ТаблицаАвтомобилейПользователя=Новый структура("AutoName,AutoCode","",""); ТаблицаАвтомобилейПользователя.AutoName=ВыборкаДетальныеЗаписи.Наименование; ТаблицаАвтомобилейПользователя.AutoCode=ВыборкаДетальныеЗаписи.Код; КонецЦикла; Информация.ТаблицаАвтомобили=МассивАвто; |
Ну например можно организовать вот так:
|
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
Функция ПарольСоответствуетТребованиям (Пароль) экспорт УстановитьПроверкуСложностиПаролейПользователей(Истина); ВременныйПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя(); ВременныйПользовательИБ.АутентификацияСтандартная = Истина; ВременныйПользовательИБ.Имя = НСтр("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С :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Функция 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:
|
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 |
<?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); ?> |
Задача: из текущей базы получить данные другой базы
Решение: используем COM соедниение
|
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
Функция ПолучитьПодключениеКСервернойБД() ПараметрыСоед = "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); Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); возврат ВыборкаДетальныеЗаписи; конецфункции |
Обратить внимание! В качестве передаваемых параметров нельзя использовать объекты. ТОЛЬКО примитивные типы. Типа строка,номер и т.д.