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

В колонке "Количество" на событие "НачалоВыбора" пишем обработчик:

&НаКлиенте
Процедура ТоварыКоличествоУпаковокНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    
    ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
    Если ТекущиеДанные = Неопределено Тогда
        Возврат
    КонецЕсли;
    
    ТекКоличество = _ВвестиЗначение(ТекущиеДанные.КоличествоУпаковок);
    Если ТекКоличество <> 0 Тогда
        ТекущиеДанные.КоличествоУпаковок = ТекКоличество;
        
        ТоварыКоличествоУпаковокПриИзменении(ТекущиеДанные);
    КонецЕсли;
КонецПроцедуры

//Функция _ВвестиЗначение() обращается к общему модулю, где вызывается внешняя обработка:

&НаКлиенте
Функция _ВвестиЗначение(Значение)     
   Возврат ВнешниеФункцииКлиент.ВводЧислаДаты(Значение, ЭтаФорма)   
КонецФункции  

//общий модуль

Функция ВводЧислаДаты(Значение, ВладелецФормы) Экспорт
    
    Если ТипЗнч(Значение) = Тип("Дата") Тогда
        
        ИмяФормы = "ФормаКалендаря";
        
    Иначе //число
        
        ИмяФормы = "ФормаВводЧисла"; 
        
    КонецЕсли;    
        
    Параметры = Новый Структура("Значение", ?(ЗначениеЗаполнено(Значение), Значение, ""));
        
    ИмяОбработки = ВнешниеФункцииКлиентПовтИсп.ПодключитьОбработкуФормы("Ввод числа или даты");
    ФормаОбработки = ПолучитьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма." + ИмяФормы, Параметры, ВладелецФормы);
    ФормаОбработки.ОткрытьМодально();
    
    Возврат ФормаОбработки.ВыбранноеЗначение;
    
КонецФункции