年+月的字段选择，YYYYMM

 

REPORT  z_barry_pop_month                       .

DATA: l_code  LIKE  sy-subrc.
DATA: lv_date(10) TYPE c.
DATA: BEGIN OF lwa_date OCCURS 0,
      lv_d(2) TYPE c VALUE '1',
      END OF lwa_date.

PARAMETER: p_month LIKE isellist-month.
PARAMETER: p_date(2) TYPE c.

AT SELECTION-SCREEN.

INITIALIZATION.
  DO 31 TIMES.
    APPEND lwa_date TO lwa_date.
    lwa_date-lv_d = lwa_date-lv_d + 1.
    WRITE lwa_date-lv_d.
  ENDDO.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_month.

  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      actual_month               = '200505'
      language                   = sy-langu
      start_column               = 8
      start_row                  = 5
    IMPORTING
      selected_month             = p_month
      return_code                = l_code
    EXCEPTIONS
      factory_calendar_not_found = 1
      holiday_calendar_not_found = 2
      month_not_found            = 3
      OTHERS                     = 4.

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.

  CHECK NOT lwa_date[] IS INITIAL.
  CALL FUNCTION 'POPUP_WITH_TABLE'
    EXPORTING
      endpos_col   = 5
      endpos_row   = 10
      startpos_col = 2
      startpos_row = 1
      titletext    = 'DATE'
    IMPORTING
      choice       = lwa_date
    TABLES
      valuetab     = lwa_date
    EXCEPTIONS
      break_off    = 1
      OTHERS       = 2.
  p_date = lwa_date-lv_d.

END-OF-SELECTION.
  CONCATENATE    p_date '/' p_month+4(2) '/' p_month+0(4) INTO lv_date.
  WRITE:/ 'IN DD/MM/YYYY', lv_date.
  CONCATENATE p_month+4(2) '/' p_date '/' p_month+0(4) INTO lv_date.
  WRITE:/ 'IN MM/DD/YYYY', lv_date.
  CONCATENATE  p_month+0(4) '/' p_month+4(2) '/' p_date INTO lv_date.
  WRITE:/ 'IN YYYY/MM/DD', lv_date.