Когда же наконец будет работать кнопка "Заполнить" в 6НДФЛ?
27.04.2016
09:38
#51
Ответ на
пост №49
Victuan, А что толку что оно вышло то? Кнопка "Заполнить" всё равно не работает! 27.04.2016
09:43
#52
aninusa пишет:
Но выгрузка в хмл-файл и печать работают. А заполнить отчет можно и вручную.
Цитата |
---|
Victuan , А что толку что оно вышло то? Кнопка "Заполнить" всё равно не работает! |
Ответили:
пост #53
27.04.2016
17:47
#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;
Таблица.Область("СрокПрчслНал_"+а).Значение=Вып.ДатаДок;
Таблица.Область("УдержНал_"+а).Значение= Вып.Расход;
КонецЕсли;
КонецЦикла;
КонецЦикла;
//===
КонецПроцедуры // Заполнить()
27.04.2016
18:08
#54
aninusa пишет:
Спасибо, конечно. Протестирую, отпишусь.
Цитата |
---|
На тебе обработку |
28.04.2016
05:55
#55
aninusa пишет:
Она и для типовых конфигураций не заполняет, т.к. в них нет реквизитов РазмерВычетаНаРебенка2(3) в спр. Сотрудники. И вообще реквизит РазмерВычетаНаРебенка использовался в старом релизе Бух.
Цитата |
---|
Victuan , На тебе обработку, правда если нижних строк не хватает, не до конца заполняет. И по иностранцам не заполняет |
Ответили:
пост #56
28.04.2016
11:43
#56
Ответ на
пост №55
Victuan, Ну тады ой. И авансы и больничные и отпускные нужно к зарплате приплюсовывать. Писать одной строкой за месяц+подоходный (в нижних строках) Читают тему
(гостей: 1)