• ABAP 导入Excel表示例程序

    目录

    ABAP 导入excel示例程序

    批量导入程序，需要使用到导入模板，首先需要创建程序，之后是需要创建excel导入模板，并且需要将excel导入模板上传到SAP系统里面，之后才可以下载下来进行导入。

    创建程序

    ABAP 批量导入excel，右击创建程序：
    在这里插入图片描述

    *&---------------------------------------------------------------------*
*& Report z_test_import_excel
*&---------------------------------------------------------------------*
*& TYPE：Report
*& Description：批量导入excel测试
*& Creator：刘洪裕
*& Created On：2024年2月19日
*&---------------------------------------------------------------------*
*                           Change History
* ----------        -------------       -------------      -------------
*   Version          Date                Change By           Description
* ----------        -------------       -------------      -------------
*   N                2024.2.19           Hongyu.Liu          创建
*&---------------------------------------------------------------------*
Report z_test_import_excel NO STANDARD PAGE HEADING MESSAGE-ID zfimf01.

TABLES: sscrfields.

"定义相关变量
*TYPES: BEGIN OF ty_data,
*   werks TYPE zfi_mfwb-werks,  "工厂
*   zmj_matnr TYPE zfi_mfwb-zmj_matnr,  "模具料号
*   zcp_matnr TYPE zfi_mfwb-zcp_matnr,  "挤压产出成品料号
*   zdmczl TYPE zfi_mfwb-zdmczl,  "单套模具预计产出重量
*   zsfty TYPE zfi_mfwb-zsfty,  "是否通用
*   zwhrj TYPE zfi_mfwb-zwhrj,  "维护日期
*   zwhr TYPE zfi_mfwb-zwhr,  "维护人
*END OF ty_data.
*DATA gs_data TYPE  ty_data.  "工作区
*DATA gt_data TYPE TABLE OF ty_data.  "内表


*&---------------------------------------------------------------------*
*&  定义相关变量
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ts_output,  "展示结构
         "INCLUDE STRUCTURE zfi_mfwb.
         werks     TYPE zfi_mfwb-werks,  "工厂
         zxlh      TYPE zfi_mfwb-zxlh,  "序列号
         zmj_matnr TYPE zfi_mfwb-zmj_matnr,  "模具料号
         zcp_matnr TYPE zfi_mfwb-zcp_matnr,  "挤压产出成品料号
         "zdmczl TYPE p DECIMALS 2 ,  "单套模具预计产出重量，两位小数
         zdmczl    TYPE zfi_mfwb-zdmczl,  "单套模具预计产出重量
         "zsfty     TYPE zfi_mfwb-zsfty,  "是否通用
         zsfty     TYPE abap_bool,  "是否通用
         zwhrj     TYPE zfi_mfwb-zwhrj,  "维护日期
         zwhr      TYPE zfi_mfwb-zwhr,  "维护人
         zsfbf     TYPE zfi_mfwb-zsfbf,  "是否报废
         type      TYPE bapiret2-type,
         message   TYPE char100,   "bapiret2-message,
         icon      TYPE text20,
         slbox     TYPE c,
         celltab   TYPE  lvc_t_styl, "设置单元格编辑状态
END OF ts_output.
TYPES: BEGIN OF ty_data,"导入数据结构
         werks     TYPE zfi_mfwb-werks,  "工厂
         zxlh      TYPE zfi_mfwb-zxlh,  "序列号
         zmj_matnr TYPE zfi_mfwb-zmj_matnr,  "模具料号
         zcp_matnr TYPE zfi_mfwb-zcp_matnr,  "挤压产出成品料号
         "zdmczl TYPE p DECIMALS 2 ,  "单套模具预计产出重量，两位小数
         zdmczl    TYPE zfi_mfwb-zdmczl,  "单套模具预计产出重量
         "zdmczl    LIKE vbap-ntgew,  "单套模具预计产出重量
         zsfty     TYPE zfi_mfwb-zsfty,  "是否通用
         zwhrj     TYPE zfi_mfwb-zwhrj,  "维护日期
         zwhr      TYPE zfi_mfwb-zwhr,  "维护人
       END OF ty_data.

*DATA: is_data TYPE ty_data.   "导入结构的工作区
*DATA: it_data TYPE TABLE OF ty_data.  "导入结构的工作表
CONSTANTS:cos_template TYPE w3objid VALUE 'ZFIMFWB01',
          cos_filename TYPE string VALUE '模具分摊维护表导入模板.xlsx'.

DATA: gs_layout TYPE lvc_s_layo,
      gt_fieldcat TYPE lvc_t_fcat,
      gs_fieldcat TYPE lvc_s_fcat,
      gs_variant TYPE disvariant. "屏幕变式

DATA: gt_output TYPE STANDARD TABLE OF ts_output WITH DEFAULT KEY,
      gs_output TYPE ts_output.
"DATA: gt_input TYPE TABLE OF zfi_mfwb.  "内表结构与zfi_mfwb一致
DATA: gt_input TYPE TABLE OF ty_data.  "导入模板数据
DATA: gt_output_old TYPE STANDARD TABLE OF ts_output WITH DEFAULT KEY."被修改前的数据

DATA: gt_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE. "用来存储屏幕字段参数值,传递录屏参数
DATA: gt_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. "记录执行BDC过程中产生的消息

DATA: gv_mode TYPE c VALUE 'N'.

* 用于 修改要提示，删除要提示
DATA:gv_edit_flag  TYPE c, "X 表示修改过
     gv_save_flag  TYPE c, "X 表示已经保存。
     gv_check_flag TYPE c, "X 表示已经保存。
     gv_sref_flag  TYPE c, "X 表示刷新。
     gv_line       TYPE int4. "行数

CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
      handle_data_changed
        FOR EVENT data_changed OF cl_gui_alv_grid
        IMPORTING er_data_changed,
      handle_data_changed_finished
        FOR EVENT data_changed_finished OF cl_gui_alv_grid
        IMPORTING
          e_modified
          et_good_cells.
  ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_data_changed.
*    PERFORM FRM_DATA_CHANGED
*                  USING ER_DATA_CHANGED.
  ENDMETHOD.
  METHOD handle_data_changed_finished.
*    PERFORM FRM_DATA_CHANGED_FINISH
*                  USING E_MODIFIED ET_GOOD_CELLS.
    ENDMETHOD.
  ENDCLASS.
*&---------------------------------------------------------------------*
*&  选择屏幕
*&---------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1. "这是在屏幕的执行按钮后的位置添加一个功能按钮

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS p_file TYPE rlgrap-filename  MODIF ID m1.
SELECTION-SCREEN END OF BLOCK blk1.

*&---------------------------------------------------------------------*
*&  定义相关变量
*&---------------------------------------------------------------------*

FORM frm_init_data.
  DATA: ls_textfield TYPE smp_dyntxt. "菜单制作器:动态文本的程序接口
  ls_textfield-icon_id  = '@49@'.
  ls_textfield-icon_text  = '下载导入模板'.
  sscrfields-functxt_01 = ls_textfield.
  ENDFORM.


*&---------------------------------------------------------------------*
*&  屏幕事件
*&---------------------------------------------------------------------*

INITIALIZATION. "初始化
  "选择屏幕添加按钮
  PERFORM frm_init_data.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR  p_file. "按选择帮助<F4>键时触发该事件
  PERFORM frm_get_file_name CHANGING p_file.

AT SELECTION-SCREEN.  "在此事件里可以进行对用户输入进行完整性进行检查。
* 处理选择屏幕的按钮 下载模板
  PERFORM frm_screen_button_event.

" AT SELECTION SCREEN OUTPUT事件(也就是PBO) ，在这个事件里你可以通过修改系统默认screen内表修改屏幕的某些属性
AT SELECTION-SCREEN OUTPUT.
* 修改选择屏幕的元素的状态
  PERFORM modify_selction_screen_status.

START-OF-SELECTION. "仅在选择屏幕处理结束之后触发，即当用户点击“执行”按钮时
  PERFORM frm_check_authority.
  PERFORM batch_input.
  PERFORM alv_display USING 'X'.
*&---------------------------------------------------------------------*
*& Form frm_get_file_name：获取文件名称
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- P_FILE
*&---------------------------------------------------------------------*
FORM frm_get_file_name CHANGING cv_file.
  DATA: lt_filetable TYPE filetable,  "表类型
        ls_filetable TYPE file_table, "结构类型
        lv_rc TYPE i.
  FREE lt_filetable.
  CLEAR: lv_rc.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
*        window_title            =
        default_extension       = cl_gui_frontend_services=>filetype_excel
*        default_filename        =
        file_filter             = cl_gui_frontend_services=>filetype_excel
*        with_encoding           =
*        initial_directory       =
*        multiselection          =
    CHANGING
        file_table              = lt_filetable
        rc                      = lv_rc
*        user_action             =
*        file_encoding           =
    EXCEPTIONS
        file_open_dialog_failed = 1
        cntl_error              = 2
        error_no_gui            = 3
        not_supported_by_gui    = 4
        OTHERS                  = 5
            .
  READ TABLE lt_filetable INTO ls_filetable INDEX 1.
    IF sy-subrc <> 0.
*     Implement suitable error handling here
    ENDIF.
    IF sy-subrc EQ 0.
      cv_file = ls_filetable-filename.
    ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_screen_button_event：点击下载模板按钮
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_screen_button_event .
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_download_template USING cos_template cos_filename.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form modify_selction_screen_status
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM modify_selction_screen_status .

ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_check_authority
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_check_authority .

ENDFORM.
*&---------------------------------------------------------------------*
*& Form batch_input
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM batch_input .
*   EXCEL数据到内表
  PERFORM file_data_input.
*   转换内表
  PERFORM file_data_convert.
*   检查数据
  PERFORM file_data_check.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form alv_display：展示alv
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&---------------------------------------------------------------------*
FORM alv_display  USING  u_edit TYPE abap_bool .
  PERFORM set_alv_layout.
  PERFORM build_fieldcat USING u_edit.
  PERFORM call_alv_func.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_download_template：下载模板
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> COS_TEMPLATE
*&      --> COS_FILENAME
*&---------------------------------------------------------------------*
FORM frm_download_template  USING    u_objid TYPE w3objid
                                     u_file_name TYPE string.
  DATA: ls_key TYPE wwwdatatab,
        lv_filename TYPE string,
        lv_path TYPE string,
        lv_fullpath TYPE string.

  "判断模板是否存在
  SELECT SINGLE * FROM wwwdata
    WHERE relid EQ 'MI'
    AND objid EQ @u_objid
    INTO CORRESPONDING FIELDS OF @ls_key.
  IF sy-subrc NE 0.
*   模板&1不存在
    MESSAGE s007 WITH u_objid.
    RETURN.
  ENDIF.
*   调用函数打开文件选择框

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
*      window_title              =
      default_extension         = cl_gui_frontend_services=>filetype_excel
      default_file_name         =  u_file_name
*      with_encoding             =
*      file_filter               =
*      initial_directory         =
*      prompt_on_overwrite       = 'X'
    CHANGING
      filename                  = lv_filename
      path                      = lv_path
      fullpath                  = lv_fullpath
*      user_action               =
*      file_encoding             =
    EXCEPTIONS
      cntl_error                = 1
      error_no_gui              = 2
      not_supported_by_gui      = 3
      invalid_default_file_name = 4
      OTHERS                    = 5
          .
  IF sy-subrc <> 0.
*   Implement suitable error handling here
  ENDIF.
  CHECK lv_fullpath NE ''.
*   下载SMW0模版
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key = ls_key
      destination = CONV localfile( lv_fullpath ).

ENDFORM.
*&---------------------------------------------------------------------*
*& Form file_data_input：EXCEL数据到内表
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM file_data_input .
* 数据EXCEL-》内表
  PERFORM frm_excel_to_table TABLES gt_input USING p_file 2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form file_data_convert：转换内表
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM file_data_convert .
*   添加前导0
  LOOP AT gt_input ASSIGNING FIELD-SYMBOL(<lfs_input>).
    <lfs_input>-zmj_matnr = |{ <lfs_input>-zmj_matnr ALPHA = IN }|.
    <lfs_input>-zcp_matnr = |{ <lfs_input>-zcp_matnr ALPHA = IN }|.
    ENDLOOP.
  gt_output = CORRESPONDING #( gt_input ).
ENDFORM.
*&---------------------------------------------------------------------*
*& Form file_data_check：检查数据
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM file_data_check .
  IF gt_output IS NOT INITIAL.
    LOOP AT gt_output ASSIGNING FIELD-SYMBOL(<ls_output>).
      CLEAR:<ls_output>-type,
           <ls_output>-message.
      IF <ls_output>-werks IS INITIAL.
          <ls_output>-type = 'E'.
          <ls_output>-message = '工厂不能为空；'.
      ENDIF.
      IF <ls_output>-zmj_matnr IS INITIAL.
           <ls_output>-type = 'E'.
           <ls_output>-message = <ls_output>-message && '模具料号不能为空；'.
      ENDIF.
      IF <ls_output>-zcp_matnr IS INITIAL.
            <ls_output>-type = 'E'.
            <ls_output>-message = <ls_output>-message && '挤压产出成品料号不能为空；'.
      ENDIF.
      IF <ls_output>-type <> 'E'. "如果关键值不为空
          <ls_output>-type = 'N'. "将类型设置为N
      ENDIF.
      PERFORM set_light CHANGING <ls_output>. "设置提示灯
    ENDLOOP.

  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_excel_to_table
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GT_INPUT
*     -->U_FILE       文件
*     -->U_START_ROW  文件内的数据从哪行开始取
*&---------------------------------------------------------------------*
FORM frm_excel_to_table  TABLES   et_input TYPE STANDARD TABLE
                         USING    u_file  TYPE rlgrap-filename
                                  u_start_row TYPE i.
  DATA: lt_intern TYPE STANDARD TABLE OF zalsmex_tabline.
  FREE: lt_intern.

*DATA FILENAME    TYPE RLGRAP-FILENAME.
*DATA I_BEGIN_COL TYPE I.
*DATA I_BEGIN_ROW TYPE I.
*DATA I_END_COL   TYPE I.
*DATA I_END_ROW   TYPE I.
*DATA INTERN      TYPE STANDARD TABLE OF ZALSMEX_TABLINE.

  CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename          = u_file
      i_begin_col       = 1
      i_begin_row       = 2
      i_end_col         = 99
      i_end_row         = 65536
    TABLES
      intern            = lt_intern
    EXCEPTIONS
      inconsistent_parameters   = 1
      upload_ole                = 2
      OTHERS                    = 3
            .
  IF sy-subrc NE 0.
  ENDIF.
  SORT lt_intern BY row col.
  LOOP AT lt_intern INTO DATA(ls_intern).
    "下面检查是否是数字
    AT NEW row. "如果字段row及row的左侧全部字段的数据，与上一行数据不一致，则执行代码。
      APPEND INITIAL LINE TO et_input ASSIGNING FIELD-SYMBOL(<ls_input>). "创建一个新行，并分配指针
    ENDAT.
    ASSIGN COMPONENT ls_intern-col OF STRUCTURE <ls_input> TO FIELD-SYMBOL(<lv_val>)."就是在每次循环中，都会分配一个结构的字段，是根据索引来决定的
    IF <lv_val> IS ASSIGNED.
      IF ls_intern-col EQ 5.  "如果是第5列（是否通用）
        <lv_val> = ls_intern-value.
      ENDIF.
      TRY.
        <lv_val> = ls_intern-value.
      CATCH cx_sy_conversion_no_number INTO DATA(lr_cx_sy_conversion_no_number).
*         行&1列&2值&3,&4
        MESSAGE e003 WITH ls_intern-row ls_intern-col ls_intern-value lr_cx_sy_conversion_no_number->get_text( ).
      CATCH cx_sy_conversion_overflow INTO DATA(lr_cx_sy_conversion_overflow).
*         行&1列&2值&3,&4
        MESSAGE e003 WITH ls_intern-row ls_intern-col ls_intern-value lr_cx_sy_conversion_overflow->get_text( ).
      CATCH cx_root INTO DATA(lr_cx_root).
*         行&1列&2值&3,&4
        MESSAGE e003 WITH ls_intern-row ls_intern-col ls_intern-value lr_cx_root->get_text( ).
      ENDTRY.
      UNASSIGN <lv_val>.  "取消分配
    ENDIF.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form set_alv_layout：设置alv的layout
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM set_alv_layout .
  CLEAR: gs_layout,gs_variant.
  gs_layout-zebra = 'X'.  "斑马线
  gs_layout-cwidth_opt = 'X'.  "自动列宽
  gs_layout-box_fname = 'SLBOX'.  "选择框字段名 "用户在ALV控件的行选中，对应的内存中【SLBOX】字段会被打上X
  gs_variant-report = sy-repid.
  gs_variant-handle = '01'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_fieldcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> U_EDIT
*&---------------------------------------------------------------------*
FORM build_fieldcat  USING    e_edit TYPE abap_bool.
  IF gt_fieldcat IS INITIAL.  "如果gt_fieldcat是初始状态
    APPEND VALUE  #( fieldname = 'ICON' ref_field  = 'ID' ref_table  = 'ICON'  scrtext_l = '状态' )  TO  gt_fieldcat[].
    APPEND VALUE  #( fieldname = 'MESSAGE'  ref_field = 'MESSAGE' ref_table = 'BAPIRET2' scrtext_l = '' ) TO gt_fieldcat[].
  ENDIF.
* DATA CT_FIELDCAT TYPE LVC_T_FCAT.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE        = I_BUFFER_ACTIVE
      i_structure_name       = 'ZFI_MFWB'
*     I_CLIENT_NEVER_DISPLAY = 'X'
*     I_BYPASSING_BUFFER     = I_BYPASSING_BUFFER
*     I_INTERNAL_TABNAME     = I_INTERNAL_TABNAME
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
*     循环字段，修改显示的列名
  CLEAR gs_fieldcat.
  LOOP AT gt_fieldcat INTO gs_fieldcat.
    IF gs_fieldcat-fieldname = 'ZMJ_MATNR'.
      gs_fieldcat-coltext = '模具料号'.
    ELSEIF gs_fieldcat-fieldname = 'ZXLH'.
      gs_fieldcat-coltext = '序列号'.
    ELSEIF gs_fieldcat-fieldname = 'ZCP_MATNR'.
      gs_fieldcat-coltext = '挤出产出成品料号'.
    ELSEIF gs_fieldcat-fieldname = 'ZDMCZL'.
      gs_fieldcat-coltext = '单套模具预计产出重量'.
      gs_fieldcat-edit = 'X'."可编辑
*        gs_fieldcat-edit = ''."不可编辑
*        IF p_file IS INITIAL. "如果不是导入文件的操作，则设置重量为编辑
*          gs_fieldcat-edit = 'X'."可编辑
*        ENDIF.
    ELSEIF gs_fieldcat-fieldname = 'ZSFTY'.
      gs_fieldcat-coltext = '是否通用'.
      gs_fieldcat-edit = 'X'."可编辑
    ELSEIF gs_fieldcat-fieldname = 'ZWHRJ'.
      gs_fieldcat-coltext = '维护日期'.
    ELSEIF gs_fieldcat-fieldname = 'ZWHR'.
      gs_fieldcat-coltext = '维护人'.
    ELSEIF gs_fieldcat-fieldname = 'ZSFBF'.
      gs_fieldcat-coltext = '是否报废'.
      "gs_fieldcat-edit = 'X'."可编辑
    ENDIF.
    MODIFY gt_fieldcat FROM gs_fieldcat.
    CLEAR gs_fieldcat.
  ENDLOOP.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form call_alv_func：调用alv显示函数
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM call_alv_func .
  DATA: lt_event TYPE slis_t_event,
        ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
   EXPORTING
     i_callback_program                = sy-repid
     i_callback_pf_status_set          = 'SET_PF_STATUS'
     i_callback_user_command           = 'USER_COMMAND'
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     i_callback_html_top_of_page       = 'FRM_TOP_OF_PAGE'
     is_layout_lvc                     = gs_layout
     it_fieldcat_lvc                   = gt_fieldcat
     i_save                            = 'U'
     is_variant                        = gs_variant
     it_events                         = lt_event
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
*     ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USER
    TABLES
      t_outtab                          = gt_output
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*& FORM FRM_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM frm_top_of_page USING p_cl_dd TYPE REF TO cl_dd_document.

ENDFORM.

*&---------------------------------------------------------------------*
*& FORM SET_PF_STATUS
*&---------------------------------------------------------------------*
*& TEXT
*&---------------------------------------------------------------------*
*& -->  P1        TEXT
*& <--  P2        TEXT
*&---------------------------------------------------------------------*
FORM set_pf_status USING u_t_extab TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD' EXCLUDING u_t_extab.
  SET TITLEBAR 'STANDARD'.
ENDFORM.

*&---------------------------------------------------------------------*
*& FORM USER_COMMAND
*&---------------------------------------------------------------------*
FORM user_command USING u_v_ucomm LIKE sy-ucomm
                        u_s_selfield TYPE slis_selfield.
  DATA: lr_grid TYPE REF TO cl_gui_alv_grid,
        lv_error TYPE char1,
        lv_confirm  TYPE c.
  DATA: lt_mod_data TYPE lvc_t_modi,
        ls_mod_data TYPE lvc_s_modi.
  DATA: lo_data TYPE REF TO cl_alv_changed_data_protocol.

*DATA IR_SALV_FULLSCREEN_ADAPTER TYPE REF TO CL_SALV_FULLSCREEN_ADAPTER.
*DATA ET_EXCLUDING               TYPE SLIS_T_EXTAB.
*DATA E_REPID                    TYPE SY-REPID.
*DATA E_CALLBACK_PROGRAM         TYPE SY-REPID.
*DATA E_CALLBACK_ROUTINE         TYPE SLIS_FORMNAME.
*DATA E_GRID                     TYPE REF TO CL_GUI_ALV_GRID.
*DATA ET_FIELDCAT_LVC            TYPE LVC_T_FCAT.
*DATA ER_TRACE                   TYPE REF TO CL_ALV_TRACE.
*DATA E_FLG_NO_HTML              TYPE C.
*DATA ES_LAYOUT_KKBLO            TYPE KKBLO_LAYOUT.
*DATA ES_SEL_HIDE                TYPE SLIS_SEL_HIDE_ALV.
*DATA ET_EVENT_EXIT              TYPE KKBLO_T_EVENT_EXIT.
*DATA ER_FORM_TOL                TYPE REF TO CL_SALV_FORM.
*DATA ER_FORM_EOL                TYPE REF TO CL_SALV_FORM.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
*   EXPORTING
*     IR_SALV_FULLSCREEN_ADAPTER       = IR_SALV_FULLSCREEN_ADAPTER
   IMPORTING
     e_GRID                          = lr_grid.
  lr_grid->check_changed_data( ).
  CASE u_v_ucomm.
    WHEN 'SAVE'.
      PERFORM file_data_check.
      PERFORM refresh_alv.
      PERFORM user_command_import_check CHANGING lv_error.
      CHECK lv_error  = ''.
      PERFORM check_user_decision USING '确认' '确定保存？' CHANGING lv_confirm.
      CHECK lv_confirm EQ abap_true.
      PERFORM user_command_import.
      gv_save_flag = 'X'.
    WHEN  'EXIT'.
      LEAVE TO SCREEN 0.
      CLEAR: gv_edit_flag,gv_save_flag.
    WHEN OTHERS.
  ENDCASE.
  PERFORM refresh_alv.
  ENDFORM.
*&---------------------------------------------------------------------*
*& Form refresh_alv
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM refresh_alv .
  DATA: lr_grid TYPE REF TO cl_gui_alv_grid,
        ls_stable TYPE lvc_s_stbl.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.

  lr_grid->get_frontend_layout(
    IMPORTING
      es_layout = DATA(ls_layout)
  ).
  ls_layout-cwidth_opt = abap_true.
  lr_grid->set_frontend_layout( is_layout = ls_layout ).

  ls_stable-row = 'X'.
  ls_stable-col = 'X'.

  lr_grid->refresh_table_display(
    EXPORTING
      is_stable = ls_stable
    EXCEPTIONS
      finished = 1
      OTHERS = 2 ).
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid
            TYPE sy-msgty
            NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form user_command_import_check
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- LV_ERROR
*&---------------------------------------------------------------------*
FORM user_command_import_check  CHANGING c_error TYPE char1.
  CLEAR c_error.
  IF lines( gt_output ) = 0.
    MESSAGE s000 WITH '导入数据为空' DISPLAY LIKE 'E'.
    c_error = 'X'.
    EXIT.
  ENDIF.
  IF NOT line_exists( gt_output[ slbox = 'X' ] ).
    MESSAGE s000 WITH '至少选中一行数据' DISPLAY LIKE 'E'.
    c_error = 'X'.
    EXIT.
  ENDIF.

  IF line_exists( gt_output[ type = 'E' slbox = 'X' ] ).
    MESSAGE s000 WITH '数据检查不通过，不可导入' DISPLAY LIKE 'E'.
    c_error = 'X'.
    EXIT.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form check_user_decision：确认用户决定
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&      --> P_
*&      <-- LV_CONFIRM
*&---------------------------------------------------------------------*
FORM check_user_decision  USING    u_title
                                    u_question
                           CHANGING ch_confirm.
  DATA: lv_answer TYPE char1.
  CLEAR: ch_confirm.

  CLEAR: lv_answer.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      titlebar              = u_title
      text_question         = u_question
      default_button        = '2'
      display_cancel_button = ''
    IMPORTING
      answer                = lv_answer
    EXCEPTIONS
      text_not_found        = 1
      OTHERS                = 2.
  IF sy-subrc NE 0.
  ENDIF.

  IF lv_answer EQ '1'.
    ch_confirm = abap_true.
  ELSE.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form user_command_import
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM user_command_import .
  DATA: gs_input TYPE zfi_mfwb.  "工作区结构与zfi_mfwb一致
   LOOP AT gt_output ASSIGNING FIELD-SYMBOL(<lfs_output>) WHERE slbox = abap_true.
     MOVE-CORRESPONDING <lfs_output> TO gs_input.
     gs_input-mandt = sy-mandt.  "当前集团号
     gs_input-zwhrj = sy-datum. "当前日期
     gs_input-zwhr = sy-uname. "当前登录用户名
     INSERT zfi_mfwb FROM gs_input.
     IF sy-subrc <> 0.
       <lfs_output>-type = 'E'.
       IF sy-subrc = 4.
         <lfs_output>-message = '导入失败！数据库已存在此条数据'.
       ENDIF.
     ENDIF.
     IF sy-subrc = 0.
       <lfs_output>-type = 'S'.
       <lfs_output>-message = '导入成功！'.
     ENDIF.
     PERFORM set_light CHANGING <lfs_output>. "设置提示灯
   ENDLOOP.
ENDFORM.

*&---------------------------------------------------------------------*
*& Form USER_COMMAND_EXIT_CHECK
*&---------------------------------------------------------------------*
*& 如果没保存就退出 弹框提示
*&---------------------------------------------------------------------*
*&      <-- LV_ERROR
*&---------------------------------------------------------------------*
FORM user_command_exit_check CHANGING c_error.
  DATA: lv_confirm TYPE c.

*  IF p_cre = 'X'.
*    IF NOT line_exists( gt_output[ type = 'E' ] ).
*      gv_edit_flag = 'X'.
*    ENDIF.
*  ENDIF.

  IF gv_edit_flag = 'X' AND gv_save_flag = '' .
    PERFORM check_user_decision USING '确认'
                                        '还没保存，确定退出?'
                                  CHANGING lv_confirm.
    IF lv_confirm EQ abap_true.
    ELSE.
      c_error = 'X'.
      EXIT.
    ENDIF.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form set_light：设置提示灯
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- <LS_OUTPUT>
*&---------------------------------------------------------------------*
FORM set_light  CHANGING ch_output TYPE ts_output.
  IF ch_output-type EQ 'E'.   "失败状态
    ch_output-icon = 'ICON_RED_LIGHT'.
  ELSEIF ch_output-type EQ 'S'.   "成功状态
    ch_output-icon = 'ICON_GREEN_LIGHT'.
  ELSEIF ch_output-type EQ 'N'.   "空状态
    ch_output-icon = 'ICON_YELLOW_LIGHT'.
  ENDIF.
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = ch_output-icon
    IMPORTING
      result                = ch_output-icon
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.

    • 1
    • 2
    • 3
    • 4
    • 5
    • 6
    • 7
    • 8
    • 9
    • 10
    • 11
    • 12
    • 13
    • 14
    • 15
    • 16
    • 17
    • 18
    • 19
    • 20
    • 21
    • 22
    • 23
    • 24
    • 25
    • 26
    • 27
    • 28
    • 29
    • 30
    • 31
    • 32
    • 33
    • 34
    • 35
    • 36
    • 37
    • 38
    • 39
    • 40
    • 41
    • 42
    • 43
    • 44
    • 45
    • 46
    • 47
    • 48
    • 49
    • 50
    • 51
    • 52
    • 53
    • 54
    • 55
    • 56
    • 57
    • 58
    • 59
    • 60
    • 61
    • 62
    • 63
    • 64
    • 65
    • 66
    • 67
    • 68
    • 69
    • 70
    • 71
    • 72
    • 73
    • 74
    • 75
    • 76
    • 77
    • 78
    • 79
    • 80
    • 81
    • 82
    • 83
    • 84
    • 85
    • 86
    • 87
    • 88
    • 89
    • 90
    • 91
    • 92
    • 93
    • 94
    • 95
    • 96
    • 97
    • 98
    • 99
    • 100
    • 101
    • 102
    • 103
    • 104
    • 105
    • 106
    • 107
    • 108
    • 109
    • 110
    • 111
    • 112
    • 113
    • 114
    • 115
    • 116
    • 117
    • 118
    • 119
    • 120
    • 121
    • 122
    • 123
    • 124
    • 125
    • 126
    • 127
    • 128
    • 129
    • 130
    • 131
    • 132
    • 133
    • 134
    • 135
    • 136
    • 137
    • 138
    • 139
    • 140
    • 141
    • 142
    • 143
    • 144
    • 145
    • 146
    • 147
    • 148
    • 149
    • 150
    • 151
    • 152
    • 153
    • 154
    • 155
    • 156
    • 157
    • 158
    • 159
    • 160
    • 161
    • 162
    • 163
    • 164
    • 165
    • 166
    • 167
    • 168
    • 169
    • 170
    • 171
    • 172
    • 173
    • 174
    • 175
    • 176
    • 177
    • 178
    • 179
    • 180
    • 181
    • 182
    • 183
    • 184
    • 185
    • 186
    • 187
    • 188
    • 189
    • 190
    • 191
    • 192
    • 193
    • 194
    • 195
    • 196
    • 197
    • 198
    • 199
    • 200
    • 201
    • 202
    • 203
    • 204
    • 205
    • 206
    • 207
    • 208
    • 209
    • 210
    • 211
    • 212
    • 213
    • 214
    • 215
    • 216
    • 217
    • 218
    • 219
    • 220
    • 221
    • 222
    • 223
    • 224
    • 225
    • 226
    • 227
    • 228
    • 229
    • 230
    • 231
    • 232
    • 233
    • 234
    • 235
    • 236
    • 237
    • 238
    • 239
    • 240
    • 241
    • 242
    • 243
    • 244
    • 245
    • 246
    • 247
    • 248
    • 249
    • 250
    • 251
    • 252
    • 253
    • 254
    • 255
    • 256
    • 257
    • 258
    • 259
    • 260
    • 261
    • 262
    • 263
    • 264
    • 265
    • 266
    • 267
    • 268
    • 269
    • 270
    • 271
    • 272
    • 273
    • 274
    • 275
    • 276
    • 277
    • 278
    • 279
    • 280
    • 281
    • 282
    • 283
    • 284
    • 285
    • 286
    • 287
    • 288
    • 289
    • 290
    • 291
    • 292
    • 293
    • 294
    • 295
    • 296
    • 297
    • 298
    • 299
    • 300
    • 301
    • 302
    • 303
    • 304
    • 305
    • 306
    • 307
    • 308
    • 309
    • 310
    • 311
    • 312
    • 313
    • 314
    • 315
    • 316
    • 317
    • 318
    • 319
    • 320
    • 321
    • 322
    • 323
    • 324
    • 325
    • 326
    • 327
    • 328
    • 329
    • 330
    • 331
    • 332
    • 333
    • 334
    • 335
    • 336
    • 337
    • 338
    • 339
    • 340
    • 341
    • 342
    • 343
    • 344
    • 345
    • 346
    • 347
    • 348
    • 349
    • 350
    • 351
    • 352
    • 353
    • 354
    • 355
    • 356
    • 357
    • 358
    • 359
    • 360
    • 361
    • 362
    • 363
    • 364
    • 365
    • 366
    • 367
    • 368
    • 369
    • 370
    • 371
    • 372
    • 373
    • 374
    • 375
    • 376
    • 377
    • 378
    • 379
    • 380
    • 381
    • 382
    • 383
    • 384
    • 385
    • 386
    • 387
    • 388
    • 389
    • 390
    • 391
    • 392
    • 393
    • 394
    • 395
    • 396
    • 397
    • 398
    • 399
    • 400
    • 401
    • 402
    • 403
    • 404
    • 405
    • 406
    • 407
    • 408
    • 409
    • 410
    • 411
    • 412
    • 413
    • 414
    • 415
    • 416
    • 417
    • 418
    • 419
    • 420
    • 421
    • 422
    • 423
    • 424
    • 425
    • 426
    • 427
    • 428
    • 429
    • 430
    • 431
    • 432
    • 433
    • 434
    • 435
    • 436
    • 437
    • 438
    • 439
    • 440
    • 441
    • 442
    • 443
    • 444
    • 445
    • 446
    • 447
    • 448
    • 449
    • 450
    • 451
    • 452
    • 453
    • 454
    • 455
    • 456
    • 457
    • 458
    • 459
    • 460
    • 461
    • 462
    • 463
    • 464
    • 465
    • 466
    • 467
    • 468
    • 469
    • 470
    • 471
    • 472
    • 473
    • 474
    • 475
    • 476
    • 477
    • 478
    • 479
    • 480
    • 481
    • 482
    • 483
    • 484
    • 485
    • 486
    • 487
    • 488
    • 489
    • 490
    • 491
    • 492
    • 493
    • 494
    • 495
    • 496
    • 497
    • 498
    • 499
    • 500
    • 501
    • 502
    • 503
    • 504
    • 505
    • 506
    • 507
    • 508
    • 509
    • 510
    • 511
    • 512
    • 513
    • 514
    • 515
    • 516
    • 517
    • 518
    • 519
    • 520
    • 521
    • 522
    • 523
    • 524
    • 525
    • 526
    • 527
    • 528
    • 529
    • 530
    • 531
    • 532
    • 533
    • 534
    • 535
    • 536
    • 537
    • 538
    • 539
    • 540
    • 541
    • 542
    • 543
    • 544
    • 545
    • 546
    • 547
    • 548
    • 549
    • 550
    • 551
    • 552
    • 553
    • 554
    • 555
    • 556
    • 557
    • 558
    • 559
    • 560
    • 561
    • 562
    • 563
    • 564
    • 565
    • 566
    • 567
    • 568
    • 569
    • 570
    • 571
    • 572
    • 573
    • 574
    • 575
    • 576
    • 577
    • 578
    • 579
    • 580
    • 581
    • 582
    • 583
    • 584
    • 585
    • 586
    • 587
    • 588
    • 589
    • 590
    • 591
    • 592
    • 593
    • 594
    • 595
    • 596
    • 597
    • 598
    • 599
    • 600
    • 601
    • 602
    • 603
    • 604
    • 605
    • 606
    • 607
    • 608
    • 609
    • 610
    • 611
    • 612
    • 613
    • 614
    • 615
    • 616
    • 617
    • 618
    • 619
    • 620
    • 621
    • 622
    • 623
    • 624
    • 625
    • 626
    • 627
    • 628
    • 629
    • 630
    • 631
    • 632
    • 633
    • 634
    • 635
    • 636
    • 637
    • 638
    • 639
    • 640
    • 641
    • 642
    • 643
    • 644
    • 645
    • 646
    • 647
    • 648
    • 649
    • 650
    • 651
    • 652
    • 653
    • 654
    • 655
    • 656
    • 657
    • 658
    • 659
    • 660
    • 661
    • 662
    • 663
    • 664
    • 665
    • 666
    • 667
    • 668
    • 669
    • 670
    • 671
    • 672
    • 673
    • 674
    • 675
    • 676
    • 677
    • 678
    • 679
    • 680
    • 681
    • 682
    • 683
    • 684
    • 685
    • 686
    • 687
    • 688
    • 689
    • 690
    • 691
    • 692
    • 693
    • 694
    • 695
    • 696
    • 697
    • 698
    • 699
    • 700
    • 701
    • 702
    • 703
    • 704
    • 705
    • 706
    • 707
    • 708
    • 709
    • 710
    • 711
    • 712
    • 713
    • 714
    • 715
    • 716
    • 717
    • 718
    • 719
    • 720
    • 721
    • 722
    • 723
    • 724
    • 725
    • 726
    • 727
    • 728
    • 729
    • 730
    • 731
    • 732
    • 733
    • 734
    • 735
    • 736
    • 737
    • 738
    • 739
    • 740
    • 741
    • 742
    • 743
    • 744
    • 745
    • 746
    • 747
    • 748
    • 749
    • 750
    • 751
    • 752
    • 753
    • 754
    • 755
    • 756
    • 757
    • 758
    • 759
    • 760
    • 761
    • 762
    • 763
    • 764
    • 765
    • 766
    • 767
    • 768
    • 769
    • 770
    • 771
    • 772
    • 773
    • 774
    • 775
    • 776
    • 777
    • 778
    • 779
    • 780
    • 781
    • 782
    • 783
    • 784
    • 785
    • 786
    • 787
    • 788
    • 789
    • 790
    • 791
    • 792
    • 793
    • 794
    • 795
    • 796
    • 797
    • 798
    • 799
    • 800
    • 801
    • 802
    • 803
    • 804
    • 805
    • 806
    • 807
    • 808
    • 809
    • 810
    • 811
    • 812
    • 813
    • 814
    • 815
    • 816
    • 817
    • 818
    • 819
    • 820
    • 821
    • 822
    • 823
    • 824
    • 825
    • 826
    • 827
    • 828
    • 829
    • 830
    • 831
    • 832

    使用的结构

    双击结构名称，结构的字段如下：
    在这里插入图片描述

    上传下载模板

    在这里插入图片描述

  • 相关阅读:
    隐藏通信隧道技术
    入门数据库days2
    C++移动语义 详细讲解【Cherno C++教程】
    天津五家受欢迎的python培训机构 python凭什么这么火？
    在.NET 6.0上使用Kestrel配置和自定义HTTPS
    npm、yarn、pnpm
    HC32L110(四) HC32L110的startup启动文件和ld连接脚本
    动态gif图片如何操作？简单三步前年公司操作
    Quartz .Net 的简单使用
    Go string 转map
  • 原文地址：https://blog.csdn.net/weixin_44686958/article/details/136189034