Last active
February 28, 2019 13:08
-
-
Save fahridon/54e995b85058b8e667496ab55a94d058 to your computer and use it in GitHub Desktop.
HR ABAP Personel detail information and fire and hire date FM
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
TABLES: pa0000. | |
DATA: lv_entrydate TYPE p0000-begda, | |
lv_leavingdate TYPE p0000-begda. | |
DATA: it_org LIKE TABLE OF bapip0001b WITH HEADER LINE, | |
it_per LIKE TABLE OF bapip0002b WITH HEADER LINE. | |
PARAMETERS: p_pernr LIKE pa0000-pernr. | |
START-OF-SELECTION. | |
CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA' | |
EXPORTING | |
employee_id = p_pernr | |
date = sy-datum | |
authority_check = '' | |
TABLES | |
org_assignment = it_org | |
personal_data = it_per. | |
CALL FUNCTION 'HR_ENTRY_DATE' | |
EXPORTING | |
persnr = p_pernr | |
begda = '18000101' | |
endda = '99991231' | |
IMPORTING | |
entrydate = lv_entrydate | |
EXCEPTIONS | |
entry_date_not_found = 1 | |
pernr_not_assigned = 2 | |
OTHERS = 3. | |
CALL FUNCTION 'HR_LEAVING_DATE' | |
EXPORTING | |
persnr = p_pernr | |
begda = '18000101' | |
endda = '99991231' | |
IMPORTING | |
leavingdate = lv_leavingdate | |
EXCEPTIONS | |
leaving_date_not_found = 1 | |
pernr_not_assigned = 2 | |
OTHERS = 3. | |
END-OF-SELECTION. | |
WRITE:/ 'Departman :', it_org-orgtxt, | |
/ 'Görev :', it_org-postxt, | |
/ 'Personel no :', p_pernr, | |
/ 'Adı :', it_per-firstname, | |
/ 'Soyadı :', it_per-last_name, | |
/ 'Doğum yılı :', it_per-birthyear, | |
/ 'İşe giriş tarihi :', lv_entrydate, | |
/ 'İşten ayrılış tarihi:', lv_leavingdate. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
initial commit