AT SELECTION-SCREEN. IF sscrfields-ucomm = 'DOWNLOAD'. " 下载模板 PERFORM frm_excel_export. " 用于下载文件 ENDIF. 执行数据查询 *&---* *& START-OF-SELECTION/开始选择屏幕(点击执行按钮之后执行的语块) *&---* START-OF-SELECTION . PERFORM frm_deal_data. " 处理数据 IF sy-batch EQ abap...
23.怎样做带按钮的选择画面? ① TABLES SSCRFIELDS. ② SELECTION-SCREEN PUSHBUTTON /[/]<pos(len)> <name> <ucom> [MODIF ID <key>]. ③ INITIALIZATION. MOVE 'My text' TO <name>. ④ AT SELECTION-SCREEN. ⑤ IF SSCRFIELDS-UCOMM = <ucom>. ENDIF. 上述代码的描述: ① 定义构造SSCRFIELDS; ...
SELECTION SCREEN PUSHBUTTON [/]<pos(len)><name> USER-COMMAND <ucom> [MODIF ID <key>]. <name>是按钮文本。对于<ucom>,必须指定最多为4字符的代码。当用户在选择屏幕上单击按钮时,<ucom>被输入词典字段SSCRFIELDS-UCOMM.必须使用TABLES语句声明SSCRFIELDS. REPORT ZJESSE02. TABLES SSCRFIELDS. DATA FLA...
① TABLES SSCRFIELDS. ② SELECTION-SCREEN PUSHBUTTON /[/]<pos(len)> <name> <ucom> [MODIF ID <key>]. ③ INITIALIZATION. MOVE 'My text' TO <name>. ④ AT SELECTION-SCREEN. ⑤ IF SSCRFIELDS-UCOMM = <ucom>. ENDIF. 上述代码的描述: ① 定义构造SSCRFIELDS; ② 使用命令Selection-screen p...
sscrfields-ucomm = 'ONLI'. i_gettype = 3. when others. i_gettype = 2. ENDCASE. start-of-SELECTION. case i_gettype. when 1. perform get_meth. when 2. perform get_att. when 3. perform get_event. endcase. END-OF-SELECTION. ...
SSCRFIELDS-UCOMM = ''. RETURN. ELSEIF SSCRFIELDS-UCOMM = 'FC02'. PERFORM FRM_EXCEL_DOWN USING 'B'. SSCRFIELDS-UCOMM = ''. RETURN. ENDIF. IF SY-UCOMM = 'ONLI' ."执行时 * IF P_CHK01 = 'X'. * IF P_ZGZRQ IS INITIAL * OR P_HKONT1 IS INITIAL * OR P_RSTGR IS INITIAL...
ELSEIF sscrfields-ucomm EQ 'CLI2'. PERFORM demo_forms_server USING p_file. ENDIF. START-OF-SELECTION. PERFORM open_excel_hide USING p_file. PERFORM close_excel. PERFORM open_excel USING p_file. PERFORM close_excel. PERFORM open_excel_sheet USING 'sheet2' p_file. DO 10 TIMES. PERFORM...
IFSSCRFIELDS-UCOMM='ONLI'. IFP_PROGIS INITIAL. MESSAGE'SpecifyProgram Name'TYPE'E'. ENDIF." IF P_PROG IS INITIAL ENDIF." IF SSCRFIELDS-UCOMM = 'ONLI' * If file path is notentered on the screen IFSSCRFIELDS-UCOMM='ONLI'.
sscrfields-ucomm = 'ONLI'. i_gettype = 3. when others. i_gettype = 2. ENDCASE. start-of-SELECTION. case i_gettype. when 1. perform get_meth. when 2. perform get_att. when 3. perform get_event. endcase. END-OF-SELECTION. ...
DATA : current_ucomm LIKE sscrfields-ucomm. FIELD-SYMBOLS : <fs> TYPE ANY. selection-screen declaration. keeping the button names and its user-command same will make things easier later... SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME NO INTERVALS. SELECTION...