Каталог решений - Форма 1-НДФЛ для 2011 года (Зарплата и Кадры 7.7, релиз 310)

Форма 1-НДФЛ для 2011 года (Зарплата и Кадры 7.7, релиз 310)

Форма 1-НДФЛ для 2011 года (Зарплата и Кадры 7.7, релиз 310)

В наличии

В прежних релизах была возможность из справочника "Сотрудники" сформировать форму 1-НДФЛ по кнопке "Ввод данных" (там была возможность расшифровки сумм).  Вернём полезную функцию!

Категория:

Описание

В модуле формы справочника сотрудники, в процедуру ПриНажатииКнопки() добавляем в указанном месте:

Процедура ПриНажатииКнопки()
    
    Кнопка = Форма.АктивныйЭлемент();
    
    ЕстьСтраховыеВзносы = глЕстьСтраховыеВзносы(); 
    
    // Если нажали кнопку <Ввод данных>, то
    // формируется список форм для редактирования данных сотрудника (Т-2, Т-4,
    // Справка, Налоговая карточка, ...) и открывается выбранная пользователем форма.
    Если Кнопка="кнВводДанных" Тогда
        Если Выбран()=0 Тогда
            Предупреждение("Перед вводом данных необходимо записать этот элемент справочника (кнопка ""Записать"")");
            Возврат;
        КонецЕсли;
        СписокВыбора = СоздатьОбъект("СписокЗначений");
        Периодический = СоздатьОбъект("Периодический");
        Периодический.ИспользоватьОбъект("СостояниеФизлица",ТекущийЭлемент());
        СостояниеСотрудника = Периодический.ЗначениеНаДату(ИспользоватьДату());
        ДатаЗнач = ИспользоватьДату();
        Пока ПустоеЗначение(СостояниеСотрудника)=1 Цикл
            Если Периодический.НайтиЗначение(ДатаЗнач,-1)=0 Тогда
                Прервать
            КонецЕсли;
            СостояниеСотрудника = Периодический.Значение;
            ДатаЗнач = Периодический.ДатаЗнач-1;
        КонецЦикла;
        Если (ПустоеЗначение(СостояниеСотрудника)=0) и (глВоеннослужащий(ТекущийЭлемент(), ИспользоватьДату()) = 0) Тогда
            Если (СостояниеСотрудника=Перечисление.СостояниеФизлица.Госслужащий) Тогда
                СписокВыбора.ДобавитьЗначение("ФормаТ2ГС","Форма Т-2ГС");
            Иначе
                СписокВыбора.ДобавитьЗначение("ФормаТ2","Форма Т-2");
                Если Должность.Категория=Перечисление.КатегорииСотрудников.НаучныеИПедагогическиеРаботники Тогда
                    СписокВыбора.ДобавитьЗначение("ФормаТ4","Форма Т-4");
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
        
        ДатаОтчета = ИспользоватьДату();
        
        СписокВыбора.ДобавитьЗначение("ВычетыСотрудниковПоНДФЛ","Вычеты по НДФЛ");        
        ГодОтчета = ДатаГод(ДатаОтчета); 
        Если ГодОтчета >= 2011 Тогда
            СписокВыбора.ДобавитьЗначение("КорректировкаДанныхПоНДФЛ","Корректировка данных по НДФЛ");  
            //Вставка
            СписокВыбора.ДобавитьЗначение("Форма1НДФЛ2009","Налоговая карточка 1-НДФЛ (форма с 2009 года)");
            //Конец вставки
        Иначе
            СписокВыбора.ДобавитьЗначение("Форма1НДФЛ2009","Налоговая карточка 1-НДФЛ (форма с 2009 года)");    
        КонецЕсли;

 


В форму обработки Форма1НДФЛ2009, в процедуру ПриОткрытии() добавляем в указанном месте:

 

Процедура ПриОткрытии()
    Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" Тогда
        
        Параметры = Форма.Параметр;
        
        // основные параметры
        ДатаГода = Параметры.Получить("ДатаАктуальности");
        ФизЛицо = Параметры.Получить("Сотрудник");
        
        СпЛет.ДобавитьЗначение(2009, "2009 г.");
        СпЛет.ДобавитьЗначение(2010, "2010 г.");
        СтрокаТекущегоГода = СпЛет.НайтиЗначение(2010);
        Год = 2010;      
        
        //Вставка         
        СпЛет.ДобавитьЗначение(2011, "2011 г.");
        СтрокаТекущегоГода = СпЛет.НайтиЗначение(2011);
        Год = 2011; 
        //Конец вставки
        
        Если СтрокаТекущегоГода <> 0 Тогда

Готово! Можно пользоваться!

 

has been added to your cart:
Оформление заказа