批量创建TO单据
GV_TAPOS = GV_TAPOS + 1. "转储单行号
GS_OUTPUT-TAPOS = GV_TAPOS.
CLEAR:GS_LTAP_CREAT.
GS_LTAP_CREAT-MATNR = GS_OUTPUT-MATNR. "物料
GS_LTAP_CREAT-WERKS = GS_OUTPUT-WERKS. "工厂
GS_LTAP_CREAT-LGORT = GS_OUTPUT-LGORT. "库存地点
GS_LTAP_CREAT-CHARG = GS_OUTPUT-CHARG. "批次
GS_LTAP_CREAT-SOBKZ = GS_OUTPUT-SOBKZ. "特殊库存标志
GS_LTAP_CREAT-SONUM = GS_OUTPUT-PSPNR. "特殊库存编号
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GS_LTAP_CREAT-SONUM
IMPORTING
OUTPUT = GS_LTAP_CREAT-SONUM.
GS_LTAP_CREAT-SQUIT = 'X'. "标识: 确认转储单项目
"调拨行号&行号 将调拨单号 后8 位，调拨单行号 后4 位拼接存储在 TAP-WEMPF
IF GS_OUTPUT-ZGODYNPRO IS NOT INITIAL AND GS_OUTPUT-ZPOSNR IS NOT INITIAL.
CONCATENATE GS_OUTPUT-ZGODYNPRO+2(8) GS_OUTPUT-ZPOSNR+2(4)
INTO GS_LTAP_CREAT-WEMPF .
ENDIF.
* GS_LTAP_CREAT-WEMPF = ''. "收货方/运达方
GS_LTAP_CREAT-ANFME = GS_OUTPUT-VSOLA."以备选计量单位计的需求数量
GS_LTAP_CREAT-ALTME = GS_OUTPUT-MEINS. "帐面库存单位的可选计量单位
* GS_LTAP_CREAT-LETYP = . "仓储单位类型
GS_LTAP_CREAT-VLTYP = GS_OUTPUT-VLTYP. "源仓储类型
GS_LTAP_CREAT-VLBER = '001'. "源发地仓储区
GS_LTAP_CREAT-VLPLA = GS_OUTPUT-VLPLA. "源发地仓储位
* GS_LTAP_CREAT-VLQNR = GS_OUTPUT-VLQNR. "源发地仓储位数量
GS_LTAP_CREAT-NLTYP = GS_OUTPUT-NLTYP. "目的地仓储类型
GS_LTAP_CREAT-NLBER = '001'. "目的地仓储区
GS_LTAP_CREAT-NLPLA = GS_OUTPUT-NLPLA. "目的地仓位
APPEND GS_LTAP_CREAT TO GT_LTAP_CREAT.
CALL FUNCTION 'L_TO_CREATE_MULTIPLE'
EXPORTING
I_LGNUM = GV_LGNUM
I_BWLVS = '317'
* I_BETYP = ' '
* I_BENUM = ' '
* I_LZNUM = ' '
* I_NIDRU = ' '
* I_DRUKZ = ' '
* I_NOSPL = ' '
I_UPDATE_TASK = 'X'
I_COMMIT_WORK = 'X'
I_BNAME = SY-UNAME
* I_KOMPL = 'X'
* I_SOLEX = 0
* I_PERNR = 0
* I_MINWM = ' '
* I_AUSFB = ' '
IMPORTING
E_TANUM = GV_TANUM
TABLES
T_LTAP_CREAT = GT_LTAP_CREAT
T_LTAK = GT_LTAK_VB
T_LTAP_VB = GT_LTAP_VB
EXCEPTIONS
NO_TO_CREATED = 1
BWLVS_WRONG = 2
BETYP_WRONG = 3
BENUM_MISSING = 4
BETYP_MISSING = 5
FOREIGN_LOCK = 6
VLTYP_WRONG = 7
VLPLA_WRONG = 8
VLTYP_MISSING = 9
NLTYP_WRONG = 10
NLPLA_WRONG = 11
NLTYP_MISSING = 12
RLTYP_WRONG = 13
RLPLA_WRONG = 14
RLTYP_MISSING = 15
SQUIT_FORBIDDEN = 16
MANUAL_TO_FORBIDDEN = 17
LETYP_WRONG = 18
VLPLA_MISSING = 19
NLPLA_MISSING = 20
SOBKZ_WRONG = 21
SOBKZ_MISSING = 22
SONUM_MISSING = 23
BESTQ_WRONG = 24
LGBER_WRONG = 25
XFELD_WRONG = 26
DATE_WRONG = 27
DRUKZ_WRONG = 28
LDEST_WRONG = 29
UPDATE_WITHOUT_COMMIT = 30
NO_AUTHORITY = 31
MATERIAL_NOT_FOUND = 32
LENUM_WRONG = 33
MATNR_MISSING = 34
WERKS_MISSING = 35
ANFME_MISSING = 36
ALTME_MISSING = 37
LGORT_WRONG_OR_MISSING = 38
ERROR_MESSAGE = 40
OTHERS = 39.