---

Процедура ВыводПоДатеНажатие(Элемент)

    ДатаЗапроса = РабочаяДата();

    Если НЕ ВвестиДату(ДатаЗапроса, "Введите дату продажи") Тогда
        Возврат;
    КонецЕсли;

    ОчиститьСообщения();

    Заголовок = "Список продаж на " +
        Формат(ДатаЗапроса, "[ДФ=dd.MM.yyyy]");

    ВыводШапки(Заголовок);

    Всего = 0;
    НДС = 0;
    Флаг = 0;

    Для Инд = 0 По Наим.ВГраница() Цикл

        Если Дат[Инд] = ДатаЗапроса Тогда

            ВыводДанных(Инд, Всего, НДС);
            Флаг = 1;

        КонецЕсли;

    КонецЦикла;

    Если Флаг = 1 Тогда

        ВыводПодвала(Всего, НДС);

    Иначе

        Сообщить("Продаж не было.");

    КонецЕсли;

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