1С 7.x : Выбор периода, задать период

 

//Процедура для кнопки выбор периода

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

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период; //Закладка Период

	// НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Интервал;// Закладка Интервал

	Если НастройкаПериода.Редактировать() Тогда

		НачПериода = НастройкаПериода.ПолучитьДатуНачала();

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

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

   

 

// Функция ВвестиПериод выдает на экран диалог специального вида,

// при помощи которого пользователь может выбрать период. 

// Выбранный пользователем период записывается в переменные, передаваемые как параметры при вызове метода.



Дата1 = '01.01.97';

Дата2 = '31.03.97';

Если ВвестиПериод(Дата1, Дата2, "Введите период отчета") <> 1 Тогда

	// Нажата кнопка «Отмена», клавиша  или закрыто окно диалога

   Возврат 0;

Иначе

   СформироватьОтчет(Дата1, Дата2);

КонецЕсли;