Универсальные формы ввода даты, числа, строки, Виртуальная клавиатура, форма выбора из списка (для сенсорных экранов)

Любая форма используется как общая, для скачивания помещена в обработку. Форму из обработки необходимо поместить в общие формы, для удобства создать в общем модуле процедуру, аналогичную указанной в примере.

Работает на любой конфигурации, форма обычная, мы тестировали на УПП 1.3.

Как пользоваться: вы хотите выбирать значение через эту форму, подменяете процедуру выбора этого значения на процедуру общего модуля (пример ниже), при необходимости передаете туда значение для редактирования (если это не ввод нового значения), после работы с формой нужно обработать результат — вам вернется выбранное значение, если пользователь отказался, то вернется "Неопределено".

// Ввод строки
Процедура Пример

СтрокаДляРедактирования = "Тест";

СтрокаДляРедактирования = НастройкиФорм.ВводСтроки(СтрокаДляРедактирования);

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


// Открывает форму интерактивного ввода строки
//
// Параметры:
//  Строка - Строка
//              строка для редактирования
Функция ВводСтроки(Строка = Неопределено) Экспорт

Если Строка = Неопределено Тогда
Строка = "";
КонецЕсли;

ФормаСтрока = ПолучитьФорму("ОбщаяФорма.МК_ФормаВводаСтроки");
ФормаСтрока.Строка = Строка;
Строка = ФормаСтрока.ОткрытьМодально();

Возврат Строка;

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

// Ввод числа
Процедура Пример

ЧислоДляРедактирования = 124;

ЧислоДляРедактирования = НастройкиФорм.ВводЧисла(ЧислоДляРедактирования );

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


// Открывает форму интерактивного ввода числа
//
// Параметры:
//  Число - Число
//             число для редактирования
Функция ВводЧисла(Число = Неопределено) Экспорт

Если Число = Неопределено Тогда
Число = 0;
КонецЕсли;

ФормаЧисла = ПолучитьФорму("ОбщаяФорма.МК_ФормаВводаЧисла");
ФормаЧисла.Число = Число;
Число = ФормаЧисла.ОткрытьМодально();

Возврат Число;

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


// Ввод даты
Процедура Пример

ДатаДляРедактирования = ТекущаяДатаСеанса();

ДатаДляРедактирования = НастройкиФорм.ВводДаты(ДатаДляРедактирования);

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

// Открывает форму интерактивного ввода даты
//
// Параметры:
//  Дата - Дата
//             дата для редактирования
Функция ВводДаты(Дата = Неопределено) Экспорт

Если Дата = Неопределено ИЛИ НЕ ЗначениеЗаполнено(Дата) Тогда
Дата = ТекущаяДатаСеанса();
КонецЕсли;

ФормаДаты = ПолучитьФорму("ОбщаяФорма.ФормаВводаДаты");
ФормаДаты.ТекущаяДата = Дата;
Дата = ФормаДаты.ОткрытьМодально();

Возврат Дата;

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

// Выбор из списка
Процедура Пример

СписокВозврата = Новый СписокЗначений;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    Склады.Ссылка КАК Ссылка,
|    Склады.Наименование КАК Наименование
|ИЗ
|    Справочник.Склады КАК Склады
|ГДЕ
|    НЕ Склады.ПометкаУдаления
|
|УПОРЯДОЧИТЬ ПО
|    Наименование";

РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СписокСкладов.Добавить(ВыборкаДетальныеЗаписи.Ссылка, СокрЛП(ВыборкаДетальныеЗаписи.Наименование));
КонецЦикла;

ПеремещениеТекущийСклад = НастройкиФорм.ВыбратьИзСписка(СписокСкладов, 2);

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

// Открывает форму интерактивного выбора из списка
//
// Параметры:
//  СписокВыбора - СписокЗначений - Список из которого нужно выбрать
//  РежимРаботы - Число - Вариант отображения: 1 - в один столбец, 2 - в два столбца
//
Функция ВыбратьИзСписка(СписокВыбора, РежимРаботы) Экспорт

ФормаВыбораИзСписка = ПолучитьФорму("ОбщаяФорма.ФормаВыбораИзСписка");
ФормаВыбораИзСписка.СписокВыбора     = СписокВыбора;
ФормаВыбораИзСписка.РежимРаботы     = РежимРаботы;
ВыбранноеЗначение = ФормаВыбораИзСписка.ОткрытьМодально();

Возврат ВыбранноеЗначение;

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