Расчет от обратного
|
AndrDom
12.02.2009 - 13:39
|
Попросили сделать дополнительное начисление фиксированной суммой от обратного. В ЗИК ввел Дополнителное начисление 05. Указал фиксированной суммой. В процедуре Процедура глВыполнитьПроизвольныйРасчет(ЖурналРасчетов) Экспорт ..... ИначеЕсли (Порядок = Перечисление.ХарактерНачисления.ФиксСумма) или (Порядок = Перечисление.ХарактерУдержания.ФиксСумма) Тогда Результат = Величина; // Добавил Начало Если ДокументИзЖурнала.Расчет = ВидРасчета.ПроизвольнаяДоплата05 Тогда Результат = глОтОбратного(ЖурналРасчетов.Объект,Результат,ДатаНачалаДоплаты,ДатаОкончанияДоплаты,1,1,1,1,1,ЖурналРасчетов.ТекущаяЗапись()); КонецЕсли; // Добавил Конец Если ДокументИзЖурнала.Вид()="НачислениеЗаработнойПлаты" Тогда Ставка = ЖурналРасчетов.Объект.Ставка.Получить(ДатаОкончанияДоплаты); Если Ставка <> 1 Тогда глСообщениеТрассировки(глСообщенияТрассировки, "По состоянию на _П01 работник занимал: "+ Ставка + " "+ Нрег(глФормаМножественногоЧисла("ставку","ставки","ставок", Ставка)), 0, 1, ДатаОкончанияДоплаты, "ДДДММММГГГГ"); КонецЕсли; Результат = Результат * Ставка; КонецЕсли; ИначеЕсли (Порядок = Перечисление.ХарактерНачисления.ММОТ) или (Порядок = Перечисление.ХарактерУдержания.ММОТ) Тогда ... Считать все считает вроде правильно, вопрос где то в дальнейшем грабли не вылезут? Я в зик плохо ориентируюсь. |