v7: Помогите разобраться с кодом в 77

да...действительно...)так и было..)теперь я нашла на какой функции он ломается

Функция СобратьДанныеДляНДФЛ(
ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "",
Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "",
НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "",
ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "",
НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "",
ВидСубконто = "", Субконто = "", Отказ = "")

Перем СуммыВычетов[20];
Перем ВычетыТекущие[20];
Перем ЗачтеноПоДивидендам[12];

Перем СуммыВычетовП[20];
Перем ВычетыТекущиеП[20];

ОбобщенныйСотрудник = ИсходящиеДанные;
ДатаАктуальности = ВходящиеДанные;
ТаблицаНДФЛСведенияОДоходах = Источник;
ТаблицаНДФЛИмущественныеВычетыФизлиц = Приемник;
ЮрЛицо = ТипПриемника;

ПорядокРасчетаНДФЛ = ЮрЛицо.УчетнаяПолитикаПоНДФЛ.Получить(КонГода(ДатаАктуальности));
НомерРелизаИБ = Число(СтрЗаменить(Константа.НомерРелиза, ".",""));

Год = ДатаГод(ДатаАктуальности);
Если Год < 2005 Тогда //сообщим, что расчеты до 2005 года не поддерживаются
ТекстОшибки = "Выгрузка ранее " + Год + " года не поддерживается.";
ТекстДействия = "При выгрузке НДФЛ укажите период с " + Год + " года.";

Сообщить(ТекстОшибки + " " + ТекстДействия, "!");
ЗафиксироватьОшибку(ТекстОшибки + "|" + ТекстДействия + "|Не останавливать перенос");
Возврат 0
КонецЕсли;

ЖрнЗарплата = СоздатьОбъект("ЖурналРасчетов.Зарплата");
КонецПериодаОсмотра = ЖрнЗарплата.КонецТекущегоПериода();
НачалоГода = ЖрнЗарплата.НачалоПериодаПоДате(НачГода(ДатаАктуальности)+15);
ОкончаниеГода = ЖрнЗарплата.КонецПериодаПоДате(КонГода(ДатаАктуальности)-10);

ТаблицаРаспределения = СоздатьОбъект("ТаблицаЗначений");
ТаблицаРаспределения.НоваяКолонка("Шаблон","Справочник.ПроводкиРасчетаЗарплаты",,,,,,);
ТаблицаРаспределения.НоваяКолонка("Сумма","Число",15,2,,);

// скопируем структуру таблицы
ВремТаблицаНДФЛСведенияОДоходах = СоздатьОбъект("ТаблицаЗначений");
ВремТаблицаНДФЛСведенияОДоходах.Загрузить(ТаблицаНДФЛСведенияОДоходах);

// скопируем структуру таблицы
ВремТаблицаНДФЛИмущественныеВычетыФизлиц = СоздатьОбъект("ТаблицаЗначений");
ВремТаблицаНДФЛИмущественныеВычетыФизлиц.Загрузить(ТаблицаНДФЛИмущественныеВычетыФизлиц);

ФизЛица = СоздатьОбъект("СписокЗначений");
Если ТипЗначения(ОбобщенныйСотрудник) = 11 Тогда //здесь был передан элемент справочника - добавим его в только что созданный список
ФизЛица.ДобавитьЗначение(ОбобщенныйСотрудник);
Иначе //а здесь был передан список элементов - будем использовать непосредственно его
ФизЛица = ОбобщенныйСотрудник;
КонецЕсли;

ПорядокПредоставленияВычетов=СоздатьОбъект("СписокЗначений");
Если (Год >=2009) и (НомерРелизаИБ >= 770488) Тогда
ПорядокПредоставленияВычетов.ДобавитьЗначение("108");
ПорядокПредоставленияВычетов.ДобавитьЗначение("110");
ПорядокПредоставленияВычетов.ДобавитьЗначение("111");
ПорядокПредоставленияВычетов.ДобавитьЗначение("109");
ПорядокПредоставленияВычетов.ДобавитьЗначение("112");
ПорядокПредоставленияВычетов.ДобавитьЗначение("113");
ПорядокПредоставленияВычетов.ДобавитьЗначение("103");
ПорядокПредоставленияВычетов.ДобавитьЗначение("104");
ПорядокПредоставленияВычетов.ДобавитьЗначение("105");
Иначе
ПорядокПредоставленияВычетов.ДобавитьЗначение("101");
ПорядокПредоставленияВычетов.ДобавитьЗначение("102");
ПорядокПредоставленияВычетов.ДобавитьЗначение("106");
ПорядокПредоставленияВычетов.ДобавитьЗначение("107");
ПорядокПредоставленияВычетов.ДобавитьЗначение("103");
ПорядокПредоставленияВычетов.ДобавитьЗначение("104");
ПорядокПредоставленияВычетов.ДобавитьЗначение("105");
КонецЕсли;

// проинициализируем выходную таблицу значений
ДоходыВычетыНалогиСотрудников=СоздатьОбъект("ТаблицаЗначений");
// 1-ая колонка (строка, 12) - ключевое поле для поиска данных;
// состоит из 10 символов табельного номера сотрудника и 2-х символов месяца.
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Строка",12);
// 2-ая колонка содержит таблицу доходов
// имеет 7 колонок: код дохода, размер дохода, код вычета, размер вычета,размер дохода из справочника, размер вычета из справочника и
// в седьмой колонке - таблица сумм "СписокСуммПоВР", из которых собрана сумма текущего дохода (первая колонка - сумма, вторая колонка - ВР)
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"ТаблицаЗначений");
// 3-ая колонка содержит список значений из трех значений:
// первое значение - список сумм стандартных вычетов, за месяц, указанный в первой колонке "верхней" таблицы, нарастающим итогом с начала года; в представлении содержится код вычета.
// второе значение - суммы облагаемой базы нарастающим итогом с начала года без учета имущественных вычетов ("бывшая" колонка 13)
// третье значение - размер примененных имущественных вычетов с кодом 313\311 нарастающим итогом с начала года, за месяц, указанный в первой колонке "верхней" таблицы;
// четвертое значение - размер примененных имущественных вычетов с кодом 312 нарастающим итогом с начала года, за месяц, указанный в первой колонке "верхней" таблицы;
//
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"СписокЗначений");
// 4,5 колонки содержат суммы НДФЛ исчисленного (по трем ставкам),
// нарастающим итогом с начала года, собранного по периоду действия.
// 7,8 колонки содержат суммы НДФЛ исчисленного (по трем ставкам),
// нарастающим итогом с начала года, собранного по периоду регистрации.
// 10,11 колонки содержат суммы НДФЛ удержанного (по трем ставкам),
// нарастающим итогом с начала года, собранного по периоду регистрации.
// 13,14 колонки содержат суммы облагаемой базы (обычная и дивиденты),
// нарастающим итогом с начала года.
// 16,17 колонки содержат суммы переданные на взыскание в ИМНС
// нарастающим итогом с начала года.
// 6-ая, 9-ая, 12-ая, 15-ая, 18-ая - это строки из 4-х чисел
Для Сч = 1 По 5 Цикл
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
//строка из 4-х чисел Формата 15.2, разделенных ";" 4* ((15+1(для "точки")+2)+1(для "точки с запятой")) = 76
//6-ая кол Сч=1: 4 величины НДФЛ исчисл. по ставке 35% по периоду действия
//9-ая кол Сч=2: 4 величины НДФЛ исчисл. по ставке 35% по периоду рег.
//12-ая кол Сч=3: 4 величины НДФЛ уд. по ставке 35% по периоду действия
//15-ая кол Сч=4: 4 величины облагаемой базы по ставке 35%
//18-ая кол Сч=5: 4 величины НДФЛ по ставке 35%, переданных на взыскание в ИМНС
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Строка",76);
КонецЦикла;
// 19-ая колонка содержит совокупный доход для исчисления вычетов
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
// 20-ая колонка содержит сумму вычетов, неиспользованных с начала года по текущий месяц (для расчетов от обратного)
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
// 21,22 и 23-я колонки содержат суммы НДФЛ исчисленного (по трем ставкам),
// нарастающим итогом с начала года - исчисленного для налоговой отчетности
// 23-я - это строка из 4-х чисел
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Строка",76); //23-я колонка - строка из 4-х чисел
// 4+20,5+20 и 6+20-ая колонки содержат суммы НДФЛ исчисленного (по трем ставкам),
// нарастающим итогом с начала года, собранного только из справочников(чтобы иметь суммы,введенные непосредственно в карточку).
// 7+20,8+20 и 9+20-ая колонки содержат суммы НДФЛ исч по периоду регистрации (по трем ставкам),
// нарастающим итогом с начала года, собранного только из справочников(чтобы иметь суммы,введенные непосредственно в карточку).
// 10+20,11+20 и 12+20-ая колонки содержат суммы НДФЛ уд (по трем ставкам),
// нарастающим итогом с начала года, собранного только из справочников(чтобы иметь суммы,введенные непосредственно в карточку).

// 33,34 и 35-ая колонки (аналог 21,22 и 23) содержат суммы НДФЛ исч. для отч-ти (по трем ставкам),
// нарастающим итогом с начала года, собранного только из справочников(чтобы иметь суммы,введенные непосредственно в карточку).
// 16+20,17+20 и 18+20-ая колонки содержат суммы на взыскание (по трем ставкам),
// нарастающим итогом с начала года, собранного только из справочников(чтобы иметь суммы,введенные непосредственно в карточку).
// 39,40 и 41-ая колонки содержат суммы облагаемой базы (по трем ставкам),
// нарастающим итогом с начала года по данным, введенным в карточку вручную.
Для Сч = 1 По 6 Цикл
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
//строка из 4-х чисел Формата 15.2, разделенных ";" 4* ((15+1(для "точки")+2)+1(для "точки с запятой")) = 76
//6+20-ая кол Сч=1: 4 величины НДФЛ исчисл. по ставке 35% по периоду действия по справочникам
//9+20-ая кол Сч=2: 4 величины НДФЛ исчисл. по ставке 35% по периоду рег. по справочникам
//12+20-ая кол Сч=3: 4 величины НДФЛ уд. по ставке 35% по периоду действия по справочникам
//35-ая кол Сч=4: 4 величины НДФЛ исч. по ставке 35% для отчетности по справочникам
//18+20-ая кол Сч=5: 4 величины НДФЛ по ставке 35%, переданных на взыскание в ИМНС по справочникам
//41-ая кол Сч=6: 4 величины облагаемой базы по ставке 35% по справочникам
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Строка",76);
КонецЦикла;

// 42 (3 раздел) строка "Возвращена налоговым агентом излишне удержанная сумма налога"
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
// 43(4 раздел) строка "Возвращена налоговым агентом излишне удержанная сумма налога"
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Число",15,2);
// 44(5 раздел) строка, стрка из 4-чисел "Возвращена налоговым агентом излишне удержанная сумма налога"
ДоходыВычетыНалогиСотрудников.НоваяКолонка(,"Строка",76);
// 45, список значений с периодами регистрации НДФЛ по ставке 13%
ДоходыВычетыНалогиСотрудников.НоваяКолонка("НР","СписокЗначений");

ДоходыВычетыНалогиСотрудников.НоваяКолонка("Подразделение","Справочник.Подразделения");
СписокПодразделений = СоздатьОбъект("СписокЗначений");
ПустоеПодразделение = ПолучитьПустоеЗначение("Справочник.Подразделения");
Для Сч = 1 По 12 Цикл
СписокПодразделений.ДобавитьЗначение(ПустоеПодразделение);
КонецЦикла;

// соберем данные о вычетах сотрудников

// Для начала заполним таблицу всех вычетов
ТаблицаВычетов = СоздатьОбъект("ТаблицаЗначений");
ТаблицаВычетов.НоваяКолонка("Код","Строка",3);
ТаблицаВычетов.НоваяКолонка("Наименование","Строка",96);
ТаблицаВычетов.НоваяКолонка("Сумма","Число",15);
ТаблицаВычетов.НоваяКолонка("ПределДоходов","Число",15);

ВидыВычетов = СоздатьОбъект("Справочник.ВидыВычетов");
ВидыВычетов.ИспользоватьДату(ОкончаниеГода,1);
ВидыВычетов.ВыбратьЭлементы();
Пока ВидыВычетов.ПолучитьЭлемент() = 1 Цикл
ТаблицаВычетов.НоваяСтрока();

Если НомерРелизаИБ >= 770286 Тогда
Если Год >= 2010 Тогда
КодВычета = ВидыВычетов.КодДляОтчетности2010;
ИначеЕсли Год =2009 Тогда
КодВычета = ВидыВычетов.КодДляОтчетности2009;
ИначеЕсли Год = 2008 Тогда
КодВычета = ВидыВычетов.КодДляОтчетности2008;
Иначе
КодВычета = ВидыВычетов.КодДляОтчетности2007;
КонецЕсли;
Если КодВычета = "-" Тогда
Продолжить;
КонецЕсли;

Иначе
КодВычета = ВидыВычетов.Код;

КонецЕсли;

ТаблицаВычетов.Код = КодВычета;
ТаблицаВычетов.Наименование = ВидыВычетов.Наименование;
ТаблицаВычетов.Сумма = ВидыВычетов.Сумма;
ТаблицаВычетов.ПределДоходов= ВидыВычетов.ПределДоходов;
КонецЦикла;

ПустаяДата=' . . ';

ТекстЗапроса = "//{{ЗАПРОС(ПоВычетам)
|Объект = Справочник.ВычетыСотрудниковПоНДФЛ.Владелец;
|Элемент = Справочник.ВычетыСотрудниковПоНДФЛ.ТекущийЭлемент;
|ДатаНачала = Справочник.ВычетыСотрудниковПоНДФЛ.ДатаНачала;
|ДатаОкончания = Справочник.ВычетыСотрудниковПоНДФЛ.ДатаОкончания;";
Если НомерРелизаИБ >= 770286 Тогда
Если Год >=2010 Тогда
ТекстЗапроса = ТекстЗапроса + "ВидВычета = Справочник.ВычетыСотрудниковПоНДФЛ.ВидВычета.КодДляОтчетности2010;";
ИначеЕсли Год =2009 Тогда
ТекстЗапроса = ТекстЗапроса + "ВидВычета = Справочник.ВычетыСотрудниковПоНДФЛ.ВидВычета.КодДляОтчетности2009;";
ИначеЕсли Год =2008 Тогда
ТекстЗапроса = ТекстЗапроса + "ВидВычета = Справочник.ВычетыСотрудниковПоНДФЛ.ВидВычета.КодДляОтчетности2008;";
Иначе
ТекстЗапроса = ТекстЗапроса + "ВидВычета = Справочник.ВычетыСотрудниковПоНДФЛ.ВидВычета.КодДляОтчетности2007;";
КонецЕсли;
Иначе
ТекстЗапроса = ТекстЗапроса + "ВидВычета = Справочник.ВычетыСотрудниковПоНДФЛ.ВидВычета.Код;";
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|Размер = Справочник.ВычетыСотрудниковПоНДФЛ.Сумма;
|НомерУведомления = Справочник.ВычетыСотрудниковПоНДФЛ.НомерУведомления;
|ДатаУведомления = Справочник.ВычетыСотрудниковПоНДФЛ.ДатаУведомления;
|КодФНС = Справочник.ВычетыСотрудниковПоНДФЛ.КодФНС;
|Группировка Объект;
|Группировка Элемент;
|Условие(Объект в ФизЛица);
|Условие((ДатаНачала <= ОкончаниеГода) и ((ДатаОкончания >= НачалоГода) или (ДатаОкончания = ПустаяДата)));
|"//}}ЗАПРОС
;

ЗапросПоВычетам=СоздатьОбъект("Запрос");
Если ЗапросПоВычетам.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат 0;
КонецЕсли;

// чтобы не обращаться лишний раз в информационную базу,
// составим таблицу соответствия видов расчета из облагаемой базы НДФЛ
// и кодов дохода по НДФЛ
глСтатусСтрока(Форма,"Подготовка таблицы соответствия видов расчета и кодов дохода по НДФЛ");
СоответствиеВРкодамДоходов = СоздатьОбъект("ТаблицаЗначений");
СоответствиеВРкодамДоходов.НоваяКолонка(,"ВидРасчета");
СоответствиеВРкодамДоходов.НоваяКолонка(,"Строка",4);
СоответствиеВРкодамДоходов.НоваяКолонка(,"Строка",1);
СправочникВР = СоздатьОбъект("Справочник.ВидыРасчетов");
СправочникРасчетнойБазы = СоздатьОбъект("Справочник.ВидыРасчетовБаза");
Если СправочникВР.НайтиПоРеквизиту("Расчет",ВидРасчета.НДФЛ,1)=1 Тогда
СправочникРасчетнойБазы.ИспользоватьВладельца(СправочникВР.ТекущийЭлемент());
КонецЕсли;
Если (СправочникРасчетнойБазы.ВыбратьЭлементы(1)=1) и (СправочникВР.Выбран()=1) Тогда
Пока СправочникРасчетнойБазы.ПолучитьЭлемент()=1 Цикл
ВР=СправочникРасчетнойБазы.Расчет;
НомерСтроки="";
Если СоответствиеВРкодамДоходов.НайтиЗначение(ВР,НомерСтроки,1)=0 Тогда
СправочникВР.НайтиПоРеквизиту("Расчет",ВР,1);
СоответствиеВРкодамДоходов.НоваяСтрока();
НомерСтроки=СоответствиеВРкодамДоходов.КоличествоСтрок();
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,1,ВР);
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,2,?(СправочникВР.ВидДохода.Выбран()=1,СправочникВР.ВидДохода.Код,"2000"));
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,3,"1");
КонецЕсли;
КонецЦикла;
Иначе
ВсегоВР=ГруппаРасчетов.ОблагаетсяНДФЛ.Количество();
Для Сч = 1 По ВсегоВР Цикл
ВР=ГруппаРасчетов.ОблагаетсяНДФЛ.ПолучитьРасчет(Сч);
ВидРасчетаНастроенПользователем=0;
Если ВР.ВходитВГруппу(ГруппаРасчетов.НастраиваемыеВидыРасчета) = 1 Тогда
ВидРасчетаНастроенПользователем = СправочникВР.НайтиПоРеквизиту("Расчет",ВР,1);
КонецЕсли;
// не будем включать в налоговую базу те в.р., которые пользователь еще не описал
Если (ВР.ВходитВГруппу(ГруппаРасчетов.НастраиваемыеВидыРасчета) = 0) или (ВидРасчетаНастроенПользователем = 1) Тогда
НомерСтроки="";
Если СоответствиеВРкодамДоходов.НайтиЗначение(ВР,НомерСтроки,1)=0 Тогда
Если ВидРасчетаНастроенПользователем = 0 Тогда
СправочникВР.НайтиПоРеквизиту("Расчет",ВР,1);
КонецЕсли;
СоответствиеВРкодамДоходов.НоваяСтрока();
НомерСтроки=СоответствиеВРкодамДоходов.КоличествоСтрок();
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,1,ВР);
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,2,?(СправочникВР.ВидДохода.Выбран()=1,СправочникВР.ВидДохода.Код,"2000"));
СоответствиеВРкодамДоходов.УстановитьЗначение(НомерСтроки,3,"1");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;

СписокВРПоПериодуДействия=СоздатьОбъект("СписокЗначений");
СписокВРПоПериодуРегистрации=СоздатьОбъект("СписокЗначений");
СоответствиеВРкодамДоходов.ВыбратьСтроки();
Для НомСтроки=1 По СоответствиеВРкодамДоходов.КоличествоСтрок() Цикл
КодДохода=Сокрлп(СоответствиеВРкодамДоходов.ПолучитьЗначение(НомСтроки,2));
ВР=СоответствиеВРкодамДоходов.ПолучитьЗначение(НомСтроки,1);
Если (КодДохода="2000") ИЛИ (КодДохода="2012") Тогда
СписокВРПоПериодуДействия.ДобавитьЗначение(ВР);
Иначе
СписокВРПоПериодуРегистрации.ДобавитьЗначение(ВР);
КонецЕсли;
КонецЦикла;

глСтатусСтрока(Форма,"Подготовка данных из журнала расчетов");

ПопытокВыполненияЗапроса = 10;

Январь=Строка(Год*100+1);
Декабрь=Строка(Год*100+12);

ТекстЗапроса = "//{{ЗАПРОС(ПоСоциальнымВычетам)
|ГодоМесяц = Справочник.НКСоциальныеВычеты.ГодМесяц;
|Объект = Справочник.НКСоциальныеВычеты.Владелец;
|СтатусНеРезидента = Справочник.НКСоциальныеВычеты.Владелец.ФизЛицо.СтатусНеРезидента;
|Вычет = Справочник.НКСоциальныеВычеты.Вычет;
|ВидВычета = Справочник.НКСоциальныеВычеты.ВидВычета.Код;
|ТекущийЭлемент = Справочник.НКСоциальныеВычеты.ТекущийЭлемент;
|Группировка Объект без групп;
|Группировка ГодоМесяц;
|Группировка ТекущийЭлемент без упорядочивания;
|Условие(Объект в ФизЛица);
|Условие(Вычет <> 0);
|Условие((ГодоМесяц <= Декабрь) и (ГодоМесяц >= Январь));
|"//}}ЗАПРОС
;

ЗапросКсправочникуСоциальныеВычеты=СоздатьОбъект("Запрос");
Для Сч = 1 По ПопытокВыполненияЗапроса Цикл
Если ЗапросКсправочникуСоциальныеВычеты.Выполнить(ТекстЗапроса) = 1 Тогда
Прервать
КонецЕсли;
КонецЦикла;
Если Сч = ПопытокВыполненияЗапроса + 1 Тогда
Возврат 0;
КонецЕсли;

Справочник = СоздатьОбъект("Справочник.НКДоходы");
Если Справочник.ВыбратьЭлементы(0) = 1 Тогда
ТекстЗапроса = "//{{ЗАПРОС(КсправочникуДоходов)
|ГодоМесяц = Справочник.НКДоходы.ГодМесяц;
|Объект = Справочник.НКДоходы.Владелец;
|Код = Справочник.НКДоходы.Владелец.Код;
|СтатусНеРезидента = Справочник.НКДоходы.Владелец.ФизЛицо.СтатусНеРезидента;
|Имя = Справочник.НКДоходы.Владелец.Наименование;
|ВидДохода = Справочник.НКДоходы.ВидДохода.Код;
|НомерРазделаНК = Справочник.НКДоходы.НомерРазделаНК;
|Доход = Справочник.НКДоходы.Доход;
|ВидВычета = Справочник.НКДоходы.ВидВычета.Код;
|Вычет = Справочник.НКДоходы.Вычет;
|ТекущийЭлемент = Справочник.НКДоходы.ТекущийЭлемент;
|Группировка Объект без групп;
|Группировка ГодоМесяц;
|Группировка ТекущийЭлемент без упорядочивания;
|Условие(Объект в ФизЛица);
|Условие((Доход <> 0) или (Вычет <> 0));
|Условие((ГодоМесяц <= Декабрь) и (ГодоМесяц >= Январь));
|"//}}ЗАПРОС
;

глСтатусСтрока(Форма,"Подготовка данных из справочников");
ЗапросКсправочникуДоходов=СоздатьОбъект("Запрос");
Для Сч = 1 По ПопытокВыполненияЗапроса Цикл
Если ЗапросКсправочникуДоходов.Выполнить(ТекстЗапроса) = 1 Тогда
Прервать
КонецЕсли;
КонецЦикла;
Если Сч = ПопытокВыполненияЗапроса + 1 Тогда
Сообщить("Не удалось обработать данные о доходах из справочников!", "!!!");
Возврат 0;
КонецЕсли;
КонецЕсли;

Справочник = СоздатьОбъект("Справочник.НКИтоги");
Если Справочник.ВыбратьЭлементы(0) = 1 Тогда

ТекстЗапроса = "//{{ЗАПРОС(КсправочникуИтогов)
|ГодоМесяц = Справочник.НКИтоги.Код;
|Объект = Справочник.НКИтоги.Владелец;
|Код = Справочник.НКИтоги.Владелец.Код;
|СтатусНеРезидента = Справочник.НКИтоги.Владелец.ФизЛицо.СтатусНеРезидента;
|Имя = Справочник.НКИтоги.Владелец.Наименование;
|НДФЛ13исчисленный = Справочник.НКИтоги.Р3Исчислено;
|НДФЛ13удержанный = Справочник.НКИтоги.Р3Удержано;
|НДФЛ13КВзысканию = Справочник.НКИтоги.Р3КВзысканию;
|НДФЛ13Возвращено = Справочник.НКИтоги.Р3Возвращено;
|НДФЛ35исчисленный_1 = Справочник.НКИтоги.Р5Исчислено;
|НДФЛ35исчисленный_2 = Справочник.НКИтоги.Р5Исчислено2;
|НДФЛ35исчисленный_3 = Справочник.НКИтоги.Р5Исчислено3;
|НДФЛ35исчисленный_4 = Справочник.НКИтоги.Р5Исчислено4;
|НДФЛ35удержанный_1 = Справочник.НКИтоги.Р5Удержано;
|НДФЛ35удержанный_2 = Справочник.НКИтоги.Р5Удержано2;
|НДФЛ35удержанный_3 = Справочник.НКИтоги.Р5Удержано3;
|НДФЛ35удержанный_4 = Справочник.НКИтоги.Р5Удержано4;
|НДФЛ35КВзысканию_1 = Справочник.НКИтоги.Р5КВзысканию;
|НДФЛ35КВзысканию_2 = Справочник.НКИтоги.Р5КВзысканию2;
|НДФЛ35КВзысканию_3 = Справочник.НКИтоги.Р5КВзысканию3;
|НДФЛ35КВзысканию_4 = Справочник.НКИтоги.Р5КВзысканию4;
|НДФЛ35Возвращено_1 = Справочник.НКИтоги.Р5Возвращено;
|НДФЛ35Возвращено_2 = Справочник.НКИтоги.Р5Возвращено2;
|НДФЛ35Возвращено_3 = Справочник.НКИтоги.Р5Возвращено3;
|НДФЛ35Возвращено_4 = Справочник.НКИтоги.Р5Возвращено4;
|НДФЛдивидендыИсчисленный = Справочник.НКИтоги.Р4Исчислено;
|НДФЛдивидендыУдержанный = Справочник.НКИтоги.Р4Удержано;
|НДФЛдивидендыКВзысканию = Справочник.НКИтоги.Р4КВзысканию;
|НДФЛдивидендыВозвращено = Справочник.НКИтоги.Р4Возвращено;
|Группировка Объект;
|Группировка ГодоМесяц;
|Условие(Объект в ФизЛица);
|Условие((ГодоМесяц <= Декабрь) и (ГодоМесяц >= Январь));
|"//}}ЗАПРОС
;

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

Справочник = СоздатьОбъект("Справочник.НКИтогиПоГоду");
Если Справочник.НайтиПоКоду(Строка(Год),0) = 1 Тогда

ТекущийГод=Строка(Год);

ТекстЗапроса = "//{{ЗАПРОС(СправкиСПредыдМР)
|Объект = Справочник.НКИтогиПоГоду.Владелец;
|ГодИзСпр = Справочник.НКИтогиПоГоду.Код;
|СД1 = Справочник.НКИтогиПоГоду.СД1;
|СД10 = Справочник.НКИтогиПоГоду.СД10;
|СД11 = Справочник.НКИтогиПоГоду.СД11;
|СД12 = Справочник.НКИтогиПоГоду.СД12;
|СД2 = Справочник.НКИтогиПоГоду.СД2;
|СД3 = Справочник.НКИтогиПоГоду.СД3;
|СД4 = Справочник.НКИтогиПоГоду.СД4;
|СД5 = Справочник.НКИтогиПоГоду.СД5;
|СД6 = Справочник.НКИтогиПоГоду.СД6;
|СД7 = Справочник.НКИтогиПоГоду.СД7;
|СД8 = Справочник.НКИтогиПоГоду.СД8;
|СД9 = Справочник.НКИтогиПоГоду.СД9;
|Группировка Объект;
|Условие(Объект в ФизЛица);
|Условие(ГодИзСпр = ТекущийГод);
|"//}}ЗАПРОС
;

ЗапросПоСправкамСПредМР=СоздатьОбъект("Запрос");
Для Сч = 1 По ПопытокВыполненияЗапроса Цикл
Если ЗапросПоСправкамСПредМР.Выполнить(ТекстЗапроса)=1 Тогда
Прервать
КонецЕсли;
КонецЦикла;
Если Сч = ПопытокВыполненияЗапроса + 1 Тогда
Возврат 0;
КонецЕсли;
КонецЕсли;

// вспомогательная таблица доходов
Доходы = СоздатьОбъект("ТаблицаЗначений");
// 1-ая колонка - код дохода (пятый символ для матвыгоды по заемным средствам, которая может облагаться по разным ставкам)
Доходы.НоваяКолонка(,"Строка",5);
// со 2-ой по 13-ую колонки - размер дохода по месяцам нарастающим итогом с начала года
Для Сч = 1 По 12 Цикл
Доходы.НоваяКолонка(,"Число",18,5);
КонецЦикла;
// 14-ая колонка - код вычета
Доходы.НоваяКолонка(,"Строка",3);
// с 15-ой по 26-ую колонки - размер вычета по месяцам нарастающим итогом с начала года
Для Сч = 1 По 12 Цикл
Доходы.НоваяКолонка(,"Число",18,5);
КонецЦикла;
// с 27-ой по 38-ую колонки - размер дохода по месяцам нарастающим итогом с начала года введенный в карточку вручную (сумма корректировки)
// с 39-ой по 50-ую колонки - размер вычета по месяцам нарастающим итогом с начала года введенный в карточку вручную (сумма корректировки)
Для Сч = 1 По 24 Цикл
Доходы.НоваяКолонка(,"Число",18,5);
КонецЦикла;

// ТаблицаСписковВР - вспомогательная таблица для получения списка ВР по каждому коду дохода в каждом месяце
// 1-ая колонка - код дохода (пятый символ для матвыгоды по заемным средствам, которая может облагаться по разным ставкам)
ТаблицаСписковВР = СоздатьОбъект("ТаблицаЗначений");

ТекущиеДоходыПо35 = СоздатьОбъект("СписокЗначений");
ДоходыПо35ЗаГод = СоздатьОбъект("СписокЗначений");
ТекущиеДоходыПо35Спр = СоздатьОбъект("СписокЗначений");
ДоходыПо35ЗаГодСпр = СоздатьОбъект("СписокЗначений");

ВсегоСотров = ФизЛица.РазмерСписка();
ДоходыВычетыНалогиСотрудников.КоличествоСтрок(ВсегоСотров*12);

ЖрнЗарплатаДляСторно = СоздатьОбъект("ЖурналРасчетов.Зарплата");
НачалоПериодаОсмотра = ЖрнЗарплата.НачалоПериодаПоДате(НачГода(НачГода(ДатаАктуальности)-15));
ОкончаниеПериодаОсмотра = ЖрнЗарплата.КонецПериодаПоДате(КонГода(КонГода(ДатаАктуальности)+15));

// определим месяц по который заполняем стандартные вычеты
ГодТекущегоПериода = ДатаГод(ЖрнЗарплата.КонецТекущегоПериода());
Если ГодТекущегоПериода > Год Тогда
ПоследнийМесяцДляВычетов = 12;
Иначе
ПоследнийМесяцДляВычетов = ДатаМесяц(ЖрнЗарплата.КонецТекущегоПериода()) - 1;
КонецЕсли;

СтрокаКолонок = " 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13";
СтрокаКолонокДоходов = " 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13";
СтрокаКолонокВычетов = " 1,15,16,17,18,19,20,21,22,23,24,25,26";

ТабВычетовСотрудника=СоздатьОбъект("ТаблицаЗначений");
ТабВычетовСотрудника.НоваяКолонка("Порядок");
ТабВычетовСотрудника.НоваяКолонка("ВидВычета");
ТабВычетовСотрудника.НоваяКолонка("ОписаниеВычета");

ТабСоциальныхВычетовСотрудника=СоздатьОбъект("ТаблицаЗначений");
ТабСоциальныхВычетовСотрудника.НоваяКолонка("Месяц");
ТабСоциальныхВычетовСотрудника.НоваяКолонка("КодВычета");
ТабСоциальныхВычетовСотрудника.НоваяКолонка("Размер");

// обход списка сотрудников
Для СчСотров = 1 По ВсегоСотров Цикл

ВремТаблицаНДФЛСведенияОДоходах.УдалитьСтроки();
ВремТаблицаНДФЛИмущественныеВычетыФизлиц.УдалитьСтроки();

Сотрудник = ФизЛица.ПолучитьЗначение(СчСотров);

КодСотра="";
ИмяСотра="";
СтатусНеРезидента="";
ПростоДоходы=0;
ОсобыеДоходы=0;
ДоходыПоРегистрации=0;
НалогиПоРегистрации=0;
ДанныеИзСправочникаДоходов=0;
ДанныеИзСправочникаИтогов=0;
ВычетыИзСправочников=0;
СоциальныеВычетыИзСправочников = 0;

Если ТипЗначения(ЗапросКсправочникуДоходов) <> 0 Тогда
ЗапросКсправочникуДоходов.вНачалоВыборки();
Если ЗапросКсправочникуДоходов.Получить(Сотрудник,,)=1 Тогда
ДанныеИзСправочникаДоходов=1;
КонецЕсли;
КонецЕсли;

Если ТипЗначения(ЗапросКсправочникуИтогов) <> 0 Тогда
ЗапросКсправочникуИтогов.вНачалоВыборки();
Если ЗапросКсправочникуИтогов.Получить(Сотрудник,)=1 Тогда
ДанныеИзСправочникаИтогов = 1;
КонецЕсли;
КонецЕсли;

ЗапросПоВычетам.вНачалоВыборки();
Если ЗапросПоВычетам.Получить(Сотрудник,) = 1 Тогда
ВычетыИзСправочников = 1; // именно у этого сотрудника есть что-то в справочнике вычетов
КонецЕсли;

Если ТипЗначения(ЗапросКсправочникуСоциальныеВычеты) <> 0 Тогда
ЗапросКсправочникуСоциальныеВычеты.вНачалоВыборки();
Если ЗапросКсправочникуСоциальныеВычеты.Получить(Сотрудник,,) = 1 Тогда
СоциальныеВычетыИзСправочников = 1; // именно у этого сотрудника есть что-то в справ