Crear un campo de entrada, parametro, como un listbox en abap.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : s_denom TYPE c LENGTH 40 AS LISTBOX VISIBLE LENGTH 50.
SELECTION-SCREEN END OF BLOCK b1.
*Ahora necesitamos que al hacer clic para ver los valores posibles de la lista
*ser carguen los valores desde una subrutina en el evento value-request.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_denom.
PERFORM lista_denominacion.
*&---------------------------------------------------------------------*
*& Form LISTA_DENOMINACION
*&---------------------------------------------------------------------*
* PERMITE EN DEMANDA LLENAR LOS VALORES DEL LISTBOX
*----------------------------------------------------------------------*
* --> p1 text
* <-- nbsp="" p2="" span="" text="">
*----------------------------------------------------------------------*-->
FORM lista_denominacion .
REFRESH list.
name = 'S_DENOM'.
value-key = '01'. value-text = 'Venezuela'. APPEND value TO list.
value-key = '04'. value-text = 'Alemania'. APPEND value TO list.
value-key = '06'. value-text = 'Holanda'. APPEND value TO list.
value-key = '07'. value-text = 'Irlanda'. APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
ENDFORM. " LISTA_DENOMINACION
PARAMETERS : s_denom TYPE c LENGTH 40 AS LISTBOX VISIBLE LENGTH 50.
SELECTION-SCREEN END OF BLOCK b1.
*Ahora necesitamos que al hacer clic para ver los valores posibles de la lista
*ser carguen los valores desde una subrutina en el evento value-request.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_denom.
PERFORM lista_denominacion.
*&---------------------------------------------------------------------*
*& Form LISTA_DENOMINACION
*&---------------------------------------------------------------------*
* PERMITE EN DEMANDA LLENAR LOS VALORES DEL LISTBOX
*----------------------------------------------------------------------*
* --> p1 text
* <-- nbsp="" p2="" span="" text="">
*----------------------------------------------------------------------*-->
FORM lista_denominacion .
REFRESH list.
name = 'S_DENOM'.
value-key = '01'. value-text = 'Venezuela'. APPEND value TO list.
value-key = '04'. value-text = 'Alemania'. APPEND value TO list.
value-key = '06'. value-text = 'Holanda'. APPEND value TO list.
value-key = '07'. value-text = 'Irlanda'. APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
ENDFORM. " LISTA_DENOMINACION
Espero que les funcione :)
Atte.
Edwar Soto.
Comentarios