1C Программирование и поддержка - [41] :: Прикладное программирование

Помогите перенастроить конфигурации 1С 7.7.
В карточке сотрудника есть галка "Основной" . В коде формы помечен как ФлагОсновной.

Есть такой код:

Код:

// ПодоходныйНалог ПО НОВОМУ
        Если ДатаДок > Дата('01.01.2004') Тогда
            Доход = (Начислено+ОтпТек+ОтпСл+ОтпПер+ПерерасчетНачислений+Больничные+БольничныеЗаСчетПредприятия);
            //Доход = Цел(Начислено+ОтпТек+ОтпСл+ОтпПер+ПерерасчетНачислений+Больничные+БольничныеЗаСчетПредприятия);
            Доход = Доход - Пенс - СтрБез - СтрНетрсп; //??????ПрУдерж
                                //740
            СумНаСоцЛьготу = Окр(Константа.ПрожиточныйМин.Получить(ДатаДок) * 1.4, -1, 1);

            ФлРасчПодоходного = 0;
    //ФлРасчПодоходного = 1; - 13% от дохода
            //ФлРасчПодоходного = 9; - 0% от дохода

            //сотрудник уволен в текущем месяце
            Если (Сотрудник.ДатаУвольнения<=(КонМесяца(ДатаДок))) и (ПустоеЗначение(Сотрудник.ДатаУвольнения)=0) Тогда
                ФлРасчПодоходного = 1;
            КонецЕсли;

            //льготу считать не будем если доход > 740
            Если ((Доход + Пенс + СтрБез + СтрНетрсп) > СумНаСоцЛьготу) Тогда
                ФлРасчПодоходного = 1;
            КонецЕсли;
//доход меньше 200
            Если (Доход <= Константа.ПроцМинЗП.Получить(ДатаДок)*Константа.МинЗП.Получить(ДатаДок)) и (ФлРасчПодоходного = 0)Тогда
                ФлРасчПодоходного = 9;
            КонецЕсли;

            Если ФлРасчПодоходного = 0 Тогда
                //найдем максимальную льготу
                МаксЛьгота = Константа.ПроцМинЗП.Получить(ДатаДок)*100; //льгота для всех 30%
                СотрЛьгота = СоздатьОбъект("Справочник.ЛьготыПодоходного");
                СотрЛьгота.ИспользоватьВладельца(Сотрудник);
                СотрЛьгота.ВыбратьЭлементы();
                Пока СотрЛьгота.ПолучитьЭлемент() = 1 Цикл
                    Если СотрЛьгота.ПометкаУдаления() = 0 Тогда
                     МаксЛьгота = Макс(МаксЛьгота, СотрЛьгота.Проц.Получить(ДатаДок));
                    КонецЕсли;
                КонецЦикла;
                МаксЛьгота = МаксЛьгота/100;
                Доход = Доход - Константа.МинЗП.Получить(ДатаДок)*МаксЛьгота;
            КонецЕсли;

            Если ФлРасчПодоходного <> 9 Тогда
                Подоходный = Доход * 0.15;//было до 2007_01_01 0.13
            ИначеЕсли ФлРасчПодоходного = 9 Тогда
                Подоходный = 0;
            КонецЕсли;
КонецЕсли;

Это код по начислению налоговой социальной льготе. Задача следующая - нужно чтобы при включенном флажке "Основной" льгота начислялась, а при выключеной не начислялась. И если "Основной" сотрудник, который по критериям попадает под льготу, не отработал полный рабочий месяц - льгота также не начисляеться.

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101