批量创建TO单

批量创建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.