Ошибка Бухгалтерский учет 7.70.515 (Отчет Подготовка сведений для ПФР) за 6 месяцев
27.06.2010
11:40
#1
"Несогласованность в отчете и Глобальном модуле Функция глСобратьДанныеДляСтраховыхВзносов и Процедура ОбходСотрудниковДляСтраховыхВзносов.
В отчете выборка для АДВ-6-1 Сведения о суммах начисленных страховых взносах (итого по пачке документов) на страховую часть трудовой пенсии и на накопительную часть трудовой пенсии выбираются за полгода с шагом 6, а в Глобальном модуле таблица формируется с шагом 12.
Исправления:
В отчете:
Функция СобратьДанныеДляЕСНВыбор(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности)
Год = ДатаГод(ДатаАктуальности);
Если Год > 2009 Тогда
Возврат глСобратьДанныеДляСтраховыхВзносов(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности, Контекст, ДатаПо);
Иначе
Возврат СобратьДанныеДляЕСН(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник);
КонецЕсли;
КонецФункции //глСобратьДанныеДляЕСНВыбор
В Глобальном модуле:
Процедура ОтразитьДанныеВТаблицах(ДоходыВычетыНалогиСотрудников,НомерСтрокиСотрудника,МесяцРасшифровки,СобиратьРасшифровку,МесяцДохода,ВР,Куда,Сколько)
Если МесяцРасшифровки <> 0 Тогда // для расшифровки 1 месяца по видам расчетов
ДоходыВычетыНалогиСотрудников.УстановитьЗначение(ДоходыВычетыНалогиСотрудников.КоличествоСтрок(),Куда,ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(ДоходыВычетыНалогиСотрудников.КоличествоСтрок(),Куда)+Сколько);
Иначе
Если СобиратьРасшифровку = 1 Тогда //для расшифровки всех месяцев по ВР при вызове из формы Индивидуальной карточки
ТаблицаДоходыПоВР = ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(НомерСтрокиСотрудника+МесяцДохода, "ТаблицаРасшифровки");
ТаблицаДоходыПоВР.НоваяСтрока();
ТаблицаДоходыПоВР.УстановитьЗначение(ТаблицаДоходыПоВР.КоличествоСтрок(),1,ВР);
ТаблицаДоходыПоВР.УстановитьЗначение(ТаблицаДоходыПоВР.КоличествоСтрок(),Куда,Сколько);
КонецЕсли;
//Для Сч = МесяцДохода По 12 Цикл
Для Сч = МесяцДохода По 6 Цикл // исправл просто на 6, т.к. в теле много вызовов этой процедуры
ДоходыВычетыНалогиСотрудников.УстановитьЗначение(НомерСтрокиСотрудника+Сч,Куда,ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(НомерСтрокиСотрудника+Сч,Куда)+Сколько);
КонецЦикла;
КонецЕсли;
КонецПроцедуры // ОтразитьДанныеВТаблицах()
Процедура ОбходСотрудниковДляСтраховыхВзносов(ВсегоСотров, Сотрудники, ЗапросПоВзносам, ЗапросПоВзносамКСправочникам, СобиратьРучныеКорректировки,
МесяцРасшифровки, Форма, ДоходыВычетыНалогиСотрудников, СобиратьРасшифровку,Год, ПервыйМесяц,
ПоследнийМесяц, ИскатьЕНВД, КонецПериодаОсмотра, ДатаПо)
и далее в этой процедуре по тексту в двух местах
//Для Сч = 1 По 12 Цикл
Для Сч = 1 По ДатаМесяц(ДатаПо) Цикл
Функция глСобратьДанныеДляСтраховыхВзносов(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности, Форма="""", ДатаПо, МесяцРасшифровки = 0, СобиратьРучныеКорректировки = 1, СобиратьРасшифровку = 0) Экспорт
....
ОбходСотрудниковДляСтраховыхВзносов(ВсегоСотров, Сотрудники, ЗапросПоВзносам, ЗапросПоВзносамКСправочникам, СобиратьРучныеКорректировки,МесяцРасшифровки, Форма, ДоходыВычетыНалогиСотрудников, СобиратьРасшифровку, Год, ПервыйМесяц,ПоследнийМесяц,ИскатьЕНВД, КонецПериодаОсмотра, ДатаПо);
Возврат 1;
КонецФункции // глСобратьДанныеДляСтраховыхВзносов()
"
В отчете выборка для АДВ-6-1 Сведения о суммах начисленных страховых взносах (итого по пачке документов) на страховую часть трудовой пенсии и на накопительную часть трудовой пенсии выбираются за полгода с шагом 6, а в Глобальном модуле таблица формируется с шагом 12.
Исправления:
В отчете:
Функция СобратьДанныеДляЕСНВыбор(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности)
Год = ДатаГод(ДатаАктуальности);
Если Год > 2009 Тогда
Возврат глСобратьДанныеДляСтраховыхВзносов(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности, Контекст, ДатаПо);
Иначе
Возврат СобратьДанныеДляЕСН(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник);
КонецЕсли;
КонецФункции //глСобратьДанныеДляЕСНВыбор
В Глобальном модуле:
Процедура ОтразитьДанныеВТаблицах(ДоходыВычетыНалогиСотрудников,НомерСтрокиСотрудника,МесяцРасшифровки,СобиратьРасшифровку,МесяцДохода,ВР,Куда,Сколько)
Если МесяцРасшифровки <> 0 Тогда // для расшифровки 1 месяца по видам расчетов
ДоходыВычетыНалогиСотрудников.УстановитьЗначение(ДоходыВычетыНалогиСотрудников.КоличествоСтрок(),Куда,ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(ДоходыВычетыНалогиСотрудников.КоличествоСтрок(),Куда)+Сколько);
Иначе
Если СобиратьРасшифровку = 1 Тогда //для расшифровки всех месяцев по ВР при вызове из формы Индивидуальной карточки
ТаблицаДоходыПоВР = ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(НомерСтрокиСотрудника+МесяцДохода, "ТаблицаРасшифровки");
ТаблицаДоходыПоВР.НоваяСтрока();
ТаблицаДоходыПоВР.УстановитьЗначение(ТаблицаДоходыПоВР.КоличествоСтрок(),1,ВР);
ТаблицаДоходыПоВР.УстановитьЗначение(ТаблицаДоходыПоВР.КоличествоСтрок(),Куда,Сколько);
КонецЕсли;
//Для Сч = МесяцДохода По 12 Цикл
Для Сч = МесяцДохода По 6 Цикл // исправл просто на 6, т.к. в теле много вызовов этой процедуры
ДоходыВычетыНалогиСотрудников.УстановитьЗначение(НомерСтрокиСотрудника+Сч,Куда,ДоходыВычетыНалогиСотрудников.ПолучитьЗначение(НомерСтрокиСотрудника+Сч,Куда)+Сколько);
КонецЦикла;
КонецЕсли;
КонецПроцедуры // ОтразитьДанныеВТаблицах()
Процедура ОбходСотрудниковДляСтраховыхВзносов(ВсегоСотров, Сотрудники, ЗапросПоВзносам, ЗапросПоВзносамКСправочникам, СобиратьРучныеКорректировки,
МесяцРасшифровки, Форма, ДоходыВычетыНалогиСотрудников, СобиратьРасшифровку,Год, ПервыйМесяц,
ПоследнийМесяц, ИскатьЕНВД, КонецПериодаОсмотра, ДатаПо)
и далее в этой процедуре по тексту в двух местах
//Для Сч = 1 По 12 Цикл
Для Сч = 1 По ДатаМесяц(ДатаПо) Цикл
Функция глСобратьДанныеДляСтраховыхВзносов(ДоходыВычетыНалогиСотрудников, ОбобщенныйСотрудник, ДатаАктуальности, Форма="""", ДатаПо, МесяцРасшифровки = 0, СобиратьРучныеКорректировки = 1, СобиратьРасшифровку = 0) Экспорт
....
ОбходСотрудниковДляСтраховыхВзносов(ВсегоСотров, Сотрудники, ЗапросПоВзносам, ЗапросПоВзносамКСправочникам, СобиратьРучныеКорректировки,МесяцРасшифровки, Форма, ДоходыВычетыНалогиСотрудников, СобиратьРасшифровку, Год, ПервыйМесяц,ПоследнийМесяц,ИскатьЕНВД, КонецПериодаОсмотра, ДатаПо);
Возврат 1;
КонецФункции // глСобратьДанныеДляСтраховыхВзносов()
"
27.06.2010
13:51
#3
Не стоит бежать впереди паровоза. Отчетности для сдачи в ПФР за полугодие еще нет.
Читают тему
(гостей: 1)