Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Программная установка параметров в СКД (http://forums.kuban.ru/f1040/programmnaya_ustanovka_parametrov_v_skd-3233659.html)

GODed 28.10.2012 12:14

Программная установка параметров в СКД
 
Подскажите как программно установить параметры НачалоПериода и ОкончаниеПериода в СКД при открытии формы?

med 29.10.2012 07:48

Если на форме, то
Процедура ПриОткрытии
НачалоПериода=НачПер;
ОкончаниеПериода=КонПер;
КонецПроцедуры
А если передавать внутрь
то что то типа

Если КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНачала").Использование = Истина Тогда

НачПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНачала").Значение;

КонецЕсли;

Если КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаОкончания").Использование = Истина Тогда

КонПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаОкончания").Значение;

КонецЕсли;

И затем

КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНачала").Использование = Истина;
Если ЗначениеЗаполнено(НачПериода) Тогда
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНачала").Значение = НачПериода;
Иначе
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНачала").Значение = Неопределено;
КонецЕсли;
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаОкончания").Использование = Истина;
Если ЗначениеЗаполнено(КонПериода) Тогда
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаОкончания").Значение = КонецДня(КонПериода);
Иначе
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаОкончания").Значение = Неопределено;
КонецЕсли;

Где то так....


Текущее время: 18:43. Часовой пояс GMT +3.