按钮弹出框

1. 日期 时间 修改
   （1）、演示效果
   

DATA: it_value  TYPE TABLE OF sval,
      wa_value  TYPE sval,
      lv_rtn_cd.

CLEAR:it_value,wa_value,lv_rtn_cd.

wa_value-tabname = 'ZSM30_LOG'.
wa_value-fieldname = 'ERDAT'.
wa_value-value = sy-datum.
APPEND wa_value TO it_value.
wa_value-tabname = 'ZSM30_LOG'.
wa_value-fieldname = 'ERTIM'.
wa_value-value = sy-datum.
APPEND wa_value TO it_value.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
*   NO_VALUE_CHECK  = ' '
    popup_title     = '日期选择'
*   START_COLUMN    = '5'
*   START_ROW       = '5'
  IMPORTING
    returncode      = lv_rtn_cd
  TABLES
    fields          = it_value
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.