该程序使用SAPABAP编写，通过事务码MB5B获取物料库存数据，利用SUBMIT传递参数到标准事务码中。数据获取后，程序将其展示在ALV列表中，并在批处理模式下发送邮件。邮件包含库存数据的详细信息作为附件。
Submit的使用
-
项目需求：编写一个程序能够将实时的物料库存数据通过发送邮件的形式发送到对应的邮件。现有标准的事务码MB5B来查看对应的库存数据。可以在程序中使用submit将参数传递到MB5B中，然后将获取的数据返回到程序中，然后在执行发送邮件的逻辑。
-
使用代码如下：
*&---------------------------------------------------------------------* *& Report ZMMR118 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zmmr118. TABLES:mkpf,mseg,sscrfields,mara,t001,t001l,mchb,mbew,bseg. TYPES:BEGIN OF ty_alv, index TYPE i, matnr TYPE mseg-matnr, werks TYPE mseg-werks, name1 TYPE t001w-name1, start_date TYPE sy-datum, "开始日期 end_date TYPE sy-datum, "结束日期 anfmenge TYPE mseg-menge, "期初库存 endmenge TYPE mseg-menge, "期末库存 maktx TYPE makt-maktx, bwkey TYPE bwkey, charg TYPE charg_d, sobkz TYPE sobkz, meins TYPE meins, END OF ty_alv. DATA:gs_alv TYPE ty_alv, gt_alv TYPE TABLE OF ty_alv, ls_data TYPE REF TO data. FIELD-SYMBOLS: <lt_data> TYPE STANDARD TABLE, <l_data> TYPE any. DATA: gs_layout TYPE lvc_s_layo. DATA: gt_fieldcat TYPE lvc_t_fcat, gs_fieldcat TYPE lvc_s_fcat. DATA: gv_title TYPE string. "弹窗 DATA : l_answer TYPE c LENGTH 1, ls_field TYPE sval, lt_field TYPE STANDARD TABLE OF sval. DATA:gs_functxt TYPE smp_dyntxt. ******************************* *屏幕处理 ******************************* SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS : s_matnr FOR mseg-matnr, s_mfrpn FOR mara-mfrpn, s_bukrs FOR t001-bukrs, s_hkont FOR bseg-hkont, s_werks FOR mseg-werks DEFAULT '1000', s_lgort FOR t001l-lgort, s_charg FOR mchb-charg, s_bwtar FOR mbew-bwtar, s_bwart FOR mseg-bwart. PARAMETERS p_sobkz TYPE mseg-sobkz. SELECT-OPTIONS : s_budat FOR mkpf-budat DEFAULT sy-datum. SELECTION-SCREEN END OF BLOCK blk1. SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE TEXT-002. PARAMETERS: p_lgbst TYPE c RADIOBUTTON GROUP g1 DEFAULT 'X', p_bwbst TYPE c RADIOBUTTON GROUP g1, p_sbbst TYPE c RADIOBUTTON GROUP g1. SELECTION-SCREEN END OF BLOCK blk2. SELECTION-SCREEN: FUNCTION KEY 1. ******************************* *主程序入口 ******************************* *&-------------------------------------------------------------- **初始化处理 *&-------------------------------------------------------------- INITIALIZATION. sscrfields-functxt_01 = '@1S@接收邮箱维护'."定义按钮 *&-------------------------------------------------------------- **选择屏幕控制 *&-------------------------------------------------------------- AT SELECTION-SCREEN OUTPUT. *&-------------------------------------------------------------* *& 参数输入检查 *&-------------------------------------------------------------* AT SELECTION-SCREEN. * //为控件页签单击事件, 选择不同页签显示不同子屏幕. CASE sscrfields-ucomm. WHEN 'FC01'."系统预留的功能码 PERFORM frm_view_call USING 'ZTMM2099'. WHEN OTHERS. ENDCASE. *&------------------------------------------------------------- **程序开始处理 *&------------------------------------------------------------- START-OF-SELECTION. ******************************** *获取数据 ******************************** PERFORM frm_get_data. IF sy-batch = 'X'. PERFORM frm_send_email USING 'C'. ELSE. * ALV显示 PERFORM frm_set_alv. "设置ALV属性 PERFORM frm_dis_alv. "调用ALV ENDIF. END-OF-SELECTION. *&---------------------------------------------------------------------* *& Form FRM_GET_DATA *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_get_data . DATA lv_index TYPE i. CALL METHOD cl_salv_bs_runtime_info=>set EXPORTING display = abap_false metadata = abap_false data = abap_true. SUBMIT rm07mlbd "Tcode MB5B WITH matnr IN s_matnr "物料编号 WITH mfrpn IN s_mfrpn "制造商零件编号 WITH bukrs IN s_bukrs "公司代码 WITH hkont IN s_hkont "总账科目 WITH werks IN s_werks "工厂 WITH lgort IN s_lgort "存储位置 WITH charg IN s_charg "批次 WITH bwtar IN s_bwtar "评估类型 WITH bwart IN s_bwart "移动类型 WITH sobkz EQ p_sobkz "特殊库存标识 WITH DATUM IN s_budat "选择日期 "库存类型 WITH lgbst EQ p_lgbst "参储位置/批次库存 WITH bwbst EQ p_bwbst "已评估库存 WITH sbbst EQ p_sbbst "特殊库存 "清单范围 * WITH PA_WDZER EQ SPACE * WITH PA_WDZEW EQ 'X' * WITH PA_WDWIZ EQ 'X' * WITH PA_WDWUW EQ 'X' * WITH PA_WDWEW EQ 'X' * WITH PA_NDZER EQ SPACE * WITH PA_NDSTO EQ 'X' "设置 * WITH PA_SFLVA EQ 'T1' WITH pa_sumfl EQ 'X' WITH p_grid EQ 'X' * WITH XCHAR EQ SPACE * WITH XNOMCHB EQ SPACE * WITH XNOMCHB EQ SPACE * WITH NOSTO EQ SPACE * WITH PA_DBSTD EQ 'X' * VIA SELECTION-SCREEN AND RETURN . TRY. CALL METHOD cl_salv_bs_runtime_info=>get_data_ref IMPORTING r_data = ls_data. ASSIGN ls_data->* TO <lt_data>. CATCH cx_salv_bs_sc_runtime_info. ENDTRY. cl_salv_bs_runtime_info=>clear_all( ). IF <lt_data> IS ASSIGNED. LOOP AT <lt_data> ASSIGNING <l_data>. MOVE-CORRESPONDING <l_data> TO gs_alv. gs_alv-matnr = |{ gs_alv-matnr ALPHA = OUT }|. lv_index = lv_index + 1. gs_alv-index = lv_index. APPEND gs_alv TO gt_alv. CLEAR gs_alv. ENDLOOP. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SET_ALV *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_set_alv . DATA: l_colpos TYPE lvc_s_fcat-col_pos VALUE 0. *&---------------------------------------------------------------------* *& 定义宏 *&---------------------------------------------------------------------* DEFINE macro_fill_fcat. CLEAR gs_fieldcat. &1 = &1 + 1. gs_fieldcat-col_pos = &1. gs_fieldcat-fieldname = &2. gs_fieldcat-coltext = &3. APPEND gs_fieldcat TO gt_fieldcat. END-OF-DEFINITION. FIELD-SYMBOLS: <fs_fieldcat> TYPE lvc_s_fcat. CLEAR gt_fieldcat. macro_fill_fcat: l_colpos 'INDEX' '序号' , l_colpos 'MATNR' '物料编号' , l_colpos 'MAKTX' '物料描述' , l_colpos 'BWKEY' '估值范围' , l_colpos 'WERKS' '工厂' , l_colpos 'CHARG' '批次' , l_colpos 'SOBKZ' '特殊库存标识' , l_colpos 'NAME1' '名称' , l_colpos 'START_DATE' '开始日期' , l_colpos 'END_DATE' '结束日期' , l_colpos 'ANFMENGE' '期初库存' , l_colpos 'ENDMENGE' '期末库存' , l_colpos 'MEINS' '基本计量单位' . CLEAR gs_layout. gs_layout-zebra = 'X'. gs_layout-cwidth_opt = 'X'. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_DIS_ALV *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_dis_alv . DATA: lv_grid TYPE lvc_s_glay. lv_grid-edt_cll_cb = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = 'PF_STATUS_SET' i_callback_user_command = 'FRM_USER_COMMAND' i_grid_settings = lv_grid is_layout_lvc = gs_layout it_fieldcat_lvc = gt_fieldcat TABLES t_outtab = gt_alv. ENDFORM. *&---------------------------------------------------------------------* *& Form PF_STATUS_SET *&---------------------------------------------------------------------* * gui状态 *----------------------------------------------------------------------* * -->TR_EXTAB text *----------------------------------------------------------------------* FORM pf_status_set USING pr_extab TYPE slis_t_extab. SET PF-STATUS 'STANDARD' . ENDFORM. " PF_STATUS_SET *&---------------------------------------------------------------------* *& Form frm_user_command *&---------------------------------------------------------------------* * 用戶响应事件 *----------------------------------------------------------------------* * -->R_UCOMM text * -->RS_SELFIELD text *----------------------------------------------------------------------* FORM frm_user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. *刷新alv DATA:lob_grid TYPE REF TO cl_gui_alv_grid. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lob_grid. CALL METHOD lob_grid->check_changed_data. CASE r_ucomm. WHEN '&UPD'. PERFORM frm_send_email USING 'C'. ENDCASE. rs_selfield-refresh = 'X'. gs_layout-cwidth_opt = 'X'. gs_layout-no_toolbar = 'X'. CALL METHOD lob_grid->set_frontend_layout EXPORTING is_layout = gs_layout. CALL METHOD lob_grid->refresh_table_display. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_VIEW_CALL *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> P_ *&---------------------------------------------------------------------* FORM frm_view_call USING fu_view TYPE dd02v-tabname. DATA:dba_sellist LIKE vimsellist OCCURS 0, excl_cua_funct LIKE vimexclfun OCCURS 0, x_header LIKE vimdesc OCCURS 0 WITH HEADER LINE, x_namtab LIKE vimnamtab OCCURS 0, dpl_sellist LIKE vimsellist. CALL FUNCTION 'VIEW_GET_DDIC_INFO' EXPORTING viewname = fu_view * VARIANT_FOR_SELECTION = ' ' * ZDM_CALL = TABLES sellist = dba_sellist x_header = x_header x_namtab = x_namtab EXCEPTIONS no_tvdir_entry = 1 table_not_found = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. DATA:lockuser TYPE sy-uname, answer(1) TYPE c. CALL FUNCTION 'VIEW_ENQUEUE' EXPORTING view_name = fu_view action = 'E' enqueue_mode = 'E' EXCEPTIONS foreign_lock = 1 system_failure = 2 table_not_found = 5 client_reference = 7. IF sy-subrc NE 0. MESSAGE 'Data locked' TYPE 'S' DISPLAY LIKE 'E'. RETURN. ENDIF. CALL FUNCTION 'VIEW_MAINTENANCE' EXPORTING * CORR_NUMBER = ' ' view_action = 'U' view_name = fu_view * RFC_DESTINATION_FOR_UPGRADE = ' ' * CLIENT_FOR_UPGRADE = ' ' * COMPLEX_SELCONDS_USED = ' ' * NO_WARNING_FOR_CLIENTINDEP = ' ' * OC_INST = TABLES dba_sellist = dba_sellist excl_cua_funct = excl_cua_funct x_header = x_header x_namtab = x_namtab * DPL_SELLIST = EXCEPTIONS missing_corr_number = 1 no_database_function = 2 no_editor_function = 3 no_value_for_subset_ident = 4 OTHERS = 5. CALL FUNCTION 'VIEW_ENQUEUE' EXPORTING view_name = fu_view action = 'D' enqueue_mode = 'E' EXCEPTIONS foreign_lock = 1 system_failure = 2 table_not_found = 5 client_reference = 7. ENDFORM. **&---------------------------------------------------------------------* **& Form FRM_SEND_EMAIL **&---------------------------------------------------------------------* **& text **&---------------------------------------------------------------------* **& --> p1 text **& <-- p2 text **&---------------------------------------------------------------------* FORM frm_send_email USING p_x. "------发送邮件参数定义 DATA: ls_sendemail TYPE zsxx_send_email01, ls_receiver TYPE zsxx_receiver. DATA: lt_to TYPE TABLE OF so_rec_ext, ls_to TYPE so_rec_ext, lt_body TYPE TABLE OF solisti1, ls_body TYPE solisti1, i_body LIKE solisti1 OCCURS 0 WITH HEADER LINE, lt_meg TYPE TABLE OF bapiret2, ls_attach TYPE zzs_attach01, ls_obj TYPE zzs_obj, lt_obj TYPE TABLE OF zzs_obj. DATA: lt_line TYPE ztts_lines. DATA: lt_cs TYPE TABLE OF sysid, ls_cs TYPE sysid. "-----生成excel附件 CLEAR lt_line. PERFORM frm_to_excel TABLES lt_line USING p_x. "----附件处理 ls_obj-obj_descr = '每日库存数量明细'. ls_obj-doc_type = 'XLS'. ls_obj-obj_name = '每日库存数量明细'. ls_obj-head_start = 1. ls_obj-head_num = 1. DESCRIBE TABLE ls_sendemail-attach-lines LINES ls_obj-body_start. ls_obj-body_start = ls_obj-body_start + 1. APPEND LINES OF lt_line TO ls_sendemail-attach-lines. DESCRIBE TABLE ls_sendemail-attach-lines LINES ls_obj-body_num. ls_obj-body_num = ls_obj-body_num + 1. ls_obj-doc_size = ( ls_obj-body_num - ls_obj-body_start ) * 255. ls_obj-obj_langu = sy-langu. APPEND ls_obj TO lt_obj. CLEAR ls_obj. ls_sendemail-attach-obj_pro = lt_obj. *************** begin add by 2021/11/05 **************** IF lt_line IS INITIAL. EXIT . ENDIF. *************** end add by 2021/11/05 ***************** "----收件邮箱 SELECT * FROM ztmm2099 INTO TABLE @DATA(lt_zt2099) WHERE zsx = @p_x. LOOP AT lt_zt2099 INTO DATA(ls_zt2099). ls_to = ls_zt2099-zemail. APPEND ls_to TO lt_to. CLEAR ls_to. ENDLOOP. ls_sendemail-to = lt_to. "---邮件标题 ls_sendemail-subject = sy-datum(4) && '-' && sy-datum+4(2) && '-' && sy-datum+6(2) && ' -From ERP:' && gv_title && '每日库存数量提醒！'. "---邮件内容 CLEAR: ls_body, lt_body[]. ls_body-line ='<div><span id="_FoxCURSOR"></span></div> '. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line ='<DIV>各部门请知悉：</DIV><br>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div><span> 您好！</span></div><br>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div><span> 附件是' && gv_title && '物料库存数据明细，请查阅！</span></div><br>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<span> </nspan>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div><span> 广汽埃安新能源汽车有限公司 </span></div><br>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<span> </nspan>'. CLEAR ls_body. ls_body-line = '<div><span> ' && sy-datum(4) && '-' && sy-datum+4(2) && '-' && sy-datum+6(2) && '</span></div><br>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div>FISystem</div>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div>================================================================================</div>'. APPEND ls_body TO lt_body. CLEAR ls_body. ls_body-line = '<div><span>本邮件为系统自动发送，请勿直接回复，谢谢！</span></div>'. APPEND ls_body TO lt_body. ls_sendemail-body = lt_body. * "----抄送人 * ls_receiver-email = lt_cs. CALL FUNCTION 'ZXX_SEND_EMAIL01' EXPORTING i_sendemail = ls_sendemail i_receiver = ls_receiver TABLES t_messages = lt_meg. WAIT UP TO 2 SECONDS. CLEAR: ls_sendemail,lt_obj,lt_to.. READ TABLE lt_meg TRANSPORTING NO FIELDS WITH KEY type = 'E'. IF sy-subrc <> 0. "发送成功 MESSAGE '邮件已生成，具体查看T-CODE:SBWP发件箱来查看邮件是否发送成功！' TYPE 'S'.. ELSE. "发送失败 DATA:gv_msg TYPE char100. LOOP AT lt_meg INTO DATA(ls_meg) WHERE type = 'E'. CONCATENATE gv_msg ls_meg-message INTO gv_msg. CLEAR ls_meg. ENDLOOP. MESSAGE gv_msg TYPE 'E'. ENDIF. ENDFORM. * * * **&---------------------------------------------------------------------* **& Form FRM_TO_EXCEL **&---------------------------------------------------------------------* **& text **&---------------------------------------------------------------------* **& --> LT_LINE **&---------------------------------------------------------------------* FORM frm_to_excel TABLES pt_line TYPE table USING p_x. "---参数及常量定义 CONSTANTS: c_tab TYPE c VALUE cl_bcs_convert=>gc_tab, c_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf, c_mimetype TYPE char64 VALUE 'APPLICATION/MSEXCEL;charset=utf-16le'. DATA v_xattach TYPE xstring. DATA lv_string TYPE string. DATA lv_shsl TYPE string. DATA lv_hhsl TYPE string. DATA lv_netpr TYPE string. "-------附件内容 CLEAR lv_string. CONCATENATE lv_string '物料编码' c_tab * '物料描述' c_tab * '估值范围' c_tab '工厂' c_tab '批次' c_tab * '特殊库存标识' c_tab '名称' c_tab '开始日期' c_tab '结束日期' c_tab '期初库存' c_tab '期末库存' c_tab '基本计量单位' c_crlf "c_crlf 换行 INTO lv_string. DATA: lv_string1 TYPE string, lv_string2 TYPE string, lv_string3 TYPE string, lv_string4 TYPE string. LOOP AT gt_alv INTO gs_alv . CLEAR: lv_string1, lv_string2, lv_string3, lv_string4. lv_string1 = gs_alv-start_date . lv_string2 = gs_alv-end_date . lv_string3 = gs_alv-anfmenge. lv_string4 = gs_alv-endmenge . CONCATENATE lv_string gs_alv-matnr c_tab * gs_alv-maktx c_tab * gs_alv-bwkey c_tab gs_alv-werks c_tab gs_alv-charg c_tab * gs_alv-sobkz c_tab gs_alv-name1 c_tab lv_string1 c_tab lv_string2 c_tab lv_string3 c_tab lv_string4 c_tab gs_alv-meins c_crlf "c_crlf 换行 INTO lv_string. CLEAR gs_alv. ENDLOOP. CALL FUNCTION 'SCMS_STRING_TO_XSTRING' EXPORTING text = lv_string mimetype = c_mimetype IMPORTING buffer = v_xattach EXCEPTIONS failed = 1 OTHERS = 2. IF sy-subrc = 0. CONCATENATE cl_abap_char_utilities=>byte_order_mark_little v_xattach INTO v_xattach IN BYTE MODE. ENDIF. CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = v_xattach TABLES binary_tab = pt_line. ENDFORM. -
参数名字：通过对应的事务码进入选择屏幕后，F1可进入如下界面。
![[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-8FOgALZp-1686535390262)(D:\学习计划笔记\问题解决办法\IMAGE\image-20221123221911655.png)]](https://i-blog.csdnimg.cn/blog_migrate/a49c05a59226f0267905e352ab40ffe1.png)
**注意：**在程序中使用submit调用标准程序传递数据时，需要传递所有必要的参数，否则会到至在后台调用程序的时候失败。
**扩展: **也可在FUNCTION中调用其他的报表程序得到数据，然后返回给外围系统。
扫一扫
1329
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
