7.7 не присваиваются значения реквизитам ТЧ документа

Вот код:

Код:

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

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

Процедура ПоКнопкеЦены()
...............................
...............................
................................

Если ТипЦен.Наименование = "По компьютеру" Тогда
ПересчетЦенПоКомпьютеру();
КонецЕсли;
КонецПроцедуры

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

процедура используется в модуле формы

убрал ТекДок, заработало))