通过bdc批量创建销售订单（多个销售订单）

最新推荐文章于 2022-04-20 10:41:11 发布

Sarah_zheng

最新推荐文章于 2022-04-20 10:41:11 发布

阅读量1.3k

点赞数

分类专栏： BDC

本文链接：https://blog.csdn.net/sarah_zheng/article/details/17264215

版权

该博客介绍了一种通过编程方式批量创建SAP销售订单的方法，使用BDC（ Batch Data Communication ）技术从Excel文件读取数据，然后在SAP系统中通过事务码VA01进行操作，包括设置销售订单的各种详细信息。

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

report Z_VA01_BDC.

types:
   begin of ty_tab,
    header_id type i,
    po_num     type BSTKD,
    sold_to    type KUNNR,
    ship_to    type KUNNR,
    material   type MATNR,
    quantity   type char10,
   end of ty_tab.

data:
  it_tab type standard table of ty_tab,
  wa_tab type ty_tab,
  it_bdc like bdcdata occurs 0 with header line.

*** End generated data section ***

start-of-selection.
   perform upload_data.
   perform batch_data.

*&---------------------------------------------------------------------*
*&      Form  UPLOAD_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form UPLOAD_DATA .
  field-symbols:<fs>.
  data:
    l_answer(1) type c,
    it_exc type alsmex_tabline occurs 0 with header line.
   CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     EXPORTING
      filename                      = 'C:\Users\x.zheng\Desktop\练习\va01.XLSX'
      i_begin_col                   = 1
      i_begin_row                   = 2
      i_end_col                     = 50
      i_end_row                     = 5000
     tables
      intern                        = it_exc
     EXCEPTIONS
      INCONSISTENT_PARAMETERS       = 1
      UPLOAD_OLE                    = 2
       OTHERS                        = 3
            .
   IF sy-subrc <> 0.
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  else.
     IF it_exc[] is initial.
       CALL F