Prueba con esta otra aver si te sirve
DATA: BEGIN OF IT_FIN,
num LIKE rkpln-perbl,
mes LIKE prps-post1,
END OF IT_FIN.
* NO CAMBIES LA ESTRUCTURA DE LA SIGUIENTE TABLA:
DATA: BEGIN OF it_match OCCURS 0,
shlpname LIKE ddshretval-shlpname,
fieldname LIKE ddshretval-fieldname,
recordpos LIKE ddshretval-recordpos,
fieldval LIKE ddshretval-fieldval,
retfield LIKE ddshretval-retfield,
END OF it_match.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fin.
REFRESH it_fin.
PERFORM crear_fin.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'NUM'
window_title = 'Nivel final'
value_org = 'S'
TABLES
value_tab = it_fin
return_tab = it_match
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE it_match INDEX 1.
MOVE it_match-fieldval TO s_fin.
ENDIF.
Espero que te sirva de algo, suerte
|