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 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

Entradas populares de este blog

Cargar Texto estándar y mostrar en un POPUP

Leer Parametros de Dynpro.