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

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

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

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

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

КонецЕсли  

   

 

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

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

Иначе

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

КонецЕсли;