call function 'L_TO_CREATE_SINGLE'
exporting
i_lgnum = I_LGNUM "仓库号
i_bwlvs = '999' "固定值999
* I_BETYP = ' '
* I_BENUM = ' '
i_matnr = I_MATNR "物料号
i_werks = I_WERKS "工厂
i_lgort = I_LGORT "仓储地点
i_charg = ''
i_bestq = ''
i_sobkz = ''
i_sonum = ''
i_letyp = ''
i_anfme = I_ANFME "数量
i_altme = 'PC' "单位
* I_WDATU = SY-DATLO
* I_VFDAT = INIT_DATUM
* I_ZEUGN = ' '
* I_LZNUM = ' '
i_squit = 'X' "固定值Ｘ
i_nidru = ''
i_drukz = ''
i_ldest = ''
* I_WEMPF = ' '
* I_ABLAD = ' '
i_vltyp = I_VLTYP "源仓储类型
* I_VLBER = ' '
i_vlpla = I_VLPLA "源仓位
* I_VPPOS = ' '
* I_VLENR = ' '
i_vlqnr = '0000649539' "源数量
i_nltyp = I_NLTYP "目标仓储类型
i_nlber = '' "可以保持为空 目标存储区
* i_nlpla = lagp-lgpla
i_nlpla = I_NLPLA "目标仓位
* I_NPPOS = ' '
i_nppos = ''
i_nlenr = ''
* I_NLQNR = ' '
* I_RLTYP = ' '
* I_RLBER = ' '
* I_RLPLA = ' '
* I_RLQNR = ' '
* I_UPDATE_TASK = ' '
i_commit_work = 'X'
I_BNAME = SY-uname "SAP用户名
I_KOMPL = 'X'
importing
e_tanum = BINADJUSTTAB-I_TANUM "返回凭证编号
* E_LTAP = ZLTAP "返回当前更改数据的记录，
exceptions
error_message = 99.