S4-MIGO期初库存导入(移动类型：561)(BAPI实现，含通用源代码)

1.期初库存导入BAPI系列
561 空 不含供应商
561 O 含供应商
561 K 含供应商
561 空 含供应商 序列号
2.源代码。

*&---------------------------------------------------------------------*
*& Report ZMM041
*&---------------------------------------------------------------------*
*& CREATE BY:LIU某某
*& CREATE DATE:2020/12/24
*& DESCRIPTION:期初库存导入
*&---------------------------------------------------------------------*
REPORT zmm041 MESSAGE-ID zcust.

*&---------------------------------------------------------------------*
*& 引用表：TABLES
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
TABLES:mseg,sscrfields.
*&---------------------------------------------------------------------*
*& 定义内表
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
TYPE-POOLS: slis.
DATA:BEGIN OF lt_excel OCCURS 0,
       id     TYPE char2, "凭证识别号
       bwart  LIKE mseg-bwart, "移动类型
       sobkz  LIKE rkwa-sobkz, "特殊库存
       bldat  LIKE rkwa-budat, "凭证日期
       budat  LIKE rkwa-budat, "过账日期
       werks  LIKE ekpo-werks, "工厂
       lgort  LIKE ekpo-lgort, "库存地点
       matnr  LIKE ekpo-matnr, "物料号
       maktx  LIKE makt-maktx, "物料描述
       meins  LIKE ekpo-meins, "基本计量单位
       menge  TYPE char13,
       dmbtr  LIKE ekpo-netpr, "金额
       lifnr  LIKE ekko-lifnr, "供应商
       serial TYPE char18,
     END OF lt_excel.
DATA: itab  TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
DATA: goodsmvt_header  TYPE bapi2017_gm_head_01,
      goodsmvt_code    TYPE bapi2017_gm_code,
      materialdocument TYPE bapi2017_gm_head_ret-mat_doc,
      goodsmvt_item    LIKE TABLE OF bapi2017_gm_item_create WITH HEADER LINE,
      return           LIKE TABLE OF bapiret2  WITH HEADER LINE,
      serialnumber     LIKE TABLE OF bapi2017_gm_serialnumber  WITH HEADER LINE,
      lv_matdoc_itm    TYPE bapi2017_gm_serialnumber-matdoc_itm,
      lv_message       TYPE bapi_msg.

DATA: gw_fieldcat TYPE slis_fieldcat_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      g_layout    TYPE slis_layout_alv.
DATA:BEGIN OF lt_return OCCURS 0,
       sel      TYPE c,
       type    TYPE  bapi_mtype,
       id      TYPE  symsgid,
       number  TYPE symsgno,
       message TYPE  bapi_msg,
     END OF lt_return.
*&---------------------------------------------------------------------*
*& 定义选择屏幕
*&-