#2
|
|||
|
|||
declara dentro del evento AT SELECTION-SCREEN ON
Estimado, declarar en el evento indicado así:
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_statu. TYPES: BEGIN OF ty_tab, value TYPE char01, text TYPE char25, END OF ty_tab. DATA: ti_statu TYPE STANDARD TABLE OF ty_tab WITH HEADER LINE, it_match TYPE STANDARD TABLE OF ddshretval WITH HEADER LINE. CLEAR: ti_statu[], it_match[]. wa_statu-value = 'P'. wa_statu-text = 'Pendientes de sustituir'. APPEND wa_statu TO ti_statu. wa_statu-value = 'S'. wa_statu-text = 'Surtidas'. APPEND wa_statu TO ti_statu. wa_statu-value = 'N'. wa_statu-text = 'No tratadas'. APPEND wa_statu TO ti_statu. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'TEXT' window_title = 'Text' value_org = 'S' TABLES value_tab = ti_statu return_tab = it_match EXCEPTIONS parameter_error = 1 no_values_found = 2. " BSCABLFRAN > "Leemos lo que obtenermos y se lo pasamos a nuestro parámetro READ TABLE it_match INDEX 1. MOVE it_match-fieldval TO p_statu. Nos comentas al respecto. Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|