Дата и его формат

[Дмитрий Корнилов]

Здравствуйте, скажите пожалуйста, либо программа не работает, либо неправильно понял задание, насколько я понял, что при наведений на дату текущего месяца, программа должна ответить сообщением, что дата есть, а если дату нетекущего месяца, программа должна ответить, что даты нет, можете пожалуйста подсказать
Заранее буду благодарен

Код Выделить Развернуть

&НаСервере
Процедура РезультатНаСервере()
    ТаблицаДат = Новый ТаблицаЗначений;
    ТаблицаДат.Колонки.Добавить("Дата",Новый ОписаниеТипов("Дата"));
    ТаблицаДат.Колонки.Добавить("Формат",Новый ОписаниеТипов("Строка"));
   
    ДатаИтерации = НачалоМесяца(ТекущаяДата());
    КонечнаяДата = НачалоДня(КонецМесяца(ТекущаяДата()));
   
    Пока ДатаИтерации <= КонечнаяДата Цикл
        НоваяСтрока = ТаблицаДат.Добавить();
        НоваяСтрока.Дата = ДатаИтерации;
        НоваяСтрока.Формат = "ДЛФ=DD";
       
        ДатаИтерации = ДатаИтерации + 24*3600;
    КонецЦикла;
   
    НайденнаяСтрока = ТаблицаДат.Найти(Дата,"Дата");
   
    Если НайденнаяСтрока = Неопределено Тогда
        Сообщить("Указанной даты нет в таблице");
    Иначе
        Сообщить(СтрШаблон("Выбранная дата %1 есть в таблице",Формат(НайденнаяСтрока.Дата, НайденнаяСтрока.Формат)))
    КонецЕсли;
КонецПроцедуры
 
&НаКлиенте
Процедура Результат(Команда)
    РезультатНаСервере();
КонецПроцедуры


[antoneus]

Первый же пункт задания не выполнен.

[Дмитрий Корнилов]

antoneus, Ну рекизит Дата имеется, А команда заполнить, Там ТЕСТ

[Дмитрий Корнилов]

antoneus, Вы имеете виду что должно быть поле, куда вводится дата

[antoneus]

Да, это я и имею в виду.