1С 7.x : Как сбросить флаг ручной правки расчетов выбранного сотрудника, кроме указанных расчетов

В примере обнуляется флаг ручной правки расчетов выбранного сотрудника, кроме
расчетов с ВР ПремияСум, для которых, наоборот, вносится ручная правка результата.
Новая величина премии равна 1250 руб. Попутно выполняется расчет записей,
с которых снимется флаг ручной правки.

Код 1C v 7.x

 сСотр_2 = СоздатьОбъект("Справочник.Сотрудники");

// Метод Выбрать вызывает диалог для выбора элемента справочника

// Если сотрудник не выбран

если сСотр_2.Выбрать("Выберите сотрудника", "ФормаДляВыбора") = 0 тогда

Предупреждение("Сотрудник не выбран.");

возврат;

конецЕсли;

// Выбран Агальцов Ю. А.

жз = СоздатьОбъект("ЖурналРасчетов.Зарплата");

жз.ВыбратьПериодПоОбъекту(сСотр_2.ТекущийЭлемент());

ВР = ВидРасчета.ПремияСум;

пока жз.ПолучитьЗапись() = 1 цикл

если (жз.Исправлена = 1) и (жз.ВидРасч = ВР) тогда

жз.ОтменитьИсправление(); // Снимаем флаг ручной правки результата

жз.Рассчитать(); // Рассчитываем запись

конецЕсли;

если жз.ВидРасч = ВР тогда

жз.Исправить( 1250.0);

конецЕсли;

конецЦикла; // пока

Предупреждение("Готово.");

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

Разместил: E_Migachev Версии: | 7.x | Дата: 20.05.2010 Прочитано: 8545

Возможно, вас также заинтересует

Похожие FAQ

1С Предприятие что это? 12
Что такое 1С? 1С — это фирма , у которой одно из направлений деятельности — разработка программного обеспечения для автоматизации бизнес-процессов предприятий. « 1С:Предприятие » - конкретный продукт, который выпускает компания 1С . Что такое

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

Вхождение вида расчета в группу 0
Посчитаем все начисления текущего сотрудника за январь: // 1-й вариант: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон); Пока ЖЗ.ПолучитьЗапись()=1 Цикл Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 То

Вывести вид и представление вида Журнала Расчетов Зарплата 0
жз = СоздатьОбъект(" ЖурналРасчетов.Зарплата" ); // Идентификатор ЖЗ Сообщить(жз.Вид()); // Зарплата_2 // Синоним ЖЗ Сообщить(жз.ПредставлениеВида()); // Журнал заработной платы

Выгрузка используемых видов расчетов в таблицу значений 0
ТЗВидыРасчетов = Новый ТаблицаЗначений; ТЗВидыРасчетов.Колонки.Добавить(" ВидРасчета" ); ЖРЗарплата = v7.CreateObject(" ЖурналРасчетов.Зарплата" ); ЖРЗарплата.ВыбратьЗаписи(НачДата,КонДата); Пока ЖРЗарплата.ПолучитьЗапись() = 1 Цикл СтрВидыРасч

Посмотреть все результаты поиска похожих

Еще в этой же категории

Ключевые слова и Изображения

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.