Если в 2010 году были переходящие на 2011 год отпуска, то все что 1С "смогла сделать" для их отображения в своде проводок это добавить вот такой комментарий :
// списание из РБП по правилам 2010 года
дальше этого дело не пошло :(
Предлагаю свой вариант исправления:
Исправляем ГМ -> Функция глПроводкиЗаПериод2011
1. Закомментируем строки 74365 - 74371 - мы будем исправлять вариант 2011 года
// Если НачалоМесяца_РБП < ДатаРасширенияПеречняЛьготныхТарифовСтраховыхВзносов Тогда
// списание из РБП по правилам 2010 года
// Иначе // правила с 2011 года
и так же комментируем строку 75066 - конец этого условия
//КонецЕсли
2. Исправляем строку 74426
вместо
ЗаполнитьДанныеДляПроводок2011(ДоходыВычетыНалогиСотрудников, Сотрудник, Месяц, КоэффициентСотрудника,СкидкаМатпомощь, ДатаАктуальности,
ИсчисленоПФРНак,ИсчисленоПФРСтрах,ИсчисленоФСС,ИсчисленоТФОМС,ИсчисленоФФОМС,ИсчисленоДопТариф,ИсчисленоФСС_НС,
БазаДопТариф,БазаФСС_НС,ОблагаемаяБазаПФР,ОблагаемаяБазаФСС,ОблагаемаяБазаФОМС,КоэфПФР_ПоПределу,КоэфФОМС_ПоПределу,КоэфФСС_ПоПределу);
пишем
ЗаполнитьДанныеДляПроводок2011(?(ДатаГод(КонецПериода_РБП) < ТекущийГод,ДоходыВычетыНалогиСотрудниковПрошлогоГода,ДоходыВычетыНалогиСотрудников), Сотрудник, ДатаМесяц(КонецПериода_РБП), КоэффициентСотрудника,СкидкаМатпомощь, ДатаАктуальности,
ИсчисленоПФРНак,ИсчисленоПФРСтрах,ИсчисленоФСС,ИсчисленоТФОМС,ИсчисленоФФОМС,ИсчисленоДопТариф,ИсчисленоФСС_НС,
БазаДопТариф,БазаФСС_НС,ОблагаемаяБазаПФР,ОблагаемаяБазаФСС,ОблагаемаяБазаФОМС,КоэфПФР_ПоПределу,КоэфФОМС_ПоПределу,КоэфФСС_ПоПределу);
3.
Меняем строку 74980
ТаблицаКорреспонденций.Сумма = СуммаПроводкиНалоги;
на
ТаблицаКорреспонденций.Сумма = СуммаПроводкиПоВзносам;
4.
И после строки 74920 вставляем кусок из процедуры для 2010 года , тут конечно можно бы вынести кое что за цикл, но не до красоты:
// Рассчитаем ФСС_НС для 2010 года
СписокНалогов = СоздатьОбъект("СписокЗначений");
СпрДопПроводок = СоздатьОбъект("Справочник.ДополнительныеПроводки");
СпрДопПроводок.ВыбратьЭлементы();
Пока СпрДопПроводок.ПолучитьЭлемент() = 1 Цикл
Если (СпрДопПроводок.Код = "ФСС_БЛ") или (СпрДопПроводок.Код = "АВИА") Тогда
Продолжить;
КонецЕсли;
Если СпрДопПроводок.ПроцентОтРасчетнойБазы > 0 Тогда
СписокНалогов.ДобавитьЗначение(СпрДопПроводок.ТекущийЭлемент(),СпрДопПроводок.Код);
СпособыОтраженияНалогов.Установить("СпособДляФСС_НС",СпрДопПроводок.ПорядокОтраженияВНУ);
КонецЕсли;
КонецЦикла;
Если (СуммаПроводкиНалоги = 0) И (НачалоМесяца_РБП < ДатаРасширенияПеречняЛьготныхТарифовСтраховыхВзносов) Тогда
КоэффициентФСС_НС_Сотрудника = 1;
//в некоторых случаях применяется понижающий коэффициент
РазделятьФССНС = ?((Константа.ОрганизацияИнвалидов.Получить(ДатаМесяц(КонецПериода_РБП))=0),1,0);
Если РазделятьФССНС=1 Тогда
Категория=ЗапросПоЖР_РБП.КатегорияПлательщикаПФР;
Если (Категория=Перечисление.КатегорияПлательщикаПФ.НРИВ)
или (Категория=Перечисление.КатегорияПлательщикаПФ.СХИВ)
или (Категория=Перечисление.КатегорияПлательщикаПФ.АДИВ)
или (Категория=Перечисление.КатегорияПлательщикаПФ.ИПИВ)
или (Категория=Перечисление.КатегорияПлательщикаПФ.ФХИВ) Тогда
КоэффициентФСС_НС_Сотрудника = 0.6;
КонецЕсли;
Иначе
КоэффициентФСС_НС_Сотрудника = 0.6;
КонецЕсли;
ДополнительноеОтчисление = СписокНалогов.Получить("ФСС_НС");
КоэфУчетаВФСС_НС = 0;//1 или 0
ПроцентОтРасчетнойБазы = 0;
Если ТипЗначения(ДополнительноеОтчисление) = 11 Тогда
//есть в списке налогов ФСС_НС
ПроцентОтРасчетнойБазы = ДополнительноеОтчисление.ПроцентОтРасчетнойБазы;
Если глВходитВБазуПроводки(ВР,ДополнительноеОтчисление) = 0 Тогда
//ВР не входит в базу для расчета ФСС_НС, однако мы можем явно указать оплату в документе
//для некотрых видов расчета
Если (ВР = ВидРасчета.ОплатаПоДоговору) или (ВР = ВидРасчета.ОплатаПоДоговоруСПредпринимателем) или (ВР = ВидРасчета.Авторские) или (ВР = ВидРасчета.ЛицензионныеВыплаты) Тогда
Если ДокументВР.Вид() = "ДоговорГраждПравХаракт" Тогда
Если ДокументВР.УплачиватьВФСС = 1 Тогда
КоэфУчетаВФСС_НС = 1; //в документе указано, что платим ФСС_НС
КонецЕсли;
КонецЕсли;
КонецЕсли;
Иначе //ВР входит в базу ФСС_НС
КоэфУчетаВФСС_НС=1;
КонецЕсли;
КонецЕсли;
ШаблонДополнительногоОтчисления = ДополнительноеОтчисление.ШаблонПроводки;
СуммаПроводкиНалоги_ФСС_НС = Окр(СуммаПроводки*КоэфУчетаВФСС_НС*КоэффициентФСС_НС_Сотрудника * ДополнительноеОтчисление.ПроцентОтРасчетнойБазы / 100,10);
Если ШаблонДополнительногоОтчисления.СчетДебета.Выбран()=1 Тогда
Если (Найти(СтрокаСправочников,","+СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто1.Идентификатор)+",")>0) и (СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто1.Идентификатор)<>"Справочник.ПрямыеЗатраты") Тогда
Субконто1ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто5Дебета;
Иначе
Субконто1ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто1Дебета;
КонецЕсли;
Если (Найти(СтрокаСправочников,","+СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто2.Идентификатор)+",")>0) Тогда
Если СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто2.Идентификатор)<>"Справочник.ПрямыеЗатраты" Тогда
Субконто2ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто5Дебета;
Иначе // это для "производства"
Если ПустоеЗначение(ШаблонДополнительногоОтчисления.Субконто2Дебета)=0 Тогда
Если СокрЛП(ШаблонДополнительногоОтчисления.Субконто2Дебета.Код) = "ПрочиеЗатратыПоЗпл" Тогда
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносовДП=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносовДП=ПрочиеЗатратыПоВзносам;
КонецЕсли;
Иначе
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносовДП=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносовДП=ПустоеСубконто;
КонецЕсли;
КонецЕсли;
Иначе
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносовДП=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносовДП=ПустоеСубконто;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Иначе
Субконто2ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто2Дебета;
КонецЕсли;
Если (Найти(СтрокаСправочников,","+СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто3.Идентификатор)+",")>0) и (СокрЛП(ШаблонДополнительногоОтчисления.СчетДебета.Субконто3.Идентификатор)<>"Справочник.ПрямыеЗатраты") Тогда
Субконто3ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто5Дебета;
Иначе
Субконто3ДебетаВзносовДП=ШаблонДополнительногоОтчисления.Субконто3Дебета;
КонецЕсли;
Если (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.Бухгалтерия80)
или (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.Бухгалтерия16)
или (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.БПКОРП) Тогда
ШаблонПроводки = глПодобратьШаблонПроводки("Дт "+ШаблонДополнительногоОтчисления.СчетДебета.Код+" Кт "+СчетБудущихПериодов.Код+" (зарплата)",
ШаблонДополнительногоОтчисления.СчетДебета, ШаблонДополнительногоОтчисления.Субконто1Дебета,ШаблонДополнительногоОтчисления.Субконто2Дебета,ШаблонДополнительногоОтчисления.Субконто3Дебета,ШаблонДополнительногоОтчисления.Субконто4Дебета,ШаблонДополнительногоОтчисления.Субконто5Дебета,ШаблонДополнительногоОтчисления.Субконто6Дебета,ШаблонДополнительногоОтчисления.Субконто7Дебета,
СчетБудущихПериодов, СубконтоСтатьяРБПФСС_НС,ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,
ШаблонПроводки.ПодпадаетПодЕНВД,ШаблонПроводки.Балансодержатель);
Иначе
ШаблонПроводки = глПодобратьШаблонПроводки("Дт "+ШаблонДополнительногоОтчисления.СчетДебета.Код+" Кт "+СчетБудущихПериодов.Код+" (отчисления в фонды)",
ШаблонДополнительногоОтчисления.СчетДебета, Субконто1ДебетаВзносовДП,Субконто2ДебетаВзносовДП,Субконто3ДебетаВзносовДП,ШаблонДополнительногоОтчисления.Субконто4Дебета,ШаблонДополнительногоОтчисления.Субконто5Дебета,ШаблонДополнительногоОтчисления.Субконто6Дебета,ШаблонДополнительногоОтчисления.Субконто7Дебета,
СчетБудущихПериодов, ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,
ШаблонПроводки.ПодпадаетПодЕНВД,ШаблонПроводки.Балансодержатель);
КонецЕсли;
Иначе
Если (Найти(СтрокаСправочников,","+СокрЛП(СчетДебета.Субконто1.Идентификатор)+",")>0) и (СокрЛП(СчетДебета.Субконто1.Идентификатор)<>"Справочник.ПрямыеЗатраты") Тогда
Субконто1ДебетаВзносов=Субконто5Дебета;
КонецЕсли;
Если (Найти(СтрокаСправочников,","+СокрЛП(СчетДебета.Субконто2.Идентификатор)+",")>0) Тогда
Если СокрЛП(СчетДебета.Субконто2.Идентификатор)<>"Справочник.ПрямыеЗатраты" Тогда
Субконто2ДебетаВзносов=Субконто5Дебета;
Иначе // это для "производства"
Если ПустоеЗначение(Субконто2Дебета)=0 Тогда
Если СокрЛП(Субконто2Дебета.Код) = "ПрочиеЗатратыПоЗпл" Тогда
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносов=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносов=ПрочиеЗатратыПоВзносам;
КонецЕсли;
Иначе
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносов=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносов=ПустоеСубконто;
КонецЕсли;
КонецЕсли;
Иначе
Если Конфигурация = "ПроизводствоСАналитикой" Тогда
Субконто2ДебетаВзносов=ПрочиеЗатратыПоВзносам_ДляПУБ_сАналитикой;
Иначе
Субконто2ДебетаВзносов=ПустоеСубконто;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если (Найти(СтрокаСправочников,","+СокрЛП(СчетДебета.Субконто3.Идентификатор)+",")>0) и (СокрЛП(СчетДебета.Субконто3.Идентификатор)<>"Справочник.ПрямыеЗатраты") Тогда
Субконто3ДебетаВзносов=Субконто5Дебета;
КонецЕсли;
Если (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.Бухгалтерия80)
или (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.Бухгалтерия16)
или (КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.БПКОРП) Тогда
ШаблонПроводки = глПодобратьШаблонПроводки("Дт "+СчетДебета.Код+" Кт "+СчетБудущихПериодов.Код+" (зарплата)",
СчетДебета, Субконто1Дебета,Субконто2Дебета,Субконто3Дебета,Субконто4Дебета,Субконто5Дебета,Субконто6Дебета,Субконто7Дебета,
СчетБудущихПериодов, СубконтоСтатьяРБПФСС_НС,ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,
ШаблонПроводки.ПодпадаетПодЕНВД,ШаблонПроводки.Балансодержатель);
Иначе
ШаблонПроводки = глПодобратьШаблонПроводки("Дт "+СчетДебета.Код+" Кт "+СчетБудущихПериодов.Код+" (отчисления в фонды)",
СчетДебета, Субконто1ДебетаВзносов,Субконто2ДебетаВзносов,Субконто3ДебетаВзносов,Субконто4ДебетаВзносов,Субконто5ДебетаВзносов,Субконто6Дебета,Субконто7Дебета,
СчетБудущихПериодов, ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,ПустоеСубконто,
ШаблонПроводки.ПодпадаетПодЕНВД,ШаблонПроводки.Балансодержатель);
КонецЕсли;
КонецЕсли;
ТаблицаКорреспонденций.НоваяСтрока();
ТаблицаКорреспонденций.Сотрудник = Сотрудник.ОсновнойЭлемент;
ТаблицаКорреспонденций.ВидРасчета = ВР;
ТаблицаКорреспонденций.Шаблон = ШаблонПроводки;
ТаблицаКорреспонденций.Сумма = СуммаПроводкиНалоги_ФСС_НС;
Если КонстантаКонфигурация=Перечисление.БухгалтерскиеПрограммы.БПКОРП Тогда
Если ТаблицаКорреспонденций.Шаблон.СчетДебета.УчетПоПодразделениям=1 Тогда
ТаблицаКорреспонденций.ПодразделениеДт = ПодразделениеСотрудникаНаКонецПериода;
КонецЕсли;
Если ТаблицаКорреспонденций.Шаблон.СчетКредита.УчетПоПодразделениям=1 Тогда
ТаблицаКорреспонденций.ПодразделениеКт = ПодразделениеСотрудникаНаКонецПериода;
КонецЕсли;
КонецЕсли;
КонецЕсли;
10.02.11 Добавила архив с md с моими изменениями.
Мои изменения помечены комментариями //***изм{ и //***изм}
