Формирование книги продаж

Добрый день. 1С 7.70.538 при формировании книги продаж за январь выдается ошибка
Если БухИТ.Субконто(2).Договор <> Док.Операция.Кредит.Субконто(2) Тогда
{Документ.ЗаписиКнигиПродаж.Форма.Модуль(550)}: Поле агрегатного объекта не обнаружено (Договор)18.04.2012.
Подскажите как исправить.

Для начала обновиться на релиз 539.

удалить
.Договор

Где удалить Договор?

Обновление на 539 релиз ничего нового не дало-ошибка та же.

а за январь каким вариантом книги формируете? Может новым?

Выдайте ОСВ по счет 76.ВА и посмотрите на 2-е субконто (счета-фактуры полученные), где-то вместо счета-фактуры полученного стоит другой вид документа, в котором нет реквизита Договор.

"мега код - цикл в запросе :
и ещё 1 снимает балы на задачах спеца




Док.Операция.ВыбратьПроводки();
Пока Док.Операция.ПолучитьПроводку()=1 Цикл
Если ((Док.Операция.Дебет.Счет = СчетПоКоду("60.1")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.2"))) или
((Док.Операция.Дебет.Счет = СчетПоКоду("60.6")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.7"))) или
((Док.Операция.Дебет.Счет = СчетПоКоду("60.11")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.22"))) или
((Док.Операция.Дебет.Счет = СчетПоКоду("76.5")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.2"))) или
((Док.Операция.Дебет.Счет = СчетПоКоду("76.6")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.7"))) или
((Док.Операция.Дебет.Счет = СчетПоКоду("76.55")) И (Док.Операция.Кредит.Счет = СчетПоКоду("60.22"))) Тогда
Если Док.Операция.Дебет.Субконто(2).Выбран()=1 Тогда
Если Док.Операция.Дебет.Субконто(2).АвтоОбработкаНДС=0 Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
//Если Док.Вид()="Взаимозачет" Тогда
// Если (Док.ВидКорректировки=1) или
// (Док.ВидКорректировки=2) Тогда
// Продолжить;
// Иначе
// Если Док.Операция.Дебет.Счет.КоличествоСубконто()>1 Тогда
// Если (Док.Операция.Дебет.Субконто(1) = Док.Операция.Кредит.Субконто(1)) и
// (Док.Операция.Дебет.Субконто(2) = Док.Операция.Кредит.Субконто(2)) и
// (Док.ИспользоватьВспомогательныйСчет=1) Тогда
// Продолжить;
// КонецЕсли;
// КонецЕсли;
// КонецЕсли;
//КонецЕсли;
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Операция.Кредит.Субконто(1),2);
БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные,,1);
БухИт.ВыполнитьЗапрос(,Док.ТекущийДокумент(),"76.ВА",,,,,"С");
СуммаЗачета = Док.Операция.Сумма;
БухИТ.ВыбратьСубконто(2);
Пока (БухИТ.ПолучитьСубконто(2)=1)и(СуммаЗачета>0) Цикл

СтрокаТабУчтенныхСумм = """";
Если БухИТ.Субконто(2).Договор <> Док.Операция.Кредит.Субконто(2) Тогда
Продолжить;
КонецЕсли;
Если ТабУчтенныхСумм.НайтиЗначение(БухИТ.Субконто(2),СтрокаТабУчтенныхСумм,1)=1 Тогда
Учтено = ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,2);
Иначе
Учтено = 0;
КонецЕсли;
ОстатокАвансаПоСФ = ?((БухИТ.Субконто(2).НДС20 + БухИТ.Субконто(2).НДС10) >0, Окр((БухИТ.Субконто(2).Всего*БухИт.СКК("С")/(БухИТ.Субконто(2).НДС20 + БухИТ.Субконто(2).НДС10)),2,1) - Учтено,0);


Если ОстатокАвансаПоСФ>0 Тогда
Если СуммаЗачета > ОстатокАвансаПоСФ Тогда
СуммаЗКП = ОстатокАвансаПоСФ;
СуммаЗачета = СуммаЗачета - ОстатокАвансаПоСФ;
Иначе
СуммаЗКП = СуммаЗачета;
СуммаЗачета = 0;
КонецЕсли;

//Рассчитать НДС и добавить строку в документ
ПоСФнаАванс(Док,БухИт.Субконто(2),СуммаЗКП,СтрокаТабУчтенныхСумм);

КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;"