Версия для печати темы (https://pro1c.org.ua/index.php?s=1b4aa8def4c6e3b1f409cd28872b34b5&showtopic=64860)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ не коректная работа запроса

Автор: 4andriy 23.02.21, 23:58

Сформировал через конструктор простой запрос для выборки по сотрудникам по дате начала работы. Ничего не менял.
Результат запроса:
Сидоров 01.02.2021
Петров 02.02.2021
и т.д. по дням...
Код работает, но если несколько сотрудников начали работу в один день то в результате запроса на один день мы видим только одного сотрудника.

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |ДатаПрийн = Справочник.Сотрудники.ДатаПрийн;
    |Условие(ДатаПрийн>ВыбНачПериода);
    |Условие(ДатаПрийн<ВыбКонПериода);
    |"//}}ЗАПРОС
;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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

Автор: denis84 24.02.21, 6:35

4andriy @ Вчера, 23:58 * ,
Добрый день! Группировку по сотруднику в запрос добавьте. У вас получается группируется по дате приема,а сотрудник нет. Запрос нашел одного и все и идёт на следующую дату

Автор: denis84 24.02.21, 13:08

denis84 @ Сегодня, 6:35 * ,
отпишитесь по результату

Автор: 4andriy 24.02.21, 13:21

denis84 @ Сегодня, 6:35 * ,

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |ДатаПрийн = Справочник.Сотрудники.ДатаПрийн;
    |ИНН = Справочник.Сотрудники.ИНН;
    |Фам = Справочник.Сотрудники.Фам;
    |Условие(ДатаПрийн>ВыбНачПериода);
    |Условие(ДатаПрийн<ВыбКонПериода);
    //|Группировка ДатаПрийн;
    |Группировка ИНН;
    //|Группировка Фам;
    |"//}}ЗАПРОС    
;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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


изменил так, но теперь результат выглядит так:
xxxxxx 04.02.19 петров
ііііііііііііі 06.02.19 сидоров
кккккк 04.02.19 иванов
(пустота) 04.02.19 Петров - почему-то подвоилось значение

Автор: denis84 24.02.21, 14:25

4andriy @ Сегодня, 13:21 * ,

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |ТекущийЭлемент = Справочник.Сотрудники.ТекущийЭлемент;
    |ДатаПриема = Справочник.Сотрудники.ДатаПриема;
    |Группировка ТекущийЭлемент;
    |Группировка ДатаПриема;
    |Условие(ДатаПриема > ВыбНачПериода);
    |Условие(ДатаПриема < ВыбКонПериода);
    |"//}}ЗАПРОС
;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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



Автор: 4andriy 24.02.21, 15:02

denis84 @ Сегодня, 14:25 * ,
Работает, спасибо!

Автор: denis84 24.02.21, 15:08

4andriy @ Сегодня, 15:02 * ,
Ок!

Автор: 4andriy 24.02.21, 21:45

denis84 @ Сегодня, 15:08 * ,
что не делает так то сортировку

|Группировка ДатаПриема упорядочить по ДатаПриема;


уже работает!

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua