Главная » Файлы » Программируем в 1С » 1С Разное

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Отбор по возрасту сотрудников 1с 8 УПП
2012 Октябрь 09, 13:54


ДатаУ =  Дата(1, 1, 1);
    Макет = Отчеты.Vik.ПолучитьМакет("Возраст");
    Таб = Новый ТабличныйДокумент;
   
    Запрос = Новый Запрос;
    Запрос.Текст =   
   
    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |    СотрудникиОрганизаций.Физлицо.ДатаРождения,
    |    СотрудникиОрганизаций.Наименование КАК Наименование,
    |    СотрудникиОрганизаций.Актуальность,
    |    СотрудникиОрганизаций.ДатаПриемаНаРаботу,
    |    СотрудникиОрганизаций.Организация
    |ИЗ
    |    Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
    |ГДЕ
    |    СотрудникиОрганизаций.ДатаУвольнения = &ДатаУ
    |    И СотрудникиОрганизаций.Организация = &Организация
    |
    |СГРУППИРОВАТЬ ПО
    |    СотрудникиОрганизаций.Наименование,
    |    СотрудникиОрганизаций.Физлицо.ДатаРождения,
    |    СотрудникиОрганизаций.Актуальность,
    |    СотрудникиОрганизаций.ДатаПриемаНаРаботу,
    |    СотрудникиОрганизаций.Организация
    |
    |УПОРЯДОЧИТЬ ПО
    |    Наименование";
   
    Запрос.УстановитьПараметр("Истина" , Истина );
    Запрос.УстановитьПараметр("ДатаУ" , ДатаУ);
    Запрос.УстановитьПараметр("Организация" , Организация);
   
   
    РезультатТЗ  =  Запрос.Выполнить().Выгрузить();
   
    ПП = 0;
   
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьШапкаТаб = Макет.ПолучитьОбласть("ШапкаТаб");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
   
    Таб.Вывести(ОбластьШапка);
    Таб.Вывести(ОбластьШапкаТаб);
   
   
    Для каждого РезультатТЗСтрока из  РезультатТЗ Цикл
       
        ДатаРож  =   РезультатТЗСтрока.ФизлицоДатаРождения;
        ДатаТек = ТекущаяДата();
       
        ПолДата =  (ДатаТек - ДатаРож) / 86400;
       
       
        КолЛет = ПолДата / 355;
       
        Возраст2 =  окр(КолЛет);
       
        Возраст = Возраст2 - 1;
       
        Если НЕ ПустаяСтрока(ВозрастВыб) Тогда
            Если КолЛет < ВозрастВыб Тогда
               
                ПП = ПП + 1;
                ОбластьСтрока.Параметры.пп = пп;     
                ОбластьСтрока.Параметры.Наименование         = РезультатТЗСтрока.Наименование;
                ОбластьСтрока.Параметры.ДатаРождения         = РезультатТЗСтрока.ФизлицоДатаРождения;
                ОбластьСтрока.Параметры.ДатаПриемаНаРаботу   = РезультатТЗСтрока.ДатаПриемаНаРаботу;
                ОбластьСтрока.Параметры.Возраст              = Возраст;
               
               
                Таб.Вывести(ОбластьСтрока);
            КонецЕсли;
        КонецЕсли;
       



 Кусок из отчета в 1с ( Не судите строго писал быстро !!! ) Отбор в диапазоне ДО: Возраст сотрудников

Категория: 1С Разное | Добавил: c1
Просмотров: 1511 | Загрузок: 0 | Рейтинг: 5.0/1

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar