LT01 创建转储单

一、LT01创建转储单

采购订单——MIGO收货——虚拟仓位——LT01上架——实体仓位——LT01下架——虚拟仓位——MIGO发料——生产订单

 

二、参考代码

"-----------------------------------------@斌将军--------------------------------------------

DATA: lt_ltap_creat TYPE TABLE OF ltap_creat,
      ls_ltap_creat TYPE ltap_creat.

DATA: lv_lgnum TYPE ltak-lgnum,
      lv_bwlvs TYPE ltak-bwlvs,
      lv_tanum TYPE ltak-tanum,
      lv_vltyp TYPE ltap-vltyp, " 源仓储类型
      lv_vlber TYPE ltap-vlber, " 源发地仓储区
      lv_vlpla TYPE ltap-vlpla, " 源发地仓储位
      lv_nltyp TYPE ltap-nltyp, " 目的地仓储类型
      lv_nlber TYPE ltap-nlber, " 目的地仓储区
      lv_nlpla TYPE ltap-nlpla. " 目的地仓位

SELECT
  werks,
  lgort,
  lgnum
FROM t320
INTO TABLE @DATA(lt_t320)
WHERE werks = gs_data-werks
  AND lgort = gs_data-lgort.
IF sy-subrc EQ 0.
  SORT lt_t320 BY werks lgort.
  READ TABLE lt_t320 INTO DATA(ls_t320) WITH KEY werks = gs_data-werks
                                                    lgort = gs_data-lgort BINARY SEARCH.
  IF sy-subrc EQ 0.
    lv_lgnum = ls_t320-lgnum.
  ENDIF.
ENDIF.

"上架仓储类型
*SELECT
*  werks,
*  lgort,
*  lfdnr
*INTO TABLE @DATA(lt_twlad)
*FROM twlad
*WHERE werks = gs_data_str-werks
*  AND lgort = gs_data_str-lgort.
*
*IF sy-subrc EQ 0.
*  SORT lt_twlad BY werks lgort.
*  READ TABLE lt_twlad INTO DATA(ls_twlad) WITH KEY werks = gs_data-werks
*                                                      lgort = gs_data-lgort BINARY SEARCH.
*  IF sy-subrc EQ 0.
*    lv_vltyp = ls_twlad-lfdnr. " 源仓储类型
*  ENDIF.
*ENDIF.

SELECT
  lgnum,
  lqnum,
  lgtyp
FROM lqua
INTO TABLE @DATA(lt_lqua)
FOR ALL ENTRIES IN @lt_lljp
WHERE lgnum = @gs_data_str-lgnum
  AND lqnum = @gs_data_str-lqnum.

SORT lt_lqua BY lgnum lqnum.

lv_bwlvs = '999'.               " 移动类型
LOOP AT gt_item INTO ls_item.
  PERFORM matnr_input CHANGING ls_item-matnr.
  CLEAR ls_ltap_creat.
  ls_ltap_creat-matnr = ls_item-matnr.   " 物料编号
  ls_ltap_creat-werks = ls_item-werks.   " 工厂
  ls_ltap_creat-lgort = ls_item-lgort.   " 存储地点
  ls_ltap_creat-charg = ls_item-charg.   " 批次编号
  ls_ltap_creat-anfme = ls_item-menge.   " 数量
  ls_ltap_creat-altme = ls_item-meins.   " 基本计量单位

  READ TABLE lt_lqua INTO DATA(ls_lqua) WITH KEY lgnum = ls_item-lgnum
                                                    lqnum = ls_item-lqnum BINARY SEARCH.
  IF sy-subrc EQ 0.
    ls_ltap_creat-vltyp = ls_lqua-lgtyp.        " 源仓储类型
  ENDIF.
  ls_ltap_creat-vlber = '001'.        " 源发地仓储区
  ls_ltap_creat-vlpla = ls_item-lgpla.        " 源发地仓储位
  ls_ltap_creat-nltyp = 'Y00'.        " 目的地仓储类型
  ls_ltap_creat-nlber = '001'.        " 目的地仓储区
  ls_ltap_creat-nlpla = 'Y00'.        " 目的地仓位
  APPEND ls_ltap_creat TO lt_ltap_creat.
ENDLOOP.

CALL FUNCTION 'L_TO_CREATE_MULTIPLE'
  EXPORTING
    i_lgnum                = lv_lgnum
    i_bwlvs                = lv_bwlvs
*   I_BETYP                = ' '
*   I_BENUM                = ' '
*   I_LZNUM                = ' '
*   I_NIDRU                = ' '
*   I_DRUKZ                = ' '
*   I_NOSPL                = ' '
*   I_UPDATE_TASK          = ' '
    i_commit_work          = 'X'
    i_bname                = sy-uname
*   I_KOMPL                = 'X'
*   I_SOLEX                = 0
*   I_PERNR                = 0
*   I_MINWM                = ' '
*   I_AUSFB                = ' '
  IMPORTING
    e_tanum                = lv_tanum
  TABLES
    t_ltap_creat           = lt_ltap_creat
*   T_LTAK                 =
*   T_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
    OTHERS                 = 39.
IF sy-subrc <> 0.
  cs_return-type = 'E'.
  MESSAGE ID     sy-msgid
          TYPE   sy-msgty
          NUMBER sy-msgno
          WITH   sy-msgv1
                 sy-msgv2
                 sy-msgv3
                 sy-msgv4
          INTO   cs_return-message.
  EXIT.
ENDIF.
"-----------------------------------------@斌将军--------------------------------------------