货源清单BDC导入程序

*&---------------------------------------------------------------------*
*& Report  ZJ_ABAP_OBJ_MM_0240
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZJ_ABAP_OBJ_MM_0240 .

*************************************************************************
*DATA
*************************************************************************
DATA :  BEGIN  OF gdt_input  OCCURS  0 ,
  matnr  LIKE eord -matnr ,
  werks  LIKE eord -werks ,
  vdatu  TYPE string ,
  bdatu  TYPE  string ,
  lifnr  LIKE eord -lifnr ,
  ekorg  LIKE eord -ekorg ,
  flifn  LIKE eord -flifn ,
  autet  LIKE eord -autet ,

   type  TYPE  c ,
   message  TYPE string ,
   END  OF gdt_input .
DATA :  BEGIN  OF gdt_eina  OCCURS  0 ,
  infnr  LIKE eina -infnr ,
  matnr  LIKE eina -matnr ,
  lifnr  LIKE eina -lifnr ,
  werks  LIKE eine -werks ,
  ekorg  LIKE eine -ekorg ,
  esokz  LIKE eine -esokz ,
   END  OF gdt_eina .
DATA :  BEGIN  OF gdt_eord  OCCURS  0 ,
  matnr  LIKE eord -matnr ,
  werks  LIKE eord -werks ,
  zeord  LIKE eord -zeord ,
   END  OF gdt_eord .
DATA :  BEGIN  OF gdt_tab  OCCURS  0 ,
  matnr  LIKE eord -matnr ,
  werks  LIKE eord -werks ,
   "lifnr LIKE eord-lifnr,
   type  TYPE  c ,
   message  TYPE string ,
   END  OF gdt_tab .

TYPES : BEGIN  OF gts_help ,
  matnr  TYPE eord -matnr ,
  werks  TYPE eord -werks ,
   END  OF gts_help .

DATA :gdt_help  TYPE  STANDARD  TABLE  OF gts_help ,
      gds_help  TYPE gts_help .
*----------------------------------------------------------------------*
*  定义BDC数据对象
*----------------------------------------------------------------------*
DATA :  BEGIN  OF gdt_bdcdata  OCCURS  100 .
         INCLUDE  STRUCTURE bdcdata .
DATA :  END  OF gdt_bdcdata .
DATA gdt_messtab  LIKE bdcmsgcoll  OCCURS  0  WITH  HEADER  LINE . "BDC录屏返回消息
TYPES : BEGIN  OF gts_message ,
type  TYPE  c ,            "消息类型
message ( 200 )  TYPE  c ,    "消息信息
END  OF gts_message .
DATA gdt_message  TYPE  STANDARD  TABLE  OF gts_message  WITH  HEADER  LINE .

*----------------------------------------------------------------------*
*  定义alv数据对象
*----------------------------------------------------------------------*
DATA : gdt_fieldcat  TYPE slis_t_fieldcat_alv ,
      gds_fieldcat  TYPE slis_fieldcat_alv ,
      gds_layout  TYPE slis_layout_alv .

DATA : gdf_flifn  TYPE  i .
DATA : gdf_erro  TYPE  c .
*----------------------------------------------------------------------*
*  定义选择界面
*----------------------------------------------------------------------*
*SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-011.
*PARAMETERS: r_1 RADIOBUTTON GROUP g2 DEFAULT 'X' ,
*            r_2 RADIOBUTTON GROUP g2.
*SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN  BEGIN  OF  BLOCK b1  WITH  FRAME  TITLE  text - 011 .
PARAMETERS : p_infile  TYPE rlgrap -filename   MEMORY  ID m01 .
PARAMETERS : p_test  AS  CHECKBOX  . "DEFAULT 'X'.
SELECTION-SCREEN  END  OF  BLOCK b1 .

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_infile .
   PERFORM frm_get_path . "获取文件路径

START-OF-SELECTION .

"  IF r_1 = 'X'.
     PERFORM frm_upload_data . "数据上载
     PERFORM frm_check_data . "数据校验
     PERFORM frm_update_sourcelist . "货源清单上传
     PERFORM frm_alv_display . "结果显示
*  ELSE.
*    "submit AQZZZ_ME11======Z_ME11========  .
*    CALL  TRANSACTION 'ZKMM004'.
*  ENDIF.

END-OF-SELECTION .
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_PATH
*&---------------------------------------------------------------------*
*       获取文件上传路径
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_get_path  .
   CALL  FUNCTION  'TB_LIMIT_WS_FILENAME_GET'
     EXPORTING
*     DEF_FILENAME     = ' '
*     DEF_PATH         = ' '
       mask              =  'Excel Files,*.xlsx,*.*. '
*     MODE             = '