Ошибка в 1С:Бух77 ред.533 Начисление ФФОМС при ЕНВД

Ошибка возникает по причине того, что расчет ставки налога ФФОМС и ТФОМС идут следом друг за другом и вычисленная ставка налога для ФФОМС затирается затем ставкой налога для ТФОМС (которая в этом году равна 0%)

Для исправления этой ситуации было добавлено пару строк в модуль документа «ЗакрытиеМесяца». 

со строки № 7254

было:

Если РезультатФФОМС <> 0 Тогда
ТаблицаРаспределения = РаспределитьВзносыПоНачислениям(РезультатФФОМС, НачисленияФОМС, СтавкаТарифа, СтавкаТарифаИнвалид, Инвалид, ИмяШкалыВзносов, МатПомощьЕдиновременная, МатПомощьПриРождении);
ТаблицаРаспределения.ВыбратьСтроки();
Пока ТаблицаРаспределения.ПолучитьСтроку() = 1 Цикл
СформироватьПроводку(«ФФОМС», Сотрудник, ТаблицаРаспределения, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД);
СформироватьПроводкуСВЗ(«ФФОМС», Сотрудник, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД, 0, ТаблицаРаспределения);
КонецЦикла;
КонецЕсли;

стало:

Если РезультатФФОМС <> 0 Тогда
ИмяШкалыВзносов = «ФФОМС»; //добавлено LB2012
СтавкаТарифа = глПолучитьСтавкуВзноса(ВидТарифа,ИмяШкалыВзносов,ДатаКон) / 100; //добавлено LB2012

ТаблицаРаспределения = РаспределитьВзносыПоНачислениям(РезультатФФОМС, НачисленияФОМС, СтавкаТарифа, СтавкаТарифаИнвалид, Инвалид, ИмяШкалыВзносов, МатПомощьЕдиновременная, МатПомощьПриРождении);
ТаблицаРаспределения.ВыбратьСтроки();
Пока ТаблицаРаспределения.ПолучитьСтроку() = 1 Цикл
СформироватьПроводку(«ФФОМС», Сотрудник, ТаблицаРаспределения, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД);
СформироватьПроводкуСВЗ(«ФФОМС», Сотрудник, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД, 0, ТаблицаРаспределения);
КонецЦикла;
КонецЕсли;

——

и со  строки №7263

было:

Если РезультатТФОМС <> 0 Тогда 

ТаблицаРаспределения = РаспределитьВзносыПоНачислениям(РезультатТФОМС, НачисленияФОМС, СтавкаТарифа, СтавкаТарифаИнвалид, Инвалид, ИмяШкалыВзносов, МатПомощьЕдиновременная, МатПомощьПриРождении);

ТаблицаРаспределения.ВыбратьСтроки();

Пока ТаблицаРаспределения.ПолучитьСтроку() = 1 Цикл

СформироватьПроводку(«ТФОМС», Сотрудник, ТаблицаРаспределения, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД);

СформироватьПроводкуСВЗ(«ТФОМС», Сотрудник, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД, 0, ТаблицаРаспределения);

КонецЦикла;

КонецЕсли;

стало:

Если РезультатТФОМС <> 0 Тогда 

ИмяШкалыВзносов = «ТФОМС»;//добавлено LB2012

СтавкаТарифа = глПолучитьСтавкуВзноса(ВидТарифа,ИмяШкалыВзносов,ДатаКон) / 100;//добавлено LB2012

ТаблицаРаспределения = РаспределитьВзносыПоНачислениям(РезультатТФОМС, НачисленияФОМС, СтавкаТарифа, СтавкаТарифаИнвалид, Инвалид, ИмяШкалыВзносов, МатПомощьЕдиновременная, МатПомощьПриРождении);

ТаблицаРаспределения.ВыбратьСтроки();

Пока ТаблицаРаспределения.ПолучитьСтроку() = 1 Цикл

СформироватьПроводку(«ТФОМС», Сотрудник, ТаблицаРаспределения, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД);

СформироватьПроводкуСВЗ(«ТФОМС», Сотрудник, ТаблицаРаспределения.Сумма + ТаблицаРаспределения.СуммаЕНВД, 0, ТаблицаРаспределения);

КонецЦикла;

КонецЕсли;