Публикация изменена.
Код приведен в виде примера из тестовой конфигурации.
Есть форма, при открытии которой мы обязаны проверить.
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если МобильноеПриложениеКлиент Тогда
НовВз = Новый ЗапускПриложенияМобильногоУстройства();
НовВз.Действие = "com.example.avilmov.PAINT";
НовВз.ДополнительныеДанные.Добавить("COMMAND", "SERCH");
НовВз.ДополнительныеДанные.Добавить("OBJECT", "com.example.avilmov");
Результат = НовВз.Запустить(Истина);
Если НЕ Результат = -1 Тогда
ИмяФайла = КаталогДокументов()+"PaintPGS.apk";
ПроизвестиУстановкуПГСПайнт(ИмяФайла);
ПоказатьПредупреждение(, "Будет установлено приложение для подписей 'PaintPGS.apk'",,"Установка 'PaintPGS.apk'");
ЗапуститьПриложение(ИмяФайла,КаталогДокументов(),Истина);
Установлено = Истина; //Реквизит формы, показывающий пользователю, установлено ли приложение
Иначе
Установлено = Истина;
КонецЕсли;
#КонецЕсли
КонецПроцедуры
&НаСервере
Процедура ПроизвестиУстановкуПГСПайнт(Путь)
Макет = ПолучитьОбщийМакет("Роспись"); // в макет сохранен АПК PaintPGS в виде двоичных данных
Макет.Записать(Путь);
КонецПроцедуры
Добавляем команду "ПолучитьПодпись" и код
&НаКлиенте
Процедура ПолучитьПодпись(Команда)
#Если МобильноеПриложениеКлиент Тогда
НовВз = Новый ЗапускПриложенияМобильногоУстройства();
НовВз.Действие = "com.example.avilmov.PAINT";
//Подпись
Результат = НовВз.Запустить(Истина);
Если Результат = -1 Тогда
Массив = НовВз.ДополнительныеДанные.Получить("IMG").Значение;
Иначе
Предупреждение("Клиент не запустился",, "Ошибка запуска ПО");
Возврат;
КонецЕсли;
Картинка = Base64Значение(Массив);
Если НЕ Картинка = Неопределено Тогда
ПодписьКартинка = ПоместитьВоВременноеХранилище(Картинка); //Отображаем картинку на форме
КонецЕсли;
#КонецЕсли
КонецПроцедуры
Картинка = Base64Значение(Массив) - получаем двоичные данные картинки, которые можем использовать при формировании табличных документов.
Картинка получаемая из приложения обрезается от пустот.
Это хорошо видно при тестировании.
Вступайте в нашу телеграмм-группу Инфостарт
