Предел вычетов

Тема в разделе "1C и всё что с ней связано", создана пользователем yullevick, 19 июн 2009.

  1. yullevick

    yullevick Гость

    Хочу продолжить однажды поднятый вопрос!
    Программа 1С:Бухгалтерия (не кадры)общая.
    Как изменить предел вычета по детским с 40000 до 280000 рублей?
    За ранее благодарна.
     
  2. gorlanovmax

    gorlanovmax Well-Known Member
    1C Team

    Регистрация:
    19 июн 2008
    Сообщения:
    286
    Симпатии:
    0
    Открываем конфигуратор
    Документ.НачислениеЗП
    Открываем Модуль документа
    Ищем следующий код:

    Код (Text):
    Если глСотрудникЧислитсяРаботающим(Сотрудник, БухИт.НачДата) = 1 Тогда
    Вычеты = 0;
    ТипВычета = Сотрудник.ТипВычета.Получить(БухИт.КонДата);
    Если ДатаГод(ДатаДок) < 2005 Тогда
    ПределВычетов1 = Константа.ПределВычетов.Получить(БухИт.КонДата);
    ПределВычетов2 = Константа.ПределВычетов.Получить(БухИт.КонДата);
    ИначеЕсли ДатаГод(ДатаДок) > 2005 Тогда
    ПределВычетов1 = 20000;
    ПределВычетов2 = 40000;
    КонецЕсли;
    Меняем его на такой код:
    Код (Text):
    Если глСотрудникЧислитсяРаботающим(Сотрудник, БухИт.НачДата) = 1 Тогда
    Вычеты = 0;
    ТипВычета = Сотрудник.ТипВычета.Получить(БухИт.КонДата);
    Если ДатаГод(ДатаДок) < 2005 Тогда
    ПределВычетов1 = Константа.ПределВычетов.Получить(БухИт.КонДата);
    ПределВычетов2 = Константа.ПределВычетов.Получить(БухИт.КонДата);
    ИначеЕсли (ДатаГод(ДатаДок) > 2005) И (ДатаГод(ДатаДок) < 2009) Тогда
    ПределВычетов1 = 20000;
    ПределВычетов2 = 40000;
    Иначе
    ПределВычетов1 = 40000;
    ПределВычетов2 = 280000;    
    КонецЕсли;
     
  3. kaa

    kaa Гость

    обновить релиз
     
  4. yullevick

    yullevick Гость





    ОГРОМНОЕ СПАСИБО!!!! ЦЕЛУЮ!!!
     
  5. vbs

    vbs Well-Known Member

    Регистрация:
    18 фев 2007
    Сообщения:
    1.708
    Симпатии:
    3
    А в самОм 2005 году в таком варианте какие пределы вычетов будут ?
     
Загрузка...

Поделиться этой страницей