Function

[WM] L_TO_CREATE_MULTIPLE

moon.7 2021. 6. 9. 15:29

 

 

바피명 : L_TO_CREATE_MULTIPLE

기능 :  WM 이전오더 생성(다중 생성 가능) 

 

 TO 생성시 확정/ 미확정은  LTAP_CREAT 의 SQUIT에 'X' 또는 ''로 설정가능함

 TO 생성시 미확정이면 L_TO_CONFIRM으로 확정처리도 해야한다

 

      CALL FUNCTION 'L_TO_CREATE_MULTIPLE'
        EXPORTING
          I_LGNUM                = [창고번호]
          I_BWLVS                = [Movement Type]
        IMPORTING
          E_TANUM                = PE_TANUM  [LTAK-TANUM] TO 생성 성공시 데이터 EXPORT됨
        TABLES
          T_LTAP_CREAT           = [LTAP_CREAT] TO 생성할 데이터 추가
          T_LTAK                    =  [LTAK_VB]  
          T_LTAP_VB               = [LTAP_VB] TO 생성 성공시 데이터 EXPORT됨
        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.

  IF PE_TANUM IS INITIAL.
    LV_RESULT = 'ERROR'.

    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = sy-msgid
        msgnr               = sy-msgno
        msgv1               = sy-msgv1
        msgv2               = sy-msgv2
        msgv3               = sy-msgv3
        msgv4               = sy-msgv4
      IMPORTING
        message_text_output = LV_MESSAGE.
  ELSE.
    LV_RESULT = 'SUCCESS'.

  ENDIF.