微型计算机中的ALV,ALV中添加按钮 进行修改、创建、删除、添加、导入、保存等操作...

&———————————————————————

*& Form FRM_CHANGE_FUNCTION

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_change_function .

DATA:lw_layout TYPE slis_layout_alv.

CLEAR: lw_layout.”它用来定义ALV报表的整体属性

lw_layout-edit = ‘X’.

CALL FUNCTION ‘REUSE_ALV_GRID_LAYOUT_INFO_SET’

EXPORTING

is_layout = lw_layout.

ENDFORM.

&———————————————————————

*& Form FRM_DELETE_FUNCTION

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_delete_function .

DATA: l_answer(1) TYPE c.

READ TABLE gt_out WITH KEY sel = ‘X’.

IF sy-subrc <> 0.

MESSAGE ‘请选择要删除的行！’ TYPE ‘E’.

ELSE.

CALL FUNCTION ‘POPUP_TO_CONFIRM’

EXPORTING

titlebar = ‘删除’

text_question = ‘是否要删除该内容？’

default_button = ‘2’

display_cancel_button = ‘X’

IMPORTING

answer = l_answer

EXCEPTIONS

text_not_found = 1

OTHERS = 2.

IF l_answer = ‘1’.

LOOP AT gt_out WHERE sel = ‘X’.

DELETE gt_out.

DELETE FROM zpm003 WHERE swerk = gt_out-swerk AND zzfgs = gt_out-zzfgs.

IF sy-subrc = 0.

MESSAGE ‘删除成功！’ TYPE ‘S’.

ELSE.

MESSAGE ‘删除失败！’ TYPE ‘E’.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF.

ENDFORM.

&———————————————————————

*& Form FRM_CREATE_FUNCTION

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_create_function .

APPEND INITIAL LINE TO gt_out.

ENDFORM.

&———————————————————————

*& Form FRM_SAVE_FUNCTION

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_save_function .

DATA: lv_valid TYPE char01.

DATA:lv_mes TYPE string.

DATA lt_save TYPE TABLE OF zpm003 WITH HEADER LINE.

CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR’

IMPORTING

e_grid = g_grid.

CALL METHOD g_grid->check_changed_data

IMPORTING

e_valid = lv_valid.

IF lv_valid IS INITIAL.

EXIT.

ENDIF.

REFRESH lt_save.

LOOP AT gt_out.

lt_save-swerk = gt_out-swerk.

lt_save-name1 = gt_out-name1.

lt_save-zzfgs = gt_out-zzfgs.

lt_save-butxt = gt_out-butxt.

lt_save-bukrs = gt_out-bukrs.

lt_save-butxt_d = gt_out-butxt_d.

APPEND lt_save.

CLEAR lt_save.

ENDLOOP.

MODIFY zpm003 FROM TABLE lt_save.

COMMIT WORK.

IF sy-subrc = 0.

MESSAGE ‘保存成功！’ TYPE ‘I’.

ELSE.

MESSAGE ‘保存失败！’ TYPE ‘E’.

ENDIF.

ENDFORM.

&———————————————————————

*& Form FRM_IMPORT_FUNCTION

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_import_function .

PERFORM frm_get_fiel_name.

PERFORM frm_excel_upload.

PERFORM frm_data_get.

ENDFORM.

&———————————————————————

*& Form FRM_GET_FIEL_NAME

&———————————————————————

* text

———————————————————————-

* –> p1 text

* ———————————————————————-

FORM frm_get_fiel_name .

CALL FUNCTION ‘WS_FILENAME_GET’

EXPORTING

mode = ‘O’

title = ‘选取路径’

IMPORTING

filename = gv_file

EXCEPTIONS

inv_winsys = 1

no_batch = 2

selection_cancel = 3

selection_error = 4

OTHERS = 5.