7.7 Необходимо добавить столбец с штрихкодом товара в 1С 7.7 Торговля и склад

Необходимо добавить столбец с штрихкодом товара в 1С 7.7 Торговля и склад. Как это сделать?

Спасибо!
Попробовал сделать. При выводе формы на печать выдает ошибку:
Неопознанный оператор
ИсхТабл.ТекущийОбъект.Text<<?>>=СокрЛП(Докум.Единица.Штрихкод)

Ошибку не ту указал.
выдает ошибку: Поле агрегатного объекта не обнаружено (Text)

В свойствах рисунка, на вкладке Текст.

Штрихкод получилось вставить в таблицу. Но он никак не привязан к артикулу, везде ШК одинаковый. Выдает ошибку: Таб<<?>>.ТекущийОбъект.Text=СокрЛП(ТЗ.Штрихкод)

За каждым артикулом закреплен свой ШК. Как иначе бы товар вводился со сканера?

Как тогда привязать ШК к единице изменения? С терминалогией действительно плохо, но думаю Вы меня понимаете.

Если снять флаг "использовать только базовую", то ШК из базовой ЕИ копируется автоматически в основную ЕИ и при сохранении появляется сообщение "ШК основной единицы не уникален" и сохранить не получается. Если генерировать новый ШК, то уже находящаяся на складе продукция не будет распознаваться сканером. Почему ШК нормально выводится на печать этикетки и не печатается в счете?

Подскажите тогда как это сделать? Что-то с кодировками не то выводит вот такого вида

Код:

//  Íåò
//
// ÂîçÂðàùàåìîå çÍà÷åÍèå:
//  Íåò
//
// îïèñàÍèå:
//
ïðîöåäóðà ïå÷àòü(äîêóì, óñòðîéñòÂî=0, êîëÂîêîïèé=1)
ïåðåì Íà÷ïîÂò, êîÍïîÂò;

èñõòàáë = ñîçäàòüîáúåêò("òàáëèöà");
Íà÷ïîÂò = 0; êîÍïîÂò = 0;

Код:

//******************************************************************************
// Печать(Докум)
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Перем НачПовт, КонПовт;

ИсхТабл = СоздатьОбъект("Таблица");
НачПовт = 0; КонПовт = 0;

// секция Заголовок

ИсхТабл.ВывестиСекцию("Заголовок");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Заголовок");

// Секция Поставщик
Поставщик = СокрЛП(Докум.Фирма.ЮрЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Фирма.ЮрЛицо.ЮрАдрес);
ИсхТабл.ВывестиСекцию("Поставщик");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Поставщик");
// Секция Покупатель
Если ПустоеЗначение(Докум.Контрагент) = 0 Тогда
Покупатель = СокрЛП(Докум.Контрагент.ЮрФизЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Контрагент.ЮрФизЛицо.ЮрАдрес);
Иначе
Покупатель = "";
КонецЕсли;

// Секция Склад
Если ПустоеЗначение(Докум.Склад) = 0 Тогда
Склад = СокрЛП(Докум.Склад);
Иначе
Склад = "";
КонецЕсли;
ИсхТабл.ВывестиСекцию("Покупатель");
ИсхТабл.ВывестиСекцию("Склад");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Покупатель");

СекцСкидка = ?(ПустоеЗначение(Докум.Скидка) = 0, "Скидка", "");

// Секция Шапка таблицы
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка);
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("ШапкаТаблицы" + СекцСкидка);
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

// выводим табличную часть
НомСтроки = 0;
Докум.ВыбратьСтроки();

Пока Докум.ПолучитьСтроку() = 1 Цикл
НомСтроки = НомСтроки + 1;
ИсхТабл.ВывестиСекцию("Строка" + СекцСкидка);
КонецЦикла;

СуммаИтог = Докум.Итог("Сумма");

// секция Итого
ИсхТабл.ВывестиСекцию("Итого");

// секция ИтогоНДС
Если Докум.УчитыватьНДС = 1 Тогда
СуммаНДСИтог = Докум.Итог("СуммаНДС");
Если Докум.СуммаВклНДС = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНДСИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНДС");
КонецЕсли;

// секция ИтогоНП
Если Докум.УчитыватьНП = 1 Тогда
СуммаНПИтог = Докум.Итог("СуммаНП");
Если Докум.СуммаВклНП = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНПИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНП");
КонецЕсли;

// секция СуммаПрописью
ИсхТабл.ВывестиСекцию("СуммаПрописью");

// секция Подписи
ИсхТабл.ВывестиСекцию("Подписи");
Если Устройство = 0 Тогда
ИсхТабл.Опции(0,0,0,0,"ОпцииПечатиРеализация");
Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
ИсхТабл.ТолькоПросмотр(1);
Иначе
ИсхТабл.ТолькоПросмотр(0);
КонецЕсли;
ИсхТабл.Показать(глНазваниеДокументаВжурнале(Докум),""); 
Иначе	
ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,);
ИсхТабл.КоличествоЭкземпляров(КолвоКопий);
ИсхТабл.Напечатать(0);
КонецЕсли;

КонецПроцедуры // Печать()

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()

Если Док.Выбран() = 0 Тогда
Предупреждение("Не выбран документ!", 60);
Возврат;
КонецЕсли;

Печать(Док);

КонецПроцедуры // ПоКнопкеПечать()
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

Докум	  = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");

Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;


КонецПроцедуры // ПриОткрытии()