7.7 Как изменить реквизиты табличной части документа

Здравствуйте.
Подскажите как изменить реквизит табличной части документа (у каждой строки отдельная) из модуля документа (при нажатии на кнопку на форме)?
Я пытаюсь так:

Код:

Procedure ОстатокТовараНаСкладе1()
ТовИБ2=ИБ2.CreateObject("Справочник.Товары");
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
ТовИБ2.НайтиПоКоду(Код);
ОсФ=ИБ2.ОстатокТовараНаСкладе(ТовИБ2, ИБ2.ОсновнойСклад);
КонецЦикла;
EndProcedure;

Но данный код заполняет реквизит всех строк одним числом (последним полученным).
ОсФ - это реквизит табличной части, ОстатокТовараНаСкладе - функция в другой информационной базе, к которой я подключаюсь через OLE. Когда прохожу в отладчике по этому коду, то все высчитывает правильно, но в форме получается результат показанный на скриншоте:
Посмотреть вложение 6644
Заранее большое спасибо!

Да, код - это реквизит табличной части.

Можно попробовать так:
ТовИБ2.НайтиПоКоду(Код);
Тэ = ТовИБ2.ТекущийЭлемент();
Сообщить(СокрЛП(Тэ)); // для проверки
ОсФ=ИБ2.ОстатокТовараНаСкладе(Тэ, ИБ2.ОсновнойСклад);

Можно попробовать поменять в функции ОстатокТовараНаСкладе реквизит типа "Справочник" на код
и передавать не текущий элемент справочника, а код. Так надежнее

Пробовал - выдает OLE. К сожалению у меня нет возможности изменить код функции "ОсновнойСклад" в другой базе.

какая конфа ИБ2
что там в функции ОстатокТовараНаСкладе

мож не эту функцию надо вызывать

Вы просто напишите :

Код:

Сообщить(Ост);

И Сразу поймете где ошибка...

Попробовал:

В том то и дело что выводит все правильно, а в таблицу пишет только последнее значение.

Попробуйте Так:

Код:

Табл = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(Табл); 
Табл.ВыбратьСтроки(); 
Пока Табл.ПолучитьСтроку() = 1 Цикл 
ТовИБ2.НайтиПоКоду(Табл.Код);
Табл.ОсФ = ИБ2.ОстатокТовараНаСкладе(ТовИБ2, ИБ2.ОсновнойСклад); 
КонецЦикла; 
ЗагрузитьТабличнуюЧасть(Табл);

Спасибо большое, вот это помогло:

Код:

Табл = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(Табл); 
Табл.ВыбратьСтроки(); 
Пока Табл.ПолучитьСтроку() = 1 Цикл 
ТовИБ2.НайтиПоКоду(Табл.Код);
Табл.ОсФ = ИБ2.ОстатокТовараНаСкладе(ТовИБ2, ИБ2.ОсновнойСклад); 
КонецЦикла; 
ЗагрузитьТабличнуюЧасть(Табл);

Нашел ошибку: ОсФ - был не реквизитом табличной части, а был вставлен в табличную часть визуально как компонент текст.