发货过账（vl02n）bapi 及冲销

最新推荐文章于 2024-07-24 09:01:10 发布

zjut_xiongfeng

最新推荐文章于 2024-07-24 09:01:10 发布

阅读量9.1k

点赞数 2

分类专栏： BAPI ABAPTM 文章标签： header function report table

本文链接：https://blog.csdn.net/zjut_xiongfeng/article/details/4738497

版权

ABAPTM 同时被 2 个专栏收录

58 篇文章 1 订阅

订阅专栏

BAPI

2 篇文章 0 订阅

订阅专栏

*&---------------------------------------------------------------------*
*& Report YMM_TEST_FOR_FHGZ                                           *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT ymm_test_for_fhgz .
"库位我们采用UPDATE或者BDC先修改

DATA:tab_mess TYPE TABLE OF bdcmsgcoll WITH HEADER LINE.
REFRESH tab_mess.CLEAR tab_mess.
DATA: bapi_z03cdogi_delivery LIKE bapiobdlvhdrcon-deliv_numb ,
      bapi_z03cdogi_header_data LIKE bapiobdlvhdrcon OCCURS 0 WITH HEADER LINE ,
      bapi_z03cdogi_header_control LIKE bapiobdlvhdrctrlcon OCCURS 0 WITH HEADER LINE,
      bapi_z03cdogi_item_data LIKE bapiobdlvitemcon OCCURS 0 WITH HEADER LINE,
      bapi_z03cdogi_item_control LIKE bapiobdlvitemctrlcon OCCURS 0 WITH HEADER LINE ,
      bapi_z03cdogi_return LIKE   bapiret2 OCCURS 0 WITH HEADER LINE .

*---------------------
DATA: i_vbkok LIKE vbkok OCCURS 0 WITH HEADER LINE,
      i_vbpok_tab LIKE vbpok OCCURS 0 WITH HEADER LINE,
      i_prott LIKE prott OCCURS 0 WITH HEADER LINE.
i_vbkok-vbeln_vl = '0080116891'.   "<- Delivery number
i_vbkok-wabuc    = 'X'.     " <- Automatic PGI
i_vbkok-wadat_ist = '20090920'.
APPEND i_vbkok.
*
*    I_VBPOK_TAB-VBELN_VL = '0080116895'.   "<- Delivery number
*    I_VBPOK_TAB-POSNR_VL = '10'.
*    I_VBPOK_TAB-VBELN = P_VBELN .
*    I_VBPOK_TAB-POSNN = LIPS-POSNR.
*    I_VBPOK_TAB-MATNR    = LIPS-MATNR.    "Material Number
*    I_VBPOK_TAB-WERKS = '3000'. "LIPS-WERKS.
*    I_VBPOK_TAB-LGORT    = 'ATPR'. "'FU01'."'ATPR'.
*    GV_14 = LIPS-LFIMG .
*    CONDENSE GV_14.
*    I_VBPOK_TAB-PIKMG = GV_14 .

* APPEND I_VBPOK_TAB.

CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
    vbkok_wa       = i_vbkok
    commit         = 'X'
    delivery       = '0080116891'
    update_picking = 'X'
TABLES
    vbpok_tab      = i_vbpok_tab
    prot           = i_prott
EXCEPTIONS
    error_message = 1
    OTHERS         = 2.
BREAK-POINT.

*-----------------

CLEAR: bapi_z03cdogi_delivery , bapi_z03cdogi_header_data , bapi_z03cdogi_header_control , bapi_z03cdogi_item_data ,bapi_z03cdogi_item_control , bapi_z03cdogi_return .
REFRESH: bapi_z03cdogi_header_data , bapi_z03cdogi_header_control , bapi_z03cdogi_item_data , bapi_z03cdogi_item_control , bapi_z03cdogi_return .

bapi_z03cdogi_delivery = '0080116891' .

bapi_z03cdogi_header_data-deliv_numb = '0080116891'.
APPEND bapi_z03cdogi_header_data.

bapi_z03cdogi_header_control-deliv_numb = '0080116891'.
bapi_z03cdogi_header_control-post_gi_flg = 'X'.
APPEND bapi_z03cdogi_header_control.

bapi_z03cdogi_item_data-deliv_numb = '0080116895'.
bapi_z03cdogi_item_data-deliv_item = '00010'.
bapi_z03cdogi_item_data-HIERARITEM = '90001' .
bapi_z03cdogi_item_data-dlv_qty = 40.
bapi_z03cdogi_item_data-sales_unit = 'Z37'.
bapi_z03cdogi_item_data-fact_unit_nom = 1. " 此处应从MARM取转换关系
bapi_z03cdogi_item_data-fact_unit_denom = 1." 此处应从MARM取转换关系
* BAPI_Z03CDOGI_ITEM_DATA-BATCH = PGI_TAB-UMCHA.
*PGI_TAB-CHARG
bapi_z03cdogi_item_data-batch = '0000000054'.

APPEND bapi_z03cdogi_item_data.

bapi_z03cdogi_item_data-deliv_numb = '0080116895'.
bapi_z03cdogi_item_data-deliv_item = '00010'.
bapi_z03cdogi_item_data-HIERARITEM = '90002' .
bapi_z03cdogi_item_data-dlv_qty = 60.
bapi_z03cdogi_item_data-sales_unit = 'Z37'.
bapi_z03cdogi_item_data-fact_unit_nom = 1. " 此处应从MARM取转换关系
bapi_z03cdogi_item_data-fact_unit_denom = 1." 此处应从MARM取转换关系
* BAPI_Z03CDOGI_ITEM_DATA-BATCH = PGI_TAB-UMCHA.
*PGI_TAB-CHARG
bapi_z03cdogi_item_data-batch = '0000000401'.
APPEND bapi_z03cdogi_item_data.

bapi_z03cdogi_item_data-deliv_numb = '0080116895'.
bapi_z03cdogi_item_data-deliv_item = '00020'.
bapi_z03cdogi_item_data-dlv_qty = 50.
bapi_z03cdogi_item_data-sales_unit = 'Z37'.
bapi_z03cdogi_item_data-fact_unit_nom = 1. " 此处应从MARM取转换关系
bapi_z03cdogi_item_data-fact_unit_denom = 1." 此处应从MARM取转换关系
* BAPI_Z03CDOGI_ITEM_DATA-BATCH = PGI_TAB-UMCHA.
*PGI_TAB-CHARG
bapi_z03cdogi_item_data-batch = '0000000054'.
APPEND bapi_z03cdogi_item_data.

bapi_z03cdogi_item_control-deliv_numb = '0080116891'.
bapi_z03cdogi_item_control-deliv_item = '00010'.
bapi_z03cdogi_item_control-chg_delqty = 'X'.
APPEND bapi_z03cdogi_item_control.

bapi_z03cdogi_item_control-deliv_numb = '0080116891'.
bapi_z03cdogi_item_control-deliv_item = '00020'.
bapi_z03cdogi_item_control-chg_delqty = 'X'.
APPEND bapi_z03cdogi_item_control.

CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
EXPORTING
    delivery       = bapi_z03cdogi_delivery
    header_data    = bapi_z03cdogi_header_data
    header_control = bapi_z03cdogi_header_control
TABLES
    item_data      = bapi_z03cdogi_item_data
    item_control   = bapi_z03cdogi_item_control
    return         = bapi_z03cdogi_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = bapi_z03cdogi_return.
"清除LIKP-VLSTK 不然无法冲销
UPDATE likp SET vlstk = '' anzpk = '0' WHERE vbeln = '0080116891'." 处理分配状态(分散仓库处理)标志便于vl09 gj 2006.3.24
COMMIT WORK.