Задача: найти пользователя из справочника «Пользователи» если известно только имя пользователя информационной базы.
Решение: воспользуемся стандартной функцией БСП ПользователиИнформационнойБазы:
|
1 2 3 |
ПИБ=ПользователиИнформационнойБазы.НайтиПоИмени("Вася ВГ); Исполнитель=справочники.Пользователи.НайтиПоРеквизиту("ИдентификаторПользователяИБ",ПИБ.УникальныйИдентификатор); |
Задача: в текущем выделенном элементе списка select заменить текст внутри скобок.
Решение:
Воспользуемся силой регулярки
|
1 |
$('#OutletSelectForCharging option:selected' ).text().replace(/\(.+\)/,'')+"("+current_status_connector_id+")"; |
За построение диалоговых окон в Android отвечает класс AlertDialog. С помощью него довольно легко построить конструкцию, чтото типа:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
AlertDialog.Builder builder = new AlertDialog.Builder(cntcur); builder.setTitle("Вопрос!"); builder.setMessage("Будем удалять фото?"); builder.setCancelable(true); builder.setPositiveButton("ДА", new DialogInterface.OnClickListener() { // Кнопка Да @Override public void onClick(DialogInterface dialog, int which) { dialog.dismiss(); // Отпускает диалоговое окно map=arrayList.get(position); Log.i("Info","--выбрали удалить"); } }); builder.setNegativeButton("Конечно нет", new DialogInterface.OnClickListener() { // Кнопка Нет @Override public void onClick(DialogInterface dialog, int which) { dialog.dismiss(); // Отпускает диалоговое окно } }); AlertDialog dialog = builder.create(); dialog.show(); |
Задача: разместить в виджете ListView картинку из файла + текст. Результат должен выглядеть как то так:
Решение: будем писать свой «адаптер», на входе которого будет массив из id и photo_name (имя файла картинки)
Экран list_photos.xml:
|
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 |
<?xml version="1.0" encoding="utf-8"?> <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:app="http://schemas.android.com/apk/res-auto" xmlns:tools="http://schemas.android.com/tools" android:layout_width="match_parent" android:layout_height="match_parent"> <ImageView android:id="@+id/imgv" android:layout_width="wrap_content" android:layout_height="wrap_content" android:layout_weight="1" tools:srcCompat="@tools:sample/avatars" /> <TextView android:id="@+id/photo_id" android:layout_width="wrap_content" android:layout_height="wrap_content" android:layout_weight="1" android:text="photo_id" /> <TextView android:id="@+id/photo_name" android:layout_width="wrap_content" android:layout_height="wrap_content" android:layout_weight="1" android:text="photo_name" /> </LinearLayout> |
Код адаптера:
|
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 |
ListView listView = findViewById(R.id.ListPhotos); // используем адаптер данных adapter=new PhotosAdapter(this,R.layout.list_photos, arrayList); listView.setAdapter(adapter); } // Пишем свой класс-адаптер private class PhotosAdapter extends ArrayAdapter<String> { PhotosAdapter(Context context, int textViewResourceId, ArrayList objects) { super(context, textViewResourceId, objects); } @NonNull @Override public View getView(int position, @Nullable View convertView, @NonNull ViewGroup parent) { LayoutInflater inflater = getLayoutInflater(); View row = inflater.inflate(R.layout.list_photos, parent, false); map=arrayList.get(position); TextView pid = (TextView) row.findViewById(R.id.photo_id); TextView pname = (TextView) row.findViewById(R.id.photo_name); File imgFile = new File(map.get("photo_name")); pid.setText(map.get("photo_id")); Bitmap myBitmap = BitmapFactory.decodeFile(imgFile.getAbsolutePath()); ImageView iconImageView = (ImageView) row.findViewById(R.id.imgv); iconImageView.setImageBitmap(myBitmap); return row; } } |
Задача: «фоново» загрузить файл эксель большого размера, с показом прогресса загрузки.
Решение:
В ходе выполнения задачи столкнулся с глюком платформы 1С, что при запуске фонового задания с параметром адреса временного хранилища файла, он приходит на сервер пустым. Потому пришлось делать «финт ушами», а именно перед запуском фонового задания, файл загрузить на сервер, получить его временное имя и уже затем передать его как параметр при запуске фонового задания.
Кроме того выплыла проблема с не рабочим способом передачи данных о загрузке при помощи хранения данных во «ВременныхХранилиах», описанным тут. Потому для получения прогресса воспользуемся возможностью зная идентификатор фонового процесса периодически получить с сервера данные выводимые при помощи «Сообщить()».
В общих модулях разместим следующий код фонового процесса:
|
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 |
&НаСервере Функция ЗагрузкаФайлаПредварительная(АдресВременногоХранилищаФайла) Экспорт ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилищаФайла); ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("xlsx"); ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр); возврат ИмяВременногоФайлаСпр; конецфункции Процедура ЗагрузкаФайлаДлительная(ИмяВременногоФайлаСпр) Экспорт ТабличныйДокументСпр = Новый ТабличныйДокумент; ТабличныйДокументСпр.Прочитать(ИмяВременногоФайлаСпр,СпособЧтенияЗначенийТабличногоДокумента.Значение); //читаем все листы файла СправочникСМС Для Каждого ОбластьТД ИЗ ТабличныйДокументСпр.Области Цикл ОбластьФайла = ТабличныйДокументСпр.ПолучитьОбласть(ОбластьТД.Имя); КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали(); КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали(); Сообщить("Строк:"+КолВоСтрокФайла); Сообщить("Колонок:"+КолВоКолонокФайла); имялиста=ОбластьТД.Имя; Сообщить("Лист:"+имялиста); МассивИменКолонок=Новый Массив(); // читаем шапку листа Для ит=1 ПО КолВоКолонокФайла Цикл нКолонка = СтрЗаменить(ит, Символы.НПП, ""); ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R3" + "C"+нКолонка).ТекущаяОбласть.Текст; МассивИменКолонок.Добавить(ИмяКолонки); конеццикла; НачСтрока=3;КонСтрока=0; НачСтрока = ?(НачСтрока = 0, 2, НачСтрока); КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока); //перебираем все строки без первой строки Индикатор=0; Для нСтрокаТФ = НачСтрока+1 ПО КонСтрока Цикл нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, ""); если Окр(нСтрокаТФ*100/КонСтрока)<>Индикатор тогда Индикатор = Окр(нСтрокаТФ*100/КонСтрока); Сообщение = Новый СообщениеПользователю; Сообщение.Текст = "Выполнено %"+Индикатор; Сообщение.Сообщить(); конецесли; Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, ""); Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка); ТекущаяОбласть = Область.ТекущаяОбласть; ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст); ... обрабатываем файл ... конеццикла; конеццикла; Сообщение = Новый СообщениеПользователю; Сообщение.Текст = "Загрузка завершена."; Сообщение.Сообщить(); |
Клиентская часть в управляемых формах:
|
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 79 80 81 |
&НаКлиенте Процедура Жмяк(Команда) Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xls)|*.xlsx"; ДиалогОткрытияФайла.Фильтр = Фильтр; ДиалогОткрытияФайла.МножественныйВыбор = ложь; ДиалогОткрытияФайла.Заголовок = "Выберите файлы"; Если ДиалогОткрытияФайла.Выбрать() Тогда МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы; ФайлСМС=""; Для Каждого ИмяФайла Из МассивФайлов Цикл ФайлСМС=ИмяФайла; конеццикла; если ФайлСМС<>"" тогда АдресХранилищаФайла = ""; Состояние("Перемещаю файл на сервер"); ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор); Состояние("Обрабатывается файл "+ФайлСМС); ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла); Состояние("Запущена фоновая обработка файла"); ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки",1,ложь); иначе сообщить("Файл не выбран"); конецесли; конецесли; КонецПроцедуры &НаСервере Процедура ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла) ИмяВременногоФайлаСпр=СК_Регламентные.ЗагрузкаФайлаПредварительная(АдресХранилищаФайла); МассивПараметров = Новый Массив; МассивПараметров.Добавить(ИмяВременногоФайлаСпр); Сообщить("Адрес файла (1):"+АдресХранилищаФайла); ФЗ = ФоновыеЗадания.Выполнить("СК_Регламентные.ЗагрузкаФайлаДлительная",МассивПараметров); ЭтаФорма.ФоновоеИдентификатор = ФЗ.УникальныйИдентификатор; КонецПроцедуры &НаСервере Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт Если Состояние = Неопределено Тогда Состояние = ФЗ.Состояние; КонецЕсли; МассивСообщений = Новый Массив; Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения); Если Сообщения <> Неопределено Тогда Для Каждого Сообщение Из Сообщения Цикл МассивСообщений.Добавить(Сообщение.Текст); КонецЦикла; КонецЕсли; Возврат МассивСообщений; КонецФункции &НаСервере Функция ОпроситьФоновые() прог=неопределено; ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ЭтаФорма.ФоновоеИдентификатор); ФСообщения=ПолучитьСообщенияФЗ(ФЗ,,истина); Если ФСообщения.Количество() > 0 Тогда Для Каждого Сообщение Из ФСообщения Цикл Сообщить(Сообщение); если найти(Сообщение,"%")>0 тогда Этаформа.Прогресс=СтрЗаменить(Сообщение,"Выполнено %",""); прог=Этаформа.Прогресс; конецесли; КонецЦикла; КонецЕсли; возврат прог; КонецФункции &НаКлиенте Процедура ИндикаторВыполненияЗагрузки() Экспорт пр=ОпроситьФоновые(); если пр<>неопределено тогда Состояние("Выполнено "+пр); конецесли; КонецПроцедуры |