*&---------------------------------------------------------------------*
*& Include          Z19_02_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form text_init
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM TEXT_INIT .
  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR = '01'
      OBJECT      = 'ZCERTSEQ'
      SUBOBJECT   = P_CERTID
    IMPORTING
      NUMBER      = GV_NUMBER.

  CONCATENATE GS_HEADER-TDOBJECT
              GS_HEADER-TDID
              GV_NUMBER
              INTO GS_HEADER-TDNAME.

  CALL FUNCTION 'INIT_TEXT'
    EXPORTING
      ID       = GS_HEADER-TDID
      LANGUAGE = SY-LANGU
      NAME     = GS_HEADER-TDNAME
      OBJECT   = GS_HEADER-TDOBJECT
    IMPORTING
      HEADER   = GS_HEADER
    TABLES
      LINES    = GT_LINE.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form save_text
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM SAVE_TEXT .
  DATA LV_MODIFIED TYPE I.

  CALL METHOD GO_TEXT_EDITOR->GET_TEXT_AS_STREAM
    IMPORTING
      TEXT                   = GT_TEXT_TABLE
      IS_MODIFIED            = LV_MODIFIED
    EXCEPTIONS
      ERROR_DP               = 1
      ERROR_CNTL_CALL_METHOD = 2
      OTHERS                 = 3.


  IF GT_TEXT_TABLE IS NOT INITIAL.

    CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'
      TABLES
        TEXT_STREAM = GT_TEXT_TABLE
        ITF_TEXT    = GT_LINE.

    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        HEADER    = GS_HEADER
      IMPORTING
        NEWHEADER = GS_HEADER
      TABLES
        LINES     = GT_LINE.

  ENDIF.



ENDFORM.
*&---------------------------------------------------------------------*
*& Form save_table
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM SAVE_TABLE .
  UPDATE ZCERTINFO
    SET
      CERTTEXT =  @GS_HEADER-TDNAME
    WHERE
      CERTID   EQ @P_CERTID.

  IF SY-SUBRC EQ 0.
    COMMIT WORK.
  ELSE.
    ROLLBACK WORK.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form read_text
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM READ_TEXT .

  SELECT SINGLE *
    FROM STXH
    INTO @DATA(LS_STXH)
    WHERE TDOBJECT EQ @GS_HEADER-TDOBJECT
    AND   TDNAME   EQ @GS_HEADER-TDNAME
    AND   TDID     EQ @GS_HEADER-TDID
    AND   TDSPRAS  EQ @SY-LANGU.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      ID                      = GS_HEADER-TDID
      LANGUAGE                = SY-LANGU
      NAME                    = GS_HEADER-TDNAME
      OBJECT                  = GS_HEADER-TDOBJECT
    IMPORTING
      HEADER                  = GS_HEADER
    TABLES
      LINES                   = GT_LINE
    EXCEPTIONS
      ID                      = 1
      LANGUAGE                = 2
      NAME                    = 3
      NOT_FOUND               = 4
      OBJECT                  = 5
      REFERENCE_CHECK         = 6
      WRONG_ACCESS_TO_ARCHIVE = 7
      OTHERS                  = 8.


  LOOP AT GT_LINE ASSIGNING FIELD-SYMBOL(<FS>).
    <FS>-TDFORMAT = '*'.
    REPLACE '*' WITH '' INTO <FS>-TDLINE.
  ENDLOOP.




  CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
    EXPORTING
      LANGUAGE    = SY-LANGU
    TABLES
      ITF_TEXT    = GT_LINE[]
      TEXT_STREAM = GT_TEXT_TABLE.

  CALL METHOD GO_TEXT_EDITOR->SET_SELECTED_TEXT_AS_STREAM
    EXPORTING
      SELECTED_TEXT = GT_TEXT_TABLE.


** 조회 모드 설정
** 0 : 수정 가능 / 1 : 조회만 가능
*  CALL METHOD GO_TEXT_EDITOR->SET_READONLY_MODE
*    EXPORTING
*      READONLY_MODE = 1.
*
** 특정 라인은 수정할 수 없게 비활성화
*      CALL METHOD GO_TEXT_EDITOR->PROTECT_LINES
*        EXPORTING
*          FROM_LINE = 1
*          TO_LINE   = LINES( GT_LINE ).


ENDFORM.
*&---------------------------------------------------------------------*
*& Form DELETE_TEXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM DELETE_TEXT.

  SELECT SINGLE 'X'
    FROM STXH
    INTO @DATA(LV_CHECK)
    WHERE TDOBJECT EQ @GS_HEADER-TDOBJECT
    AND   TDNAME   EQ @GS_HEADER-TDNAME
    AND   TDID     EQ @GS_HEADER-TDID
    AND   TDSPRAS  EQ @SY-LANGU.

  CHECK LV_CHECK EQ 'X'.

  CALL FUNCTION 'DELETE_TEXT'
    EXPORTING
      CLIENT          = SY-MANDT
      ID              = GS_HEADER-TDID
      LANGUAGE        = SY-LANGU
      NAME            = GS_HEADER-TDNAME
      OBJECT          = GS_HEADER-TDOBJECT
      SAVEMODE_DIRECT = 'X'
      LOCAL_CAT       = ' '
    EXCEPTIONS
      NOT_FOUND       = 1
      OTHERS          = 2.


  IF SY-SUBRC EQ 0.
    UPDATE ZCERTINFO
      SET
        CERTTEXT = ' '
      WHERE
        CERTID   EQ @P_CERTID.

    IF SY-SUBRC EQ 0.
      COMMIT WORK.
      LEAVE TO SCREEN 0.

    ELSE.
      ROLLBACK WORK.

    ENDIF.

  ENDIF.

ENDFORM.