1С (1C): Казахстан - [1] :: Программы :: Компьютерный форум Ru.Board

Vunicode

Самый простой способ:

Сделать новый док (таблич.часть:Сотрудник, СуммаКВыдаче
Потом Код (примерно):

Процедура ОбработкаПроведения()

    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл

        //Расчет ОПВ 10%
        Операция.НоваяПроводка();
        Операция.Дебет.Счет = СчетПоКоду("335",ПланыСчетов.Основной);
        Операция.Дебет.Сотрудники = Сотрудники;
        Операция.Кредит.Счет = СчетПоКоду("3220",ПланыСчетов.Основной);
        Операция.Кредит.Сотрудники = Сотрудники;
        Операция.СуммаОПВ = СуммаКПолучению / 90 / 100 ;

        //Расчет Начислений
        Операция.НоваяПроводка();
        ...
        Операция.СуммаНачислено = СуммаОПВ / 90 / 100 ;

//Расчет ИПНуВ 10%
        Операция.НоваяПроводка();
        Операция.Дебет.Счет = СчетПоКоду("335",ПланыСчетов.Основной);
        Операция.Дебет.Сотрудники = Сотрудники;
        ...
        Операция.СуммаИПН = СуммаНачислено / 10 ;

//Расчет Социального налога
        Операция.НоваяПроводка();
        ...
        Операция.СуммаСоцНалога = (СуммаНачислено - СуммаОПВ) * 7 / 100 ; ЗДЕСЬ надо написать код ветвления
ЕСЛИ... до такого предела,
Если... и т.д

        //Расчет Социальных отчислений
        Операция.НоваяПроводка();
        ...
        Операция.СуммаСоцОтчислений = (СуммаНачислено - СуммаОПВ) * 4 / 100 ;

    КонецЦикла;

    Операция.СуммаОперации = Итог("Сумма");
    Операция.Записать();

КонецПроцедуры

Из минусов: изменение законодательства.

Данный док при наличии прямых рук можно доработать.
Почему делать отдельным доком, потому что я в своей практике не встречал, чтобы бухи просили чтоб в одной ведомости считали двумя методами, да и запарится бух может.
Метода писалась в попыхах, на ошибки синтаксиса прошу не ругать, будут вопросы пишите.
Кто-то скажет, что проводки можно ставить через глПроводка, но мне кажется что данная метода в синтаксисе проше и быстрее в написании.

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 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