TABLES : pernr.
NODES : peras.
INFOTYPES : 0001.
FIELD-SYMBOLS : <fs_p0001> TYPE p0001.
CONSTANTS : c_molga TYPE molga VALUE 'AE'.
START-OF-SELECTION.
GET peras.
* Check if molga is a UAE molga
LOOP AT p0001 ASSIGNING <fs_p0001> WHERE begda <= pn-endda
AND endda >= pn-begda.
DATA lx_t500p TYPE t500p.
lx_t500p = cl_hr_t500p=>read( <fs_p0001>-werks ).
IF lx_t500p IS INITIAL.
RETURN.
ELSEIF NOT lx_t500p-molga = c_molga.
RETURN.
ENDIF.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
RETURN.
ENDIF.
END-OF-SELECTION.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
6 | |
5 | |
5 | |
5 | |
4 | |
3 | |
2 | |
2 | |
2 | |
2 |