Необходимо в документе создать вторую табличную чать, создала документ "Спецификация" в реквизитами (Спецификации (тип значения - документ НоваяСпецификация), Дата и Сумма (тип значения - число)). На отдельной закладке размещаю свою вторую таблицу. Документ выбирается из журнала документов, но дата и сумма не подтягивается. Из справочника вытянуть реквизит знаю как, а вот из документа...

Процедура ИзмТаблСпец(ТекТабл,ИмяТабл)
    ТекКолонка = ТекТабл.ТекущаяКолонка();
    ТекСтрока = ТекТабл.ТекущаяСтрока();
    Если ТекСтрока = 0 тогда Предупреждение("Строка не выбранна"); Возврат; КонецЕсли;
    Если (ТекКолонка = "ДатаДополнения") или (ТекКолонка = "ЕстьСтрока") или (ТекКолонка = "Сумма") тогда Возврат; КонецЕсли;    
    Тип = "";                                  
    Длина = 0;
    Точность = 0;
    ТекТабл.ПолучитьПараметрыКолонки(ТекКолонка,Тип,Длина,Точность);
        
    Зн = "";
    ВвестиЗначение(Зн,,Тип,Длина,Точность);
    ТекТабл.УстановитьЗначение(ТекСтрока,ТекКолонка,Зн);
    Если (ТекКолонка = "Спецификация") тогда 
        СуммаОбщ = ТекТабл.ПолучитьЗначение(ТекСтрока,"Спецификация").Сумма;
        ДатаСпец = ТекТабл.ПолучитьЗначение(ТекСтрока,"Спецификация").Дата;
        ТекТабл.УстановитьЗначение(ТекСтрока,"Сумма",СуммаОбщ);    
        ТекТабл.УстановитьЗначение(ТекСтрока,"Дата",ДатаСпец);
    КонецЕсли;
КонецПроцедуры

все получилось)):

Процедура ИзмТаблСпец(ТекТабл,ИмяТабл)
    ТекКолонка = ТекТабл.ТекущаяКолонка();
    ТекСтрока = ТекТабл.ТекущаяСтрока();
    Если ТекСтрока = 0 тогда Предупреждение("Строка не выбранна"); Возврат; КонецЕсли;
    //Если (ТекКолонка = "ДатаДополнения") или (ТекКолонка = "ЕстьСтрока") или (ТекКолонка = "Сумма") тогда Возврат; КонецЕсли;
    
    Тип = "";                                  
    Длина = 0;
    Точность = 0;
    ТекТабл.ПолучитьПараметрыКолонки(ТекКолонка,Тип,Длина,Точность);
        
    Зн = "";
    ВвестиЗначение(Зн,,Тип,Длина,Точность);
    ТекТабл.УстановитьЗначение(ТекСтрока,ТекКолонка,Зн);
    Если (ТекКолонка = "Спецификация") тогда 
        СуммаОбщ = ТекТабл.ПолучитьЗначение(ТекСтрока,"Спецификация").Итог("Сумма");
        ДатаСпец = ТекТабл.ПолучитьЗначение(ТекСтрока,"Спецификация").ДатаДок;
        ТекТабл.УстановитьЗначение(ТекСтрока,"Сумма",СуммаОбщ);    
        ТекТабл.УстановитьЗначение(ТекСтрока,"Дата",ДатаСпец);
    КонецЕсли;
КонецПроцедуры

Сообщение отредактировал logist - 24.02.12, 10:54