A ver si esto te sirve:
* Matchcode para el campo naturaleza.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_natura-low.
SELECT mtart
mtbez
FROM t134t CLIENT SPECIFIED
INTO TABLE it_natura
WHERE mandt = sy-mandt
AND spras = sy-langu
AND ( mtart EQ 'ZMAT' OR
mtart EQ 'ZMOB' OR
mtart EQ 'ZIND' OR
mtart EQ 'ZCIN').
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MTART'
window_title = 'Naturaleza'
value_org = 'S'
TABLES
value_tab = it_natura
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_natura-low.
ENDIF.
|