[SAP] – Enhancement, Checking LongText pada EntrySheet

Checking Long Text pada EntrySheet

Berikut adalah dokumentasi, terkait permintaan adanya checking pada LongText entrySheet, dimana akan melakukan checking long text saat entrysheet ini di save.
Ada berbagai macam cara yang dapat digunakan untuk solving masalah ini, diantaranya yang saya gunakan yakni menggunakan enhacement.
Berikut penjabaran detail, step dan cara enhancement pada entrySheet :

1. Cari titik dan nama program terlebih dahulu

Pertama, cek nama program dari entrysheet itu sendiri, sebelum menemukan nama object dan spot titik yang digunakan, sahabat dapat menggunakan fungsi tcode SE93 maupun saat membuka transaksi (pada system-status).

2. Dapatkan screen number dan object-nya

Langkah berikutnya adalah, dapatkan screen number dan nama object dari container long text yang digunakan, hal ini berfungsi untuk get data input dari container tersebut.

Get it, tambahkan enhancement. dimana diketahui jika inputan pada Long Text entry sheet disimpan pada itab TEXT_TABLE untuk diproses lebih lanjut.

3. Lets Code

“Get Text Properties
  CLEAR: long_flg.
  IF SY-TCODE = ‘ML81N’ AND sy-ucomm = ‘SAVE’.

    CALL METHOD EDITOR->GET_TEXT_AS_R3TABLE
         EXPORTING  ONLY_WHEN_MODIFIED  = 0
         IMPORTING  TABLE               = TEXT
                    IS_MODIFIED         = MODIF
         EXCEPTIONS OTHERS = 1.

    long_flg = ‘X’.
    IF TEXT[] IS INITIAL.
      MESSAGE E007(ZMM).
    ELSE.
      “CEK LENGTH
      CLEAR: count, xtext.
      LOOP AT text into xtext.
        CLEAR length.
        length = strlen( xtext ).
        add length to count.
      ENDLOOP.
      IF count < 10.
        MESSAGE E007(ZMM).
      ENDIF.
    ENDIF.
  ENDIF.

3. Activate and Test

Test, jika long text kosong atau diisi kurang dari 10 character.

DONE
Sekian share tentang enhancement untuk checking Long Text pada entry sheet, dan semoga bermanfaat.

_TerimaKasih,
GuritnoY
https://www.linkedin.com/in/guritno-yudho-wibowo-95944236/