Имя: Пароль:
1C
1C 7.7
v7: ЗиК 77. Проблемы с формированием пачек ПФР
0 2S
 
08.11.14
10:38
в части смены вида застрахованного лица.
Простой пример, январь-март сотрудник временно пребывающий (ВЖНР).
Январь - 1 руб, Февраль - 1 руб, Март - 1 руб
с апреля - на постоянное ПМЖ, меняем вид застрахованного лица на НР.
Апрель - 1 руб, Май - 1 руб, Июнь - 1 руб.
Формируем пачку ПФР за 2 квартал. В итоговую сумму ПФР не попадают суммы ВЖНР, точнее в форме расшифровке сотрудника "Выплаты и взносы" в поле "Выплаты по категориям ЗЛ" заполняется только одна строка по последнему значению вида застрахованного лица НР
Всего с начала года = 3, и по месяцам по 1 рублю.
Нет строки по ВЖНР, Всего с начала года = 3, по месяцам = 0
Это ошибка обработки такая или я не догоняю что-то?
1 2S
 
08.11.14
10:59
deBug, шаэс, отзовитесь
2 2S
 
08.11.14
11:02
Программа правильно формирует строки, появляются две - НР и ВЖНР в таблице, при условии смены вида ЗЛ в отчетном периоде, например в мае. Но как быть, если вид ЗЛ меняется в первый день периода - 1 апреля? Сальдо в этом случае не учитывается?
3 2S
 
08.11.14
11:10
ага, причем еще заполняет и по статусу ЗР на конец месяца. Т.е. если вид меняется в середине, ЗиКа не делит этот период на два, все суммы гонит по значению на конец месяца. Нда...
4 Мимохожий Однако
 
08.11.14
11:21
Обнови ЗиК до последнего релиза, проведи ТИИ. Проверь свои расчеты на Демо-конфигурации.
5 2S
 
08.11.14
11:24
(4) 348 релиз
ТиИ не причем. Ковыряю модуль. Ест другое мнение? подтвердите расчетами
6 шаэс
 
08.11.14
11:38
(1) (ух ты, первый раз меня зовут)
чуть позже что–нибудь разумное напишу, когда до компа дойду, если сами к этому моменту ответ не найдете
7 2S
 
08.11.14
11:43
по активности ответов по ЗиК нас мало )
8 Мимохожий Однако
 
08.11.14
11:45
(5)Вчера был у клиента. Ситуация похожая была. При внимательном рассмотрении обнаружил в журнале расчета нулевые суммы за весь 3 квартал. Мягкий откат назад и последовательные пересчет восстановил записи и отчетность в ПФР начала работать. Какой у тебя вариант гадать неохота.
9 2S
 
08.11.14
11:52
(8) нет, суммы есть, я же написал, смена вида ЗЛ
10 Storm911
 
08.11.14
11:57
Так может и не должно быть сальдо? По этой то категории сальдо нет.
11 2S
 
08.11.14
12:08
рвет тогда с РСВ нарастающим итогом
12 2S
 
09.11.14
14:14
решение пока нашел такое, правда не тестировал, завтра бухов натравлю )
В обработке подготовки сведений пфр корректируем функцию ВзносыВыплатыРаздел6РСВ_1
блок             
Если ЕстьДанные=1 Тогда
                
                ВремТаблицаВыплатРаздел6РСВ_1.НоваяСтрока();
                ВремТаблицаВыплатРаздел6РСВ_1.КатегорияЗЛ = КатегорияЗЛ;
                
                ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                ВремТаблицаВыплатПоКатегории.Месяц=0;
                ВремТаблицаВыплатПоКатегории.СуммаВыплат = ДанныеПоКатегории.Итог("СуммаВыплат");
                ВремТаблицаВыплатПоКатегории.БазаДоПредела = ДанныеПоКатегории.Итог("БазаДоПредела");
                ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = ДанныеПоКатегории.Итог("БазаДоПределаДоговры");
                ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = ДанныеПоКатегории.Итог("СуммаВыплатСверхПредела");
                
                НомМесяца = 0;
                Для СчМес = МесяцНачало ПО МесяцОкончания Цикл
                    НомМесяца = НомМесяца + 1;
                    ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                    ВремТаблицаВыплатПоКатегории.Месяц=НомМесяца;
                    
                    НомСтр = "";
                    Если ДанныеПоКатегории.НайтиЗначение(СчМес,НомСтр,"Месяц") = 1 Тогда
                        ВремТаблицаВыплатПоКатегории.СуммаВыплат = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"СуммаВыплат");
                        ВремТаблицаВыплатПоКатегории.БазаДоПредела = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"БазаДоПредела");
                        ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"БазаДоПределаДоговры");
                        ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"СуммаВыплатСверхПредела");
                    КонецЕсли;
                    
                КонецЦикла;
            ВремТаблицаВыплатРаздел6РСВ_1.ТаблицаВыплатПоКатегории = ВремТаблицаВыплатПоКатегории;
            КонецЕсли;  

меняем на

            Если ЕстьДанные=1 Тогда
                
                ВремТаблицаВыплатРаздел6РСВ_1.НоваяСтрока();
                ВремТаблицаВыплатРаздел6РСВ_1.КатегорияЗЛ = КатегорияЗЛ;
                
                ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                ВремТаблицаВыплатПоКатегории.Месяц=0;
                ВремТаблицаВыплатПоКатегории.СуммаВыплат = ДанныеПоКатегории.Итог("СуммаВыплат");
                ВремТаблицаВыплатПоКатегории.БазаДоПредела = ДанныеПоКатегории.Итог("БазаДоПредела");
                ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = ДанныеПоКатегории.Итог("БазаДоПределаДоговры");
                ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = ДанныеПоКатегории.Итог("СуммаВыплатСверхПредела");
                
                НомМесяца = 0;
                Для СчМес = МесяцНачало ПО МесяцОкончания Цикл
                    НомМесяца = НомМесяца + 1;
                    ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                    ВремТаблицаВыплатПоКатегории.Месяц=НомМесяца;
                    
                    НомСтр = "";
                    Если ДанныеПоКатегории.НайтиЗначение(СчМес,НомСтр,"Месяц") = 1 Тогда
                        ВремТаблицаВыплатПоКатегории.СуммаВыплат = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"СуммаВыплат");
                        ВремТаблицаВыплатПоКатегории.БазаДоПредела = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"БазаДоПредела");
                        ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"БазаДоПределаДоговры");
                        ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = ДанныеПоКатегории.ПолучитьЗначение(НомСтр,"СуммаВыплатСверхПредела");
                    КонецЕсли;
                    
                КонецЦикла;
              
            //АБ(    
            Иначе     
            
                ВремТаблицаВыплатРаздел6РСВ_1.НоваяСтрока();
                ВремТаблицаВыплатРаздел6РСВ_1.КатегорияЗЛ = КатегорияЗЛ;
                
                ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                ВремТаблицаВыплатПоКатегории.Месяц=0;
                ВремТаблицаВыплатПоКатегории.СуммаВыплат = ДанныеПоКатегории.Итог("СуммаВыплат");
                ВремТаблицаВыплатПоКатегории.БазаДоПредела = ДанныеПоКатегории.Итог("БазаДоПредела");
                ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = ДанныеПоКатегории.Итог("БазаДоПределаДоговры");
                ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = ДанныеПоКатегории.Итог("СуммаВыплатСверхПредела");

                НомМесяца = 0;
                Для СчМес = МесяцНачало ПО МесяцОкончания Цикл
                    НомМесяца = НомМесяца + 1;
                    ВремТаблицаВыплатПоКатегории.НоваяСтрока();
                    ВремТаблицаВыплатПоКатегории.Месяц=НомМесяца;
                    
                    НомСтр = "";
                    Если ДанныеПоКатегории.НайтиЗначение(СчМес,НомСтр,"Месяц") = 1 Тогда
                        ВремТаблицаВыплатПоКатегории.СуммаВыплат = 0;
                        ВремТаблицаВыплатПоКатегории.БазаДоПредела = 0;
                        ВремТаблицаВыплатПоКатегории.БазаДоПределаДоговры = 0;
                        ВремТаблицаВыплатПоКатегории.СуммаВыплатСверхПредела = 0;
                    КонецЕсли;
                    
                КонецЦикла;
            КонецЕсли;  
            ВремТаблицаВыплатРаздел6РСВ_1.ТаблицаВыплатПоКатегории = ВремТаблицаВыплатПоКатегории;
            //)
13 шаэс
 
09.11.14
23:17
(12) здорово, что остались еще пытливые умы, которым не лень ковырять зубодробительные коды от 1С. если сработает отпишитесь, может у кого-то еще такой же вопрос возникнет. чтобы знать куда отправлять