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

Victuan, А что толку что оно вышло то? Кнопка "Заполнить" всё равно не работает!

aninusa пишет:

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, Ну тады ой. И авансы и больничные и отпускные нужно к зарплате приплюсовывать. Писать одной строкой за месяц+подоходный (в нижних строках)

Будте внимательны - в форме 6-НДФЛ ошибка, при печати без двумерного кода указывается неправильный КНД - 1151099 меняется на 1152016, были случаи, что бухгалтеров заворачивали с отчетами.

Nikolay83, Да без двумерного штрих кода никто и не сдаёт. По коду налоговики смотрят дату отчета.

Nikolay83, спасибо, об этой ошибке нам уже известно.
Исправление будет доступно в ближайшем комплекте регламентированной отчетности.

Способ обхода: использовать печать на бланке PDF417.