matinal：ABAP SD_SALESDOCUMENT_CREATE创建销售订单

公众号：matinal

DATA: ls_sales_header_in      LIKE bapisdhd1,
        ls_sales_header_inx     LIKE bapisdhd1x,
        lv_salesdocument_ex     LIKE bapivbeln-vbeln,
        ls_logic_switch         TYPE bapisdls,
        lt_sales_items_in       LIKE TABLE OF bapisditm  WITH HEADER LINE,
        lt_sales_items_inx      LIKE TABLE OF bapisditmx WITH HEADER LINE,
        lt_sales_schedules_in   LIKE TABLE OF bapischdl  WITH HEADER LINE,
        lt_sales_schedules_inx  LIKE TABLE OF bapischdlx WITH HEADER LINE,
        lt_sales_conditions_in  LIKE TABLE OF bapicond   WITH HEADER LINE,
        lt_sales_conditions_inx LIKE TABLE OF bapicondx  WITH HEADER LINE,
        lt_sales_text           LIKE TABLE OF bapisdtext WITH HEADER LINE,
        lt_sales_partners_in    LIKE TABLE OF bapiparnr  WITH HEADER LINE,
        lt_return               LIKE TABLE OF bapiret2   WITH HEADER LINE,
        ls_zvbap                TYPE zvbap,
        lt_zvbap                TYPE TABLE OF zvbap,
*        lt_zvbapx               TYPE TABLE OF zvbap,
        lv_msg                  TYPE bapi_msg.

*抬头信息
  IF is_header-auart IS INITIAL.                      "销售凭证类型（默认ZS24）
    ls_sales_header_in-doc_type  = 'ZS24'.
  ELSE.
    ls_sales_header_in-doc_type  = is_header-auart.
  ENDIF.
  IF is_header-vkorg IS INITIAL.                      "销售组织（默认1000）
    ls_sales_header_in-sales_org  = '1000'.
  ELSE.
    ls_sales_header_in-sales_org   = is_header-vkorg.
  ENDIF.
  IF is_header-vtweg IS INITIAL.                      "分销渠道（默认20）
    ls_sales_header_in-distr_chan  = '20'.
  ELSE.
    ls_sales_header_in-distr_chan  = is_header-vtweg.
  ENDIF.
  IF is_header-spart IS INITIAL.                      "产品组（默认00）
    ls_sales_header_in-division  = '00'.
  ELSE.
    ls_sales_header_in-division    = is_header-spart.
  ENDIF.
  ls_sales_header_in-sales_off   = is_header-vkbur.