Как вывести начисления сотрудника в конф. ЗиК, р.2.3
30.06.2003
09:23
#1
Всем ПРИВЕТ!
Я начинающищий, меня попросили создать приложение в конфигурации ЗиК, р.2.3, которая выводила бы справку о зарплате для работника, я создал, но все начисления в форму надо вводить вручную, чтобы далее программка рассчитала "среднюю", "всего" и вывела печатную форму, а как сделать так, чтобы начисления формировались на печатной форме автоматически, как их вытащить из журнала расчетов, что написать? Подскажите профи в какую сторну мне идти чтобы найти истину.
Я начинающищий, меня попросили создать приложение в конфигурации ЗиК, р.2.3, которая выводила бы справку о зарплате для работника, я создал, но все начисления в форму надо вводить вручную, чтобы далее программка рассчитала "среднюю", "всего" и вывела печатную форму, а как сделать так, чтобы начисления формировались на печатной форме автоматически, как их вытащить из журнала расчетов, что написать? Подскажите профи в какую сторну мне идти чтобы найти истину.
02.07.2003
09:22
#2
"//Можно так:
Спр = СоздатьОбъект("Справочник.Сотрудники")
ЖР = СоздатьОбъект("ЖурналРасчетов.Зарплата");
//Выбираем в Журнале расчетов записи по сотруднику "Иванов"
//за период с 01.07.03 по 31.07.03
Спр.НайтиПоНаименованию("Иванов Иван Иванович",0,1);
Сотрудник = Спр.ТекущийЭлемент();
Если ЖР.ВыбратьЗаписиПоОбъекту(Сотрудник,'01.07.03','31.07.03') = 1 Тогда
//В цикле получаем записи по сотруднику
Пока ЖР.ПолучитьЗапись()=1 Цикл
//Если нужны только начисления то проверяем
//на вхождение в группу "ВсеНачисления"
Если ЖР.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда
НазваниеРасчета = ЖР.Расчет;
РезультатРасчета = ЖР.Результат;
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Если нужно получить по списку сотрудников, то
//лучше использовать запрос и в цикле пробегая по
//запросу выводить в таблицу отчета нужные данные
"
Спр = СоздатьОбъект("Справочник.Сотрудники")
ЖР = СоздатьОбъект("ЖурналРасчетов.Зарплата");
//Выбираем в Журнале расчетов записи по сотруднику "Иванов"
//за период с 01.07.03 по 31.07.03
Спр.НайтиПоНаименованию("Иванов Иван Иванович",0,1);
Сотрудник = Спр.ТекущийЭлемент();
Если ЖР.ВыбратьЗаписиПоОбъекту(Сотрудник,'01.07.03','31.07.03') = 1 Тогда
//В цикле получаем записи по сотруднику
Пока ЖР.ПолучитьЗапись()=1 Цикл
//Если нужны только начисления то проверяем
//на вхождение в группу "ВсеНачисления"
Если ЖР.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда
НазваниеРасчета = ЖР.Расчет;
РезультатРасчета = ЖР.Результат;
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Если нужно получить по списку сотрудников, то
//лучше использовать запрос и в цикле пробегая по
//запросу выводить в таблицу отчета нужные данные
"
Читают тему
(гостей: 2)