v7: Ошибка при добавлении в журнал расчета результата.

Доброе утро.
Не могу понять в чем ошибка, в журнале расчетов по этому вида платежа, ставиться нормально "Тариф" и "КолПроп", а в графу результат нет.

Процедура глРассчитатьЛицСчетТКО(ЛицСчет) Экспорт
    Перем Сальдо, ВидСчетчика;
    ЖрнКв = СоздатьОбъект("ЖурналРасчетов.КвартплатаТКО");
    ЖрнКв.ВыбратьЗаписиПоОбъекту(ЛицСчет.ТекущийЭлемент(),глНачПериода,глКонПериода);
    Сальдо = глРассчитатьСальдоТКО(ЛицСчет);

    Пока ЖрнКв.ПолучитьЗапись()=1 Цикл
        Если ЖрнКв.Документ.Вид() = "РасчетКвартплатыТКО" Тогда
ЖрнКв.ВидРасч.ВходитВГруппу(ГруппаРасчетов.Начисления) = 1 Тогда

Если ЖрнКв.ВидРасч = ВидРасчета.ПоКоличеству Тогда
        //сообщить("По Количеству");
Тариф = ЖрнКв.ВидТарифа.Тариф.Получить(глНачПериода);
КолПроп = ЛицСчет.КолПроп.Получить(глНачПериода);

сообщить("Тариф " + Тариф + " КолПроп " + КолПроп);
Результат = КолПроп*Тариф;
сообщить(Результат);

                    ЖрнКв.УстановитьРеквизит("Тариф",Тариф);
                    ЖрнКв.УстановитьРеквизит("Количество",КолПроп);
                    ЖрнКв.УстановитьРеквизит("Результат",Результат);
                    ЖрнКв.УстановитьРеквизит("Рассчитана",1);
                    ЖрнКв.Записать();
                КонецЕсли;
            КонецЕсли;
            Если ЖрнКв.ВидРасч.ВходитВГруппу(ГруппаРасчетов.Сальдо) = 1 Тогда
                Стр="";Кол="";
                Сальдо.НайтиЗначение(ЖрнКв.ВидТарифа,Стр,Кол);
                Если Стр = 0 Тогда
                    ЖрнКв.УстановитьРеквизит("Результат",0);
                    ЖрнКв.УстановитьРеквизит("Рассчитана",1);
                    ЖрнКв.Записать();
                Иначе
                    Сальдо.ПолучитьСтрокуПоНомеру(Стр);
                    ЖрнКв.УстановитьРеквизит("Результат",Сальдо.СальдоК);
                    ЖрнКв.УстановитьРеквизит("Рассчитана",1);
                    ЖрнКв.Записать();
                Конецесли;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

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