В примере обнуляется флаг ручной правки расчетов выбранного сотрудника, кроме
расчетов с ВР ПремияСум, для которых, наоборот, вносится ручная правка результата.
Новая величина премии равна 1250 руб. Попутно выполняется расчет записей,
с которых снимется флаг ручной правки.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
сСотр_2 = СоздатьОбъект("Справочник.Сотрудники"); // Метод Выбрать вызывает диалог для выбора элемента справочника // Если сотрудник не выбран если сСотр_2.Выбрать("Выберите сотрудника", "ФормаДляВыбора") = 0 тогда Предупреждение("Сотрудник не выбран."); возврат; конецЕсли; // Выбран Агальцов Ю. А. жз = СоздатьОбъект("ЖурналРасчетов.Зарплата"); жз.ВыбратьПериодПоОбъекту(сСотр_2.ТекущийЭлемент()); ВР = ВидРасчета.ПремияСум; пока жз.ПолучитьЗапись() = 1 цикл если (жз.Исправлена = 1) и (жз.ВидРасч = ВР) тогда жз.ОтменитьИсправление(); // Снимаем флаг ручной правки результата жз.Рассчитать(); // Рассчитываем запись конецЕсли; если жз.ВидРасч = ВР тогда жз.Исправить( 1250.0); конецЕсли; конецЦикла; // пока Предупреждение("Готово."); конецПроцедуры |
About the Author
