Skip to main content

SAP ABAP - Adopt Purchase Requisition Header Note to Purchase Order Header Text

Adopt purchase requisition header note to purchase order header text when creating purchase order with purchase requisition reference using BADI ME_PROCESS_PO_CUST 

Copy this source code to Method : IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM

DATA :  LS_MEPOITEM TYPE MEPOITEM.
DATA :  L_HEADER    TYPE REF TO IF_PURCHASE_ORDER_MM,
      LS_HEADER   TYPE MEPOHEADER.

DATA :  IM_TDID         TYPE TDID,
      IM_TEXTLINES    TYPE MMPUR_T_TEXTLINES,
      MMPUR_TEXTLINES TYPE MMPUR_TEXTLINES,
      LT_LINES        TYPE TABLE OF TLINE,
      LS_LINES        TYPE TLINE,
      LV_TDNAME       TYPE THEAD-TDNAME.

LS_MEPOITEM = IM_ITEM->GET_DATA( ).

  CALL METHOD IM_ITEM->GET_HEADER
    RECEIVING
      RE_HEADER = L_HEADER.

  CALL METHOD L_HEADER->GET_DATA
    RECEIVING
      RE_DATA = LS_HEADER.
 
  "Get Purchase Order Header Note 
  IF LS_MEPOITEM-BANFN IS NOT INITIAL AND SY-TCODE = 'ME21N'.
    CLEAR   : LV_TDNAME, LS_LINES, IM_TEXTLINES.
    REFRESH LT_LINES.

    LV_TDNAME = LS_MEPOITEM-BANFN.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                                           = SY-MANDT
        ID                                                     = 'B01'
        LANGUAGE                                   = SY-LANGU
        NAME                    = LV_TDNAME
        OBJECT                  = 'EBANH'
      TABLES
        LINES                                              = LT_LINES
      EXCEPTIONS
        ID                                                     = 1
        LANGUAGE                                   = 2
        NAME                    = 3
        NOT_FOUND               = 4
        OBJECT                  = 5
        REFERENCE_CHECK         = 6
        WRONG_ACCESS_TO_ARCHIVE = 7
        OTHERS                                          = 8.

    IF SY-SUBRC = 0.
      LOOP AT LT_LINES INTO LS_LINES.
        CLEAR MMPUR_TEXTLINES.
        MMPUR_TEXTLINES-TDID     = 'F01'.
        MMPUR_TEXTLINES-TDOBJECT = 'EKKO'.
        MMPUR_TEXTLINES-TDFORMAT = LS_LINES-TDFORMAT.
        MMPUR_TEXTLINES-TDLINE   = LS_LINES-TDLINE.
        APPEND MMPUR_TEXTLINES   TO IM_TEXTLINES.
        CLEAR LS_LINES.
      ENDLOOP.
    ENDIF.

    IM_TDID = 'F01'.
    CALL METHOD L_HEADER->IF_LONGTEXTS_MM~SET_TEXT(
      EXPORTING
        IM_TDID      = IM_TDID
        IM_TEXTLINES = IM_TEXTLINES ).
  ENDIF.


Labels:

Comments

Post a Comment

Popular posts from this blog

PHP MySql CRUD Dengan Konsep MVC

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()...
22 comments
Read more

Cara Sederhana Multi Insert Data Dengan PHP - MySQL

Pada postingan kali ini saya akan share cara melakukan insert lebih dari satu data dengan menggunaka PHP- Jquery dan MySQL. Pertama buat database di MySQL dan table, disini saya membuat database dengan nama db_latihan dan table dengan nama t_barang dengan struktur table seperti berikut : Setelah membuat database dan table selanjutnya membuat project PHP, project PHP nya saya buat dengan nama multi-insert, lalu didalam folder ini saya membuat dua file yaitu index.php dan insert.php . Source code index.php seperti berikut : <! doctype   html > < html   lang = "en" >    < head >      <!-- Required meta tags -->      < meta   charset = "utf-8" >      < meta   name = "viewport"   content = "width=device-width, initial-scale=1" >      <!-- Bootstrap CSS -->      < link ...
2 comments
Read more

Laravel - Sistem Informasi Perpustakaan Sederhana Laravel

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...
14 comments
Read more