S4 BOM批量修改

1.针对BOM组件批量修改。传入BAPI的值一行行传入。

********************************************************************************************
*
********************************************************************************************
*   Program	: ZPP023
*   Title : BOM 批量更改
*   Description :
*   Author : LIU某某
********************************************************************************************
*   Amendment Log
*   -----------------------
*   Name(Cor# )  Date         Request No.         Description
********************************************************************************************
REPORT zpp023  MESSAGE-ID zcust.
TABLES:sscrfields.
DATA: gw_fieldcat TYPE slis_fieldcat_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      g_layout    TYPE slis_layout_alv.
"For selection-screen
DATA csap_mbom TYPE csap_mbom.
DATA stpo_api02 TYPE stpo_api02."

DATA t_stpo TYPE STANDARD TABLE OF stpo_api02 WITH HEADER LINE.
DATA t_matnr TYPE STANDARD TABLE OF matnr WITH HEADER LINE.
DATA: itab  TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
DATA marc TYPE marc.
DATA:BEGIN OF gt_data OCCURS 0,
       matnr      TYPE matnr,
       item_no    TYPE sposn,
       mat_provis TYPE beikz,
     END OF gt_data.
DATA:BEGIN OF gt_out OCCURS 0,
       sel        TYPE char1,
       matnr      TYPE matnr,
       item_no    TYPE sposn,
       mat_provis TYPE beikz,
     END OF gt_out.


*&---------------------------------------------------------------------*
*&      选择屏幕
*&---------------------------------------------------------------------*
*在屏幕定义功能码
SELECTION-SCREEN:FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE b1_title .  "B1_TITLE = '请指定选择条件'.

  "BOM 选择条件
*  SELECT-OPTIONS s_matnr FOR csap_mbom-matnr.
  PARAMETERS p_matnr LIKE csap_mbom-matnr.
  PARAMETERS p_plant LIKE csap_mbom-werks MEMORY ID wrk.
  PARAMETERS p_usage LIKE csap_mbom-stlan DEFAULT '1'.
  PARAMETERS p_alt LIKE csap_mbom-stlal DEFAULT '1'.
  PARAMETERS p_datuv LIKE csap_mbom-datuv DEFAULT sy-datum.

  SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK bn1 WITH FRAME TITLE TEXT-001.
  PARAMETERS: p_file LIKE rlgrap-filename ."导入路径
SELECTION-SCREEN END OF BLOCK bn1.
*&---------------------------------------------------------------------*
*& 初始化
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
INITIALIZATION.

  sscrfields-functx