Search Help with Parameter on Screen Painter SAP ABAP

Hai, Search Help, objek repositori lain dari Kamus ABAP, digunakan untuk menampilkan semua nilai yang mungkin untuk suatu bidang dalam bentuk daftar. Daftar ini juga dikenal sebagai hit list, Anda dapat memilih nilai yang akan dimasukkan di bidang dari hit list ini daripada memasukkan nilai secara manual, yang merepotkan dan rawan kesalahan saat input nilai tersebut.

Catatan:
Tutorial ini merupakan tutorial untuk yang sudah pengalaman membuat Screen Painter & Search Help, Pada artikel ini tidak diajarkan cara tersebut, Pelajar Cara Membuat Screen Painter & Search Help terlebih dahulu sebelum melanjutkan.

Kali ini saya akan share bagaimana membuat sebuah search help pada screen painter menggunakan nilai parameter

Contoh Hasil Screen Painter

Ketika SES diklik maka akan muncul Search Help dengan paramater Order (Contoh Nilainya: IOC60233) , maka akan menampilkan hit lists 1000052141
Buat logic “PROCESS ON VALUE REQUEST” pada Screen Number yang dituju

PROCESS ON VALUE-REQUEST.
  FIELD: ZFI_REFUND-LBLNI MODULE SH_LBLNI.

PROCESS ON VALUE-REQUESR adalah peristiwa dan dipicu ketika pengguna menekan F4 untuk bidang tertentu. Ini menampilkan kemungkinan set nilai dari tabel nilai yang disebutkan. Nilai akan ditampilkan oleh jendela pop-up yang ditentukan oleh SAP GUI.

Buat logic untuk module SH_LBLNI sesuai nama module pada PROCESS ON VALUE-REQUEST

MODULE SH_LBLNI INPUT.
  "LS_ZFI_RD_REQUEST_H-AUFNR
  TYPES: BEGIN OF ty_esknsh,
    PACKNO TYPE eskn-PACKNO,
    END OF ty_esknsh.
  DATA: lt_esknsh TYPE TABLE OF ty_esknsh.
  SELECT PACKNO FROM eskn
    INTO TABLE lt_esknsh
    WHERE aufnr = LS_ZFI_RD_REQUEST_H-AUFNR.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*     DDIC_STRUCTURE         = ' '
      RETFIELD               = 'PACKNO'
*     PVALKEY                = ' '
     DYNPPROG               = sy-cprog
     DYNPNR                 = sy-dynnr
     DYNPROFIELD            = 'ZFI_REFUND-LBLNI'
*     STEPL                  = 0
*     WINDOW_TITLE           =
*     VALUE                  = ' '
     VALUE_ORG              = 'S'
*     MULTIPLE_CHOICE        = ' '
*     DISPLAY                = ' '
*     CALLBACK_PROGRAM       = ' '
*     CALLBACK_FORM          = ' '
*     CALLBACK_METHOD        =
*     MARK_TAB               =
*   IMPORTING
*     USER_RESET             =
    TABLES
      VALUE_TAB              = lt_esknsh
*     FIELD_TAB              =
*     RETURN_TAB             =
*     DYNPFLD_MAPPING        =
*   EXCEPTIONS
*     PARAMETER_ERROR        = 1
*     NO_VALUES_FOUND        = 2
*     OTHERS                 = 3
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.


ENDMODULE.

Selesai, Semoga Membantu.

Leave a Comment Cancel reply