Membuat Fungsi Di SAP ^_^

Di Pagi ini ditengah kebuntuan aq buat menulis ,,,
Terbersit ide buat berbagi ilmu,,,
Aq mau menunjukkan salah satu source code tentang bagaimana membuat fungsi di SAP ,,,
(Kalau ada yang salah mohon koreksinya ya),,,

FUNCTION zhr_rfc_drp_pelatihan.
*”———————————————————————-
*”*”Local Interface:
*” IMPORTING
*” VALUE(N_NIK) LIKE P0001-PERNR
*” TABLES
*” T_PELATIHAN STRUCTURE ZSTRU_PELATIHAN
*”———————————————————————-

DATA : wa_9107 LIKE pa9107.
DATA :
itab_1001 LIKE hrp1001,
itab_1000 LIKE hrp1000.
DATA :
it_1001 LIKE hrp1001,
it_1000 LIKE hrp1000.

DATA: v_nama_pelatihan(255),
v_penyelenggara(255),
v_tgl_mulai(10),
v_tgl_selesai(10),
v_angkatan(10),
v_peringkat(10).

* Riwayat Dinas HRMIS
SELECT * FROM pa9107 INTO wa_9107
WHERE pernr = n_nik.

CLEAR v_nama_pelatihan.
CLEAR v_penyelenggara.
CLEAR v_tgl_mulai.
CLEAR v_tgl_selesai.
CLEAR v_angkatan.
CLEAR v_peringkat.

MOVE wa_9107-jdpel TO v_nama_pelatihan.
MOVE wa_9107-insti TO v_penyelenggara.
MOVE wa_9107-begda TO v_tgl_mulai.
MOVE wa_9107-endda TO v_tgl_selesai.
MOVE wa_9107-class TO v_angkatan.
MOVE wa_9107-ranki TO v_peringkat.

MOVE v_nama_pelatihan TO t_pelatihan-nama_pelatihan.
MOVE v_penyelenggara TO t_pelatihan-penyelenggara.
MOVE v_tgl_mulai TO t_pelatihan-tgl_mulai.
MOVE v_tgl_selesai TO t_pelatihan-tgl_selesai.
MOVE v_angkatan TO t_pelatihan-angkatan.
MOVE v_peringkat TO t_pelatihan-peringkat.

APPEND t_pelatihan.

ENDSELECT.

CLEAR : t_pelatihan.

SELECT *
INTO itab_1001
FROM hrp1001
WHERE
otype EQ ‘E’ AND
rsign EQ ‘A’ AND
relat EQ ‘025’ AND
sclas EQ ‘P’ AND
sobid EQ n_nik
AND begda GE ‘20080101’.

IF sy-subrc EQ 0.

select *
INTO itab_1000
FROM hrp1000
WHERE objid EQ itab_1001-objid
AND otype EQ ‘E’
AND plvar EQ ’02’
AND begda GE ‘20080101’.

ENDSELECT.

IF sy-subrc EQ 0.
select single *
From hrp1001
into it_1001
Where
otype EQ ‘E’ AND
rsign EQ ‘A’ AND
relat EQ ‘036’ AND
sclas EQ ‘U’
AND begda GE ‘20080101’
AND objid EQ itab_1001-objid.

IF sy-subrc EQ 0.
select single *
From hrp1000
into it_1000
where objid EQ it_1001-sobid
And otype EQ ‘E’
And plvar EQ ’02’
AND begda GE ‘20080101’ .

ENDIF.
ENDIF.

MOVE itab_1000-stext TO t_pelatihan-nama_pelatihan.
MOVE itab_1000-begda TO t_pelatihan-tgl_mulai .
MOVE itab_1000-endda TO t_pelatihan-tgl_selesai .
MOVE it_1000-stext TO t_pelatihan-penyelenggara .

append t_pelatihan.

ENDIF.

ENDSELECT.

ENDFUNCTION.

Itu dulu aja ya ^_^
Moga2 bermanfaat

13 thoughts on “Membuat Fungsi Di SAP ^_^

  1. @Yuk Sara
    Hehehe,,,,
    Bahasanya yang membuat pusing yuk,,,
    Tenang yuk,,, ayuk dak ngerti dak papo,,,
    Dak didenda kok,,,

    ^_^

  2. @ Dhedhi
    Tenang,,,,
    Aq aja ga ngerti banget kok,,,

    Hmmm,,,,
    Ntar ya dilanjutin lagi kalu aq udah ada ide,,,
    ๐Ÿ™‚

  3. @Kak Deni
    Pak Siapa k2 ??? (Hehehehehe)
    Wah,,, jangan bilang kalu selamat dateng didunia per SAP an,,,
    Orang aq mau pergi lagi,,,
    Abis setelah masuk pusing aq,,,
    Jadi Mau pulang aza ke Zona Nyamanku
    ^_^

    • Enggak kok๐Ÿ™‚
      Itu dulu pas Zaman COOP
      Hehehehe
      Boleh Juga megang SAP yang *software asal pencet*
      dan gajinya gede ^_^
      Hehehehe

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