Как установить тип значения для реквизита неопределенного типа значения

1С v8

01.08.12

✎

19:42

Пытаюсь изучать 1С 8.2.
В моем документе ПКО есть реквизит КоррСчет (счет кредита проводки), при выборе которого нужно установить типы значения для реквизитов Субконто1, Субконто2, Субконто3 (аналитика КоррСчета, тип значения "Неопределенный" или как это в восьмерке называется). В семерке это делалось просто:

НазначитьТип("Субконто1",КоррСчет.ВидСубконто(1));

А как это сделать в восьмерке?

1 Ненавижу 1С

гуру

01.08.12

✎

19:49

зачем собственно?

2 GROOVY

01.08.12

✎

19:53

См. ПривестиЗначение

3 Birmingem

01.08.12

✎

20:12

1) Чтобы пользователь в реквизитах СубконтоХ мог указать аналитику КоррСчета, которая пойдет в проводку.
2) Если не сложно, пример кода пожалуйста?

4 NcSteel

01.08.12

✎

20:16

(0) Это делается на автомате, если конечно связь укажешь.

5 Birmingem

03.08.12

✎

11:40

4) ого ... есть такая штука? а как указать связь?

6 Birmingem

07.08.12

✎

16:02

Наваял такой код. Оцените пожалуйста. Что то сложновато получилось. Больше чем 3 строки на семерке :)

Наверняка можно улучшить, подскажите как?

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