мобильное » Поиск

Результаты по ключевому слову: мобильное

Как вызвать альтернативный вариант сканирования штрихкода Категория: Мобильное приложение

Как отсканировать штрихкод на мобильном устройстве

//не забываем в свойствах конфигурации установить Требуемые разрешения "Мультимедиа"

Код 1C v 8.3

 

&НаКлиенте

Процедура ЗапуститьСканирование()

	

	#Если МобильноеПриложениеКлиент  Тогда

		 Если НЕ СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда

    		ВызватьИсключение НСтр("ru='Сканирование штрихкодов не поддерживается';en='Barcode scanning is not supported'");

			Возврат;

  		КонецЕсли;

		ОбработчикСканирования = Новый ОписаниеОповещения("ОбработкаСканирования", ЭтаФорма);

  		ОбработчикЗакрытия = Новый ОписаниеОповещения("ОбработкаЗакрытияИнтерфейса", ЭтаФорма);

  		СредстваМультимедиа.ПоказатьСканированиеШтрихКодов(НСтр("ru='Наведите камеру на штрихкод';en='Aim the camera at an barcode'"), ОбработчикСканирования, ОбработчикЗакрытия, ТипШтрихКода.Линейный);

	#конецесли



КонецПроцедуры	





&НаКлиенте

Процедура ОбработкаСканирования(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт

	

	пТовар    = "";

	

	Если Результат Тогда

		

		Структура = ОбщегоНазначенияСервер.ПоискПоШтрихкодуОбъекта(ШтрихКод);			     			

		Если Структура = Неопределено Тогда

			пТовар = Неопределено;

			//#Если МобильноеПриложениеКлиент  Тогда

			//	СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();

			//#конецесли

			Сообщение = "Не найден объект по штрихкоду " + Штрихкод;

		Иначе

			пТовар    = Структура.Наименование;

			

			Сообщение = сокрЛП(пТовар) + Символы.ПС + Штрихкод;

						

			ДобавитьТоварВТаблицу(пТовар);

			

		КонецЕсли;

		

	КонецЕсли;

	

КонецПроцедуры



&НаКлиенте

Процедура ОбработкаЗакрытияИнтерфейса(ДополнительныеПараметры) Экспорт

	

	//Если ЗначениеЗаполнено(пТовар) Тогда

	//	можем встроить код открытия формы ввода количества

	//КонецЕсли;	



КонецПроцедуры

Категория: Мобильное приложение

Как сделать фото на мобильном устройстве

Источник mobile-1s.ru

не забываем в свойствах конфигурации установить Требуемые разрешения "Мультимедиа"

Код 1C v 8.3

 



&НаКлиенте

Процедура КомандаСоздатьФото(Команда)



         ДанныеФото = ПолучитьДанныеФотоСнимка();



         Если ДанныеФото <> Неопределено Тогда

            ТекущееФото = ДанныеФото.ПолучитьДвоичныеДанные();

           Фото = ПоместитьВоВременноеХранилище(ТекущееФото,     Новый УникальныйИдентификатор);

         КонецЕсли;



КонецПроцедуры



&НаКлиенте

Функция ПолучитьДанныеФотоСнимка()



         Данные = Неопределено;



        #Если МобильноеПриложениеКлиент Тогда 

 

             Если СредстваМультимедиа.ПоддерживаетсяФотоснимок() Тогда



                   ТипКамерыДанные = ОбщегоНазначенияСервер.ПолучитьЗначениеКонстанты("ТипКамеры");

                   Если ТипКамерыДанные = ПредопределенноеЗначение("Перечисление.ТипКамеры.Задняя")   Тогда

                        ТипКамеры = ТипКамерыУстройства.Задняя;

                   ИначеЕсли ТипКамерыДанные =  ПредопределенноеЗначение("Перечисление.ТипКамеры.Передняя") Тогда

                        ТипКамеры = ТипКамерыУстройства.Передняя;

                   Иначе

                        ТипКамеры = ТипКамерыУстройства.Авто;

                   КонецЕсли;



                  РазрешениеВысота = ОбщегоНазначенияСервер.ПолучитьЗначениеКонстанты("РазрешениеВысота");

                  РазрешениеШирина = ОбщегоНазначенияСервер.ПолучитьЗначениеКонстанты("РазрешениеШирина");



                 //для устройств IOS этот параметр игнорируется

                 пКачество = ОбщегоНазначенияСервер.ПолучитьЗначениеКонстанты("КачествоФото");

                 Если пКачество = 0 Тогда

                      пКачество = 1;

                 КонецЕсли;



                 Если РазрешениеВысота <> 0 И РазрешениеШирина <> 0 Тогда

                       РазрешениеКамеры = Новый РазрешениеКамерыУстройства;

                       РазрешениеКамеры.Высота = РазрешениеВысота;

                       РазрешениеКамеры.Ширина = РазрешениеШирина;

                       Данные = СредстваМультимедиа.СделатьФотоснимок(ТипКамеры, РазрешениеКамеры, пКачество); 



                 Иначе

                       Данные = СредстваМультимедиа.СделатьФотоснимок(ТипКамеры, , пКачество); 

                 КонецЕсли; 



                Возврат Данные; 

                Иначе 

                    Сообщить("Данное устройство не поддерживает фотоснимок!") 

                КонецЕсли; 

 

                #КонецЕсли



               Возврат Данные;



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

Категория: Мобильное приложение

Мобильное приложение в 1С: Двусторонний обмен Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Курс по Мобильной платформе 1С (Вадим Сайфутдинов) Категория: Мобильное приложение

Использование модальных окон в данном режиме запрещено! Модальные окна не работают, как быть?

В конфигураторе в свойства конфигурации, есть параметр «Режим использования модальности»

Режим использования модальности

Если установить Не использовать, то - принципе весь код, который после ОткрытьФормуМодально() Вопрос(), Предупреждение(), Выборов и диалогов открытия-сохранения станет работать с ошибками!

Рассмотрим пример с Использовать:

Код 1C v 8.3

 &НаКлиенте

Процедура КомандаВопрос(Команда)

	Ответ = Вопрос("Ну что скажешь? ", РежимДиалогаВопрос.ДаНет);	

	Если Ответ = КодВозвратаДиалога.Да Тогда                                   		

		Сообщить("Ответили ДА!");                                              		

	КонецЕсли;

КонецПроцедуры

В режиме Предприятие получаем

Тест модального окна Вопрос

Если мы поставим Режим использования модальности = Не использовать то получим ошибку: Использование модальных окон в данном режиме запрещено

получим ошибку: Использование модальных окон в данном режиме запрещено

Теперь код нужно писать по новому:

Код 1C v 8.3

 &НаКлиенте

Процедура КомандаВопросПоНовому(Команда)

	Оповещение = Новый ОписаниеОповещения("ОтветНаВопросЗавершение", ЭтотОбъект);

	ТекстВопроса = "Ну что скажешь?";

	ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);

КонецПроцедуры





&НаКлиенте 

Процедура ОтветНаВопросЗавершение(Результат, ДополнительныеПараметры) Экспорт 

	Если Результат = КодВозвратаДиалога.Да Тогда

		Сообщить("Ответили ДА");

	КонецЕсли;

КонецПроцедуры

в результате

Почему 1С решила отказаться от использования модальных окон ?

В наш век развития мобильных технологий все идет к тому - что скоро все будут работать на планшетах и телефонах. 1С сделала для этого «Web Клиент» и «Мобильное приложение». И чтобы успешно двигаться вперед нужно решать такие проблемы как, блокировка всплывающих окон. Ведь даже обычные браузеры по умолчанию блокируют модальные (всплывающие) окна!

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Как переименовать файл или каталог? Категория: Работа с Файлами и Каталогами