сравнить два ranges (на предмет пересечения интервалов)

Pavel Berezin

Есть какой ФМ или чтото, что может сравнить два заполненных отднотипных ranges/select-options (с учётом всевозможных сочетаний BT,GE,NE)?

напрямую range1 in range2 - не работает.

zsap

Если range связан с полем, имеющим небольшой список значений, можно проверить так

Code:

ranges:
  r1 for tab1-field1,
  r2 for tab1-field1.
select single count( * )
from tab1
where 
  field1 in r1 and
  field1 in r2.
if sy-dbcnt > 0.
  есть пересечение
endif.

Минус такого метода в том, что если пересечение есть по значению, которого нет в проверочной таблице, вы этого не увидите.

Для ranges к полям целочисленного типа и дат можно написать несложную проверку и без использования проверочной таблицы

MantiCore1977

Как-то пытался передать RANGE OF в качестве параметра в свой ФМ, не получается напрямую указать TYPE RANGE OF или LIKE RANGE OF, только тип описывать и уже его передавать. Поэтому вряд ли есть такой ФМ. А зачем их пересекать? value IN range1 AND value IN range2 вот и пересечение.

Pavel Berezin

мне не для выборок из БД нужно.
Есть два ranges - один наполнен правилами проверки допустимых значений поля (довольно замысловатыми, включая BT,EQ,CP). В общем случае правила могут пересекаться. Второй range - то что собственно надо проверить на попадание хоть в одно правило проверки (причём второй range тоже может содержать несколько диапазонов GE,BT, в т.ч. пересекающихся друг с другом).

Нужен некий функциональный аналог VBAшного Application.Intersect - т.е. определяющий, пересекаются ли два сложных набора/диапазона условий или нет.

Можно конечно парзер написать, но вдруг готовое чтото есть.

zsap

Тип данных какой у range?

Pavel Berezin

дата (BUDAT)

zsap

Тогда могу предложить такой метод. Он работает для любых условий в range кроме CP, NC, т.е. кроме шаблонов.
Суть в том, что если два range пересекаются и это пересечение ограничено сверху или снизу, значение, входящее в оба range, обязательно будет либо равно low или high одного из range, либо будет отличаться от него на 1 в большую или меньшую сторону. Поэтому достаточно проверить на вхождение в оба range всех дат из low и high и дат +- 1 день. Если не очень понятно написал, поглядите еще тут

Gustav

Pavel Berezin написал:

Нужен некий функциональный аналог VBAшного Application.Intersect - т.е. определяющий, пересекаются ли два сложных набора/диапазона условий или нет.

zsap написал:

Тип данных какой у range?

Pavel Berezin написал:

дата (BUDAT)

Ну и супер! Красивое решение через Excel по OLE2 может получиться. Причем на обозримое будущее с лихвой хватит даже версии 2003 с ее 65 тысячами строк.
Набрасываю крупными мазками. Следите за моим движением:

1. Пусть есть три диапазона, для которых надо найти пересечение:

01.06.2012 - 20.06.2012
05.06.2012 - 12.06.2012
08.06.2012 - 18.06.2012

2. Если включить в Excel для этих дат формат "Общий", то увидим соответствующие целые числа:

41061 - 41080
41065 - 41072
41068 - 41078

3. А если предвключить какую-нибудь латинскую букву, ну A, чтобы далеко не ходить, то можно и так записать:

Range("A41061:A41080")
Range("A41065:A41072")
Range("A41068:A41078")

4. В окне отладки редактора VBA исполняем:

? Application.Intersect( Range("A41061:A41080"), Range("A41065:A41072"), Range("A41068:A41078") ).Address(false,false)

получаем: A41068:A41072

5. Откусываем буквы A и превращаем обратно в даты:

41068 - 41072 => 08.06.12 - 12.06.12

Похоже?

ArmAnn

Gustav написал:

Похоже?

Офигеть

А как быть с фоновым режимом?

MantiCore1977

Пересекать диапазоны дат Excel-ем? Можно еще нанять специального человека с календариком, пересекателя дат.
Проще сравнивать строки selection table поля low и high для option=BT.
и как в Excele быть с патернами CP NP.

Gustav

ArmAnn написал:

А как быть с фоновым режимом?

Вспомнился анекдот про мышей, филина и ёжиков, заканчивающийся сакраментальной фразой филина: "Я стратегией занимаюсь"

Ну как с ним быть... наверное, как и с любым взаимодействием SAP и Excel - что-то можно, что-то нельзя... насколько я понимаю, если аппликейшн сервер не на Винде и/или на нем не установлен Excel, то очевидно никак не быть...

MantiCore1977 написал:

Пересекать диапазоны дат Excel-ем? Можно еще нанять специального человека с календариком, пересекателя дат.

Это ж фантазия, импровизация - насильно никто не уговаривается, просто демонстрируется нетрадиционный подход. Неужели не любопытно?

MantiCore1977 написал:

и как в Excele быть с патернами CP NP.

Так же, как в SAPе, например, с формулами массива - никак, хотя обе штуки мощные

У любого способа выполнить что-то, как правило, есть свои ограничения и области применения. На практике ничто не идеально.

Chirva

Уж лучше последовательно сформировать две выборки.
Сначала общую по диапазону правил - отправить результаты в itab.
А потом пройти по itab с поиском значений, удовлетворяющих второй range.

Обнаруженные результаты и будут пересечением.
Если нет возможности "выбирать" даты - прогнать цикл с приростом в 1 день между максимально граничными датами и в itab отправлять даты удовлетворяющие первому range.

roah

А если так:

Code:

LOOP AT RANGE1 
   WHERE LOW IN RANGE2
        OR HIGH IN RANGE2.
   APPEND RANGE1 TO TABLE RANGE3.
ENDLOOP.

LOOP AT RANGE2 
   WHERE LOW IN RANGE1.
        OR HIGH IN RANGE1.
   APPEND RANGE2 TO TABLE RANGE3.
ENDLOOP.

LOOP AT RANGE3. 
   APPEND RANGE3-LOW TO IT_RANGE_FIELD_TYPE. 
   APPEND RANGE3-HIGH TO IT_RANGE_FIELD_TYPE. 
ENDLOOP.

SORT IT_RANGE_FIELD_TYPE. 
DELETE ADJACENT DUPLICATES FROM IT_RANGE_FIELD_TYPE COMPARING ALL FIELDS.

LOOP AT IT_RANGE_FIELD_TYPE
   WHERE IT_RANGE_FIELD_TYPE-<FIELD> IN RANGE1
       AND IT_RANGE_FIELD_TYPE-<FIELD> IN RANGE2.
   WRITE / 'ranges пересекаются'.
   EXIT.
ENDLOOP.

Мне кажется, так можно достичь цели.

Удав

roah написал(а):

Мне кажется, так можно достичь цели.

Только в случае, если OPTION = 'EQ'. :wink:

Самый надежный способ - у Chirva. Если результат затем "свернуть" с помощью BT.

Serge69

Еще можно попробовать ФМ RRK_RANGE_INTERSECT

Правила форума

сравнить два ranges (на предмет пересечения интервалов)

Кто сейчас на конференции