Список дат

Дмитрий

Может, кто-нибудь сталкивался... Есть ли стандартный ф. модуль, которому на вход подается range-таблица с ограничениями на даты, а на выходе таблица с датами, удовлетворяющая ограничениям?

T

Хороший был бы список по ограничению типа
E EQ 20060101

OlegDm

действительно, range может быть разный.

Если у тебя ограничение типа: Начало-Конец, то можно воспользоваться, например, ФМ RKE_SELECT_FACTDAYS_FOR_PERIOD. Этот ФМ возвращает рабочие дни с учетом используемого календаря (т.е. позволяет исключить выходные, праздничные дни).

Дмитрий

T написал:

Хороший был бы список по ограничению типа
E EQ 20060101

производственный календарь всегда ограничен и обычно 15-30 годами. никакого криминала.

РМщик

если просто нужен список дат, без учета произв.календаря,
то зачем функция? тут и так всё элементарно.... :!:

Code:

   CONSTANTS:  MINDATA LIKE SY-DATUM VALUE '20000101',
                        MAXDATA LIKE SY-DATUM VALUE '20100101'.

   DATA: BEGIN OF SPISOK OCCURS 0,
                DATUM LIKE SY-DATUM,
             END OF SPISOK,
            TEKDAT LIKE SY-DATUM.
  

   SELECT-OPTIONS: DATUM FOR SY-DATUM.

   START-OF-SELECTION.
    
   CLEAR: SPISOK[].
   TEKDAT = MINDATA.
   WHILE TEKDAT <= MAXDATA.
        IF TEKDAT IN DATUM.
             SPISOK-DATUM = TEKDAT.
             APPEND SPISOK.
       ENDIF.
       ADD 1 TO TEKDAT.
  ENDWHILE.

  LOOP AT SPISOK.
     WRITE:/ SPISOK-DATUM.
  ENDLOOP.  

РМщик

как вариант, если нужна проверка на:
- праздник/непраздник
- суббота/воскресенье

Code:

REPORT Z1 .
CONSTANTS:  MINDATA LIKE SY-DATUM VALUE '20000101',
            MAXDATA LIKE SY-DATUM VALUE '20100101'.

DATA: BEGIN OF SPISOK OCCURS 0,
             DATUM LIKE SY-DATUM,
          END OF SPISOK,
         TEKDAT LIKE SY-DATUM,
         HF,
         HA TYPE TABLE OF THOL,
         DW TYPE P.


SELECT-OPTIONS: DATUM FOR SY-DATUM.

PARAMETERS:   WITHHOL AS CHECKBOX ,
              WITHVYH AS CHECKBOX.

START-OF-SELECTION.

  CLEAR: SPISOK[].
  TEKDAT = MINDATA - 1.
  WHILE TEKDAT <= MAXDATA.
    ADD 1 TO TEKDAT.
    IF TEKDAT IN DATUM.
      CLEAR: HF, HA[], DW.

      IF WITHHOL = SPACE.
        CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
          EXPORTING
            DATE                = TEKDAT
            HOLIDAY_CALENDAR_ID = 'RU'
          IMPORTING
            HOLIDAY_FOUND       = HF
          TABLES
            HOLIDAY_ATTRIBUTES  = HA
          EXCEPTIONS
                OTHERS = 99.
      ENDIF.

      IF WITHVYH = SPACE.
        CALL FUNCTION 'DAY_IN_WEEK'
          EXPORTING
            DATUM = TEKDAT
          IMPORTING
            WOTNR = DW.
        IF DW = 6 OR DW = 7.
          HF = 'X'.
        ENDIF.
      ENDIF.


      CHECK HF IS INITIAL.
      SPISOK-DATUM = TEKDAT.
      APPEND SPISOK.
    ENDIF.
  ENDWHILE.

  LOOP AT SPISOK.
    WRITE:/ SPISOK-DATUM.
  ENDLOOP.

Дмитрий

Всем спасибо, все получилось!
Но мне все равно решение с перебором всех дат не очень нравится.

РМщик

Дмитрий написал:

Всем спасибо, все получилось!
Но мне все равно решение с переборов всех дат не нравится.

чем? быстродействие тут нормальное,
а если даты не ограничивать, то....

Bully

Дмитрий написал:

Может, кто-нибудь сталкивался... Есть ли стандартный ф. модуль, которому на вход подается range-таблица с ограничениями на даты, а на выходе таблица с датами, удовлетворяющая ограничениям?

Лучше напиши, какая задача перед тобой стоит?
А то велосипед похоже изобретать взумал

sibrin

РМщик написал(а):

чем? быстродействие тут нормальное,
а если даты не ограничивать, то....

При правильной постановке задачи множество в ranges должно быть ограничено. Поэтому даты ограничивать логичнее не абстрактными константами, а минимальным и максимальным значением дат в ranges вне зависимости от sign. Тогда, даже если задан открытый интервал, результат будет более-менее разумный.

РМщик

sibrin написал:

При правильной постановке задачи множество в ranges должно быть ограничено. Поэтому даты ограничивать логичнее не абстрактными константами, а минимальным и максимальным значением дат в ranges вне зависимости от sign. Тогда, даже если задан открытый интервал, результат будет более-менее разумный.

с этим - согласен

но это уже тонкости :roll:

Uukrul

Тут случайно попалась на глаза:

FKK_DTE_CALC_NEXT_DATES - кажется самое оно в этом случае...

Дмитрий

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

Тут случайно попалась на глаза:

FKK_DTE_CALC_NEXT_DATES - кажется самое оно в этом случае...

в 4.6С такого ф.м. нет.

РМщик

наверное CACS_FKK_DTE_CALC_NEXT_DATES

Uukrul

РМщик написал(а):

наверное CACS_FKK_DTE_CALC_NEXT_DATES

Да нет у меня без CASC и есть и система 4.6С, но наверное это из дополнительного функционала поставилось, могу текст прицепить, а вообще посмотрите есть ли группа функций FKDATE

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

Список дат

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