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.