Имя: Пароль:
1C
1С v8
Выбранный элемент из списка выбора (упр. формы)
0 AugustBlack
 
20.11.13
14:12
Сабж, тема заезжена возможно, замучался не получается установить выбранный элемент для ПоляФормы "МесяцСдачи"..

как правильно назначить выбранный элемент из списка выбора в УП?

Вот прим. кода при открытии:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда  //если документ новый тогда подставить реквизиты
    Попытка
            УстановитьЗначенияПоУмолчанию();
        Исключение
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = ОписаниеОшибки();
            Сообщение.Сообщить();
        КонецПопытки;
    КонецЕсли;
    
    Попытка     
        СписокМесяцев = Новый СписокЗначений;  //+
        ТекДата = НачалоМесяца(НачалоГода(Объект.Дата));
        Для Мес = 0 по 12 Цикл
            ТекМес = ДобавитьМесяц(ТекДата, Мес);
            СписокМесяцев.Добавить(ТекМес, Формат(ТекМес, "ДФ='ММММ гггг'"));  //+
        КонецЦикла;
        
        Если ЗначениеЗаполнено(Объект.МесяцСдачи) Тогда
                Элементы.МесяцСдачи = СписокМесяцев.НайтиПоЗначению(Объект.МесяцСдачи);
            КонецЕсли;
    Исключение    
        ПоказатьОповещениеПользователя("Внимание!", ,ОписаниеОшибки(),  БиблиотекаКартинок.Обновить);
    КонецПопытки;
    
КонецПроцедуры
1 RomaH
 
naïve
20.11.13
14:16
ты типы слева и справа посмотри
2 AugustBlack
 
20.11.13
14:21
(1) не указал полю список выбора. Непонятно как это юзать, "Элементы.МесяцСдачи.СписокВыбора = СписокМесяцев.НайтиПоЗначению(Объект.МесяцСдачи);
            КонецЕсли;"в обычном режиме обращаешься через .Значение, Поправил:

Попытка     
        
        ТекДата = НачалоМесяца(НачалоГода(Объект.Дата));
        Для Мес = 0 по 12 Цикл
            ТекМес = ДобавитьМесяц(ТекДата, Мес);
            //СписокМесяцев.Добавить(ТекМес, Формат(ТекМес, "ДФ='ММММ гггг'"));  //+
            Элементы.МесяцСдачи.СписокВыбора.Добавить(ТекМес, Формат(ТекМес, "ДФ='ММММ гггг'"));
        КонецЦикла;
        СписокМесяцев = Новый СписокЗначений;  //+
        СписокМесяцев = Элементы.МесяцСдачи.СписокВыбора.Скопировать();
        
        Если ЗначениеЗаполнено(Объект.МесяцСдачи) Тогда
                Элементы.МесяцСдачи.СписокВыбора = СписокМесяцев.НайтиПоЗначению(Объект.МесяцСдачи);
            КонецЕсли;
    Исключение    
        ПоказатьОповещениеПользователя("Внимание!", ,ОписаниеОшибки(),  БиблиотекаКартинок.Обновить);
    КонецПопытки;
3 RomaH
 
naïve
21.11.13
06:57
Элементы.МесяцСдачи.СписокВыбора = СписокМесяцев.НайтиПоЗначению(Объект.МесяцСдачи);

типы слева и справа посмотри