TR单据自动生成TO单并确认
LS_LTBK-LGNUM = GS_OUTPUT-LGNUM. "仓库号
LS_LTBK-TBNUM = GS_OUTPUT-TBNUM. "TR号
LT_FUN_IT_TRITE-TBPOS = GS_OUTPUT-TBPOS." TR项目
LT_FUN_IT_TRITE-ANFME = GS_OUTPUT-MENGE." 实际数量
LT_FUN_IT_TRITE-ALTME = GS_OUTPUT-MEINS."
** LT_FUN_IT_TRITE-LETYP = "仓储单位类型
LT_FUN_IT_TRITE-CHARG = GS_OUTPUT-CHARG." 收货批次
LT_FUN_IT_TRITE-NLTYP = GS_OUTPUT-NLTYP." 目的仓储类型
LT_FUN_IT_TRITE-NLPLA = GS_OUTPUT-NLPLA." 目的仓位
LT_FUN_IT_TRITE-VLTYP = GS_OUTPUT-VLTYP." 源发仓储类型
LT_FUN_IT_TRITE-VLPLA = GS_OUTPUT-VLPLA. " 源发仓位
LT_FUN_IT_TRITE-NLBER = '001'. "目的地仓储区
APPEND LT_FUN_IT_TRITE.
CALL FUNCTION 'L_TO_CREATE_TR'
EXPORTING
I_LGNUM = LS_LTBK-LGNUM "仓库号
I_TBNUM = LS_LTBK-TBNUM " TR号
* I_REFNR = ' '
I_SQUIT = 'X'
* I_NIDRU = ' '
* I_DRUKZ = ' '
* I_LDEST = ' '
* I_TBELI = ' '
* I_NOSPL = ' '
* I_UPDATE_TASK = ' '
* I_COMMIT_WORK = 'X'
I_BNAME = SY-UNAME
* I_TEILK = ' '
* I_SOLEX = 0
* I_PERNR = 0
* I_RSNUM = ' '
* I_LDEST_LANG = ' '
IT_TRITE = LT_FUN_IT_TRITE[]
IMPORTING
E_TANUM = LV_FUN_TANUM
* E_TEILK =
TABLES
T_LTAK = LT_FUN_LTAK_VB
T_LTAP_VB = LT_FUN_LTAP_VB
T_WMGRP_MSG = LT_FUN_WMGRP_MSG
EXCEPTIONS
FOREIGN_LOCK = 1
QM_RELEVANT = 2
TR_COMPLETED = 3
XFELD_WRONG = 4
LDEST_WRONG = 5
DRUKZ_WRONG = 6
TR_WRONG = 7
SQUIT_FORBIDDEN = 8
NO_TO_CREATED = 9
UPDATE_WITHOUT_COMMIT = 10
NO_AUTHORITY = 11
PREALLOCATED_STOCK = 12
PARTIAL_TRANSFER_REQ_FORBIDDEN = 13
INPUT_ERROR = 14
ERROR_MESSAGE = 16
OTHERS = 15.