Skip to Content
0
Oct 18, 2005 at 12:19 PM

ALV Popup

29 Views

Hi

I am not getting data for this source Code. Can anyone explain. There are matching records in the table for the condition that i have given.

REPORT BALV_POPUP_TO_SELECT.

TYPE-POOLS: SLIS.

DATA: fieldcat type slis_t_FIELDCAT_ALV with header line.

DATA: fieldcat_wa TYPE slis_fieldcat_alv.

data: begin of ekbe_wa,

ebeln type ekbe-ebeln,

belnr type ekbe-belnr,

budat type ekbe-budat,

menge type ekbe-menge,

dmbtr type ekbe-dmbtr,

end of ekbe_wa,

ekbe_tab like table of ekbe_wa with header line.

START-OF-SELECTION.

select ebeln belnr budat dmbtr menge

into corresponding fields of table ekbe_tab

from ekbe

where ebeln = '3000000004'.

fieldcat_wa-col_pos = 1.

fieldcat_wa-fieldname = 'EBELN' .

fieldcat_wa-tabname = 'EKBE_TAB'.

fieldcat_wa-ref_fieldname = 'EBELN'.

fieldcat_wa-ref_tabname = 'EKBE'.

fieldcat_wa-seltext_l = 'PO Order'.

APPEND fieldcat_wa TO fieldcat.

fieldcat_wa-col_pos = 2.

fieldcat_wa-fieldname = 'BELNR' .

fieldcat_wa-tabname = 'EKBE_TAB'.

fieldcat_wa-seltext_l = 'Material Doc.'.

fieldcat_wa-ref_fieldname = 'BELNR'.

fieldcat_wa-ref_tabname = 'EKBE'.

APPEND fieldcat_wa TO fieldcat.

fieldcat_wa-col_pos = 3.

fieldcat_wa-fieldname = 'BUDAT' .

fieldcat_wa-tabname = 'EKBE_TAB'.

fieldcat_wa-seltext_l = 'Date'.

fieldcat_wa-ref_fieldname = 'BUDAT'.

fieldcat_wa-ref_tabname = 'EKBE'.

APPEND fieldcat_wa TO fieldcat.

fieldcat_wa-col_pos = 4.

fieldcat_wa-fieldname = 'MENGE' .

fieldcat_wa-tabname = 'EKBE_TAB'.

fieldcat_wa-seltext_l = 'Quantity'.

fieldcat_wa-ref_fieldname = 'MENGE'.

fieldcat_wa-ref_tabname = 'EKBE'.

APPEND fieldcat_wa TO fieldcat.

fieldcat_wa-col_pos = 5.

fieldcat_wa-fieldname = 'DMBTR' .

fieldcat_wa-tabname = 'EKBE_TAB'.

fieldcat_wa-seltext_l = 'Amount'.

fieldcat_wa-ref_fieldname = 'DMBTR'.

fieldcat_wa-ref_tabname = 'EKBE'.

APPEND fieldcat_wa TO fieldcat.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_tabname = '1'

IT_FIELDCAT = fieldcat[]

TABLES

T_OUTTAB = ekbe_tab[]

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE I000(0K) WITH SY-SUBRC.

ENDIF.