Type M : F4 Date

• Create Date   : 2010-11-09
• Change Date : 2010-11-09

---

잡담 -ㅂ-;

컨츄럴~

---

DATE TYPE F4

  PROCESS ON VALUE-REQUEST.
   FIELD : GV_DATE_OLD MODULE F4_GV_DATE_OLD,
           GV_DATE_NEW MODULE F4_GV_DATE_NEW.

  DATA : RETURN_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE,
       SCR_FIELD  LIKE DYNPREAD   OCCURS 0 WITH HEADER LINE.

DATA:
  l_select_date LIKE workflds-gkday,
  l_select_week LIKE scal-week.

   MODULE F4_GV_DATE_OLD INPUT.

  CLEAR : l_select_date, l_select_week.

* pop up calendar.
  CALL FUNCTION 'F4_DATE'
    EXPORTING
      date_for_first_month = sy-datum
    IMPORTING
      select_date = l_select_date
      select_week = l_select_week
    EXCEPTIONS
      calendar_buffer_not_loadable = 1
      date_after_range = 2
      date_before_range = 3
      date_invalid = 4
      factory_calendar_not_found = 5
      holiday_calendar_not_found = 6
      parameter_conflict = 7
      OTHERS = 8.
  IF sy-subrc <> 0.
    EXIT.
  ELSE.
*     Validate date - An invalid date is caused by using the cancel
*     button on the calendar
    CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
     EXPORTING
       date = l_select_date
     EXCEPTIONS
       plausibility_check_failed = 1
       OTHERS = 2.
    IF sy-subrc <> 0.
*     User has cancelled the calendar
      EXIT.
    ELSE.
      GV_DATE_OLD = l_select_date.

      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          DYNAME                     = sy-cprog
          DYNUMB                     = sy-dynnr
        TABLES
          DYNPFIELDS                 = SCR_FIELD
       EXCEPTIONS
         INVALID_ABAPWORKAREA       = 1
         INVALID_DYNPROFIELD        = 2
         INVALID_DYNPRONAME         = 3
         INVALID_DYNPRONUMMER       = 4
         INVALID_REQUEST            = 5
         NO_FIELDDESCRIPTION        = 6
         UNDEFIND_ERROR             = 7
         OTHERS                     = 8
                .
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.

    ENDIF.

  ENDIF.

ENDMODULE.                 " F4_GV_DATE_OLD  INPUT