//Пример универсального ввода значения

Перем ВыбЗнач;

Массив = Новый Массив;

Массив.Добавить(Тип("Число"));

Массив.Добавить(Тип("Строка"));

Массив.Добавить(Тип("Дата"));

КЧ = Новый КвалификаторыЧисла(12,2);

КС = Новый КвалификаторыСтроки(20);

КД = Новый КвалификаторыДаты(ЧастиДаты.Дата);

ОписаниеТипов = Новый ОписаниеТипов(Массив, КЧ, КС, КД);

Если ВвестиЗначение(ВыбЗнач, "Введите значение", ОписаниеТипов) Тогда

    // обработка введенного значения

    Сообщить("Введенное значение: "+ВыбЗнач);

КонецЕсли;

   

 

Если ВвестиЗначение(Ном, "Введите номер приказа", "Число", 5, 0) = 1 Тогда

   ВыбДок = СоздатьОбъект("Документ.Приказ");

   ВыбДок.НайтиПоНомеру(Строка(Ном), Дата(0));

   Если ВыбДок.Выбран() = 1 Тогда

      // код

   ИначеЕсли;

      // код

   КонецЕсли;

КонецЕсли; 

 

ДатаНапоминания = РабочаяДата;

Подсказка = "Введите дату и время";

ЧастьДаты = ЧастиДаты.ДатаВремя;

Если ВвестиДату(ДатаНапоминания, Подсказка, ЧастьДаты) Тогда

	// обработка даты напоминания

КонецЕсли  

   

 

Если ВвестиДату(Д, "Введите дату ссуды") = 1 Тогда

	ДатаСсуды = Д;

Иначе

	ВидРасчета = ВидРасчета.БеспроцентнаяСсуда;

КонецЕсли;