弹出对话框

作者: Mmm_余安 | 来源:发表于2017-10-31 17:33 被阅读13次

例图.png

 DATA ANSWER TYPE STRING.  " 应答返回值

  CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
              EXPORTING
                DEFAULTOPTION = 'Y'  "Y默认是 ' ' 默认否
                DIAGNOSETEXT1 = '凭证有错误行项目'  " 标题名
*               DIAGNOSETEXT2 = ' '
*               DIAGNOSETEXT3 = ' '
                TEXTLINE1     = '是否继续？'  " 内容
*               TEXTLINE2     = ' '
                TITEL         = '警告' " 菜单
                START_COLUMN  = 45
                START_ROW     = 6
*               CANCEL_DISPLAY       = 'X'
              IMPORTING
                ANSWER        = ANSWER. " J 是 ，N 否 ，A 取消
*             MESSAGE W384(ZFIN01) .
*         "  MESSAGE '凭证有错误行项目' type 'S'  DISPLAY LIKE 'E'.