BP供应商批量扩充（针对公司/采购组织）

1.BP批量扩充源代码

*&---------------------------------------------------------------------*
*Code listing for: ZMM044
*Description:
*&---------------------------------------------------------------------*
*&事务代码/Transaction code     : ZMM044
*&程序名称/Program Name         : ZMM044
*&程序描述/Program Des.         : 供应商扩充批导
*&申请人/Applicant              : LIU某某
*&申请日期/Date of App          : 2020/12/22
*&开发单位/Development Company  : ****
*&作者/Author                   : LIU某某
*&完成日期/Completion Date      : 2020/12/22
*&---------------------------------------------------------------------*
*&摘要：
*&   一. 程序使用：
*&---------------------------------------------------------------------*
*&变更记录/Change record
*&Date              Developer          ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2020/12/22  LIU某某                           初始开发
*&
*&---------------------------------------------------------------------*
REPORT ZMM044.
TYPE-POOLS: OLE2 ,ICON ,SLIS.
TABLES: SSCRFIELDS.
*--------------------------------------------------------------------*
* Types
*--------------------------------------------------------------------*
TYPES:
  BEGIN OF TY_UPLOAD,
    FIELD1  TYPE STRING,                                                "
    FIELD2  TYPE STRING,                                                "
    FIELD3  TYPE STRING,                                                "
    FIELD4  TYPE STRING,                                                "
    FIELD5  TYPE STRING,                                                "
    FIELD6  TYPE STRING,                                                "
    FIELD7  TYPE STRING,                                                "
    FIELD8  TYPE STRING,                                                "
    FIELD9  TYPE STRING,                                                "
    FIELD10 TYPE STRING,                                                "
    FIELD11 TYPE STRING,                                                "
    FIELD12 TYPE STRING,                                                "
    FIELD13 TYPE STRING,
    FIELD14 TYPE STRING,                                             "
  END OF TY_UPLOAD,

  BEGIN OF TY_ALV,
    BOX     TYPE CHAR1,
    LIFNR   TYPE LFA1-LIFNR,                                            "供应商编码
    VERKF   TYPE LFM1-VERKF,                                            "联系人
    TELF1   TYPE LFM1-TELF1,                                            "联系电话
    ZBEIZHU TYPE CHAR100,
    EKORG   TYPE LFM1-EKORG,                                            "采购组织
    WAERS   TYPE LFM1-WAERS,                                            "订单货币
    ZTERM   TYPE LFM1-ZTERM,                                            "付款条件
    WEBRE   TYPE LFM1-WEBRE,                                            "基于收货的发票校验
    BUKRS   TYPE LFB1-BUKRS,                                            "公司代码
    AKONT   TYPE LFB1-AKONT,                                            "统驭科目
    ZMESS   TYPE CHAR200,
  END OF TY_ALV,

  BEGIN OF TY_BUT000,
    PARTNER      TYPE BUT000-PARTNER,
    PARTNER_GUID TYPE BUT000-PARTNER_GUID,
  END OF TY_BUT000.

*----------------------------------------------------------------------*
* Data
*----------------------------------------------------------------------*
DATA:
  FUNCTXT TYPE SMP_DYNTXT.

DATA:
  GS_ALV TYPE TY_ALV,
  GT_ALV TYPE STANDARD TABLE OF TY_ALV.

DATA:
  GT_FIELDCAT TYPE LVC_T_FCAT,
  GS_FIELDCAT TYPE LVC_S_FCAT,
  GS_LAYOUT   TYPE LVC_S_LAYO.

"接收excel数据的内表
DATA:
  GT_DATA TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.

*----------------------------------------------------------------------*
* Selection Screen
*----------------------------------------------------------------------*
*在屏幕定义功能码
SELECTION-SCREEN:FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE TEXT-004.
  PARAMETERS:
* 上载地址
    P_FILE   LIKE RLGRAP-FILENAME MODIF ID M1 .
SELECTION-SCREEN END OF BLOCK BK2.

*&---------------------------------------------------------------------*
*&      INITIALIZATION.
*&---------------------------------------------------------------------*
INITIALIZATION.
* 初始化
  PERFORM FRM_INIT.

*----------------------------------------------------------------------*
*       At Selection Screen Value Request
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM FRM_SELECT_FILE.

*&---------------------------------------------------------------------*
*&      AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE SSCRFIELDS-UCOMM.
*   系统预留的功能码
    WHEN 'FC01'.
      "下载模板文件
      PERFORM DOWNLOAD_EXCEL.
    WHEN OTHERS.
  ENDCASE.

*&---------------------------------------------------------------------*
*& Start-of-selection/开始选择屏幕