Уведомления
Очистить все

1С СКД‎ - Установить параметры СКД программно

1 Записи
1 Пользователи
0 Likes
533 Просмотры
83-150 Okolokompa Форум
(@telman)
Estimable Member
Присоединился: 4 года назад
Записи: 78
Создатель темы  
 // Обновляет параметры периода в компоновщике настроек по данным формы
 Процедура ОбновитьПараметрыПериодаПоФорме(КомпоновщикНастроек, Форма) Экспорт
    
    ЗначениеПараметраНачалоПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.
                                 НайтиЗначениеПараметра( Новый ПараметрКомпоновкиДанных("НачалоПериода"));
    ЗначениеПараметраКонецПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.
                                 НайтиЗначениеПараметра( Новый ПараметрКомпоновкиДанных("КонецПериода"));
    ЗначениеПараметраПериод = КомпоновщикНастроек.Настройки.ПараметрыДанных.
                                 НайтиЗначениеПараметра( Новый ПараметрКомпоновкиДанных("Период"));
    
    Если ЗначениеПараметраНачалоПериода <>  Неопределено Тогда
        ЗначениеПараметраНачалоПериода.Значение = Форма.НачалоПериода;
        ЗначениеПараметраНачалоПериода.Использование = Истина;
   КонецЕсли;
    
    Если ЗначениеПараметраКонецПериода <>  Неопределено Тогда
        ЗначениеПараметраКонецПериода.Значение = ?(Форма.КонецПериода = '0001-01-01', 
                                                 Форма.КонецПериода, КонецДня(Форма.КонецПериода));
        ЗначениеПараметраКонецПериода.Использование = Истина;
   КонецЕсли;
    
    Если ЗначениеПараметраПериод <>  Неопределено Тогда
        ЗначениеПараметраПериод.Значение = ?(Форма.Период = '0001-01-01', 
                                           Форма.Период, КонецДня(Форма.Период));
        ЗначениеПараметраПериод.Использование = Истина;
   КонецЕсли;
    
 КонецПроцедуры


   
Цитата
Поделиться: