Abap Listbox and itab or table

Paylaş.

sap-abap-logo

TYPE-POOLS : vrm.
TABLES:vbak,vbap.
DATA : v(80TYPE c.

DATA: wa_vbak TYPE vbak,
it_vbak TYPE vbak OCCURS 0 WITH HEADER LINE,
wa_vbap TYPE vbap,
it_vbap TYPE vbap OCCURS 0 WITH HEADER LINE.
DATA: l_name TYPE vrm_id,
li_list TYPE vrm_values ,
v_count TYPE i,
l_value LIKE LINE OF li_list.

PARAMETERS: p_test(20AS LISTBOX VISIBLE LENGTH 60 MODIF ID DAT.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.

PERFORM get_data.

LOOP AT it_vbak.
l_value-key = it_vbak-vbeln .
l_value-text = it_vbak-vbeln .
APPEND l_value TO li_list.
ENDLOOP.

CALL FUNCTION ‘VRM_SET_VALUES’
EXPORTING
id = ‘P_TEST’
values = li_list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.

AT SELECTION-SCREEN ON P_TEST.
clear : li_list , li_list[].
SELECT vbeln
matnr
meins

FROM vbap

INTO CORRESPONDING FIELDS OF TABLE it_vbap
WHERE vbeln = p_test.

START-OF-SELECTION.
SELECT vbeln
matnr
meins
FROM vbap

INTO CORRESPONDING FIELDS OF TABLE it_vbap

WHERE vbeln = p_test.

LOOP AT it_vbap.

WRITE :/ it_vbap-vbeln, it_vbap-matnr,it_vbap-meins.

ENDLOOP.
*&———————————————————————*
*& Form get_Data
*&———————————————————————*

FORM get_data .
SELECT  vbeln UP TO 100 ROWS
FROM vbak
INTO CORRESPONDING FIELDS OF TABLE it_vbak.
ENDFORM” get_Data

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)