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

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

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

Автор: kolkovyj 16.12.24, 12:41

Всім привіт. є дані. УПП для України 1.3, Платформа 8.3.10, прості форми Як можна в запиті вибрати запис з меншою датою із записів, які відрізняються між собою декількома секундами і залишити один.
Тобто виключити так звані дублі із різницею в 1-2 секунди.

Запит додаю:

ВЫБРАТЬ
    РеєстрСистемиКонтролюДоступу.Период КАК Период,
    РеєстрСистемиКонтролюДоступу.Вид,
    РеєстрСистемиКонтролюДоступу.devName,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.ФизическоеЛицо <> НЕОПРЕДЕЛЕНО
            ТОГДА РеєстрСистемиКонтролюДоступу.ФизическоеЛицо
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ФизическоеЛицо,
    ВЫБОР
        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.День)
            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, ДЕНЬ)
        ИНАЧЕ ВЫБОР
                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Неделя)
                    ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, НЕДЕЛЯ)
                ИНАЧЕ ВЫБОР
                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Месяц)
                            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МЕСЯЦ)
                        ИНАЧЕ ВЫБОР
                                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Декада)
                                    ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, ДЕКАДА)
                                ИНАЧЕ ВЫБОР
                                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Квартал)
                                            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, КВАРТАЛ)
                                        ИНАЧЕ ВЫБОР
                                                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Полугодие)
                                                    ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, ПОЛУГОДИЕ)
                                                ИНАЧЕ ВЫБОР
                                                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Год)
                                                            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, ГОД)
                                                        ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                                                    КОНЕЦ
                                            КОНЕЦ
                                    КОНЕЦ
                            КОНЕЦ
                    КОНЕЦ
            КОНЕЦ
    КОНЕЦ КАК Периодичность,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Входящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Вид
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ВидВхідне,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Вид
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ВидВихідне,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Входящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ВремяВход,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ВремяВыход,
    ДЕНЬ(РеєстрСистемиКонтролюДоступу.Период) КАК ПериодДень
ИЗ
    РегистрСведений.РеєстрСистемиКонтролюДоступу КАК РеєстрСистемиКонтролюДоступу
ГДЕ
    РеєстрСистемиКонтролюДоступу.Период МЕЖДУ &НачалоПериода И &КонецПериода

СГРУППИРОВАТЬ ПО
    РеєстрСистемиКонтролюДоступу.Период,
    РеєстрСистемиКонтролюДоступу.Вид,
    РеєстрСистемиКонтролюДоступу.devName,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.ФизическоеЛицо <> НЕОПРЕДЕЛЕНО
            ТОГДА РеєстрСистемиКонтролюДоступу.ФизическоеЛицо
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ

Автор: sava1 16.12.24, 12:47

привести дату до дати без секунд і вибрати мінімальне з групуванняям по датіБезСекунд

Автор: kolkovyj 16.12.24, 12:52

Для прикладу...
це дані із системи входу-виходу працівників
людина зайшла о 9:00:00
система собі добавила два записи
9:00:01
9:00:02
потім людина вийшла о 10:00:00
і
зайшла о 11:00:00
і знов система продублювала
11:00:01
11:00:02
і потім людина знову
вийшла о 15:00:00
потрібно запишити такі записи

зайшла о 9:00:00
вийшла о 10:00:00
зайшла о 11:00:00
вийшла о 15:00:00

Автор: Profi_1C77 16.12.24, 14:38

kolkovyj @ Сегодня, 12:52 ,
Ну sava1 правильно написал, если у Вас дубли идут в пределах секунд 0-9 то просто режь(округляй) последню цифру, а потом минимум с группировкой;

Автор: kolkovyj 16.12.24, 15:11

Зробив осьь так в запиті.
НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА)

і дублі забрало

Автор: Profi_1C77 16.12.24, 15:17

kolkovyj @ Сегодня, 15:11 ,
как вариант еще можно запись в регистр сведений писать дату всегда с 00 секунд ( будет замещать ) и все.

Автор: kolkovyj 16.12.24, 17:53

а як тепер порахувати час між виходом і входом?
РазностьДат(ВремяВыход, ВремяВход,Час) не хоче працювати.
Тобто при створенні поля видає помилку , що неправильні параметри.

Автор: TohaMonster 16.12.24, 18:11

kolkovyj @ Сегодня, 18:53 ,

Думаю, что тут проблема в типах. Теоретически ВремяВход и ВремяВыход может быть НЕОПРЕДЕЛЕНО, а РазностьДат() актуально только для Даты. Замените НЕОПРЕДЕЛЕНО, например, на ДАТАВРЕМЯ(1,1,1,0,0,0)

    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Входящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ НЕОПРЕДЕЛЕНО
    КОНЕЦ КАК ВремяВход,

Автор: kolkovyj 17.12.24, 12:28

TohaMonster @ Вчера, 18:11 ,
Разностьдат працює, але різниця в датах виходить між Времявхлод і ДАТАВРЕМЯ(1,1,1,0,0,0), і відповідно між Времявиход і ДАТАВРЕМЯ(1,1,1,0,0,0)
Як це виправити, підкажіть будь ласка?

Фактично потрібно взяти дату-час виходу відняти від дати-часу входу, навіть,якщо дати в різних днях. Якщо це початок місяця, і 1го числа є тільки дата виходу то взнайти різницю між датою виходу і 24:00 годиною. відповідно і кінцем місяця..датою входу і 24:00 годиною якщо не було виходу в цей останній день.
Даний звіт будую на СКД. Чи можна це реалізувати в запиті, чи може в функціоналі СКД це реалізувати?

ось такий вигляд має зараз звіт

Автор: Profi_1C77 17.12.24, 12:38

kolkovyj @ Сегодня, 11:38 ,
По разности времени в шапке темы вы такого не описывали, у Вас был вопрос как убрать дубли
Если я правильно понимаю вы хотите отчет по сотрудникам вход-выход; и время , т.е задача по табелированию типа через турникет ( тут и регистр сведений);
Я б вам рекомендовал написать 2 запроса - 1 события выхода 2 события входа ; потом их ОБЪЕДЕНИТЬ с условием период день и группировать Сотрудник, Дата; У Вас буду все готовые поля для СКД

Автор: kolkovyj 17.12.24, 12:43

Profi_1C77 @ Сегодня, 12:38 ,
Так теж не йде(

ВЫБРАТЬ
    НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА) КАК Период1,
    РеєстрСистемиКонтролюДоступу.Вид КАК Вид1,
    РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо1,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Входящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
    КОНЕЦ КАК ВремяВходящее1
ПОМЕСТИТЬ ВТВходящие
ИЗ
    РегистрСведений.РеєстрСистемиКонтролюДоступу КАК РеєстрСистемиКонтролюДоступу
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА) КАК Период2,
    РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо2,
    РеєстрСистемиКонтролюДоступу.Вид КАК Вид2,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
    КОНЕЦ КАК ВремяИсходящее2
ПОМЕСТИТЬ ВТИсходищее
ИЗ
    РегистрСведений.РеєстрСистемиКонтролюДоступу КАК РеєстрСистемиКонтролюДоступу
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТИсходищее.ВремяИсходящее2 КАК ВремяИсходящее3,
    ВЫБОР
        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.День)
            ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, ДЕНЬ)
        ИНАЧЕ ВЫБОР
                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Неделя)
                    ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, НЕДЕЛЯ)
                ИНАЧЕ ВЫБОР
                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Месяц)
                            ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, МЕСЯЦ)
                        ИНАЧЕ ВЫБОР
                                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Декада)
                                    ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, ДЕКАДА)
                                ИНАЧЕ ВЫБОР
                                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Квартал)
                                            ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, КВАРТАЛ)
                                        ИНАЧЕ ВЫБОР
                                                КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Полугодие)
                                                    ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, ПОЛУГОДИЕ)
                                                ИНАЧЕ ВЫБОР
                                                        КОГДА &Периодичность = ЗНАЧЕНИЕ(Перечисление.Периодичность.Год)
                                                            ТОГДА НАЧАЛОПЕРИОДА(ВТИсходищее.Период2, ГОД)
                                                        ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                                                    КОНЕЦ
                                            КОНЕЦ
                                    КОНЕЦ
                            КОНЕЦ
                    КОНЕЦ
            КОНЕЦ
    КОНЕЦ КАК Периодичность3,
    РАЗНОСТЬДАТ(ВТИсходищее.ВремяИсходящее2, ВТВходящие.ВремяВходящее1, ЧАС) КАК РазностьДат3,
    ВТВходящие.ВремяВходящее1 КАК ВремяВходящее3,
    ВТВходящие.ФизическоеЛицо1 КАК ФизическоеЛицо3,
    ВТИсходищее.Период2 КАК Период3
ИЗ
    ВТВходящие КАК ВТВходящие
        ПОЛНОЕ СОЕДИНЕНИЕ ВТИсходищее КАК ВТИсходищее
        ПО ВТВходящие.ФизическоеЛицо1 = ВТИсходищее.ФизическоеЛицо2
            И ВТВходящие.Период1 = ВТИсходищее.Период2
ГДЕ
    ВТИсходищее.Период2 МЕЖДУ &НачалоПериода И &КонецПериода

Автор: Profi_1C77 17.12.24, 13:00

kolkovyj @ Сегодня, 12:43 ,

Цитата(kolkovyj @ 17.12.24, 12:43)

ВЫБРАТЬ
    НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА) КАК Период2,
    РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо2,
    ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
            ТОГДА РеєстрСистемиКонтролюДоступу.Период
        ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
    КОНЕЦ КАК ВремяИсходящее2

1 Запрос

НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, День) КАК ДатаСобытия,
 РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо , 
 ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Входящее)
            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА)
          КОНЕЦ КАК ВремяВхода; 

2 Запрос 
НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, День) КАК ДатаСобытия,
 РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо , 
ВЫБОР
        КОГДА РеєстрСистемиКонтролюДоступу.Вид = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
            ТОГДА НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, МИНУТА)
          КОНЕЦ КАК ВремяВыхода;

Далее соединяем по ФизЛицо и ДатаСобытия по типо такого

Profi_1C77 @ Сегодня, 12:53

,
правда проблема есть если ходят туда сюда за день больше 2 раз вот тут (НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, День) )

Автор: sava1 17.12.24, 13:06

Цитата(Profi_1C77 @ 17.12.24, 13:00)

Далее соединяем по ФизЛицо и ДатаСобытия

тут как-раз Объединить (может войти сегодня - выйти завтра)
+ надо проверять - если нет выхода - тогда дата выхода - КонецДня

так-же и по дате входа

Автор: kolkovyj 18.12.24, 0:05

Дякую всім за допомогу, є ще одна ідея, для роздумів.
Можливо це спростить завдання.
Тобто фактично потрібно порахувати час між входом і виходом за день ,якщо їх було декілька то додати один до одного .
ну і відповідно це помістити в таблицю
ПІБ РОБОЧИЙ ЧАС
01.12.24 02.12.24
Іваненко 12 10

ось таким кодом я відсіяв дублі з різницею в 1-2 секунди і вибрав дані по взходу і виходу людини

ВЫБРАТЬ различные
    РеєстрСистемиКонтролюДоступу.ФизическоеЛицо КАК ФизическоеЛицо,
    НАЧАЛОПЕРИОДА(РеєстрСистемиКонтролюДоступу.Период, минута) как Период,
    РеєстрСистемиКонтролюДоступу.Вид КАК Вид
    
ИЗ
    РегистрСведений.РеєстрСистемиКонтролюДоступу КАК РеєстрСистемиКонтролюДоступу
ГДЕ
РеєстрСистемиКонтролюДоступу.ФизическоеЛицо = &ФизЛицо  и
    РеєстрСистемиКонтролюДоступу.Период МЕЖДУ &началоПериода И &КонецПериода

Тут скрін вибірки.
Можливо так буде легше вибрати і порахувати робочий час/ як думаєте.

Автор: TohaMonster 18.12.24, 10:47

kolkovyj @ Сегодня, 1:05 ,
Я решал похожую задачу следующим образом
1. Сортируем события по времени, присваиваем каждому событию НомПП
2. Выбираем все пары, где НомПП - вход, НомПП+1 - выход
3. Для каждой пары вычисляем интервал и складываем их в пределах дня.
4. Остальные "шумы", которые не найдут себе пару, не учитываем
Например

08:00:01 Вход
08:00:03 Вход
17:01:03 Выход
17:01:04 Выход

1. 08:00:01 Вход - шум
2. 08:00:03 Вход - пара1 (9 часов)
3. 17:01:03 Выход - пара1
4. 17:01:04 Выход - шум

Автор: xlmel 19.12.24, 14:33

ДатаВремя можно представить как какую-то дату + количество секунд, Например Дата(2020, 1, 1) + 157766400 = 01.01.2025 .
Тогда можно сделать накопительный регистр, в котором вход будет расходом, выход приходом, будет достаточно быстро считать за любой период.

Автор: andr_andrey 19.12.24, 16:57

xlmel @ Сегодня, 14:33 ,
Задача не така проста в загальному вигляді.
Цікаво, чи автор розглядає нічні зміни, які як правило зміщені в часі і переходять на наступну добу, і інші види виробничих календарів?

Автор: xlmel 19.12.24, 17:34

с ночными сменами проблем нет. Пусть нулевая дата 19.12.2024. человек вошел в офис в 20-00, это 72000, а вышел в 4-00 20.12.2024 - это 100800. В итоге добавится 28800, или 8 часов.
если интересует накопление времени, которое человек провел в офисе, то вот это и будет решением.

Автор: kolkovyj 30.12.24, 19:59

Зробив по іншому як планувалось. Не в СКД
Запит - цикл-ТЗ-Запит..далі ще в процесі
Як дороблю повністю викладу сюда. Можливо комусь буде цікаво і корисно.

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