Как написать программно, чтобы цена выводилась в таблице при формировании отчета?

"Имеется отчет, при его формировании выводится таблица с ФИО пациента, Процедурами которые он прошел, Количество процедур, Цена и Стоимость.<br>ФИО, Наименования процедур и их Количество выводится в таблице, теперь нужно добавить графы Цена и Стоимость. Цена должна выводиться из справочника Тариф, ну а Стоимость - из произведения Цены и Количества. Прикрепляю скрины... помогите пожалуйста...<br> <br> <br>Т = СоздатьОбъект("Таблица");<br> тзПроцедуры = СоздатьОбъект("ТаблицаЗначений");<br> тзПроцедуры.НоваяКолонка("Контрагент");<br> тзПроцедуры.НоваяКолонка("ФИО");<br> тзПроцедуры.НоваяКолонка("Цена", "Число");<br> СпрТарифы.ВыбратьЭлементы();<br> Пока СпрТарифы.ПолучитьЭлемент() = 1 Цикл<br>       Колонка = "к" + СокрЛП(СпрТарифы.Код);<br>       тзПроцедуры.НоваяКолонка(Колонка, "Число");<br> КонецЦикла;<br> //тзПроцедуры.Выгрузить(ТТТ);<br><br> Док = СоздатьОбъект("Документ.СтатКартаПациента");<br> Если ПустоеЗначение(Контрагент) = 1 Тогда<br>       Док.ВыбратьДокументы(НачДата, КонДата);<br>       Пока Док.ПолучитьДокумент() = 1 Цикл<br>            //Сообщить(Док.НомерДок);<br>            Док.ВыбратьСтроки();<br>            Пока Док.ПолучитьСтроку() = 1 Цикл<br>             Если СокрЛП(Док.КодПроцедуры) = """" Тогда<br>                   Продолжить;<br>             КонецЕсли;<br>             тзПроцедуры.НоваяСтрока();<br>             тзПроцедуры.ФИО       = Док.Пациент;<br>             тзПроцедуры.Контрагент = Док.Авиакомпания;<br>             тзПроцедуры.Цена       = Док.Цена;<br>             КодПроцедуры = СокрЛП(Док.КодПроцедуры.Код);<br>             //Сообщить(КодПроцедуры);<br>             тзПроцедуры.УстановитьЗначение(тзПроцедуры.НомерСтроки, "к" + СокрЛП(КодПроцедуры), 1);<br>            КонецЦикла;<br>       КонецЦикла;<br> Иначе<br>       Док.ВыбратьДокументы(НачДата, КонДата);<br>       Пока Док.ПолучитьДокумент() = 1 Цикл<br>            Если Док.Авиакомпания <> Контрагент Тогда<br>             Продолжить;<br>            КонецЕсли;<br>            Док.ВыбратьСтроки();<br>            Пока Док.ПолучитьСтроку() = 1 Цикл<br>             Если СокрЛП(Док.КодПроцедуры) = """" Тогда<br>                   Продолжить;<br>             КонецЕсли;<br>             тзПроцедуры.НоваяСтрока();<br>             тзПроцедуры.ФИО       = Док.Пациент;<br>             тзПроцедуры.Контрагент = Док.Авиакомпания;<br>             тзПроцедуры.Цена       = Док.Цена;<br>             КодПроцедуры = СокрЛП(Док.КодПроцедуры.Код);<br>             //Сообщить(КодПроцедуры);<br>             тзПроцедуры.УстановитьЗначение(тзПроцедуры.НомерСтроки, "к" + СокрЛП(КодПроцедуры), 1);<br>            КонецЦикла;<br>       КонецЦикла;<br> КонецЕсли;<br><br> //Сообщить(тзПроцедуры.КоличествоКолонок());<br><br> // формируем список колонок для свертки *************************************************************<br> //тзПроцедуры.Выгрузить(ТТТ);<br> СписокКолонок = "Цена";<br> Для а = 4 По тзПроцедуры.КоличествоКолонок() - 3 Цикл<br>       СписокКолонок = СписокКолонок + "," + СокрЛП(а);<br> КонецЦикла;<br> тзПроцедуры.Свернуть("ФИО,Контрагент", СписокКолонок);<br> тзПроцедуры.Сортировать("Контрагент,ФИО");<br> //тзПроцедуры.Выгрузить(ТТТ);<br><br> // удаляем лишние колонки без итогов<br> а=4;<br> Пока а <= тзПроцедуры.КоличествоКолонок() Цикл<br>       Если тзПроцедуры.Итог(а) = 0 Тогда<br>            тзПроцедуры.УдалитьКолонку(а);       //удаляем строку, но "а" не увеличиваем, т.к. следующая строка у нас и есть "а"<br>       Иначе<br>            а = а + 1;                         //увеличиваем а (для перехода на след. строку)<br>       КонецЕсли;<br> КонецЦикла;<br> //тзПроцедуры.Выгрузить(ТТТ);<br><br> // выводим на печать ********************************************************************************<br> // шапка<br> Т.ВывестиСекцию("Шапка|ФИО");<br> Т.ПрисоединитьСекцию("Шапка|Контрагент");<br> Для а = 4 По тзПроцедуры.КоличествоКолонок() Цикл<br>       КодПроцедуры = тзПроцедуры.ПолучитьПараметрыКолонки(а);<br>       КодПроцедуры = Прав(КодПроцедуры, 6);<br>       СпрТарифы.НайтиПоКоду(КодПроцедуры);<br>       КодПроцедуры = СпрТарифы.ТекущийЭлемент().ПолноеНаименование;<br>       <br> <br>       СпрТарифы.НайтиПоКоду(КодПроцедуры);<br>       Цена = СпрТарифы.ТекущийЭлемент().Цена;<br>       //Итог = тзПроцедуры.Итог(а);<br>       //Если Итог <> 0 Тогда<br>            Т.ПрисоединитьСекцию("Шапка|Процедуры");<br>       //КонецЕсли;<br><br> КонецЦикла;<br> Т.ПрисоединитьСекцию("Шапка|Цена");<br> Т.ПрисоединитьСекцию("Шапка|ИтогоПоПациенту");<br><br> // строки<br> тзПроцедуры.ВыбратьСтроки();<br> Пока тзПроцедуры.ПолучитьСтроку() = 1 Цикл<br>       Т.ВывестиСекцию("Строка|ФИО");<br>       Т.ПрисоединитьСекцию("Строка|Контрагент");<br><br>       ИтогоПоПациенту = 0;<br>       Для а = 4 По тзПроцедуры.КоличествоКолонок() Цикл<br>            Посещения = тзПроцедуры.ПолучитьЗначение(тзПроцедуры.НомерСтроки, а);<br>            Т.ПрисоединитьСекцию("Строка|Процедуры");<br>            ИтогоПоПациенту = ИтогоПоПациенту + Посещения;<br>       КонецЦикла;<br><br>       Т.ПрисоединитьСекцию("Строка|Цена");<br>       Т.ПрисоединитьСекцию("Строка|ИтогоПоПациенту");<br> КонецЦикла;<br><br> <br>       <br><br> // подвал<br> Т.ВывестиСекцию("Подвал|ФИО");<br> Т.ПрисоединитьСекцию("Подвал|Контрагент");<br> //Т.ПрисоединитьСекцию("Шапка|Контрагент");<br> Для а = 4 По тзПроцедуры.КоличествоКолонок() Цикл<br>       ИтогоПосещений = тзПроцедуры.Итог(а);<br>       СпрПрейскурант.НайтиПоКоду(КодПроцедуры);<br>       Цена = СпрПрейскурант.ТекущийЭлемент().Цена;<br>       Цена = СпрПрейскурант.Цена.Получить();<br>       Т.ПрисоединитьСекцию("Подвал|Процедуры");<br> КонецЦикла;<br> Т.ПрисоединитьСекцию("Подвал|Цена");<br> Т.ПрисоединитьСекцию("Подвал|ИтогоПоПациенту");<br><br> Т.Опции(0);<br> Т.Показать();<br>КонецПроцедуры"

Проверьте значение ячейки с ценой в макете

там нет ошибки, ошибка в программе... да я заметила, там не определена переменная ЦенаПроцедуры, а в макете Цена... я меняла названия, скрины просто разные по дате, но я все исправила, и все равно строка Цена у меня пустует(( вы праверьте пожалуйста, правильно ли я написала в конфигурации программу... может забыла что то?

Я не вижу в Вашей программе ничего с ЦенаПроцедуры.<br>Сохраните. Закройте. Откройте и еще раз пройтитесь с отладчиком.

вместо ЦенаПроцедуры, у меня сейчас стоит Цена... и в макете таблицы я все исправила

Может быть в справочнике Тарифы у Вас все же ЦенаПроцедуры?

нет( в справочнике Тарифы у меня Цена

"По видимому, строки таблицы выводятся этим участком кода:<br> <br><pre> // строки тзПроцедуры.ВыбратьСтроки(); Пока тзПроцедуры.ПолучитьСтроку() = 1 Цикл       Т.ВывестиСекцию("Строка|ФИО");       Т.ПрисоединитьСекцию("Строка|Контрагент");       ИтогоПоПациенту = 0;       Для а = 4 По тзПроцедуры.КоличествоКолонок() Цикл       Посещения = тзПроцедуры.ПолучитьЗначение(тзПроцедуры.НомерСтроки, а);       Т.ПрисоединитьСекцию("Строка|Процедуры");       ИтогоПоПациенту = ИтогоПоПациенту + Посещения;       КонецЦикла;       Т.ПрисоединитьСекцию("Строка|Цена");       Т.ПрисоединитьСекцию("Строка|ИтогоПоПациенту"); КонецЦикла;</pre><br><br>В нем не вижу, чтобы где-то была переменная "Цена", которая используется в макете. Видимо ее тут надо куда-то вставить."

спасибо большое за подсказку, с этим я уже разобралась и сдала этот отчет))) все равно спасибо что уделили время на просмотр кода!

"Для а = 4 По тзПроцедуры.КоличествоКолонок() Цикл<br>      ИтогоПосещений = тзПроцедуры.Итог(а);<br>      КодПроцедуры = тзПроцедуры.ПолучитьПараметрыКолонки(а);<br>      КодПрейскуранта = Сред(КодПроцедуры, 2, 1);<br>      КодПроцедуры = Прав(КодПроцедуры, 6);<br>      СпрПрейскурант.НайтиПоКоду(КодПрейскуранта);<br>      СпрТарифы.ИспользоватьВладельца(СпрПрейскурант.ТекущийЭлемент());<br><br>      СпрТарифы.НайтиПоКоду(КодПроцедуры);<br>       Цена =СпрТарифы.Цена.получить(НачДата);<br>      сумма = Цена*ИтогоПосещений;<br>      Т.ПрисоединитьСекцию("Подвал|Процедуры");<br>      ИтогоПосещений=0;<br>      Цена=0;<br>КонецЦикла;<br> <br>мне помогли, и Цену и Стоимость добавили, все работает отлично! спасибо!"