ЗиК 7.7 Как вывести в расчетку невыходы?
05.05.2010
10:01
#1
"Добрый день всем.
Помогите никак не могу разобраться, как вывести в печатную форму расчетного листа невыходы.
В документе Невыходы дописал:
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.Перевахтовка Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.Перевахтовка,Начало,Окончание,0);
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.Межвахтовые_отгулы Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.Межвахтовые_отгулы,Начало,Окончание,0);
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.КоммандировкаП Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.КоммандировкаП,Начало,Окончание,0);
Виды расчета добавил: Перевахтовка,Межвахтовые_отгулы,КоммандировкаП
В модуле прописал:
Процедура ПровестиРасчет()
Если (Исправлена=1) или (Фиксирована=1) Тогда
глСообщениеТрассировки(глСообщенияТрассировки, """" + ?(Исправлена=1,"Результат записи исправлен вручную","Запись фиксирована") + ". Расчет не проводился.", , 1);
Возврат
КонецЕсли;
ГрафикРаботы = Объект.ГрафикРаботы.Получить(ДатаОкончания);
Если ПустоеЗначение(ГрафикРаботы)=1 Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "График работы сотрудника на _П01 не задан! Будет использоваться основной график предприятия.", 0, 1, ДатаОкончания, "ДДДММММГГГГ");
ГрафикРаботы = Константа.ОсновнойГрафик;
КонецЕсли;
Если ПустоеЗначение(ГрафикРаботы)=1 Тогда
Если глРежимТрассировки = 1 Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "Основной график работы предприятия не задан!", 1, 0);
Иначе
глДобавитьСообщение(глОбработчикСообщений, "Основной график работы предприятия не задан!", , , );
КонецЕсли;
Возврат
КонецЕсли;
Календарь = ГрафикРаботы.ОсновныеЧасы;
Дней = Календарь.Дней(ДатаНачала,ДатаОкончания);
Дни= ?(Сторно=0,Дней,-Дней);
КонецПроцедуры // ПровестиРасчет()
А что дописать в расчетке чтоб они выводились так и не могу понять, помогите кто знает!
Заранее спасибо за помощь!
"
Помогите никак не могу разобраться, как вывести в печатную форму расчетного листа невыходы.
В документе Невыходы дописал:
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.Перевахтовка Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.Перевахтовка,Начало,Окончание,0);
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.Межвахтовые_отгулы Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.Межвахтовые_отгулы,Начало,Окончание,0);
ИначеЕсли ПричинаОтсутствия = Перечисление.ПричинаОтсутствия.КоммандировкаП Тогда
ЖрнЗарплата.ВвестиРасчет(Сотрудник,ВидРасчета.КоммандировкаП,Начало,Окончание,0);
Виды расчета добавил: Перевахтовка,Межвахтовые_отгулы,КоммандировкаП
В модуле прописал:
Процедура ПровестиРасчет()
Если (Исправлена=1) или (Фиксирована=1) Тогда
глСообщениеТрассировки(глСообщенияТрассировки, """" + ?(Исправлена=1,"Результат записи исправлен вручную","Запись фиксирована") + ". Расчет не проводился.", , 1);
Возврат
КонецЕсли;
ГрафикРаботы = Объект.ГрафикРаботы.Получить(ДатаОкончания);
Если ПустоеЗначение(ГрафикРаботы)=1 Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "График работы сотрудника на _П01 не задан! Будет использоваться основной график предприятия.", 0, 1, ДатаОкончания, "ДДДММММГГГГ");
ГрафикРаботы = Константа.ОсновнойГрафик;
КонецЕсли;
Если ПустоеЗначение(ГрафикРаботы)=1 Тогда
Если глРежимТрассировки = 1 Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "Основной график работы предприятия не задан!", 1, 0);
Иначе
глДобавитьСообщение(глОбработчикСообщений, "Основной график работы предприятия не задан!", , , );
КонецЕсли;
Возврат
КонецЕсли;
Календарь = ГрафикРаботы.ОсновныеЧасы;
Дней = Календарь.Дней(ДатаНачала,ДатаОкончания);
Дни= ?(Сторно=0,Дней,-Дней);
КонецПроцедуры // ПровестиРасчет()
А что дописать в расчетке чтоб они выводились так и не могу понять, помогите кто знает!
Заранее спасибо за помощь!
"
05.05.2010
12:15
#2
Наверное, нужно указать, что виды расчетов
Перевахтовка
Межвахтовые_отгулы
Коммандиро вкаП
входят в группы расчетов по аналогии с "Невыходы":
ВсеНачисления
ВсеОтклонения
ПроводкиНеФормировать (КоммандировкаП - тоже? вам виднее)
РедактированиеБазЗапрещено
УчитыватьДни
Перевахтовка
Межвахтовые_отгулы
Коммандиро
входят в группы расчетов по аналогии с "Невыходы":
ВсеНачисления
ВсеОтклонения
ПроводкиНеФормировать (КоммандировкаП - тоже? вам виднее)
РедактированиеБазЗапрещено
УчитыватьДни
05.05.2010
12:21
#3
Все так и стоит только все равно не выводит.
Может быть что то еще в модуле расчетный лист добавить?
Может быть что то еще в модуле расчетный лист добавить?
05.05.2010
12:58
#4
"В модуле есть запрос и в нем может срезаться из за:
|Условие((Результат<>0)или(ДниВЖурнале<>0));";
У вас в журнале документов в этих записях реквизит Дни чему равен?"
|Условие((Результат<>0)или(ДниВЖурнале<>0));";
У вас в журнале документов в этих записях реквизит Дни чему равен?"
Читают тему
(гостей: 1)