Sunday, June 26, 2011

Dropdown List Example in ABAP


REPORT  ZDROPDOWNLIST .

typesbegin of t_vbap,
  posnr 
type vbap-posnr,
  
end of t_vbap.

data: it_vbap TYPE STANDARD TABLE OF t_vbap,
      wa_vbap 
like line of it_vbap.

TYPE-POOLS: VRM.
DATA: NAME  TYPE VRM_ID,
      LIST  
TYPE VRM_VALUES,
      
VALUE LIKE LINE OF LIST.
""""""""""""
PARAMETERS: SO_NUM like vbap-vbeln.
""""""""""""

PARAMETERS: P_POSNR(10AS LISTBOX VISIBLE LENGTH 10.

*********************************************************
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.

clear list.
 
SELECT posnr
   
up to 10 rows
   
into CORRESPONDING FIELDS OF TABLE it_vbap
   
from vbap
   
where
   vbeln = SO_NUM.

  
loop at it_vbap into wa_vbap.
    
VALUE-KEY =  wa_vbap-posnr.
    
VALUE-TEXT = wa_vbap-posnr.
    
APPEND VALUE TO LIST.
  
endloop.

  NAME = 
'P_POSNR'.
  
CALL FUNCTION 'VRM_SET_VALUES'
    
EXPORTING
      
ID     = NAME
      VALUES = LIST.


*clear list.
********************************************************
*START-OF-SELECTION.
START-
OF-SELECTION.
  
WRITE: / 'SELECTED VALUE KEY:', SO_NUM.

No comments:

Post a Comment