1
Eskeych
17.08.22
✎
11:44
|
&НаКлиенте
Процедура УстановитьПериодОтображения(Команда)
Описание = Новый ОписаниеОповещения("УстановитьИнтервалЗавершение", ЭтотОбъект);
Диалог = Новый ДиалогРедактированияСтандартногоПериода;
Диалог.Период = Период;
Диалог.Показать(Описание);
//ОбщегоНазначенияКлиентСервер.
КонецПроцедуры
Процедура УстановитьИнтервалЗавершение(Результат, допПараметры) Экспорт
Период.ДатаНачала = Результат.ДатаНачала;
Период.ДатаОкончани я = Результат.датаОкончания;
Если Результат.ДатаНачала = Дата(1,1,1) Тогда
ИспользованиеДатаНачала = Ложь;
Иначе
ИспользованиеДатаНачала = истина;
КонецЕсли;
Если Результат.ДатаОкончания = Дата(1,1,1) Тогда
ИспользованиеДатаОкончания = Ложь;
Иначе
ИспользованиеДатаОкончания = Истина;
КонецЕсли;
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список,
"ДатаНачала",
Результат.ДатаНачала,
ИспользованиеДатаНачала);
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список,
"ДатаОкончания",
Результат.ДатаОкончания,
ИспользованиеДатаОкончания);
КонецПроцедуры
|
|