Имя: Пароль:
1C
1C 7.7
v7: как вытащить процент надбавки за выслугу?
0 logon
 
02.08.12
06:04
Подскажите пожалуйста как можно вытащить данную информацию: сотрудник, дата начала действия надбавки, процент надбавки. и так по всем сотрудникам
1 Oleg_Kag
 
02.08.12
06:55
1) Назовите конфигурацию
2) Вас интересует какой-то конкретный вид расчета или все сразу?
2 logon
 
02.08.12
08:05
1) 1с 7.7 Зарплата и кадры
2) Расчет "Надбавка за выслугу лет"
3 Oleg_Kag
 
02.08.12
09:20
Стыдно то как, но...
Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |НачисленияУдержанияСотрудника = Документ.НачисленияУдержанияСотрудника.ТекущийДокумент, Документ.НачисленияУдержанияСписком.ТекущийДокумент;
   |Расчет = Документ.НачисленияУдержанияСотрудника.Расчет, Документ.НачисленияУдержанияСписком.Расчет;
   |Сотрудник = Документ.НачисленияУдержанияСотрудника.Сотрудник, Документ.НачисленияУдержанияСписком.Сотрудник;
   |Начало = Документ.НачисленияУдержанияСотрудника.Начало, Документ.НачисленияУдержанияСписком.Начало;
   |Окончание = Документ.НачисленияУдержанияСотрудника.Окончание, Документ.НачисленияУдержанияСписком.Окончание;
   |Величина = Документ.НачисленияУдержанияСотрудника.Величина, Документ.НачисленияУдержанияСписком.Величина;
   |Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп;
   |Условие(Расчет = ВыбРасчет);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл
       // Заполнение полей Сотрудник
       Таб.ВывестиСекцию("Сотрудник");
   КонецЦикла;
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн