Как в 1с7 ЗиК сделать надбавку к з/п в размере не превышающем установленного

[pashinskaya]

Как в 1с7 ЗиК сделать надбавку к з/п в размере не превышающем установленного

З/п начисляется разными способами.
Существует надбавка в сумме 6 тыс., которая начисляется пропорционально отработанному времени. Но она не может быть больше 6 тыс., даже если сотрудник отработал к примеру больше смен, чем ему положено.
Как это сделать в "расчет зарплаты" "виды расчетов", закладка "дополнительно".

Когда ввела этот новый вид расчетов, то сотруднику отработавшему больше смен, чем установлено, программа посчитала надбавку в сумме 7500, а надо не более 6 тыс.(((

[Генук]

в ГМ в глВыполнитьПроизвольныйРасчет в куске условия:
Если Порядок = Перечисление.ХарактерНачисления.Суммой Тогда
// суммой, пропорционально отработанному времени... - с учетом дней

вместо ДнейПоДоплате/НормаДней в строке:
Результат = Результат + глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты)*Ставка*ДнейПоДоплате/НормаДней;

в конце пробить:
Мин(ДнейПоДоплате/НормаДней,1)

[pashinskaya]

в ГМ в глВыполнитьПроизвольныйРасчет в куске условия:
Если Порядок = Перечисление.ХарактерНачисления.Суммой Тогда
// суммой, пропорционально отработанному времени... - с учетом дней

вместо ДнейПоДоплате/НормаДней в строке:
Результат = Результат + глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты)*Ставка*ДнейПоДоплате/НормаДней;

в конце пробить:
Мин(ДнейПоДоплате/НормаДней,1)

Не поняла где такое ГМ в глВыпонить?

[Генук]

ГМ - глобальный модуль
глВыполнитьПроизвольныйРасчет - процедура

[pashinskaya]

Просто в 1с7 второй раз всего, а ГМ в упор не нахожу(((

[Генук]

прог у хате е?

[pashinskaya]

?

[pashinskaya]

Очень прошу помогите)
1с 7 ЗиК ред. 2.3

[Генук]

откройте программу в режиме конфигуратора и сделайте резервную копию:
Администрирование - Выгрузить данные (не загрузить! а строго выгрузить)

[pashinskaya]

поняла, а потом

[Генук]

скажете, когда сделаете

[pashinskaya]

сделала

[Генук]

там же в конфигураторе:
1. Конфигурация - Открыть конфигурацию
2. Действия - Глобальный модуль
3. вверху биноклик поиска... набейте в строке ДнейПоДоплате/НормаДней
сразу попадёте куда надо
4. сделайте #2
5. сохраняйте... открывайте обычный рабочий режим... проверяйте расчёт

[pashinskaya]

НАШЕЛ ВОТ ЭТО


Иначе
ДатаОкончанияИнтервала = ДатаОкончанияДоплаты;
КонецЕсли;

ДнейПоДоплате = глПолучитьКоличествоФактическиОтработанныхДнейЧасов(МассивДней, ДатаНачалаИнтервала, ДатаОкончанияИнтервала,,ДатаНачалаДоплаты);
Ставка = ЖурналРасчетов.Объект.Ставка.Получить(ДатаОкончанияИнтервала);
Если Ставка <> 1 Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "По состоянию на _П01 работник занимал: "+ Ставка + " "+ Нрег(глФормаМножественногоЧисла("ставку","ставки","ставок", Ставка)), 0, 1, ДатаОкончанияИнтервала, "ДДДММММГГГГ");
КонецЕсли;
Результат = Результат + глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты)*Ставка*ДнейПоДоплате/НормаДней;
КонецЦикла;

Иначе

ДнейПоДоплате = глПолучитьКоличествоФактическиОтработанныхДнейЧасов(МассивДней, ДатаНачалаДоплаты, ДатаОкончанияДоплаты,,ДатаНачалаДоплаты);
глСообщениеТрассировки(глСообщенияТрассировки, "Отработано дней: " + ДнейПоДоплате , 0, 0);
Результат = глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты);
Результат = Результат / НормаДней * ДнейПоДоплате;
КонецЕсли;

ИначеЕсли (ДатаНачалаДоплаты = ЖрнЗарплата.НачалоПериодаПоДате(ДатаНачалаДоплаты)) и (ДатаОкончанияДоплаты = ЖрнЗарплата.КонецПериодаПоДате(ДатаОкончанияДоплаты)) Тогда
ДнейПоДоплате = МассивДней[НомерДняПериода(ДатаНачалаДоплаты,ДатаНачалаДоплаты)+1]; // всего дней из документа Табель
глСообщениеТрассировки(глСообщенияТрассировки, "Отработано дней: " + ДнейПоДоплате , 0, 0);
Результат = глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты);
Если ДокументИзЖурнала.Вид()="НачислениеЗаработнойПлаты" Тогда

[pashinskaya]

Здесь где?

[pashinskaya]

Не то?

[Генук]

Результат = Результат + глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты)*Ставка*ДнейПоДоплате/НормаДней;

вместо
ДнейПоДоплате/НормаДней

будет
Мин(ДнейПоДоплате/НормаДней,1)

[pashinskaya]

исправила, а как сохранить?

[Генук]

стандартно... кнопка с дискетой или просто закройте - сама предложит сохраниться...

[pashinskaya]

в ГМ в глВыполнитьПроизвольныйРасчет в куске условия:
Если Порядок = Перечисление.ХарактерНачисления.Суммой Тогда
// суммой, пропорционально отработанному времени... - с учетом дней

[/B]

А это тоже менять?

[Генук]

нет...

Результат = Результат + глПолучитьСуммуИзРеквизита(Величина, ДатаОкончанияДоплаты)*Ставка*Мин(ДнейПоДоплате/НормаДней,1);

единственное, что требуется - только семь раз щёлкнуть по клавишам клавиатуры, добавив Мин( и ,1)

[pashinskaya]

спасибо большое!!!!
все получилось!