1000 화면에 버튼 추가

2182 단어
1. status 버튼 추가:
DATA: g_textfield LIKE smp_dyntxt.


INITIALIZATION.
  g_textfield-icon_id = '@48@'.
  g_textfield-icon_text =  ' '.
  g_textfield-quickinfo = ' '.   
  sscrfields-functxt_01 = g_textfield.

AT SELECTION-SCREEN.
   CASE sscrfields-ucomm. 
    WHEN 'FC01'. "    user command 
      
*    WHEN 'FC02'.

  ENDCASE.

 
2. 선택 화면에 버튼 추가
 
SELECTION-SCREEN PUSHBUTTON 1(16) but1 USER-COMMAND downfile. "  

INITIALIZATION.
CALL FUNCTION 'ICON_CREATE' "  
    EXPORTING
      name   = 'ICON_EXPORT'   "   ICON_EXPORT
      text   = ' '                   " 
      info   = ' '
    IMPORTING
      RESULT = but1
    EXCEPTIONS
      OTHERS = 0.

AT SELECTION-SCREEN.
    CASE sy-ucomm.
        WHEN 'DOWNFILE'.
          perform XXX
          STOP.
        WHEN OTHERS.
      ENDCASE.

좋은 웹페이지 즐겨찾기