Как установить значение в колонке ТЧ в УП

1С v8

31.10.14

✎

10:56

Добрый день!

Нужно после выбора значения в колонке ТЧ документа заполнить оставшиеся колонки ТЧ по текущей строке данными из реквизитов выбранного эл. справочника. Как это сделать?

1 chelentano

31.10.14

✎

10:57

Стр.РеквизитТЧ1 = Стр.ЭлементСправочника.Реквизит1;
Стр.РеквизитТЧ2 = Стр.ЭлементСправочника.Реквизит2;

2 elCust

31.10.14

✎

11:02

УП это что?

3 iva77ru

31.10.14

✎

11:06

Спасибо, поясню подробнее: нужно заполнить перебором колонок по текущей строке.

стр = Элементы.ИФНС.ТекущиеДанные;
Для каждого Рекв Из стр.Подключение.Метаданные().Реквизиты Цикл
    //Нужно проверить наличие колонки с именем Рекв.Имя и
        // заполнить ячейку по значению реквизита эл.     //справочника

КонецЦикла;

4 Рэйв

31.10.14

✎

11:06

в ПриИзменении ячейки таб поля
ТД=Элемент.ТекущиеДанные;
ТД.РеквизитТЧ1 = ТД.ИмяИзмененнойКолонки.Реквизит1;
ТД.РеквизитТЧ2 = ТД.ИмяИзмененнойКолонки.Реквизит2;

5 iva77ru

31.10.14

✎

11:06

УП - управляемая форма

6 Рэйв

31.10.14

✎

11:07

(5)Полузуйся УФ. а то не поймут:-)

7 iva77ru

31.10.14

✎

11:20

Повторюсь:

&НаКлиенте
Процедура ИФНСПодключениеПриИзменении(Элемент)
стр = Элементы.ИФНС.ТекущиеДанные;
Для каждого Рекв Из стр.Подключение.Метаданные().Реквизиты Цикл
    //Нужно проверить наличие колонки с именем Рекв.Имя и

        // заполнить ячейку по значению реквизита эл.     //справочника


КонецЦикла;

КонецПроцедуры

Как это сделать?

8 antoneus

31.10.14

✎

11:27

а если тупо ЗаполнитьЗначенияСвойств?

9 iva77ru

31.10.14

✎

11:45

Можно так, если др. неизвестно:

&НаКлиенте
Процедура ИФНСПодключениеПриИзменении(Элемент)
    стр = Элементы.ИФНС.ТекущиеДанные;
    Для каждого Рекв Из стр.Подключение.Метаданные().Реквизиты Цикл
        Если ЕстьКолонка(Рекв.Имя) Тогда

            стр[Рекв.Имя] = стр.Подключение[Рекв.Имя];

        КонецЕсли;

    КонецЦикла;

КонецПроцедуры

&НаСервере
Функция ЕстьКолонка(Имя)

     Возврат ?(РеквизитФормыВЗначение("Объект").Метаданные().ТабличныеЧасти.ИФНС.Реквизиты.Найти(Имя)= неопределено,ЛОЖЬ,Истина) ;

КонецФункции