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

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

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

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

///////////// УПРАВЛЯЕМЫЕ ФОРМЫ /////////////
 
// Ввод числа
&НаКлиенте
Процедура ВесБруттоНачалоВыбора
	ОписаниеЗакрытия = Новый ОписаниеОповещения("ОповещениеВводВесБрутто",ЭтаФорма);
	МК_КалькуляторыКлиент.КалкВвестиЧисло(ЭтаФорма, ОписаниеЗакрытия, НашеЧисло);
КонецПроцедуры

// Вводит число через обработку для сенсорного экрана
//
// Параметры:
//  ФормаВладелец  		- Форма - Форма источник
//  ОповещениеЗакрытия  	- ОписаниеОповещения - Описание оповещения при закрытии формы
//  НачальноеЗначение  		- Число - Исходное число для редактирования
//
Процедура КалкВвестиЧисло(ФормаВладелец, ОповещениеЗакрытия, НачальноеЗначение = 0, Заголовок = "") Экспорт
	
	ОткрытьФорму("ОбщаяФорма.МК_ВводЧисла", 
	Новый Структура("НачальноеЗначениеВводаЧисла, Заголовок", НачальноеЗначение, Заголовок),
	ФормаВладелец,
	,
	ВариантОткрытияОкна.ОтдельноеОкно,
	,
	ОповещениеЗакрытия,
	РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);	
	
КонецПроцедуры // КалкВвестиЧисло()

// Ввод даты
&НаКлиенте
Процедура ВыбратьДату(Команда)	
	ОписаниеЗакрытия = Новый ОписаниеОповещения("ОповещениеВыбораДаты",ЭтаФорма);
	МК_КалькуляторыКлиент.КалкВвестиДату(ЭтаФорма, ОписаниеЗакрытия, Объект.ДатаВыработки);	
КонецПроцедуры

// Вводит дату через обработку для сенсорного экрана
//
// Параметры:
//  ФормаВладелец  		- Форма - Форма источник
//  ОповещениеЗакрытия  	- ОписаниеОповещения - Описание оповещения при закрытии формы
//  НачальноеЗначение  		- Дата - Исходная дата для редактирования
//
Процедура КалкВвестиДату(ФормаВладелец, ОповещениеЗакрытия, НачальноеЗначение = 0) Экспорт
	
	ОткрытьФорму("ОбщаяФорма.МК_ВводДаты", 
	Новый Структура("ДатаОтсчета", НачальноеЗначение),
	ФормаВладелец,
	,
	ВариантОткрытияОкна.ОтдельноеОкно,
	,
	ОповещениеЗакрытия,
	РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);	
	
КонецПроцедуры // КалкВвестиЧисло()


///////////// ОБЫЧНЫЕ ФОРМЫ ///////////// 

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

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

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

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


// Открывает форму интерактивного ввода строки
//
// Параметры:
//  Строка - Строка
//              строка для редактирования
Функция ВводСтроки(Строка = Неопределено) Экспорт
        
    Если Строка = Неопределено Тогда
        Строка = "";
    КонецЕсли;
    
    ФормаСтрока = ПолучитьФорму("ОбщаяФорма.МК_ФормаВводаСтроки");
    ФормаСтрока.Строка = Строка;
    Строка = ФормаСтрока.ОткрытьМодально();
    
        Возврат Строка;
    
КонецФункции

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

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

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

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


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

    Если Число = Неопределено Тогда
        Число = 0;
    КонецЕсли;
    
    ФормаЧисла = ПолучитьФорму("ОбщаяФорма.МК_ФормаВводаЧисла");
    ФормаЧисла.Число = Число;
    Число = ФормаЧисла.ОткрытьМодально();
    
    Возврат Число;
    
КонецФункции


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

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

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

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

// Открывает форму интерактивного ввода даты
//
// Параметры:
//  Дата - Дата
//             дата для редактирования
Функция ВводДаты(Дата = Неопределено) Экспорт
        
    Если Дата = Неопределено ИЛИ НЕ ЗначениеЗаполнено(Дата) Тогда
        Дата = ТекущаяДатаСеанса();
    КонецЕсли;
    
    ФормаДаты = ПолучитьФорму("ОбщаяФорма.ФормаВводаДаты");
    ФормаДаты.ТекущаяДата = Дата;
    Дата = ФормаДаты.ОткрытьМодально();
    
    Возврат Дата;
        
КонецФункции

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

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

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

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

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

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