場景：采購收貨質檢放行的時候，發現存在有些做QA11的時候，進入到TR-ZONE中，沒有進入到指定的倉位

解決方案：前端通過LU04進入，可以查看到一些未清的記賬更改通知單，點擊工具欄上的創建轉儲單，這個時候就會創建轉儲單進行過賬處理掉了，從TR-ZONE中釋放出來，進入到指定的倉位

程序處理的話，需要使用BAPI:?L_TO_CREATE_POSTING_CHANGE

代碼示例：

*&---------------------------------------------------------------------*
*& Report  ZWMR315
*&
*&---------------------------------------------------------------------*
*&
*&WMS-LU01確認未清過帳更改憑證
*&---------------------------------------------------------------------*REPORT zwmr315.
TABLES: lubu.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_lgnum FOR lubu-lgnum NO INTERVALS OBLIGATORY, "倉庫s_bdatu FOR lubu-bdatu OBLIGATORY, "過帳日期s_bwart FOR lubu-bwart, "移動類型s_ubnum FOR lubu-ubnum. "過帳憑證
SELECTION-SCREEN END OF BLOCK b1.AT SELECTION-SCREEN.START-OF-SELECTION.PERFORM frm_get_data.
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_get_data .DATA: lt_lubu    TYPE TABLE OF lubu,ls_lubu    TYPE lubu,i_lgnum    TYPE ltak-lgnum,i_ubnum    TYPE ltak-ubnum,e_tanum    TYPE ltak-tanum,t_lubqu    TYPE TABLE OF lubqu,ls_lubqu   TYPE lubqu,t_ltap_vb  TYPE TABLE OF ltap_vb,ls_ltap_vb TYPE ltap_vb,t_ltak     TYPE TABLE OF ltak_vb,ls_ltak    TYPE ltak_vb.SELECT * INTO TABLE lt_lubuFROM lubuWHERE lgnum IN s_lgnumAND bdatu IN s_bdatuAND bwart IN s_bwartAND ubnum IN s_ubnumAND statu = ''.LOOP AT lt_lubu INTO ls_lubu.CLEAR: i_lgnum,i_ubnum,e_tanum,t_lubqu,ls_lubqu,t_ltap_vb,ls_ltap_vb,t_ltak,ls_ltak.i_lgnum = ls_lubu-lgnum.i_ubnum = ls_lubu-ubnum.CALL FUNCTION 'L_TO_CREATE_POSTING_CHANGE'EXPORTINGi_lgnum                      = i_lgnumi_ubnum                      = i_ubnum
*       I_LUBUI                      = ' '
*        i_squit                      = 'X'
*       I_NIDRU                      = ' '
*       I_DRUKZ                      = ' '
*       I_LDEST                      = ' '
*       I_UPDATE_TASK                = ' 'i_commit_work                = 'X'i_bname                      = sy-uname
*       I_SOLEX                      = 0
*       I_PERNR                      = 0IMPORTINGe_tanum                      = e_tanumTABLESt_lubqu                      = t_lubqut_ltap_vb                    = t_ltap_vbt_ltak                       = t_ltakEXCEPTIONSforeign_lock                 = 1tp_completed                 = 2xfeld_wrong                  = 3ldest_wrong                  = 4drukz_wrong                  = 5tp_wrong                     = 6squit_forbidden              = 7no_to_created                = 8update_without_commit        = 9no_authority                 = 10i_ubnum_or_i_lubu            = 11bwlvs_wrong                  = 12material_not_found           = 13manual_to_forbidden          = 14bestq_wrong                  = 15sobkz_missing                = 16sobkz_wrong                  = 17meins_wrong                  = 18conversion_not_found         = 19no_quants                    = 20t_lubqu_required             = 21le_bulk_quant_not_selectable = 22quant_not_selectable         = 23quantnumber_initial          = 24kzuap_or_bin_location        = 25date_wrong                   = 26nltyp_missing                = 27nlpla_missing                = 28lgber_wrong                  = 29lenum_wrong                  = 30menge_wrong                  = 31menge_to_big                 = 32open_tr_kzuap                = 33lock_exists                  = 34double_quant                 = 35quantity_wrong               = 36OTHERS                       = 37.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.WRITE: / i_lgnum, i_ubnum, e_tanum.ENDLOOP.ENDFORM.                    " FRM_GET_DATA