comm3='地点:'. comm4='库存地点:'. 4.屏幕选择动作下的检查动作 AT SELECTION-SCREEN. *在执行或者回车的时候,检查必输字段 IFSY-UCOMM='ONLI'ORSY-UCOMM=''. IFs_class[]IS INITIAL. MESSAGEE000(ZRT01)WITH'类别不能为空'. ENDIF. IFs_zbzcat-low >'Q3'ORs_zbzcat-high >'Q3'. MESSAGEE000...
IF sy-ucomm = 'ONLI'. AUTHORITY-CHECK OBJECT 'M_BEST_WRK' * ID 'ACTVT' FIELD '03' ID 'WERKS' FIELD p_werks. IF sy-subrc <> 0. MESSAGE '您没有查看该工厂的权限!' TYPE 'E'. ENDIF. ENDIF. *&---* *& Start-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...
if sy-subrc ne 0. message 'The % is not existent.' TYPE 'E'. endif. CASE sscrfields-ucomm. WHEN 'FC01'. *trigge start-of-SELECTION event sscrfields-ucomm = 'ONLI'. i_gettype = 1. WHEN 'FC02'. *trigge start-of-SELECTION event sscrfields-ucomm = 'ONLI'. i_gettype = 2. W...
'.EXIT.ENDIF.MESSAGES001(00)WITH'FTP connect OK!'.CASESY-UCOMM.WHEN'ONLI'.PERFORMFTPDISCONNECT.EXIT.ENDCASE. 代码语言:javascript 复制 *执行FTP功能PERFORMFTP_EXECUTE.*关闭FTP连接PERFORMFTPDISCONNECT.*---**改变密码输入框显示属性,实现密码保护**---*FORMMASK_PWD.LOOPATSCREEN.IFSCREEN-NA...
if sy-subrc ne 0. message 'The % is not existent.' TYPE 'E'. endif. CASE sscrfields-ucomm. WHEN 'FC01'. *trigge start-of-SELECTION event sscrfields-ucomm = 'ONLI'. i_gettype = 1. WHEN 'FC02'. *trigge start-of-SELECTION event ...
It is not recommended that the system fieldsy-ucomminstead ofsscrfields-ucommis evaluated, since this does not guarantee thatsy-ucommis always given the correct value inselection screen processing. Example For parameterp, the system creates a dropdown list box, whose values are created once ...
*&本程序总结了常用的ABAP对EXCEL的操作，包括如下子例程 *&方法名方法说明 *&(1)create_excel创建excel *&(2)insert_row插入行 *&(3)fill_cell填充单元格 *&(4)columnwidth调整列宽 *&(5)create_sheet创建sheet *&(6)copy_sheet_allsheet复制 *&(7)copy_sheet_areasheet区域复制 *&(8)copy_cells复制...
CHECK sy-ucomm EQ 'ONLI' OR sy-ucomm EQ 'PRIN' . DATA: st_scarr_h TYPE tp_scarr_h . DATA: it_sbook_t TYPE tp_sbook_t_tab . PERFORM get_data_1 CHANGING st_scarr_h it_sbook_t . PERFORM wrt_data_1 USING st_scarr_h it_sbook_t . ENDFORM . "at_selection_scree...
ELSEIF sscrfields-ucomm EQ 'ONLI'. IF p_file IS INITIAL. MESSAGE e803(zdev). ENDIF. ELSEIF sscrfields-ucomm EQ 'CLI0'. PERFORM demo_forms. ELSEIF sscrfields-ucomm EQ 'CLI2'. PERFORM demo_forms_server USING p_file. ENDIF. ...