150
Рейтинг

При нажатии на кнопку печать:

Ошибка внешней компоненты
{ОбщийМодуль.МенеджерОборудованияВызовСервера.Модуль(1644)}: ВнешняяКомпонента.ТипКода = ПараметрыШтрихкода.ТипКода;
{ВнешняяОбработка.ШтрихКоды.МодульОбъекта(70)}: Рисунок.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
{ВнешняяОбработка.ШтрихКоды.Форма.Форма.Форма(5)}: Возврат ОбъектДляСервера.СформироватьОтчетНаСервере(Объект.ВидТовара,Объект.ПечатьНомераЭтикетки,Объект.ВерхнийЗаголовок,Объект.ФорматЭтикетки);
{ВнешняяОбработка.ШтрихКоды.Форма.Форма.Форма(10)}: Отчет = ПечатьШтрихКодаНаСервере();

по причине:
Ошибка внешней компоненты

что делаю не так?

БУ › Унифицированная форма ТОРГ-2 для УТ 10.3 › #13 06.06.19 7:11

(12)

Цитата
сание, что входит в ваш архив

какой ворд там еще?

WMS › Подключение эквайрингового терминала Сбербанка к 1С 7.7 ТиС (+ терминальный режим) › #25 18.02.19 13:02

(24) коды ошибок запросите у сбера. они в инете то же есть

Dev › Склонение ФИО и должностей через веб-сервис – 1С 8.2 / 8.3 › #74 11.09.17 13:27

(73)

Код
&НаСервере Процедура Команда2НаСервере() // default init Токен = null; Число = 36; ЕдиницаИзмерения = "день"; АдресСервера = "ws3.morpher.ru"; Соединение = Новый HTTPСоединение(АдресСервера,,,,,, Новый ЗащищенноеСоединениеOpenSSL()); ТекстЗапроса = "/russian/spell?n=" + число + "&unit=" + ЕдиницаИзмерения; Если Токен <> null Тогда ТекстЗапроса = ТекстЗапроса + "&token=" + Токен; КонецЕсли; Заголовок_ = Новый Соответствие; Заголовок_.Вставить("Accept", "application/json"); Запрос = Новый HTTPЗапрос(ТекстЗапроса); Запрос.Заголовки = Заголовок_; Ответ = Соединение.Получить(Запрос); Данные = ПолучитьДанныеИзОтвета(Ответ); Сообщить(" "+Данные.n.Р+ " "+Данные.unit.Р); КонецПроцедуры &НаКлиенте Процедура Команда2(Команда) Команда2НаСервере(); КонецПроцедуры Функция ПолучитьДанныеИзОтвета(Ответ) ОтветСтрокой = Ответ.ПолучитьТелоКакСтроку(); Чтение = Новый ЧтениеJson(); Чтение.УстановитьСтроку(ОтветСтрокой); Если Ответ.КодСостояния = 200 Тогда Данные = ПрочитатьJSON(Чтение, ложь); Возврат Данные; ИначеЕсли Ответ.КодСостояния = 400 тогда Данные = ПрочитатьJSON(Чтение, ложь); ВызватьИсключение("Ошибка: " + Данные.message); Иначе ВызватьИсключение("HTTP ошибка: " + Ответ.КодСостояния); КонецЕсли; КонецФункции

Код

&НаСервере
Процедура Команда2НаСервере()
   // default init
   Токен = null;
   Число = 36;
   ЕдиницаИзмерения = "день";
   АдресСервера = "ws3.morpher.ru";
   Соединение = Новый HTTPСоединение(АдресСервера,,,,,, Новый ЗащищенноеСоединениеOpenSSL());
   ТекстЗапроса = "/russian/spell?n=" + число + "&unit=" + ЕдиницаИзмерения;
   Если Токен <> null Тогда
      ТекстЗапроса = ТекстЗапроса + "&token=" + Токен;
   КонецЕсли;
   
   Заголовок_ = Новый Соответствие;
   Заголовок_.Вставить("Accept", "application/json");   

   Запрос = Новый HTTPЗапрос(ТекстЗапроса);   
   Запрос.Заголовки = Заголовок_;
   
   Ответ = Соединение.Получить(Запрос);
   Данные = ПолучитьДанныеИзОтвета(Ответ);
   Сообщить(" "+Данные.n.Р+ " "+Данные.unit.Р);   
   
КонецПроцедуры

&НаКлиенте
Процедура Команда2(Команда)
   Команда2НаСервере();
КонецПроцедуры

Функция ПолучитьДанныеИзОтвета(Ответ)
    ОтветСтрокой = Ответ.ПолучитьТелоКакСтроку();
   
   Чтение = Новый ЧтениеJson();
   Чтение.УстановитьСтроку(ОтветСтрокой);
   
   Если Ответ.КодСостояния = 200 Тогда
      Данные = ПрочитатьJSON(Чтение, ложь);
       Возврат Данные;
   ИначеЕсли Ответ.КодСостояния = 400 тогда
      Данные = ПрочитатьJSON(Чтение, ложь);
      ВызватьИсключение("Ошибка: " + Данные.message);
   Иначе
      ВызватьИсключение("HTTP ошибка: " + Ответ.КодСостояния);
   КонецЕсли;      
КонецФункции

вот так работает из обработки автора взят код

Dev › Склонение ФИО и должностей через веб-сервис – 1С 8.2 / 8.3 › #72 08.09.17 8:03

Упал сервис, ОпределениеМорфер=Новый WSОпределения("http://morpher.ru/WebService.asmx?WSDL");
Морфер=Новый WSПрокси(ОпределениеМорфер,"http://morpher.ru/","WebService","WebServiceSoap");

Починят или нет?

Прикрепленные файлы:

ошибка.png

150 Рейтинг

Denis_Viktorovich Денис Васильев

Рейтинг 150

Комментарии

150
Рейтинг

Denis_Viktorovich
Денис Васильев