query in interactive report

Former Member · ‎2007 Jul 19

Hi All

i developed a report based on interactive report concept. this report is working fine. my question is once it is displaying the basic list i will click on company code then only it has to display secondary list ( here i keep hotspot also) but what happends in my code if i click on any filed(in basic list output) it is showing secondary list. i am sending my code below... anybody can suggest me how to fix this issue.

REPORT zmahi_testprogram1

NO STANDARD PAGE HEADING.

*"-- Tables

DATA : bsis,

bsid.

*"-- Types declaration

TYPES : BEGIN OF it_bsis,

bukrs TYPE bsis-bukrs, " Company Code

hkont TYPE bsis-hkont, " General ledger account

augdt TYPE bsis-augdt, " Clearing Date

augbl TYPE bsis-augbl, " Document Number

zuonr TYPE bsis-zuonr, " Assignment number

gjahr TYPE bsis-gjahr, " Fiscal year

belnr TYPE bsis-belnr, " Accounting document number

END OF it_bsis.

TYPES : BEGIN OF it_bsid,

bukrs TYPE bsid-bukrs, " Company Code

kunnr TYPE bsid-kunnr, " Customer number

umsks TYPE bsid-umsks, " Special G/L Transaction Type

umskz TYPE bsid-umskz, " Special G/L Indicator

augdt TYPE bsid-augdt, " Clearing Date

augbl TYPE bsid-augbl, " Document Number

zuonr TYPE bsid-zuonr, " Assignment number

END OF it_bsid.

*"-- Internal table declaration

DATA : itab_bsis TYPE it_bsis OCCURS 0 WITH HEADER LINE,

itab_bsid TYPE it_bsid OCCURS 0 WITH HEADER LINE.

*----

SELECTION-SCREEN

*----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-s01.

PARAMETER : p_bukrs TYPE bsid-bukrs. " Customer number

SELECTION-SCREEN END OF BLOCK b1.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

PERFORM get_data. " GET DATA FROM BSIS TABLE

PERFORM get_bsid. " GET DATA FROM BSID TABLE

PERFORM display_data. " DISPLAY DATA

&----

*& Form get_data

&----

FORM get_data.

SELECT bukrs

hkont

augdt

augbl

zuonr

gjahr

belnr

FROM bsis

INTO TABLE itab_bsis

WHERE bukrs = p_bukrs.

ENDFORM. " get_data

&----

*& Form get_bsid

&----

FORM get_bsid.

CHECK NOT itab_bsis[] IS INITIAL.

SELECT bukrs

kunnr

umsks

umskz

augdt

augbl

zuonr

FROM bsid

INTO TABLE itab_bsid

FOR ALL ENTRIES IN itab_bsis

WHERE bukrs = itab_bsis-bukrs.

ENDFORM. " get_bsid

&----

*& Form display_data

&----

FORM display_data.

DATA : wa_bsid TYPE it_bsid.

LOOP AT itab_bsid INTO wa_bsid.

WRITE : wa_bsid-bukrs HOTSPOT ON,

wa_bsid-umsks,

wa_bsid-umskz,

wa_bsid-augdt,

wa_bsid-augbl,

wa_bsid-zuonr.

HIDE itab_bsid-bukrs.

ENDLOOP.

ENDFORM. " display_data

*----

TOP-OF-PAGE

*----

TOP-OF-PAGE.

WRITE : 'This is basic list'.

*----

TOP-OF-PAGE DURING LINE-SELECTION

*----

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE : 'This is secondary list'.

*----

AT LINE-SELECTION

*----

AT LINE-SELECTION.

CASE sy-lsind.

WHEN '1'.

PERFORM get_bsis. " get data from vbak table

WHEN '2'.

PERFORM get_bsik.

ENDCASE.

&----

*& Form get_bsis

&----

FORM get_bsis.

*"-- types declaration

TYPES : BEGIN OF it_bsis,

bukrs TYPE bsis-bukrs,

hkont TYPE bsis-hkont,

augdt TYPE bsis-augdt,

augbl TYPE bsis-augbl,

zuonr TYPE bsis-zuonr,

END OF it_bsis.

*"-- internal table declaration

DATA : itab_bsis TYPE it_bsis OCCURS 0 WITH HEADER LINE,

wa_bsis TYPE it_bsis.

SELECT bukrs

hkont

augdt

augbl

zuonr

FROM bsis

INTO TABLE itab_bsis.

CHECK NOT itab_bsis[] IS INITIAL.

LOOP AT itab_bsis INTO wa_bsis.

WRITE : / wa_bsis-bukrs hotspot on,

wa_bsis-hkont,

wa_bsis-augdt,

wa_bsis-augbl,

wa_bsis-zuonr.

ENDLOOP.

ENDFORM. " get_vbak

&----

*& Form get_bsik

&----

FORM get_bsik.

*"-- types declaration

TYPES : BEGIN OF it_bsik,

bukrs TYPE bsik-bukrs,

lifnr TYPE bsik-bukrs,

umsks TYPE bsik-umsks,

umskz TYPE bsik-umskz,

END OF it_bsik..

*"-- internal table declaration

DATA : itab_bsik TYPE it_bsik OCCURS 0 WITH header line,

wa_bsik TYPE it_bsik.

*"--- data retrival

SELECT bukrs

lifnr

umsks

umskz

FROM bsik

INTO TABLE itab_bsik.

*"-- if table contains data

CHECK NOT itab_bsik[] IS INITIAL.

*"-- displaying the data

LOOP AT itab_bsik INTO wa_bsik.

WRITE : / wa_bsik-bukrs,

wa_bsik-lifnr,

wa_bsik-umsks,

wa_bsik-umskz.

ENDLOOP.

ENDFORM. " get_bsik

thanks,

maheedhar.t

Former Member · ‎2007 Jul 19

you have to use cursor programming instead of line selection

Former Member · ‎2007 Jul 19

HI,

see this code.

data:var1(20) value 'name',var2(20) value 'number'.

write:/ var1,var2 HOTSPOT on.

rgds,

bharat.

Former Member · ‎2007 Jul 19

Start-of-selection.

while write : BUKRS.

give hide itab-bukrs.

At line-selection.

if itab-bukrs = 'GB'.

then go process.

endif.

Former Member · ‎2007 Jul 19

hi

u can put a check while dispalying secondary list that the selected field is only the hotspotted one else seconadary list wont display

it will work for u

regards

ravish

plz dont forget to reward if helpful

Former Member · ‎2007 Jul 19

Hi Maheedhar,

pls remove hide statement and use Get cursor

GET CURSOR FIELD fldname VALUE fldval.

use if condition and


if fldname = itab-burks
  populate the secondary list values.
  go to secondary list.
endif.

Reward pts for usefull answers :)

regards

Sathish

Regards

Sathish

Former Member · ‎2007 Jul 19

i made the changes as per your suggestion still i am no tgetting the output.....

former_member198270 · ‎2007 Jul 19

Hi Maheendhar ,

Please paste your complete code or refer this peice of code this is working as per requirement

************************************************************************

--

GLOBAL DECLARATIONS--

************************************************************************

THIS DEFINES GLOBAL TYPES FOR ALV.

TYPE-POOLS: slis.

TRANSPARENT TABLES USED FOR DATA FETCHING

TABLES: ekko,ekpo,eket,lfa1,ekbe.

DATA : i_fieldcat TYPE slis_t_fieldcat_alv," FOR FIELDCATALOG

i2_fieldcat TYPE slis_t_fieldcat_alv,"FOR FIELDCATALOG 2

i3_fieldcat TYPE slis_t_fieldcat_alv, "FOR FIELDCATALOG 3

i_eventcat TYPE slis_t_event, "FOR EVENTCATALOG

i_layout TYPE slis_layout_alv, "FOR LAYOUT

i_sortinfo TYPE slis_t_sortinfo_alv. "FOR SORTING

VARIABLE FOR COUNT OF PO

DATA: n TYPE i ,

i TYPE i,

po_item TYPE ebelp,

v_count(1) VALUE 'N'.

*********************************************************************

--

TYPES--

*********************************************************************

--

DATA DECLARATION FOR VENDOR MASTER--

TYPES: BEGIN OF t_lfa1,

lifnr TYPE lifnr, "VENDOR CODE

name1 TYPE name1_gp, "VENDOR NAME

END OF t_lfa1.

--

DATA DECLARATION FOR HEADER(EKKO)--

TYPES: BEGIN OF t_ekko,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

lifnr TYPE elifn, "VENDOR CODE

c TYPE i, "PURCHASE ORDER COUNT

END OF t_ekko.

--

DATA DECLARATION FOR DETAIL(EKPO)--

TYPES: BEGIN OF t_ekpo,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

ebelp TYPE ebelp, "PURCHASE ORDER ITEM

menge TYPE bstmg, "PURCHASE ORDER QTY

END OF t_ekpo,

--

DATA DECLARATION FOR EKET TABLE--

BEGIN OF t_eket,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

ebelp TYPE ebelp, "PURCHASE ORDER ITEM

etenr TYPE eeten, "DELIVERY SCHEDULE LINE COUNTER

wemng TYPE weemg, "QUANTITY OF GOODS RECIEVED

END OF t_eket ,

*----

DATA DECLARATION FOR FINAL TABLE(FIRST

SCREEN)----

BEGIN OF t_tab,

lifnr TYPE elifn,

ebeln TYPE ebeln,

name1 TYPE name1_gp,

ebelp TYPE ebelp,

menge TYPE bstmg,

etenr TYPE eeten,

wemng TYPE weemg,

c TYPE i,

END OF t_tab.

--

DATA DECLARATION FOR FINAL TABLE (SECOND SCREEN)---

TYPES: BEGIN OF t_vendor,

lifnr TYPE elifn,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

menge TYPE bstmg,

wemng TYPE p,

END OF t_vendor,

--

DATA DECLARATION FOR EKBE--

BEGIN OF t_ekbe,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

bwart TYPE bwart,

menge TYPE menge_d,

END OF t_ekbe.

*********************************************************************

--

WORK AREA--

*********************************************************************

DATA : wa_lfa1 TYPE t_lfa1,

wa_ekko TYPE t_ekko,

wa_ekpo TYPE t_ekpo,

wa_eket TYPE t_eket,

wa_tab TYPE t_tab,

wa_vendor TYPE t_vendor,

wa_ekbe TYPE t_ekbe,

wa_grn TYPE t_ekbe,

wa_full TYPE t_vendor.

*********************************************************************

--

INTERNAL TABLES--

*********************************************************************

DATA: it_lfa1 TYPE STANDARD TABLE OF t_lfa1 WITH HEADER LINE ,

it_ekko TYPE STANDARD TABLE OF t_ekko WITH HEADER LINE ,

it_ekpo TYPE STANDARD TABLE OF t_ekpo WITH HEADER LINE,

it_eket TYPE STANDARD TABLE OF t_eket WITH HEADER LINE,

it_tab TYPE STANDARD TABLE OF t_tab WITH HEADER LINE,

it_vendor TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE,

it_ekbe TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,

it_grn TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,

it_full TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE.

DATA: vendor TYPE elifn.

DATA: qty TYPE p,

c TYPE i.

*********************************************************************

--

SELECTION SCREEN--

**********************************************************************

SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE text-001.

SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK main.

*********************************************************************

--

AT SELECTION-SCREEN--

*********************************************************************

AT SELECTION-SCREEN.

SELECT lifnr INTO (it_lfa1-lifnr) FROM lfa1 WHERE lifnr IN

s_lifnr.

ENDSELECT.

IF sy-subrc <> 0.

MESSAGE e001.

ENDIF.

*********************************************************************

--

START-OF-SELECTION--

*********************************************************************

START-OF-SELECTION.

FETCH RECORDS FROM THE DATABASE INTO THE INTERNAL TABLE.

PERFORM zf_select_it_tab.

PREPARE FIELDCATALOG FOR THE MAIN (1ST LIST) REPORT.

PERFORM zf_build_fieldcat USING i_fieldcat.

DEFINE EVENT TABLE

PERFORM build_eventcat USING i_eventcat.

DETERMINE THE SORTING SEQUENCE.

PERFORM build_sort USING i_sortinfo.

DISPLAY ALV GRID.

PERFORM zf_display_alv_list.

&----

*& Form ZF_SELECT_IT_TAB

&----

text

----

--> p1 text
<-- p2 text

----

*SELECTING DATA FROM IT_LFA1 TABLE

FORM zf_select_it_tab .

SELECT lifnr

name1

INTO TABLE it_lfa1

FROM lfa1

WHERE lifnr IN s_lifnr.

IF sy-subrc = 0.

SORT it_lfa1 BY lifnr.

ENDIF.

*SELECTING DATA FROM EKKO TABLE

IF NOT it_lfa1[] IS INITIAL.

SELECT

ebeln

lifnr

FROM ekko

INTO TABLE it_ekko

FOR ALL ENTRIES IN it_lfa1

WHERE lifnr = it_lfa1-lifnr.

IF sy-subrc = 0.

SORT it_ekko BY ebeln.

ENDIF.

*SELECTING DATA FROM EKPO TABLE

IF NOT it_ekko[] IS INITIAL.

SELECT

ebeln

ebelp

menge

FROM ekpo

INTO TABLE it_ekpo

FOR ALL ENTRIES IN it_ekko

WHERE ebeln = it_ekko-ebeln.

IF sy-subrc = 0.

SORT it_ekpo BY ebeln ebelp.

ENDIF.

*SELECTING DATA FROM EKET TABLE

IF NOT it_ekpo[] IS INITIAL.

SELECT

ebeln

ebelp

etenr

wemng

FROM eket

INTO TABLE it_eket

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln

AND ebelp = it_ekpo-ebelp.

SORT it_eket BY ebeln ebelp etenr.

ENDIF.

*SELECTING DATA FROM EKBE TABLE

IF NOT it_eket[] IS INITIAL.

SELECT

ebeln

ebelp

bwart

menge

FROM ekbe

INTO TABLE it_ekbe

FOR ALL ENTRIES IN it_eket

WHERE ebelp = it_eket-ebelp

AND ebeln = it_eket-ebeln

AND bwart = '101'.

ENDIF.

*********************************************************

THIS BLOCK MOVES THE FIELDS FROM DIFFERENT *
TABLES(EKKO,LFA1,EKPO,EKET) INTO A FINAL TABLE IT_TAB *
*

*********************************************************

CLEAR wa_tab.

CLEAR it_tab.

LOOP AT it_lfa1 INTO wa_lfa1.

READ TABLE it_ekko INTO wa_ekko WITH KEY lifnr = wa_lfa1-lifnr

BINARY SEARCH.

READ TABLE it_lfa1 INTO wa_lfa1

WITH KEY lifnr = wa_lfa1-lifnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE: wa_lfa1-name1 TO wa_tab-name1.

MOVE: wa_lfa1-lifnr TO wa_tab-lifnr.

ENDIF.

APPEND wa_tab TO it_tab.

CLEAR : wa_tab,wa_lfa1.

ENDLOOP.

**READ FOR SECOND SCREEN

REFRESH it_full.

CLEAR : wa_full,

wa_eket,

wa_ekpo.

LOOP AT it_eket INTO wa_eket.

READ TABLE it_ekpo INTO wa_ekpo WITH KEY ebeln = wa_eket-ebeln

ebelp = wa_eket-ebelp

BINARY SEARCH.

IF sy-subrc = 0.

READ TABLE it_ekko INTO wa_ekko WITH KEY ebeln =

wa_ekpo-ebeln

BINARY SEARCH.

IF sy-subrc = 0.

READ TABLE it_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_ekko-lifnr

BINARY SEARCH.

IF sy-subrc = 0.

wa_full-ebelp = wa_ekpo-ebelp.

wa_full-menge = wa_ekpo-menge.

wa_full-lifnr = wa_lfa1-lifnr.

wa_full-ebeln = wa_ekko-ebeln.

wa_full-wemng = wa_eket-wemng.

ENDIF.

APPEND wa_full TO it_full.

CLEAR : wa_ekko,wa_ekpo,wa_eket,wa_full.

ENDLOOP.

COUNT OF PO

LOOP AT it_tab.

LOOP AT it_ekko WHERE lifnr = it_tab-lifnr.

c = c + 1.

ENDLOOP.

it_tab-c = c.

MODIFY it_tab TRANSPORTING c.

CLEAR c.

ENDLOOP.

ENDFORM. " ZF_SELECT_IT_TAB

&----

*& Form ZF_BUILD_FIELDCAT

&----

FIELD CATALOG FOR FIRST SCREEN

----

-->P_I_FIELDCAT text

----

FORM zf_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.

REFRESH p_i_fieldcat.

DATA: l_fieldcat TYPE slis_fieldcat_alv.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '1'.

l_fieldcat-fieldname = 'LIFNR'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-key = 'X'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'VENDOR CODE'.

l_fieldcat-outputlen = 20.

APPEND l_fieldcat TO p_i_fieldcat.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '2'.

l_fieldcat-fieldname = 'NAME1'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'VENDOR NAME'.

l_fieldcat-outputlen = 20.

APPEND l_fieldcat TO p_i_fieldcat.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '3'.

l_fieldcat-fieldname = 'C'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'PO COUNT'.

l_fieldcat-outputlen = 10.

APPEND l_fieldcat TO p_i_fieldcat.

ENDFORM. " ZF_BUILD_FIELDCAT

&----

*& Form ZF_DISPLAY_ALV_LIST

&----

CALLING FUNCTION FOR ALV GRID DISPLAY

----

--> p1 text
<-- p2 text

----

FORM zf_display_alv_list .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

i_callback_user_command = 'USER_COMMAND'

is_layout = i_layout

it_fieldcat = i_fieldcat

it_events = i_eventcat

TABLES

t_outtab = it_tab

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " ZF_DISPLAY_ALV_LIST

&----

*& Form BUILD_SORT

&----

SORTING OUTPUT BY PURCHASE ORDER AND LINE ITEM

----

-->P_I_SORTINFO text

----

FORM build_sort USING p_i_sortinfo TYPE slis_t_sortinfo_alv.

REFRESH p_i_sortinfo.

DATA: l_sortinfo TYPE slis_sortinfo_alv.

CLEAR l_sortinfo.

l_sortinfo-spos = '1'.

l_sortinfo-fieldname = 'LIFNR'.

l_sortinfo-tabname = 'IT_VENDOR'.

l_sortinfo-up = 'X'.

l_sortinfo-group = 'UL'.

APPEND l_sortinfo TO p_i_sortinfo.

CLEAR l_sortinfo.

l_sortinfo-spos = '2'.

l_sortinfo-fieldname = 'EBELN'.

l_sortinfo-tabname = 'IT_VENDOR'.

l_sortinfo-up = 'X'.

l_sortinfo-group = 'UL'.

APPEND l_sortinfo TO p_i_sortinfo.

ENDFORM. " BUILD_SORT

&----

*& Form BUILD_EVENTCAT

&----

*

----

-->P_I_EVENTCAT text

----

FORM build_eventcat USING p_i_eventcat TYPE slis_t_event.

REFRESH p_i_eventcat.

DATA: i_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = p_i_eventcat

EXCEPTIONS

list_type_wrong = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CLEAR i_event.

READ TABLE p_i_eventcat WITH KEY name = slis_ev_user_command INTO

i_event.

IF sy-subrc = 0.

MOVE 'USER_COMMAND' TO i_event-form.

APPEND i_event TO p_i_eventcat.

ENDIF.

ENDFORM. " BUILD_EVENTCAT

&----

*& FORM USER_COMMAND

&----

FORM user_command USING p_ucomm TYPE sy-ucomm

p_selfield TYPE slis_selfield.

CASE p_ucomm.

WHEN '&IC1'.

READ TABLE it_tab INTO wa_tab INDEX p_selfield-tabindex.

IF p_selfield-fieldname = 'LIFNR'.

vendor = p_selfield-value.

PERFORM zf_vendor_details.

PERFORM zf2_build_fieldcat USING i2_fieldcat.

PERFORM zf_display_grid.

ENDIF.

CLEAR p_selfield.

ENDCASE.

ENDFORM. " ZF_USER_COMMAND

&----

*& Form ZF_VENDOR_DETAILS

&----

THIS FORM IS USED FOR MOVING DATA FROM IT_TAB TO IT_VENDOR

----

--> p1 text
<-- p2 text

----

FORM zf_vendor_details .

CLEAR wa_ekko.

CLEAR it_ekko.

REFRESH it_vendor.

LOOP AT it_full INTO wa_full WHERE lifnr = vendor.

MOVE :

wa_full-lifnr TO wa_vendor-lifnr,

wa_full-ebeln TO wa_vendor-ebeln,

wa_full-ebelp TO wa_vendor-ebelp,

wa_full-menge TO wa_vendor-menge,

wa_full-wemng TO wa_vendor-wemng.

APPEND wa_vendor TO it_vendor.

CLEAR : wa_vendor.

ENDLOOP.

ENDFORM. " ZF_VENDOR_DETAILS

&----

*& Form ZF2_BUILD_FIELDCAT

&----

THIS FORM IS USED FOR CATALOG SCREEN 2

----

-->P_I_FIELDCAT text

----

FORM zf2_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.

REFRESH p_i_fieldcat.

DATA: l2_fieldcat TYPE slis_fieldcat_alv.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '1'.

l2_fieldcat-fieldname = 'LIFNR'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'VENDOR CODE'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '2'.

l2_fieldcat-fieldname = 'EBELN'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'PURCHASE ORDER NUMBER'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '3'.

l2_fieldcat-fieldname = 'EBELP'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C710'.

l2_fieldcat-seltext_l = 'PO ITEM'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '4'.

l2_fieldcat-fieldname = 'MENGE'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'PO QTY'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '5'.

l2_fieldcat-fieldname = 'WEMNG'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C450'.

l2_fieldcat-seltext_l = 'QTY RECIEVED'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

ENDFORM. "ZF2_BUILD_FIELDCAT

&----

*& Form ZF_DISPLAY_ALV_LIST

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf_display_grid .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND1'

it_fieldcat = i2_fieldcat

it_sort = i_sortinfo

IMPORTING

TABLES

t_outtab = it_vendor

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. "ZF_DISPLAY_GRID

&----

*& FORM USER_COMMAND1

&----

FORM user_command1 USING p_ucomm TYPE sy-ucomm

p_selfield TYPE slis_selfield.

CASE p_ucomm.

WHEN '&IC1'.

READ TABLE it_vendor INTO wa_vendor INDEX p_selfield-tabindex.

IF p_selfield-fieldname = 'WEMNG'.

po_item = wa_vendor-ebelp.

PERFORM zf_grn.

PERFORM zf3_build_fieldcat USING i3_fieldcat.

PERFORM zf1_display_grid.

ENDIF.

ENDCASE.

ENDFORM. " ZF_USER_COMMAND

&----

*& Form ZF3_BUILD_FIELDCAT

&----

FIELD CATALOG FOR THIRD SCREEN

----

-->P_I3_FIELDCAT text

----

FORM zf3_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv

.

REFRESH p_i_fieldcat.

DATA: l3_fieldcat TYPE slis_fieldcat_alv.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '1'.

l3_fieldcat-fieldname = 'EBELN'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'P.O. NO'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '2'.

l3_fieldcat-fieldname = 'EBELP'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'P.O.ITEM'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '3'.

l3_fieldcat-fieldname = 'BWART'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'MOVEMENT TYPE'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '4'.

l3_fieldcat-fieldname = 'MENGE'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'GR QUANTITY'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

ENDFORM. " ZF3_BUILD_FIELDCAT

&----

*& Form ZF1_DISPLAY_GRID

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf1_display_grid .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

it_fieldcat = i3_fieldcat

IMPORTING

TABLES

t_outtab = it_grn

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " ZF1_DISPLAY_GRID

&----

*& Form ZF_GRN

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf_grn .

CLEAR wa_eket .

CLEAR it_eket.

REFRESH it_grn.

LOOP AT it_vendor INTO wa_vendor WHERE ebelp = po_item.

IF sy-subrc = 0.

READ TABLE it_ekbe INTO wa_ekbe WITH KEY

ebeln = wa_vendor-ebeln

ebelp = wa_vendor-ebelp.

IF sy-subrc = 0.

IF wa_ekbe-bwart = '101'.

MOVE: wa_ekbe-ebeln TO wa_grn-ebeln,

wa_ekbe-ebelp TO wa_grn-ebelp,

wa_ekbe-bwart TO wa_grn-bwart,

wa_ekbe-menge TO wa_grn-menge.

APPEND wa_grn TO it_grn.

CLEAR wa_ekbe.

CLEAR wa_grn.

ELSE.

MESSAGE e001.

ENDIF.

ENDLOOP.

ENDFORM. " ZF_GRN

Reward points if helpful .

Regards,

Amber S

Former Member · ‎2007 Jul 24

Problem has been solved....

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

query in interactive report