|
получилось вот так, но очень громоздко может можно короче?
Для х=1 по ЧислоСубконто Цикл
ЭлементыФормы["Субконто"+х].Видимость = Истина;
ЭлементыФормы["Субконто"+х].ОграничениеТипа=НаборСубконтоСчета.Получить(х-1).ВидСубконто.ТипЗначения;
Знач1=ЭлементыФормы["Субконто"+х].Значение;
ЭлементыФормы["Субконто"+х].Значение=ЭлементыФормы["Субконто"+х].ОграничениеТипа.ПривестиЗначение(Знач1);
Если ЭлементыФормы["Субконто"+х].ОграничениеТипа.Типы().Количество()=1 тогда
ЭлементыФормы["Субконто"+х].ВыбиратьТип=ложь;
Иначе
ЭлементыФормы["Субконто"+х].ВыбиратьТип=истина;
КонецЕсли;
КонецЦикла;
|