Skip to main content

SAP ABAP : ME47 - Maintain Quotation Price With Custom Function Module

 



function z_vim_rfq_price.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(RFQ_NUMBER) TYPE  EBELN
*"     REFERENCE(RFQ_ITEM) TYPE  EBELP
*"     REFERENCE(PRICE) TYPE  NETPR
*"     REFERENCE(CURRENCY) TYPE  WAERS
*"  TABLES
*"      RETURN STRUCTURE  BDCMSGCOLL
*"----------------------------------------------------------------------

  data :
      i_ebeln type ebeln,
      i_ebelp type ebelp,
      ynetpr  type char15,
      xwaers  type waers,
      xnetpr  type netpr,
      wa_ekko type ekko,
      wa_ekpo type ekpo.

  data lt_bdcdata type table of bdcdata with header line.
  data lt_bdcmsg  type table of bdcmsgcoll with header line.
  data ls_bdcopt  type ctu_params.
  data ls_sy      type sy.

  ls_sy = sy.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = rfq_number
    importing
      output = i_ebeln.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = rfq_item
    importing
      output = i_ebelp.



  clear : wa_ekpo, wa_ekko.
  select single * from ekko into wa_ekko
  where ebeln = rfq_number and loekz = ''.
  if wa_ekko is initial.
    clear lt_bdcmsg.
    lt_bdcmsg-msgtyp = 'E'.
    lt_bdcmsg-msgv1  = 'RFQ Not found'.
    append lt_bdcmsg to return.
    exit.
  endif.
  select single * from ekpo into wa_ekpo
  where ebeln = rfq_number and
        ebelp = rfq_item.

  "ME47
  clear lt_bdcdata.
  lt_bdcdata-program  = 'SAPMM06E'.
  lt_bdcdata-dynpro   = '0305'.
  lt_bdcdata-dynbegin = 'X'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_CURSOR'.
  lt_bdcdata-fval = 'RM06E-ANFNR'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_OKCODE'.
  lt_bdcdata-fval = '/00'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'RM06E-ANFNR'.
  lt_bdcdata-fval = rfq_number.
  append lt_bdcdata.

  clear lt_bdcdata.
  lt_bdcdata-program  = 'SAPMM06E'.
  lt_bdcdata-dynpro   = '0323'.
  lt_bdcdata-dynbegin = 'X'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_CURSOR'.
  lt_bdcdata-fval = 'RM06E-EBELP'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_OKCODE'.
  lt_bdcdata-fval = '/00'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'RM06E-EBELP'.
  lt_bdcdata-fval = rfq_item.
  append lt_bdcdata.

  clear lt_bdcdata.
  lt_bdcdata-program  = 'SAPMM06E'.
  lt_bdcdata-dynpro   = '0323'.
  lt_bdcdata-dynbegin = 'X'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_CURSOR'.
  lt_bdcdata-fval = 'RM06E-ANFPS(01)'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_OKCODE'.
  lt_bdcdata-fval = '=KO'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'RM06E-TCSELFLAG(01)'.
  lt_bdcdata-fval = 'X'.
  append lt_bdcdata.

  data wa_cdpos type cdpos.
  data _tabkey  type char70.
  clear _tabkey.
  concatenate rfq_number rfq_item into _tabkey.
  select single * from cdpos into wa_cdpos
    where objectclas = 'EINKBELEG' and objectid = rfq_number and tabkey = _tabkey and fname = 'NETPR'.

  if wa_ekpo-netpr > 0 or wa_cdpos is not initial.
    clear lt_bdcdata.
    lt_bdcdata-program  = 'SAPLV14A'.
    lt_bdcdata-dynpro   = '0102'.
    lt_bdcdata-dynbegin = 'X'.
    append lt_bdcdata.
    clear lt_bdcdata.
    lt_bdcdata-fnam = 'BDC_CURSOR'.
    lt_bdcdata-fval = 'VAKE-DATAB(01)'.
    append lt_bdcdata.
    clear lt_bdcdata.
    lt_bdcdata-fnam = 'BDC_OKCODE'.
    lt_bdcdata-fval = '=PICK'.
    append lt_bdcdata.
  endif.

*  clear lt_bdcdata.
*  lt_bdcdata-program  = 'SAPMV13A'.
*  lt_bdcdata-dynpro   = '0201'.
*  lt_bdcdata-dynbegin = 'X'.
*  append lt_bdcdata.
*  clear lt_bdcdata.
*  lt_bdcdata-fnam = 'BDC_CURSOR'.
*  lt_bdcdata-fval = 'KONP-KBETR(01)'.
*  append lt_bdcdata.

  clear lt_bdcdata.
  lt_bdcdata-program  = 'SAPMV13A'.
  lt_bdcdata-dynpro   = '0201'.
  lt_bdcdata-dynbegin = 'X'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_OKCODE'.
  lt_bdcdata-fval = '/00'.
  append lt_bdcdata.

  xnetpr = price.
  if currency = 'IDR'.
    xnetpr = xnetpr / 100.
  endif.
  write xnetpr to ynetpr currency currency.

  clear lt_bdcdata.
  lt_bdcdata-fnam = 'KONP-KBETR(01)'.
  lt_bdcdata-fval = ynetpr.
  append lt_bdcdata.

  clear lt_bdcdata.
  lt_bdcdata-program  = 'SAPMV13A'.
  lt_bdcdata-dynpro   = '0201'.
  lt_bdcdata-dynbegin = 'X'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_CURSOR'.
  lt_bdcdata-fval = 'KONP-KBETR(01)'.
  append lt_bdcdata.
  clear lt_bdcdata.
  lt_bdcdata-fnam = 'BDC_OKCODE'.
  lt_bdcdata-fval = '=SICH'.
  append lt_bdcdata.

  "BDC Options
  ls_bdcopt-dismode   = 'N'. "A=FOREGROUND N=BACKGROUND E=ERROR
  ls_bdcopt-updmode   = 'S'. "S=SYNCHRONOUS A=ASYNCHRONOUS L=LOCAL
  ls_bdcopt-defsize   = 'X'.
  ls_bdcopt-racommit  = 'X'.
*  ls_bdcopt-nobinpt   = 'X'.
*  ls_bdcopt-nobiend   = 'X'.

  update ekpo set agmem = '' bednr = '1' where ebeln = i_ebeln and ebelp = i_ebelp.

  call transaction 'ME47'
*  without authority-check
  using lt_bdcdata
        messages into lt_bdcmsg
        options from ls_bdcopt.

  return = lt_bdcmsg.

  if lt_bdcmsg[] is initial.
    commit work and wait.
    append LINES OF lt_bdcmsg[] to return[].
  else.
    rollback work.
  endif.



endfunction.

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