Когда же наконец будет работать кнопка "Заполнить" в 6НДФЛ?

Новая тема
Показывать по сообщений
Ответ на пост №49
Victuan, А что толку что оно вышло то? Кнопка "Заполнить" всё равно не работает!
aninusa пишет:
Цитата

      
      
Victuan , А что толку что оно вышло то? Кнопка "Заполнить" всё равно не работает!
Но выгрузка в хмл-файл и печать работают. А заполнить отчет можно и вручную.
Ответили: пост #53
Ответ на пост №52
Victuan, На тебе обработку, правда если нижних строк не хватает, не до конца заполняет. И по иностранцам не заполняет:
2 раза закомментировать строку:
      //Форма.Заполнить.Видимость(0);
      //Форма.Заполнить.Видимость(0);


Процедура Заполнить()
      
       Таблица.Область("Ставка").Значение=13;
      
НачислДох=0;
НачислДохДив=0;
ИсчислНал=0;
ИсчислНалДив=0;
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНачисленийВыплат);      
Ит.ВыполнитьЗапрос('01.01.2016','31.03.2016', "70",,,,, "С");
Ит.ВыбратьСубконто();
 Пока Ит.ПолучитьСубконто()=1 Цикл
             Если СокрЛП(Ит.Субконто())="" Тогда Продолжить;
            КонецЕсли;      
   НачислДох=НачислДох+Ит.КО();
      Если Ит.Субконто().Код="1010" Тогда
      НачислДохДив=НачислДохДив+Ит.КО();
      ИсчислНалДив=ИсчислНалДив+Ит.ДО();
      КонецЕсли;
КонецЦикла ;

Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыПлатежейВБюджет);      
Ит.ВыполнитьЗапрос('01.01.2016','31.03.2016', "68.1",,,,, "С");
Ит.ВыбратьСубконто();
 Пока Ит.ПолучитьСубконто()=1 Цикл
       ИсчислНал=ИсчислНал+Ит.КО();
 КонецЦикла;
      
Таблица.Область("ИсчислНалДив").Значение=ИсчислНалДив;
Таблица.Область("ИсчислНал").Значение=ИсчислНал;
Таблица.Область("УдержНалИт").Значение=ИсчислНал;
Таблица.Область("НачислДох").Значение=НачислДох;
Таблица.Область("НачислДохДив").Значение=НачислДохДив;



Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники);      
Ит.ВыполнитьЗапрос('01.01.2016','31.01.2016', "70",,,,, "С");
Ит.ВыбратьСубконто();
ВычетНал=0;
КолФЛДоход=0;
Пока Ит.ПолучитьСубконто()=1 Цикл  
      //Сообщить(Ит.Субконто());
      Если СокрЛП(Ит.Субконто())="" Тогда Продолжить;
      КонецЕсли;      
      КолФЛДоход=КолФЛДоход+1;
   ВычетНал=ВычетНал+Ит.Субконто().РазмерВычетаНаРебенка.Получить('15.01.2016')+Ит.Субконто().РазмерВычетаНаРебенка2.Получить('15.01.2016')+Ит.Субконто().РазмерВычетаНаРебенка3.Получить('15.01.2016');
КонецЦикла;
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники);      
Ит.ВыполнитьЗапрос('01.02.2016','29.02.2016', "70",,,,, "С");
Ит.ВыбратьСубконто();

Пока Ит.ПолучитьСубконто()=1 Цикл
      //Сообщить(Ит.Субконто());
      Если СокрЛП(Ит.Субконто())="" Тогда Продолжить;
      КонецЕсли;
      КолФЛДоход=КолФЛДоход+1;
   ВычетНал=ВычетНал+Ит.Субконто().РазмерВычетаНаРебенка.Получить('15.02.2016')+Ит.Субконто().РазмерВычетаНаРебенка2.Получить('15.02.2016')+Ит.Субконто().РазмерВычетаНаРебенка3.Получить('15.02.2016');
КонецЦикла;
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники);      
Ит.ВыполнитьЗапрос('01.03.2016','31.03.2016', "70",,,,, "С");
Ит.ВыбратьСубконто();

Пока Ит.ПолучитьСубконто()=1 Цикл
      //Сообщить(Ит.Субконто());
      Если СокрЛП(Ит.Субконто())="" Тогда Продолжить;
      КонецЕсли;
      КолФЛДоход=КолФЛДоход+1;
   ВычетНал=ВычетНал+Ит.Субконто().РазмерВычетаНаРебенка.Получить('15.03.2016')+Ит.Субконто().РазмерВычетаНаРебенка2.Получить('15.03.2016')+Ит.Субконто().РазмерВычетаНаРебенка3.Получить('15.03.2016');
КонецЦикла;
//Сообщить(ВычетНал);
Таблица.Область("ВычетНал").Значение=ВычетНал;
Таблица.Область("КолФЛДоход").Значение=Окр(КолФЛДоход/3);

ДВЗ=СоздатьОбъект("Документ.ВыплатаЗПКасса");
ДВЗ.ВыбратьДокументы('01.01.2016','31.03.2016');
а=0;
Пока ДВЗ.ПолучитьДокумент()=1 Цикл
      а=а+1;
Таблица.Область("ДатаФактДох_"+а).Значение=ДВЗ.ДатаДок;
Таблица.Область("ФактДоход_"+а).Значение=ДВЗ.Итог("КВыдаче");
Таблица.Область("ДатаУдержНал_"+а).Значение=ДВЗ.ДатаДок+1;
Таблица.Область("СрокПрчслНал_"+а).Значение=ДВЗ.ДатаДок+1;
КонецЦикла;      

Вып=СоздатьОбъект("Документ.Выписка");
Вып.ВыбратьДокументы('01.01.2016','31.03.2016');
а=0;
Пока Вып.ПолучитьДокумент()=1 Цикл
Пока Вып.ПолучитьСтроку()=1 Цикл;
      
Если Вып.КоррСчет=СчетПоКоду("68.1") Тогда
      а=а+1;
      Таблица.Область("СрокПрчслНал_"+а).Значение=Вып.ДатаДок;
       Таблица.Область("УдержНал_"+а).Значение=   Вып.Расход;
КонецЕсли;      
      
      
КонецЦикла;
КонецЦикла;
      //===
КонецПроцедуры // Заполнить()
aninusa пишет:
Цитата
На тебе обработку                                                                  
Спасибо, конечно. Протестирую, отпишусь.
aninusa пишет:
Цитата
 Victuan , На тебе обработку, правда если нижних строк не хватает, не до конца заполняет. И по иностранцам не заполняет
Она и для типовых конфигураций не заполняет, т.к. в них нет реквизитов РазмерВычетаНаРебенка2(3) в спр. Сотрудники. И вообще реквизит РазмерВычетаНаРебенка использовался в старом релизе Бух.
Ответили: пост #56
Ответ на пост №55
Victuan, Ну тады ой. И авансы и больничные и отпускные нужно к зарплате приплюсовывать. Писать одной строкой за месяц+подоходный (в нижних строках)
Будте внимательны - в форме 6-НДФЛ ошибка, при печати без двумерного кода указывается неправильный КНД - 1151099 меняется на 1152016, были случаи, что бухгалтеров заворачивали с отчетами.
Ответили: пост #58 , пост #59
Ответ на пост №57
Nikolay83, Да без двумерного штрих кода никто и не сдаёт. По коду налоговики смотрят дату отчета.
Ответ на пост №57
Nikolay83, спасибо, об этой ошибке нам уже известно.
Исправление будет доступно в ближайшем комплекте регламентированной отчетности.

Способ обхода:  использовать печать на бланке PDF417.
Читают тему
(гостей: 1)

Быстрый переход