Get Profit Segment Data of FI Document

Terkadang dalam transaksi FI document (F-02, F-63, dan F lainnya) functional FI menambahkan profit segment pada GL account tertentu untuk controlling. Profit segment ini akan men-generate nomer POBJNR (Profitability Segment Number (CO-PA)) dan PASUBNR (Profitability Segment Changes (CO-PA)). Filed ini berada di table BSEG untuk line item document FI.

Belum lama ini saya dapet spec untuk melakukan validasi transaksi FI untuk mengecek apakah salah satu field pada profit segment sudah terisi atau belum. Untuk mengecek hal ini, harus di-get dulu data yang telah diisi di profit segment tersebut. hal ini dikarenakan pada exit validasi yang saya gunakan, data profit segment-nya tidak ter-passing, jadi dibutuhkan function module untuk mengambil data dari profit segment ini, yaitu dengan FM RKE_GET_CHARS_FOR_PAOBJNR.

  types: begin of keak_ys_ipv_field,
           fieldname like tkeipv01-fieldname,
           fieldval like tkeipv01-fieldval,
         end of keak_ys_ipv_field.
  types: keak_yt_ipv_field type keak_ys_ipv_field occurs 0.
  data: le_ce4_key    like  cest1-paobjnr,
        lt_ce4_chars  type  keak_yt_ipv_field,
        lwa_ce4_chars type  keak_ys_ipv_field.

  call function 'RKE_GET_CHARS_FOR_PAOBJNR'
    exporting
      i_bukrs        = bkpf-bukrs
      i_paobjnr      = bseg-paobjnr
    importing
      e_ce4_key      = le_ce4_key
    tables
      t_ce4_chars    = lt_ce4_chars
    exceptions
      no_erkrs_found = 1
      paobjnr_wrong  = 2
      others         = 3.
  if sy-subrc  0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.

  read table lt_ce4_chars into lwa_ce4_chars with key fieldname = 'WW006'.
  if sy-subrc eq 0.
    if lwa_ce4_chars-fieldval is initial.
      b_result = b_false.
    endif.
  else.
    b_result = b_false.
  endif.
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s