1С ТиС 7.7. Не переносятся значения реквизитов в Таблицу Значений

"Здравствуйте. Пишу тестовую обработку, чтобы потом перенести уже в документы нужные части.

Процедура Сформировать()

Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");

ТСтрока = 1;
ТабЗнач = создатьОбъект("ТаблицаЗначений");
ТабЗнач.НоваяКолонка("Наименование");
ТабЗнач.НоваяКолонка("ОптЦена","Число");
ТабЗнач.НоваяКолонка("РозЦена","Число");
ТабЗнач.НоваяКолонка("Наценка","Число");

Цены = создатьОбъект("Справочник.Цены");
Пока ТСтрока <= СпНоменклатуры.РазмерСписка() Цикл
ТабЗнач.НоваяСтрока();
НаимНом = СпНоменклатуры.ПолучитьЗначение(ТСтрока,НаимНом);
ТабЗнач.Наименование = НаимНом.ПолнНаименование;

Цены.ИспользоватьВладельца(НаимНом);
Цены.ВыбратьЭлементы(1);

Пока Цены.ПолучитьЭлемент()=1 Цикл
Тек = Цены.ТекущийЭлемент();

Если Тек.ТипЦен.ВидЦены="Оптовая" Тога
ТабЗнач.ОптЦена = Число(Тек.Цена.Получить(ТекущаяДата()));
ИначеЕсли Тек.ТипЦен.ВидЦены="Розничная" Тогда
ТабЗнач.РозЦена = Тек.Цена.Получить(ТекущаяДата());
ИначеЕсли Тек.ТипЦен.ВидЦены="Закупочная" Тогда
ТабЗнач.Наценка = Тек.Цена.Получить(ТекущаяДата());
КонецЕсли;
 
КонецЦикла;

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

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

В отладчике видно, что
Тек.Цена.Получить(ТекущаяДата()) = 295
Табзнач.ОптЦена = 0
НаимНом = Cредство для загара AVANT 200 мл

Т.е. значение Тек.Цена.Получить(ТекущаяДата()) не передается в ТабЗнач.ОптЦена, ТабЗнач.РозЦена и ТабЗнач.Наценка.
Подскажите, в чем может быть проблема. Заранее спасибо )"

Наверное, надо не так
> Если Тек.ТипЦен.ВидЦены="Оптовая" Тогда
а так:
Если СокрЛП(Тек.ТипЦен.Наименование)="Оптовая" Тогда

"Попробуй
Если Тек.ТипЦен.ВидЦены.Наименование="Оптовая" Тога
ТабЗнач.ОптЦена = Число(Тек.Цена.Получить(ТекущаяДата()));
ИначеЕсли Тек.ТипЦен.ВидЦены.Наименование="Розничная" Тогда
ТабЗнач.РозЦена = Тек.Цена.Получить(ТекущаяДата());
ИначеЕсли Тек.ТипЦен.ВидЦены.Наименование="Закупочная" Тогда
ТабЗнач.Наценка = Тек.Цена.Получить(ТекущаяДата());
КонецЕсли;
"

точно, еще желательно сократить )))

Спасибо )
Слона-то я и не приметил..