創建銷售訂單的RFC

串講

SPAN {
font-family: “Courier New”;
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}

FUNCTION ZBAPI_ZOR3.
*"----------------------------------------------------------------------
"“本地接口：
*” TABLES
*" TAB_VBAK STRUCTURE ZBAPI_VBAK
*"----------------------------------------------------------------------
DATA:wa_vbak TYPE zbapi_vbak.
DATA:tab_vbak_temp TYPE TABLE OF zbapi_vbak,
wa_vbak_temp TYPE zbapi_vbak.
DATA:tab_return TYPE TABLE OF zbapi_vbak WITH HEADER LINE.

CHECK tab_vbak[] IS NOT INITIAL.

"返回數據
DATA lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.

"存放擡頭數據
DATA : ls_order_header_in LIKE bapisdhd1.
DATA : ls_order_header_inx LIKE bapisdhd1x.
DATA : ls_logic_switch LIKE bapisdls.

"存放明細數據
DATA : lt_order_items_in LIKE bapisditm OCCURS 0.
DATA : ls_order_items_in TYPE bapisditm.
DATA : lt_order_items_inx LIKE bapisditmx OCCURS 0.
DATA : ls_order_items_inx TYPE bapisditmx.

"合作伙伴（用於存儲售達方等信息）
DATA : lt_order_partners LIKE bapiparnr OCCURS 0 WITH HEADER LINE.

"定價
DATA lt_order_conditions_in TYPE bapicond OCCURS 0 WITH HEADER LINE.
DATA lt_order_conditions_inx TYPE bapicondx OCCURS 0 WITH HEADER LINE.

"維護 SD 憑證計劃行的通訊字段
DATA: lt_order_schedules_in TYPE TABLE OF bapischdl WITH HEADER LINE.
DATA: lt_order_schedules_inx TYPE TABLE OF bapischdlx WITH HEADER LINE .
DATA:lt_sales_text LIKE bapisdtext OCCURS 0 WITH HEADER LINE.
DATA:lt_text LIKE swastrtab OCCURS 0 WITH HEADER LINE.

"增強字段
DATA lt_extensionin TYPE TABLE OF bapiparex.
DATA ls_extensionin TYPE bapiparex.
DATA ls_bape_vbap TYPE bape_vbap.
DATA ls_bape_vbapx TYPE bape_vbapx.

DATA bape_vbak TYPE bape_vbak.
DATA bape_vbakx TYPE bape_vbakx.
DATA:lv_text960(960) TYPE c.

DATA:lv_vbeln TYPE vbeln_va,
lv_msgtx TYPE msgtx,
lv_flag,
lv_change,
l_zterm TYPE knb1-zterm.

DATA:l_string_temp TYPE string,
l_string TYPE string.

DATA:lt_tvak TYPE TABLE OF tvak WITH HEADER LINE,
lt_t683v TYPE TABLE OF t683v WITH HEADER LINE,
lt_knvv TYPE TABLE OF knvv WITH HEADER LINE,
lt_t683s TYPE TABLE OF t683s WITH HEADER LINE.
DATA:lv_kalks TYPE kalks,
lv_kartv TYPE kartv,
lv_kalsm TYPE kalsm,
lv_kschl TYPE kschl.
DATA:lv_stunr TYPE t683s-stunr,
lv_zaehk TYPE t683s-zaehk.
DATA:lv_ps_psp_pnr TYPE ps_posnr,
lv_prctr TYPE prctr.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_tvak
FROM tvak.

SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_t683v
FROM t683v.

SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_t683s
FROM t683s.

IF tab_vbak[] IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_knvv
FROM knvv FOR ALL ENTRIES IN tab_vbak
WHERE kunnr = tab_vbak-kunnr.
ENDIF.

DATA:lv_memory_flag.
LOOP AT tab_vbak ASSIGNING FIELD-SYMBOL(<fs_vbak>).
wa_vbak = <fs_vbak>.

MOVE-CORRESPONDING wa_vbak TO wa_vbak_temp.
APPEND wa_vbak_temp TO tab_vbak_temp.

AT END OF vbeln.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = wa_vbak-kunnr
    IMPORTING
      output = wa_vbak-kunnr.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = wa_vbak-kunag
    IMPORTING
      output = wa_vbak-kunag.

  SELECT SINGLE zterm INTO l_zterm FROM knvv
  WHERE kunnr = wa_vbak-kunnr AND
  vkorg = wa_vbak-vkorg AND
  vtweg = wa_vbak-vtweg AND
  spart = wa_vbak-spart.


  ls_order_header_in-purch_no_c = wa_vbak-bstkd.      "採購訂單
  ls_order_header_in-doc_type   = 'ZOR3'.             "wa_vbak-auart訂單類型
  ls_order_header_in-sales_org  = '3500'.             "wa_vbak-vkorg銷售組織
  ls_order_header_in-distr_chan = '90' .              "wa_vbak-vtweg分銷渠道
  ls_order_header_in-division   = '40'.               "wa_vbak-spart產品組
  ls_order_header_in-purch_date = sy-datum.           "日期wa_vbak-bstdk
  ls_order_header_in-pmnttrms   = l_zterm.

  ls_order_header_inx-doc_type   = 'X'.         "訂單類型
  ls_order_header_inx-sales_org  = 'X'.         "銷售組織
  ls_order_header_inx-distr_chan = 'X'.         "分銷渠道
  ls_order_header_inx-division   = 'X'.         "產品組
  ls_order_header_inx-purch_date = 'X'.         "日期
  ls_order_header_inx-pmnttrms   = 'X'.
  ls_order_header_inx-purch_no_c = 'X'.

  "售達方
  CLEAR lt_order_partners.
  lt_order_partners-partn_role  = 'AG'.
  lt_order_partners-partn_numb  = wa_vbak-kunnr.
  APPEND lt_order_partners.
  "送達方
  CLEAR lt_order_partners.
  lt_order_partners-partn_role  = 'WE'.
  lt_order_partners-partn_numb  = wa_vbak-kunag.
  APPEND lt_order_partners.
  "收票方
  CLEAR lt_order_partners.
  lt_order_partners-partn_role  = 'RE'.
  lt_order_partners-partn_numb  = wa_vbak-kunag.
  APPEND lt_order_partners.
  "付款方
  CLEAR lt_order_partners.
  lt_order_partners-partn_role  = 'RG'.
  lt_order_partners-partn_numb  = wa_vbak-kunag.
  APPEND lt_order_partners.

  "pft 20191205 maggie 銷售員
  "CLEAR lt_order_partners.
  "lt_order_partners-partn_role  = 'ZA'.
  "lt_order_partners-partn_numb  = wa_vbak-partner.
 " APPEND lt_order_partners.

```
 IF wa_vbak-zremark3 IS NOT INITIAL.
```
```
   lt_sales_text-text_id = '0004'.
```
```
   lt_sales_text-langu = sy-langu.
```

   lt_sales_text-text_line = wa_vbak-zremark3.

```
   APPEND lt_sales_text.
```
```
   CLEAR lt_sales_text.
```

 ENDIF.


"行項目數據
LOOP AT tab_vbak_temp INTO wa_vbak_temp.

  CLEAR ls_order_items_in.
  ls_order_items_in-itm_number  = wa_vbak_temp-posnr."訂單行號
  ls_order_items_in-material    = wa_vbak_temp-matnr."物料號
  ls_order_items_in-target_qty  = wa_vbak_temp-kwmeng."訂單數量
  ls_order_items_in-plant       = '3500'."wa_vbak_temp-werks.
  ls_order_items_in-store_loc   = '3201'."wa_vbak_temp-lgort.

  APPEND ls_order_items_in TO lt_order_items_in.

  CLEAR ls_order_items_inx.
  ls_order_items_inx-itm_number  = wa_vbak_temp-posnr."訂單行號
  ls_order_items_inx-updateflag  = 'I'.
  ls_order_items_inx-material    = 'X'."物料號
  ls_order_items_inx-target_qty  = 'X'."訂單數量
  ls_order_items_inx-plant       = 'X'.
  ls_order_items_inx-store_loc   = 'X'.
  APPEND ls_order_items_inx TO lt_order_items_inx.

  CLEAR lt_order_schedules_in.
  lt_order_schedules_in-itm_number = wa_vbak_temp-posnr."訂單行號
  lt_order_schedules_in-sched_line = '0001'.
  lt_order_schedules_in-req_qty     = wa_vbak_temp-kwmeng."訂單數量
  lt_order_schedules_in-req_date    = sy-datum."wa_vbak_temp-etdat."訂單數量
  lt_order_schedules_in-date_type  = '1'.
  APPEND lt_order_schedules_in.

  CLEAR:lt_order_schedules_inx.
  lt_order_schedules_inx-itm_number = wa_vbak_temp-posnr."訂單行號
  lt_order_schedules_inx-sched_line = '0001'.
  lt_order_schedules_inx-req_qty    = 'X'."訂單數量
  lt_order_schedules_inx-date_type  = 'X'.
  APPEND lt_order_schedules_inx.

```
   "取定價過程
```

   CLEAR:lt_t683v,lt_tvak,lt_knvv,lv_kalks,lv_kartv,lv_kalsm,lv_kschl,lv_stunr,lv_zaehk.

   READ TABLE lt_knvv WITH KEY kunnr = wa_vbak-kunnr.

```
   IF sy-subrc EQ 0.
```
```
     lv_kalks = lt_knvv-kalks.
```
```
   ENDIF.
```

   READ TABLE lt_tvak WITH KEY auart = wa_vbak-auart.

```
   IF sy-subrc EQ 0.
```

     READ TABLE lt_t683v WITH KEY vkorg = wa_vbak-vkorg

```
     vtweg = wa_vbak-vtweg
```
```
     spart = wa_vbak-spart
```
```
     kalvg = lt_tvak-kalvg
```
```
     kalks = lv_kalks.
```
```
     IF sy-subrc EQ 0.
```
```
       lv_kalsm = lt_t683v-kalsm.
```
```
       IF lv_kartv IS INITIAL .
```

         READ TABLE lt_t683s WITH KEY kalsm = lv_kalsm kvewe = 'A' kappl = 'V' kobli = 'X'.

```
         IF sy-subrc EQ 0.
```
```
           lv_kschl = lt_t683s-kschl.
```
```
           lv_stunr = lt_t683s-stunr.
```
```
           lv_zaehk = lt_t683s-zaehk.
```
```
         ENDIF.
```
```
       ENDIF.
```
```
     ENDIF.
```
```
   ENDIF.
```
```
   CLEAR lt_order_conditions_in.
```

     lt_order_conditions_in-itm_number = wa_vbak_temp-posnr. "行項目號

     lt_order_conditions_in-cond_type  = lv_kschl ."lt_t683s-kschl.""wa_vbak_temp-kschl."定價條件

     lt_order_conditions_in-cond_value = wa_vbak_temp-kbetr."金額

     lt_order_conditions_in-currency   = wa_vbak_temp-waerk."貨幣碼

```
     APPEND lt_order_conditions_in.
```
```
     CLEAR lt_order_conditions_inx.
```

     lt_order_conditions_inx-itm_number = wa_vbak_temp-posnr. "行項目號

     lt_order_conditions_inx-cond_type  = lv_kschl ."lt_t683s-kschl."'ZNET'."定價條件

     lt_order_conditions_inx-updateflag = 'U'."I = insert U = modify

     lt_order_conditions_inx-cond_value = 'X'.

     lt_order_conditions_inx-currency   = 'X'.

```
     APPEND lt_order_conditions_inx.
```

   IF wa_vbak_temp-itemtext IS NOT INITIAL.

     lt_sales_text-itm_number = wa_vbak_temp-posnr.

```
     lt_sales_text-text_id = '0001'.
```
```
     lt_sales_text-langu = sy-langu.
```

     lt_sales_text-text_line = wa_vbak_temp-itemtext.

```
     APPEND lt_sales_text.
```
```
     CLEAR lt_sales_text.
```

   ENDIF.
ENDLOOP.

"創建SO不補充wbs 創建成功再補
CLEAR:lv_memory_flag.
FREE MEMORY ID 'FLAG'.
lv_memory_flag = 'X'.
EXPORT lv_memory_flag TO MEMORY ID 'FLAG'.


CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
  EXPORTING
    order_header_in      = ls_order_header_in
    order_header_inx     = ls_order_header_inx
   " logic_switch         = ls_logic_switch
 " IMPORTING
   " salesdocument        = lv_vbeln
  TABLES
    return               = lt_return
    order_items_in       = lt_order_items_in
    order_items_inx      = lt_order_items_inx
    order_partners       = lt_order_partners
    order_schedules_in   = lt_order_schedules_in
    order_schedules_inx  = lt_order_schedules_inx.
    "order_conditions_in  = lt_order_conditions_in
    "order_conditions_inx = lt_order_conditions_inx.


LOOP AT lt_return WHERE type CA 'EAX'.
  lv_flag = 'X'.
ENDLOOP.

IF lv_flag = ''.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

  LOOP AT lt_return.
    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = lt_return-id
        msgnr               = lt_return-number
        msgv1               = lt_return-message_v1
        msgv2               = lt_return-message_v2
        msgv3               = lt_return-message_v3
        msgv4               = lt_return-message_v4
      IMPORTING
        message_text_output = l_string_temp.
    CONCATENATE l_string_temp l_string INTO l_string.
    CLEAR:lt_return.
  ENDLOOP.

  LOOP AT tab_vbak_temp INTO wa_vbak_temp .
    wa_vbak_temp-vbeln = lv_vbeln.
    wa_vbak_temp-type = 'S'.
    wa_vbak_temp-message = l_string.
    MODIFY tab_vbak_temp FROM wa_vbak_temp TRANSPORTING vbeln type message.

    IF wa_vbak_temp-pspid IS NOT INITIAL.
      CLEAR:lv_ps_psp_pnr,lv_prctr.
      CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
        EXPORTING
          input  = wa_vbak_temp-pspid
        IMPORTING
          output = lv_ps_psp_pnr .


      IF sy-subrc EQ 0.
        DO .
          SELECT COUNT(*)
          FROM vbak WHERE vbeln = lv_vbeln.
          IF sy-subrc EQ 0.
            EXIT.
          ELSE.
            WAIT UP TO 1 SECONDS.
          ENDIF.
        ENDDO.

        SELECT SINGLE prctr INTO lv_prctr FROM prps WHERE pspnr = lv_ps_psp_pnr.
        "WBS 寫不進去 so bapi
        UPDATE vbap
        SET ps_psp_pnr = lv_ps_psp_pnr
        prctr = lv_prctr
        WHERE vbeln = lv_vbeln AND posnr = wa_vbak_temp-posnr.

        COMMIT WORK AND WAIT .
      ENDIF.
    ENDIF.
  ENDLOOP.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

  LOOP AT lt_return WHERE type <> 'S'.
    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = lt_return-id
        msgnr               = lt_return-number
        msgv1               = lt_return-message_v1
        msgv2               = lt_return-message_v2
        msgv3               = lt_return-message_v3
        msgv4               = lt_return-message_v4
      IMPORTING
        message_text_output = l_string_temp.
    CONCATENATE l_string_temp l_string INTO l_string.
    CLEAR:lt_return.
  ENDLOOP.

  LOOP AT tab_vbak_temp INTO wa_vbak_temp .
    wa_vbak_temp-vbeln = ''.
    wa_vbak_temp-type = 'E'.
    wa_vbak_temp-message = l_string.
    MODIFY tab_vbak_temp FROM wa_vbak_temp TRANSPORTING vbeln type message.
  ENDLOOP.

ENDIF.
APPEND LINES OF tab_vbak_temp TO tab_return.

REFRESH:tab_vbak_temp,lt_sales_text,lt_extensionin,lt_order_conditions_inx,
lt_order_conditions_in,lt_order_schedules_inx,lt_order_schedules_in,
lt_order_partners,lt_order_items_in,lt_return.
CLEAR:wa_vbak,wa_vbak_temp,lv_vbeln,ls_order_header_in,l_string,l_string_temp,lv_flag,lv_change.

ENDAT.
ENDLOOP.

REFRESH:tab_vbak.
tab_vbak[] = tab_return[].

ENDFUNCTION.

創建銷售訂單的RFC

ABAP輸出報表數據（RFC）

vk11寫入ZWX2的價格

創建銷售訂單的RFC

微信開發--怎麼獲取用戶的信息（openid)

SAP 可配置BOM創建

Mac下配置sublime實現LaTeX

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結