采购订单批导

最新推荐文章于 2024-07-15 23:51:37 发布

saptopia

最新推荐文章于 2024-07-15 23:51:37 发布

阅读量2.7k

点赞数

分类专栏： ABAP 应用文章标签： header input function date upload parameters

本文链接：https://blog.csdn.net/saptopia/article/details/1929366

版权

这是一个SAP ABAP程序，用于将Excel文件批量导入为采购订单。程序接收输入参数，包括文件名、采购订单类型、日期等，然后读取Excel文件并转换成所需的内部表结构。通过调用BAPI_PO_CREATE1创建采购订单，并处理可能出现的错误。

摘要由CSDN通过智能技术生成

TYPE-POOLS truxs.
DATA: xlstab TYPE truxs_t_text_data,
      f_size TYPE i .
PARAMETERS: filename LIKE rlgrap-filename ,
            p_doc_ty LIKE ekko-bsart DEFAULT 'YNB',
            p_doc_da LIKE bapimepoheader-doc_date DEFAULT sy-datum,
            p_unit LIKE bapimepoitem-price_unit DEFAULT '10'.
PARAMETERS p_price AS CHECKBOX.

DATA : lv_cancel(1) TYPE c.
DATA error TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF itb_input OCCURS 0,                            " 导入表结构
       comp_code LIKE bapimepoheader-comp_code,               "公司代码
       purch_org LIKE bapimepoheader-purch_org,               "采购组织
       pur_group LIKE bapimepoheader-pur_group,               "采购组
       vendor LIKE bapimepoheader-vendor,                     "供应商
       material LIKE bapimepoitem-material,                   "物料
       plant LIKE bapimepoitem-plant,                         "工厂
       stge_loc LIKE bapimepoitem-stge_loc,                   "库存地
       quantity LIKE bapimepoitem-quantity,                   "数量
       net_price(16) TYPE c,                                  "价格
       delivery_date LIKE bapimeposchedule-delivery_date,     "交货日期
*       short_text LIKE bapimepoitem-short_text,               "文本
END OF itb_input.
TYPES:BEGIN OF ty_item,
       material LIKE bapimepoitem-material,                   "物料
       plant LIKE bapimepoitem-plant,                         "工厂
       stge_loc LIKE bapimepoitem-stge_loc,                   "库存地
       quantity LIKE bapimepoitem-quantity,                   "数量
       net_price LIKE bapimepoitem-net_price,                 "价格
       delivery_date LIKE bapimeposchedule-delivery_date,     "交货日期
*       short_text LIKE bapimepoitem-short_text,               "文本
END OF ty_item.
DATA:BEGIN OF itb_err OCCURS 0.
        INCLUDE STRUCTURE bapiret2.
DATA:END OF itb_err.
DATA flag TYPE i.
DATA: BEGIN OF itb_po OCCURS 0,
       comp_code LIKE bapimepoheader-comp_code,               "公司代码
       purch_org LIKE bapimepoheader-purch_org,               "采购组织
       pur_group LIKE bapimepoheader-pur_group,               "采购组
       vendor LIKE bapimepoheader-vendor,                     "供应商
       item TYPE ty_item OCCURS 0,
END OF itb_po.
DATA itb_po2 LIKE itb_po OCCURS 0 WITH HEADER LINE.
DATA hd_item TYPE ty_item.
DATA zindex LIKE sy-tabix.
DATA testrun LIKE bapiflag-bapiflag.