ABAP DEMO篇21 选择屏幕显示说明TEXT

实现方式1：

*&---------------------------------------------------------------------*
*& Report YCX_006
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YDEMO_021.

TABLES: marc,ztpp0038,sscrfields.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_file TYPE rlgrap-filename MODIF ID cj.
SELECT-OPTIONS: s_gc FOR marc-werks NO INTERVALS NO-EXTENSION MODIF ID cj."工厂
PARAMETERS: p_del TYPE c AS CHECKBOX DEFAULT abap_true MODIF ID cj.
SELECT-OPTIONS: s_werks FOR ztpp0038-werks MODIF ID cx,
                s_ernam FOR ztpp0038-ernam MODIF ID cx,
                s_ersda FOR ztpp0038-ersda DEFAULT sy-datum MODIF ID cx,
                s_uzeit FOR ztpp0038-uzeit MODIF ID cx.
SELECTION-SCREEN:END OF BLOCK b1.

SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_cj TYPE c RADIOBUTTON GROUP gp1 DEFAULT 'X' USER-COMMAND flag1,
            p_cx TYPE c RADIOBUTTON GROUP gp1.
SELECTION-SCREEN:END OF BLOCK b2.
SELECTION-SCREEN: FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (12) s_text MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text1 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text2 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text3 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
........

INITIALIZATION.
  PERFORM frm_init_text.

AT SELECTION-SCREEN OUTPUT.
  PERFORM frm_control_field.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD zcl_jt=>f4_file_excel
    CHANGING
      cv_file_name = p_file.

START-OF-SELECTION.

  WRITE:'hello world'.

*&---------------------------------------------------------------------*
*& Form FRM_CONTROL_FIELD
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_control_field .

  LOOP AT SCREEN.
    CASE screen-group1.
      WHEN 'CJ'.
        screen-active = COND #( WHEN P_CJ IS NOT INITIAL THEN 1 ELSE 0 ).
      WHEN 'CX'.
        screen-active = COND #( WHEN P_CX IS NOT INITIAL THEN 1 ELSE 0 ).
      WHEN OTHERS.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.

  IF p_cj IS NOT INITIAL.
    sscrfields-functxt_01 = VALUE smp_dyntxt( icon_id = icon_export icon_text = |{ TEXT-003 }| ).
  ELSE.
    CLEAR: sscrfields-functxt_01.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_INIT_TEXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_init_text .
  s_text  = |{ icon_message_warning }{ TEXT-T00 }|.
  s_text1 = |{ TEXT-T01 }|.
  s_text2 = |{ TEXT-T02 }|.
  s_text3 = |{ TEXT-T03 }|.

ENDFORM.

实现方式2.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(77) comm1.
SELECTION-SCREEN END OF LINE.

*----------------------------------------------------------------------*
* INITIALIZATION.
*----------------------------------------------------------------------*
INITIALIZATION.
PERFORM frm_init_data.

FORM frm_init_data .
DATA: lv_subscreen TYPE string .
comm1 = icon_message_warning && '！！！注意：导入前请先关闭Excel文件'(s10).
mytab-prog = sy-repid.

ENDFORM.

你盯着我

不关注

不点赞

不评论

难道是想暗算我？？？

卡忙on，用丘比特的箭暗算我吧！

ABAP DEMO篇21 选择屏幕显示说明TEXT

猜你喜欢