Пример обработки на УФ для 1С8.2 для перевода текста с использованием Google translate
Файлы
ВНИМАНИЕ:
Файлы из Базы знаний - это исходный код разработки.
Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы.
Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных.
Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Онлайн-заказ - это решение для автоматизации процесса оформления заказов на сайте в торговых организациях. Продукт обеспечивает легкое взаимодействие между компанией и клиентами через веб-интерфейс, интегрированный с 1С:Предприятие. Система позволяет снизить операционные расходы, повысить лояльность клиентов и оптимизировать работу отдела продаж.
Модуль "Экспортер" — это расширение для 1С, предназначенное для автоматизации процессов выгрузки данных. Оно позволяет эффективно извлекать, преобразовывать и передавать данные из систем 1С в интеграционную платформу Spot2D. Подсистема упрощает настройку, снижает количество ручных операций и обеспечивает удобный контроль данных.
Программный продукт "Управление доставками в 1С" позволяет обмениваться с личным кабинетом СДЭК, Деловые Линии, ПЭК, DPD, Почта России и другими транспортных компаниями. Упрощает создание заявок и резервирование заказов прямо в интерфейсе 1С
Модуль "Подсистема интеграции AmoCRM с 1С" позволяет обеспечить единое информационное пространство, в котором пользователи могут эффективно управлять клиентской базой, следить за статусами сделок и поддерживать актуальность данных как в AmoCRM, так и в 1С.
Модуль интеграции 1С с OpenCart 2.x, 3x позволяет обмениваться данными между OpenCart (самая популярная бесплатная cms для интернет-магазинов) и 1С:Предприятие 8.
В расширении реализован механизм интеграции между системой поставщика и Личным кабинетом СДТ. Реализован обмен заказами и реализациями (накладными), предусмотрено отслеживание статусов документов.
Расширение предназначено для 1С:УТ 11.4.
Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию.
Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента.
Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1
Отличная вещь. Спасибо. Но есть одна проблемка: на одной машине с Win2008 Server перевод получаем в таком роде "????????? - ???????????????? ?????????? ?? ????????????? ?????????????? ????? ? ??????????." Я так понимаю проблема с кодировкой?
//Функция получения перевода текста с помощью сервиса Yandex Translate
//https://translate.yandex.net/api/v1.5/tr/translate?key=trnsl.1.1.20181028T164555Z.a9607b69d6eb723d.cfd831d41c39bddeccaf644fed8916778f1ef971&text=people&lang=en-ru
//{key} - ключ со страницы ;
//{text} - исходный текст для перевода;
//{lang} - язык исходного текста и язык, в который будет выполнен перевод;
//Ответ приходит в виде строки XML. Пример ответа:
//<?xml version="1.0" encoding="utf-8"?>
//<Translation code="200" lang="en-ru"><text>люди</text></Translation>
&НаСервере
Функция ПолучитьПеревод(Знач ИсходноеСлово, ЯзыкИсходногоТекста="ru", ЯзыкДляПеревода="en")
Ключ = "trnsl.1.1.20181028T164555Z.a9607b69d6eb723d.cfd831d41c39bddeccaf644fed8916778f1ef971";
Соединение = Новый HTTPСоединение(
"translate.yandex.net", // сервер (хост)
443, // порт, по умолчанию для http используется 80, для https 443
, // пользователь для доступа к серверу (если он есть)
, // пароль для доступа к серверу (если он есть)
, // здесь указывается прокси, если он есть
, // таймаут в секундах, 0 или пусто - не устанавливать
Новый ЗащищенноеСоединениеOpenSSL(), // защищенное соединение, если используется https
Ложь
);
ИсходноеСлово = КодироватьСтроку(ИсходноеСлово,СпособКодированияСтроки.КодировкаURL);
Запрос = Новый HTTPЗапрос("/api/v1.5/tr/translate?key="+Ключ+"1&text="+ИсходноеСлово+"&lang="+ЯзыкИсходногоТекста+"-"+ЯзыкДляПеревода);
Результат = Соединение.Получить(Запрос);
ТекстXML = Результат.ПолучитьТелоКакСтроку();
ЧтениеXML = Новый ЧтениеXML();
ЧтениеXML.УстановитьСтроку(ТекстXML);
ПостроительДОМ = Новый ПостроительDOM;
ДокументДОМ = ПостроительДОМ.Прочитать(ЧтениеXML);
ВеткаTranslation = ДокументДОМ.ДочерниеУзлы[0];
Возврат ВеткаTranslation.ТекстовоеСодержимое;
КонецФункции // ПолучитьПеревод()
