|
No se si esto lo requerias mediante abap, este codigo yo lo utilice para obtenerlo:
CALL FUNCTION 'RH_GET_LEADING_POSITION' "jcu
EXPORTING
plvar = '01'
otype = 'S'
sobid = sobid"it_data_empleado-pernr
date = sy-datum
auth = 'X'
TABLES
leading_pos = it_leading_pos
EXCEPTIONS
no_lead_pos_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
READ TABLE it_leading_pos INTO wa_leading_pos INDEX 1.
IF sy-subrc EQ 0.
MOVE wa_leading_pos-objid(8) TO vl_posicion.
SELECT SINGLE pernr
INTO vl_pernr_pos
FROM pa0001
WHERE plans EQ vl_posicion
AND endda > sy-datum
AND begda <= sy-datum."Esto es importante, porque traeria registros viejos
ENDIF.
|