Проблема закрытия сч.26 в Бухгалтерии предприятия 7.7

"При закрытии месяца, конкретнее сч.26 возникла проблема пересисания (излишнего списания) суммы ЕСН. Формирование проводок по данным суммам происходит по строкам модуля документа 8802 - 8865.
На мой взгляд данный блок должен выглядеть так:
Списано = 0;
БазаРаспределения = БазаРаспределенияЕСН.Итог("БазаРаспределения") + ?(ДатаГод(ДатаДок) > 2010,0,БазаРаспределенияЕСН.Итог("БазаРаспределенияЕНВД"));
БазаРаспределенияЕСН.ВыбратьСтроки();
Пока БазаРаспределенияЕСН.ПолучитьСтроку() = 1 Цикл

Коэффициент = БазаРаспределенияЕСН.БазаРаспределения / БазаРаспределения;
Если СуммаЕСН * Коэффициент <> 0 Тогда

Операция.НоваяПроводка();
Операция.НомерЖурнала = "ФР";
Операция.СодержаниеПроводки = "Списание взносов";
Операция.ПервичныйДокумент  = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = Сч90_8_1;
Операция.Дебет.ВидыНоменклатуры = БазаРаспределенияЕСН.ВидНоменклатуры;
Операция.Кредит.Счет = Сч26;
Операция.Сумма = СуммаЕСН * Коэффициент;
Списано = Списано + Операция.Сумма;

// Формирование печатной формы                                            
Если ФормироватьПечатнуюФорму = 1 Тогда
БазаРаспределенияЕСН.ВсегоРасходов = СуммаЕСН;
БазаРаспределенияЕСН.Коэффициент = Коэффициент;
БазаРаспределенияЕСН.СуммаРасходов = Операция.Сумма;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если ДатаГод(ДатаДок) >= 2010 Тогда
БазаРаспределения = БазаРаспределенияЕСН.Итог("БазаРаспределения") + БазаРаспределенияЕСН.Итог("БазаРаспределенияЕНВД");
БазаРаспределенияЕСН.ВыбратьСтроки();
Пока БазаРаспределенияЕСН.ПолучитьСтроку() = 1 Цикл

Коэффициент = БазаРаспределенияЕСН.БазаРаспределенияЕНВД / БазаРаспределения;
Если СуммаЕСН * Коэффициент <> 0 Тогда

Операция.НоваяПроводка();
Операция.НомерЖурнала = "ФР";
Операция.СодержаниеПроводки = "Списание взносов (ЕНВД)";
Операция.ПервичныйДокумент  = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = Сч90_8_2;
Операция.Дебет.ВидыНоменклатуры = БазаРаспределенияЕСН.ВидНоменклатуры;
Операция.Кредит.Счет = Сч26;
Операция.Сумма = СуммаЕСН * Коэффициент;
Списано = Списано + Операция.Сумма;

// Формирование печатной формы                                            
Если ФормироватьПечатнуюФорму = 1 Тогда
БазаРаспределенияЕСН.ВсегоРасходов = СуммаЕСН;
БазаРаспределенияЕСН.Коэффициент = Коэффициент;
БазаРаспределенияЕСН.СуммаРасходов = Операция.Сумма;
КонецЕсли;
КонецЕсли;
КонецЦикла;
////////////////////////////SILVERR/////////////////////­/////////////////
Если Списано <> СуммаЕСН Тогда
Операция.Сумма = Операция.Сумма + СуммаЕСН - Списано;
Если ФормироватьПечатнуюФорму = 1 Тогда
БазаРаспределенияЕСН.СуммаРасходов = Операция.Сумма;
КонецЕсли;
КонецЕсли;
Иначе
Если Списано <> СуммаЕСН Тогда
Операция.Сумма = Операция.Сумма + СуммаЕСН - Списано;
Если ФормироватьПечатнуюФорму = 1 Тогда
БазаРаспределенияЕСН.СуммаРасходов = Операция.Сумма;
КонецЕсли;
КонецЕсли;
////////////////////////////SILVERR/////////////////////­/////////////////


Проверено в двух организациях."