()Похоже, вы даже не смотрели программный код...
Перем СпрНиО;
Процедура изменить(ЧтоНалог)
Если СпрНиО.НайтиПоКоду(ЧтоНалог) = 1 Тогда
СпрНиО.Дополнительно.Установить('01.01.12', "Макс. база=18241;");
СпрНиО.Дополнительно.Установить('01.04.12', "Макс. база=18598;");
СпрНиО.Дополнительно.Установить('01.07.12', "Макс. база=18734;");
СпрНиО.Дополнительно.Установить('01.10.12', "Макс. база=19006;");
СпрНиО.Дополнительно.Установить('01.12.12', "Макс. база=19278;");
сообщить("Изменен "+ЧтоНалог+" Дополнительно");
КонецЕсли;
конецпроцедуры
Процедура изменить_предел(ЧтоНалог)
Если СпрНиО.НайтиПоКоду(ЧтоНалог) = 1 Тогда
СпрНиО.Предел.Установить('01.01.12', 1073);
СпрНиО.Предел.Установить('01.04.12', 1094);
СпрНиО.Предел.Установить('01.07.12', 1102);
СпрНиО.Предел.Установить('01.10.12', 1118);
СпрНиО.Предел.Установить('01.12.12', 1134);
сообщить("Изменен "+ЧтоНалог+" Предел");
КонецЕсли;
конецпроцедуры
Процедура Сформировать()
СпрНиО = СоздатьОбъект("Справочник.НалогиОтчисления");
Если СпрНиО.НайтиПоКоду("НДФЛОсн") = 1 Тогда
СпрНиО.Предел.Установить('01.01.12', 10730);
сообщить("Изменен Предел НДФЛОсн");
КонецЕсли;
Если СпрНиО.НайтиПоКоду("ЛьготыНДФЛ") = 1 Тогда
//Порог льготы НДФЛ равен ПрожМинТруд*1,4 округлено до 10 грн,
СпрНиО.Дополнительно.Установить('01.01.12', "Порог=1500;Коэф.уменьшения=0.5;");
сообщить("Изменен Дополнительно ЛьготыНДФЛ");
КонецЕсли;
изменить_предел("ПрожМинТруд") ;
изменить_предел("МинЗарплата") ;
изменить("ЕдиныйВзнос") ;
изменить("ФЗПЕСВ") ;
изменить("ФЗПЕСВЛет") ;
изменить("ФЗПЕСВБюдж") ;
изменить("ФЗПЕСВИнв") ;
изменить("ФЗПЕСВгпх") ;
изменить("ФЗПЕСВБольн") ;
предупреждение("Выполнено");
конецпроцедуры
Показать