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

[yullevick]

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

 

[gorlanovmax]

Открываем конфигуратор
Документ.НачислениеЗП
Открываем Модуль документа
Ищем следующий код:

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

Меняем его на такой код:

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

 

[kaa]

обновить релиз

 

[yullevick]

Открываем конфигуратор
Документ.НачислениеЗП
Открываем Модуль документа
Ищем следующий код:

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

Меняем его на такой код:

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

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

 

[vbs]

Если ДатаГод(ДатаДок) < 2005 Тогда
ПределВычетов1 = Константа.ПределВычетов.Получить(БухИт.КонДата);
ПределВычетов2 = Константа.ПределВычетов.Получить(БухИт.КонДата);
ИначеЕсли (ДатаГод(ДатаДок) > 2005) И (ДатаГод(ДатаДок) < 2009) Тогда
ПределВычетов1 = 20000;
ПределВычетов2 = 40000;

А в самОм 2005 году в таком варианте какие пределы вычетов будут ?