EWM

(EWM) 헤더 텍스트 가져오기

haramang 2022. 9. 19. 16:09

정리

1. stxh 테이블에서 문서번호를 조회하여 데이터가 있는지 확인

2. 언어 확인

3. READ_TEXT 통해 데이터 가져오기

   3.1. TDNAME과 TDID를 확인하도록하자 

 

EXAMPLE

 

" 1. 해당 언어 확인
  DATA : lv_langu TYPE spras.
  LV_LANGU = SY-LANGU.

  SELECT SINGLE tdspras
    FROM stxh
   WHERE tdobject EQ 'VBBK'         " Object
     AND tdname   EQ '8000018218'   " 문서번호
     AND tdid     EQ '0012'         " TD ID
     AND tdspras  EQ @sy-langu
    INTO @lv_langu.

  IF sy-subrc NE 0.
    SELECT SINGLE tdspras
      FROM stxh
   WHERE tdobject EQ 'VBBK'
     AND tdname   EQ '8000018218'
     AND tdid     EQ '0012'
      INTO @lv_langu.
  ENDIF.


" 2. 텍스트 읽기 
  DATA: pt_text   TYPE tttext .
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = '0012'         " TD ID
      language                = LV_LANGU       " 언어
      name                    = '8000018218'   " 문서번호
      object                  = 'VBBK'         " Object
    TABLES
      lines                   = pt_text
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.