BDC(2)含消息

TYPES: BEGIN OF gty_material,
         banfn     TYPE eban-banfn,          "采购申请编号
         bnfpo     TYPE rm06b-bnfpo,         "出现在一览屏幕上的字段
         tcselflag TYPE rm06b-tcselflag, "表控制的检查框
         txz01     TYPE eban-txz01,          "短文本
         lgort     TYPE eban-lgort,          "库存地点
         menge     TYPE eban-menge,          "采购申请数量
         eeind     TYPE rm06b-eeind,         "交货日期
         lpein     TYPE rm06b-lpein,         "交货日期的类别
         ekgrp     TYPE eban-ekgrp,          "采购组
         bednr     TYPE eban-bednr,          "需求跟踪号
         dispo     TYPE eban-dispo,          "MRP 控制者（物料计划人）
         frgdt     TYPE eban-frgdt,          "采购申请批准日期
         webaz     TYPE eban-webaz,          "以天计的收货处理时间
         fixkz     TYPE eban-fixkz,          "采购申请是固定的
         repos     TYPE eban-repos,          "发票收据标识
       END OF gty_material.

DATA gt_material TYPE TABLE OF gty_material.
DATA gs_material TYPE gty_material.

DATA : lt_excel      TYPE TABLE OF alsmex_tabline,
       ls_excel      TYPE alsmex_tabline,
       lt_bdc        TYPE TABLE OF bdcdata,
       ls_bdc        TYPE bdcdata,
       lt_msg        TYPE TABLE OF bdcmsgcoll,
       ls_msg        TYPE bdcmsgcoll,
       msg_text(255).

PARAMETERS : path TYPE rlgrap-filename OBLIGATORY DEFAULT 'C:\'.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR path .
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynn