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

**pashinskaya** · 31.03.2011, 16:43

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

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

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

**Генук** · 31.03.2011, 16:54

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

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

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

**pashinskaya** · 01.04.2011, 07:56

Сообщение от Генук

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

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

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

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

**Генук** · 01.04.2011, 08:00

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

**pashinskaya** · 01.04.2011, 08:03

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

**Генук** · 01.04.2011, 08:05

прог у хате е?

**pashinskaya** · 01.04.2011, 08:07

?

**pashinskaya** · 01.04.2011, 08:09

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

**Генук** · 01.04.2011, 08:12

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

**pashinskaya** · 01.04.2011, 08:13

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

**Генук** · 01.04.2011, 08:14

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

**pashinskaya** · 01.04.2011, 08:56

сделала

**Генук** · 01.04.2011, 09:09

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

**pashinskaya** · 01.04.2011, 09:16

НАШЕЛ ВОТ ЭТО

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

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

Иначе

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

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

**pashinskaya** · 01.04.2011, 09:16

Здесь где?

**pashinskaya** · 01.04.2011, 09:19

Не то?

**Генук** · 01.04.2011, 09:23

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

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

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

**pashinskaya** · 01.04.2011, 09:43

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

**Генук** · 01.04.2011, 09:45

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

**pashinskaya** · 01.04.2011, 09:45

Сообщение от Генук

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

[/B]

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

**Генук** · 01.04.2011, 09:49

нет...

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

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

**pashinskaya** · 01.04.2011, 09:56

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

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

Опции темы

Поиск по теме