*&---------------------------------------------------------------------*
*& Report  ZTEST61111                                                  *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZTEST61111                              .

DATA: OBJ LIKE OBJEC OCCURS 0 WITH HEADER LINE,
      HRP LIKE HRP1000 OCCURS 0 WITH HEADER LINE,
      DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.


RANGES: OBJID FOR OBJ-OBJID .

SELECT-OPTIONS: STEXT FOR OBJ-STEXT NO INTERVALS OBLIGATORY.

SELECTION-SCREEN: SKIP,
                  COMMENT 1(8) HOBJID.

AT SELECTION-SCREEN OUTPUT.
  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR STEXT-LOW.

  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].
  CALL FUNCTION 'HR_SHIFTPLAN_GET_MULT_ENTRY'
    EXPORTING
      PLVAR         = '01'
      OTYPE         = 'O'
      BEGDA         = SY-DATUM
      ENDDA         = SY-DATUM
    TABLES
      OBJECTS_FOUND = OBJ.

  CLEAR: HOBJID.
  LOOP AT OBJ.
    OBJID-SIGN = 'I'.
    OBJID-OPTION = 'EQ'.
    OBJID-LOW = OBJ-OBJID.
    APPEND OBJID.
    STEXT-LOW = OBJ-STEXT.
    STEXT-SIGN = 'I'.
    STEXT-OPTION = 'EQ'.
    HOBJID = OBJ-OBJID.
    APPEND STEXT.
  ENDLOOP.
  CLEAR: DYN, DYN[].
  DYN-FIELDNAME = 'HOBJID'.
  DYN-FIELDVALUE = HOBJID.
  APPEND DYN.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME     = SY-CPROG
      DYNUMB     = SY-DYNNR
    TABLES
      DYNPFIELDS = DYN
    EXCEPTIONS
      OTHERS     = 8.


START-OF-SELECTION.
  CLEAR: HRP, HRP[].
  SELECT * FROM HRP1000 APPENDING TABLE HRP
     WHERE PLVAR = '01' AND OTYPE = 'O' AND
        OBJID IN OBJID AND LANGU = SY-LANGU AND
         BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM.

  WRITE:/ 'Вы выбрали:'.
  LOOP AT HRP.
    WRITE:/ HRP-OBJID, HRP-STEXT.
  ENDLOOP.