Если запись в ТЧ ДокВУ, то:
СПВУ = СоздатьОбъект("Справочник.ВидыУпаковки);
Если СПВУ.НайтиПоКоду(Код) = 1 Тогда // поскольку в сабже "код известен"
Новая строка();
//присвоение значений переменным ТЧ
Код = СПВУ.Код;
Наименование = СПВУ.Наименование;
КодТНВ = СБВУ.КодТНВ; //если он там есть
КонецЕсли;
Если в Таблицу значений, тогда
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Код");
...
...
ТЗ.НоваяСтрока();
ТЗ.Код = СПВУ.Код;
...
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший