本文共 3251 字，大约阅读时间需要 10 分钟。

REPORT zcreate_so.DATA: ls_header         TYPE bapisdhd1,      ls_headerx        TYPE bapisdhd1x,      lt_bapiret2       LIKE bapiret2   OCCURS 0 WITH HEADER LINE,      po_order_number   TYPE bapivbeln-vbeln,      lt_partners       TYPE TABLE OF bapiparnr,      lt_order_items_in TYPE TABLE OF bapisditm,      lt_order_item_x   TYPE TABLE OF bapisditmx,      ls_order_item_x   LIKE LINE OF lt_order_item_x,      ls_order_items_in LIKE LINE OF lt_order_items_in,      lt_schdlin        TYPE TABLE OF bapischdl,      ls_schdlin        LIKE LINE OF lt_schdlin,      lt_schdlinx       TYPE TABLE OF bapischdlx,      ls_schdlinx       LIKE LINE OF lt_schdlinx,      ls_partners       LIKE LINE OF lt_partners,      lt_order_text TYPE TABLE OF bapisdtext,      ls_order_text  TYPE bapisdtext.ls_header-serv_date = '20200101'.ls_header-doc_type = 'TA'.ls_header-purch_no_c = 'a'.ls_headerx-purch_no_c = 'X'.*ls_header-sales_org = '0001'.*ls_header-distr_chan = '01'.*ls_header-division = '01'.ls_header-comp_cde_b = '0001'.ls_headerx-comp_cde_b = 'X'.ls_headerx-doc_type = 'X'.ls_headerx-updateflag = 'I'.ls_partners-partn_role = 'WE'. "ship to partyls_partners-partn_numb = '0000000001'.APPEND ls_partners TO lt_partners.ls_partners-partn_role = 'AG'. " sold to partyls_partners-partn_numb = '0000000001'.APPEND ls_partners TO lt_partners.ls_order_items_in-item_categ = 'TAN'.ls_order_items_in-material = 'REDUCER_A'.ls_order_items_in-target_qty = 999.ls_order_items_in-itm_number = 10.ls_order_item_x-item_categ = 'X'.ls_order_item_x-material = 'X'.ls_order_item_x-target_qty = 'X'.ls_order_item_x-itm_number = 'X'.ls_order_item_x-updateflag = 'I'.APPEND ls_order_item_x TO lt_order_item_x.APPEND ls_order_items_in TO lt_order_items_in.ls_schdlin-itm_number = 10.ls_schdlin-req_qty = 3.ls_schdlinx-itm_number = 'X'.ls_schdlinx-itm_number = 'X'.ls_schdlinx-updateflag = 'X'.APPEND ls_schdlin TO lt_schdlin.APPEND ls_schdlinx TO lt_schdlinx."ls_order_text-doc_number = SALESDOCUMENT.ls_order_text-itm_number = '000010'.ls_order_text-text_id = '0006'."ls_order_text-langu = 'E'.ls_order_text-langu_iso = 'ZH'.ls_order_text-format_col = '*'.ls_order_text-text_line = 'Test 2 DSFSDFDSFDS'.ls_order_text-function = '006'.APPEND ls_order_text TO lt_order_text.CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'  EXPORTING    sales_header_in       = ls_header    sales_header_inx      = ls_headerx    int_number_assignment = 'X'  IMPORTING    salesdocument_ex      = po_order_number  TABLES    return                = lt_bapiret2    sales_items_in        = lt_order_items_in    sales_items_inx       = lt_order_item_x    sales_schedules_in    = lt_schdlin    sales_schedules_inx   = lt_schdlinx    sales_partners        = lt_partners    sales_text            = lt_order_text.LOOP AT lt_bapiret2 ASSIGNING FIELD-SYMBOL(
   
    ) WHERE type = 'E'.  WRITE:/ 'Error:', 
    
     -message COLOR COL_NEGATIVE.  RETURN.ENDLOOP.IF po_order_number IS INITIAL.  WRITE:/ 'PO number initial'.  RETURN.ENDIF.CLEAR: lt_bapiret2.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'  EXPORTING    wait   = 'X'  IMPORTING    return = lt_bapiret2.LOOP AT lt_bapiret2 ASSIGNING 
     
      .  WRITE:/ 'Message:', 
      
       -message COLOR COL_POSITIVE.ENDLOOP.
      
     
    
   

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/104036214 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！