ЗиК: Приказ по предприятию: о приёме работников на работу

Форум Учет и отчетность Зарплата и кадровый учет (Зарплата)

1С:Зарплата и кадры 7.7 Расчет 7.7

1. KnightWarlock 28.01.09 11:02 Сейчас в теме

В приказе о приёме работников на работу (Прочие кадровые приказы. Приказ по предприятию. Приказ о приёме работников на работу),при выводе на печать в колонке Тарифная ставка(оклад) нужно чтобы вместе с суммой оклада, выходил процент надбавок(вредность, сельские и так далее).
Как это сделать? Если кто-нибудь, что-нибудь знает по этому поводу, помогите пожалуйста!

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. koloboc74 84 29.01.09 03:58 Сейчас в теме

Если чисто для печатной формы то вот примерный код

НаименованиеНадбавки1 = "";
НаименованиеНадбавки2 = "";
НаименованиеНадбавки3 = "";

Если ИмяИсходнойТаблицы = "Т-1" Тогда

Если (ПустоеЗначение(НаименованиеНадбавки1) = 1) и (ПустоеЗначение(НаименованиеНадбавки2) = 1) и (ПустоеЗначение(НаименованиеНадбавки3) = 1) Тогда
// НаименованиеНадбавки1 = глСуммаПрописью(0,Валюта,"Кратко");
НаименованиеНадбавки1 = "30 %";
НаименованиеНадбавки2 = "30 %";
НаименованиеНадбавки3 = "15 %";
Таблица.ВывестиСекцию("Документ");
Иначе
Таблица.ВывестиСекцию("Документ<");
Если ПустоеЗначение(НаименованиеНадбавки1) = 1 Тогда
Таблица.ВывестиСекцию("Надбавка1");
КонецЕсли;
Если ПустоеЗначение(НаименованиеНадбавки2) = 1 Тогда
Таблица.ВывестиСекцию("Надбавка2");
КонецЕсли;
Если ПустоеЗначение(НаименованиеНадбавки3) = 1 Тогда
Таблица.ВывестиСекцию("Надбавка3");
КонецЕсли;
Таблица.ВывестиСекцию("Документ>");
КонецЕсли;
Таблица.ТолькоПросмотр(1);
Таблица.Опции(0,0,0,0,"_ПАРАМЕТРЫ_ПЕЧАТИ_ФОРМА_Т1_");
Таблица.Показать("Приказ о приеме работника на работу (Форма Т-1)");

3. KnightWarlock 29.01.09 08:31 Сейчас в теме

Не мне нужно в форму Т-1а

4. sashulyT 201 29.01.09 08:55 Сейчас в теме

Knight Warlock, в каком виде хотите видеть? через запятую? Значения этих надбавок где-то прописано?

5. KnightWarlock 29.01.09 09:07 Сейчас в теме

Через запятую! Значения прописаны в форме Т-1!типовая конфа, релиз 283

6. koloboc74 84 29.01.09 10:51 Сейчас в теме

Какая разница я привел пример Т-1 , а дальше сам.

7. sashulyT 201 29.01.09 11:12 Сейчас в теме

Knight Warlock пишет:
Через запятую! Значения прописаны в форме Т-1!типовая конфа, релиз 283

Где именно прописано?

8. KnightWarlock 29.01.09 11:20 Сейчас в теме

В процедуре печати!

9. sashulyT 201 29.01.09 11:21 Сейчас в теме

Knight Warlock пишет:
В процедуре печати!

я не о том, из каких мест процедура должна взять величины надбавок?

10. KnightWarlock 29.01.09 11:23 Сейчас в теме

Из модуля либо из штатного

12. sashulyT 201 29.01.09 11:36 Сейчас в теме

Knight Warlock, все равно меня не понимаеш.
Самы простой вариант как пишет Женя в (10) добавь строковой реквизит, пусть туда кадровик ручками пишет типа: "вредность = 10%, сельские = 15%", а потом этот реквизит просто переносиш в печ. форму.

11. koloboc74 84 29.01.09 11:32 Сейчас в теме

А ,что у вас надбавки меняются каждый день ? Если нет просто можешь их в форму внедрить, так будет проще.

13. KnightWarlock 29.01.09 11:57 Сейчас в теме

Они так не хотят!

14. koloboc74 84 29.01.09 12:08 Сейчас в теме

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

15. KnightWarlock 29.01.09 12:55 Сейчас в теме

Вот пример, в строке ОкладСотрудника нужно вставить формулу ссылающуюся на надбавки как это сделать?

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если ПустоеЗначение(Документ) = 0 тогда
Если ИмяИсходнойТаблицы = "Т-1а" тогда
ДатаДокумента = Документ.ДатаПриема;
Иначе
ДатаДокумента = Документ.ДатаДок;
КонецЕсли;
ФИОСотрудника = СокрЛП(Документ.Сотрудник.Наименование);
ТНСотрудника = Документ.Сотрудник.Код;
ПодразделениеСотрудника = Документ.Сотрудник.Подразделение.Получить(ДатаДокумента);
ДолжностьСотрудника = Документ.Сотрудник.Должность.Получить(ДатаДокумента);
ДокументПриказОПриеме = глПриказПоСотруднику(Документ.Сотрудник, ДатаДок, "ПриказОПриемеНаРаботу");
ОснованиеТрудовойДоговорНомер = ДокументПриказОПриеме.НомерДок;
ОснованиеТрудовойДоговорДата = ДокументПриказОПриеме.ДатаДок;
Если ИмяИсходнойТаблицы = "Т-1а" тогда
Валюта = Документ.Сотрудник.ВалютаОклада;
ОкладСотрудника = СокрЛП(Документ.Сотрудник.Оклад.Получить(ДатаДокумента))+"- "+СокрЛП(глПолучитьСуммуИзРеквизита(Документ.Сотрудник.Оклад.Получить(ДатаДокумента),ДатаДок))+"р." //+СокрЛП(глПриказПоСотруднику(ДокументПриказОПриеме.Сотрудник.Получить(ДатаДокумента).НаименованиеНадбавки1, "ПриказОПриемеНаРаботу"));
Ставка = ДокументПриказОПриеме.Ставка;
Если (Валюта.Выбран() = 1) и (ОкладСотрудника <> 0) Тогда // учтем возможное наличие валюты у оклада
Кратность = Валюта.Кратность.Получить(ДатаДокумента);
ОкладСотрудника = ОкладСотрудника * Валюта.Курс.Получить(ДатаДокумента) / ?(Кратность=0,1,Кратность);
КонецЕсли;
ОснованиеТрудовойДоговорНомер = Документ.НомерДок;
ОснованиеТрудовойДоговорДата = Документ.ДатаДок;
ПериодС = Документ.ДатаПриема;
ПериодПо = Документ.Окончание;

16. koloboc74 84 29.01.09 13:07 Сейчас в теме

НаименованиеНадбавки1 = "30 %";
НаименованиеНадбавки2 = "30 %";
НаименованиеНадбавки3 = "15 %";

....
...
...

ОкладСотрудника = СокрЛП(Документ.Сотрудник.Оклад.Получить(ДатаДокумента))+"- "+СокрЛП(глПолучитьСуммуИзРеквизита(Документ.Сотрудник.Оклад.Получить(ДатаДокумента),ДатаДок))+"р."+НаименованиеНадбавки1 +НаименованиеНадбавки2+и т.д.; //+СокрЛП(глПриказПоСотруднику(ДокументПриказОПриеме.Сотрудник.Получить(ДатаДокумента).НаименованиеНадбавки1, "ПриказОПриемеНаРаботу"));

17. koloboc74 84 29.01.09 13:13 Сейчас в теме

Если что то пиши koloboc74@inbox.ru
Я пошел домой.

18. KnightWarlock 29.01.09 13:26 Сейчас в теме

Большое спасибо!!!

Оставьте свое сообщение

E-mail: