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

"Здравствуйте. Пишу тестовую обработку, чтобы потом перенести уже в документы нужные части. <br><br>Процедура Сформировать() <br> <br>Таб=СоздатьОбъект("Таблица"); <br>Таб.ИсходнаяТаблица("Таблица");<br>Таб.ВывестиСекцию("Шапка");<br> <br>ТСтрока = 1;<br>ТабЗнач = создатьОбъект("ТаблицаЗначений");<br>ТабЗнач.НоваяКолонка("Наименование");<br>ТабЗнач.НоваяКолонка("ОптЦена","Число");<br>ТабЗнач.НоваяКолонка("РозЦена","Число");<br>ТабЗнач.НоваяКолонка("Наценка","Число");<br><br>Цены = создатьОбъект("Справочник.Цены");<br>Пока ТСтрока <= СпНоменклатуры.РазмерСписка() Цикл<br>ТабЗнач.НоваяСтрока();<br>НаимНом = СпНоменклатуры.ПолучитьЗначение(ТСтрока,НаимНом);<br>ТабЗнач.Наименование = НаимНом.ПолнНаименование;<br> <br>Цены.ИспользоватьВладельца(НаимНом);<br>Цены.ВыбратьЭлементы(1);<br><br>Пока Цены.ПолучитьЭлемент()=1 Цикл<br>Тек = Цены.ТекущийЭлемент();<br><br>Если Тек.ТипЦен.ВидЦены="Оптовая" Тога<br>ТабЗнач.ОптЦена = Число(Тек.Цена.Получить(ТекущаяДата()));<br>ИначеЕсли Тек.ТипЦен.ВидЦены="Розничная" Тогда <br>ТабЗнач.РозЦена = Тек.Цена.Получить(ТекущаяДата());<br>ИначеЕсли Тек.ТипЦен.ВидЦены="Закупочная" Тогда<br>ТабЗнач.Наценка = Тек.Цена.Получить(ТекущаяДата());<br>КонецЕсли;<br> <br>КонецЦикла;<br> <br>ТСтрока = ТСтрока + 1;<br>Таб.ВывестиСекцию("Строка");<br>КонецЦикла;<br>             <br>ВерхнийКолонтитул = "бырбырбыр";<br>Таб.ТолькоПросмотр(1);<br>Таб.Показать(ВерхнийКолонтитул,"""");<br> <br>КонецПроцедуры<br><br>В отладчике видно, что<br>Тек.Цена.Получить(ТекущаяДата()) = 295<br>Табзнач.ОптЦена = 0<br>НаимНом = Cредство для загара AVANT 200 мл<br><br>Т.е. значение Тек.Цена.Получить(ТекущаяДата()) не передается в ТабЗнач.ОптЦена, ТабЗнач.РозЦена и ТабЗнач.Наценка.<br>Подскажите, в чем может быть проблема. Заранее спасибо )"

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

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

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

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