SAP ABAP - Call AMDP With Select-Option

-

AMDP Code

CLASS zcl_amdp_acdoca DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
  INTERFACES: if_amdp_marker_hdb.
  TYPES:
        BEGIN OF ty_acdoca,
            RCLNT  type acdoca-RCLNT,
            rbukrs type acdoca-rbukrs,
            belnr type acdoca-belnr,
            gjahr type acdoca-gjahr,
            DOCLN type acdoca-DOCLN,
            racct type acdoca-racct,
            budat type acdoca-budat,
        END OF ty_acdoca.

  TYPES: zz_acdoca TYPE STANDARD TABLE OF ty_acdoca.

  class-METHODS:
    get_acdoca
      IMPORTING
        VALUE(lv_where) TYPE string
      EXPORTING
        VALUE(et_acdoca) TYPE zz_acdoca.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS ZCL_AMDP_ACDOCA IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_AMDP_ACDOCA=>GET_ACDOCA
* +-------------------------------------------------------------------------------------------------+
* | [--->] LV_WHERE                       TYPE        STRING
* | [<---] ET_ACDOCA                      TYPE        ZZ_ACDOCA
* +--------------------------------------------------------------------------------------</SIGNATURE>
    METHOD get_acdoca
        by DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT
        OPTIONS READ-ONLY USING ACDOCA.

        ITAB = select DISTINCT RCLNT, rbukrs, belnr, gjahr, DOCLN, racct, budat FROM ACDOCA WHERE RLDNR = '0L';

        et_acdoca = APPLY_FILTER ( :ITAB, :lv_where );
    endmethod.
ENDCLASS.


ABAP Code

*&---------------------------------------------------------------------*
*& Report YCALL_AMDP_WITH_SEL
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ycall_amdp_with_sel.
TABLES:
  acdoca.

TYPES:
  BEGIN OF ty_acdoca,
    RCLNT  type acdoca-RCLNT,
    rbukrs TYPE acdoca-rbukrs,
    belnr  TYPE acdoca-belnr,
    gjahr  TYPE acdoca-gjahr,
    docln  TYPE acdoca-docln,
    racct  TYPE acdoca-racct,
    budat  TYPE acdoca-budat,
  END OF ty_acdoca.

DATA: lt_acdoca TYPE STANDARD TABLE OF ty_acdoca.

SELECT-OPTIONS:
  s_bukrs FOR acdoca-rbukrs,
  s_belnr FOR acdoca-belnr,
  s_gjahr FOR acdoca-gjahr.

START-OF-SELECTION.

  DATA(lv_where) = cl_shdb_seltab=>combine_seltabs(
    it_named_seltabs = VALUE #(
      ( name = 'RBUKRS' dref = REF #( s_bukrs[] ) )
      ( name = 'BELNR'  dref = REF #( s_belnr[] ) )
      ( name = 'GJAHR'  dref = REF #( s_gjahr[] ) )
    )
    iv_client_field = 'RCLNT'
  ).
  zcl_amdp_acdoca=>get_acdoca(
    EXPORTING
      lv_where = lv_where
    IMPORTING
      et_acdoca = lt_acdoca[]
  ).

  SORT lt_acdoca[] BY rbukrs belnr gjahr docln.

  cl_demo_output=>display_data(
    EXPORTING
      value = lt_acdoca[]
  ).

Output






Comments

Post a Comment

Popular posts from this blog

PHP MySql CRUD Dengan Konsep MVC

-
Image
Pada postingan kali ini saya akan sharing cara membuat CRUD dengan php menggunakan konsep MVC, ok langsung saja buka code editor (saya menggunakan sublime text) dan buat folder baru dengan nama phpmvc didalam folder htdocs kalian dan tambah folder seperti berikut :  Setelah itu kita siapkan database di mysql, buat database dengan nama phpmvc dan tablenya seperti gambar berikut : tambahkan file config.php didalam folder app/config : <?php define('BASEURL', 'http://localhost:8181/phpmvc/public'); define('DB_HOST', 'localhost'); define('DB_USER', 'root'); define('DB_PASS', ''); define('DB_NAME', 'phpmvc'); kemudian tambahkan 3 file controller didalam folder app/controllers, yaitu Home, About, dan Mahasiswa : Home.php <?php class Home extends Controller { public function index() { $data['nama'] = $this->model('User_model')->getUser()...
Read more

Laravel - Sistem Informasi Perpustakaan Sederhana Laravel

-
Image
Postingan kali saya akan sharing membuat aplikasi perpustakaan sederhana menggunakan laravel 5.8, dimana terdapan menu Anggota, Kategori Buku, Daftar Buku dan Transaksi (Peminjaman/Pengembalian Buku). ok langsung saja kita buat project laravel dengan nama perpus : composer create-project --prefer-dist laravel/laravel perpus setelah create project laravel-nya selesai kita buat database melalui localhost/phpmyadmin dengan nama db_perpus, lalu kita buka project laravel dengan code editor disini saya menggunakan visual studio code. Setelah project kita buka dengan code editor, pertama kita atur koneksi database yang ada di file .env, kita rubah menjadi seperti berikut : note : untuk db_username dan db_password di sesuiakan dengan configurasi masing-masing. Selanjutnya kita tambahkan 4 buah data migration yaitu : table_anggota, table_kategori, table_buku, table_transaksi, kita buka terminal dan jalankan command berikut :  php artisan make:migration crea...
Read more

IT Asset Management Dengan PHP MySQL

-
Image
Pada postingan kali saya akan share sebuah aplikasi IT Asset management yang fungsinya untuk memonitoring semua Asset khusus IT, contohnya : Laptop/komputer , Printer, Router, Hardisk, dll. Dalam aplkasi ini kita bisa mengetahui Asset IT posisinya dimana dan digunakan oleh siapa. untuk data-data yang dibutuhkan antara lain : 1. data kategori asset dalam menu ini kita bisa meng-input jenis2 kategory asset : tambah kategori asset : 2. data department 3. data karyawan 4. data department per karyawan 5. data asset location  6. data satuan asset dan untuk transaksi yang ada dalam aplikasi ini adalah,  1. create asset, pada menu create asset ini kita akan mengalokasikan sebuah asset ke karyawan/personnel tampilannya seperti berikut: setelah klik tombol save akan muncul seperti dibawah : untuk melihat detail asset yang sudah dibuat tadi, kita bisa pilih...
Read more