topic interactive alv in Application Development and Automation Discussions

topic interactive alv in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275065#M494628 <HTML><HEAD></HEAD><BODY><P>hi</P><P>plz explain me while we r working with interactive alv what should u keep in mind.</P><P>means (in interactice report we r using the hide statemetn) what value we should capture.</P><P> and plz explain the below statemnt how exactly it works techinially.</P><P> means what is slis_selfield? and all.</P><P></P><P>FORM user_command1 USING w_ucomm LIKE sy-ucomm rs_selfield TYPE</P><P>slis_selfield.</P></BODY></HTML> Tue, 15 May 2007 11:09:43 GMT Former Member 2007-05-15T11:09:43Z interactive alv https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275065#M494628 <HTML><HEAD></HEAD><BODY><P>hi</P><P>plz explain me while we r working with interactive alv what should u keep in mind.</P><P>means (in interactice report we r using the hide statemetn) what value we should capture.</P><P> and plz explain the below statemnt how exactly it works techinially.</P><P> means what is slis_selfield? and all.</P><P></P><P>FORM user_command1 USING w_ucomm LIKE sy-ucomm rs_selfield TYPE</P><P>slis_selfield.</P></BODY></HTML> Tue, 15 May 2007 11:09:43 GMT https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275065#M494628 Former Member 2007-05-15T11:09:43Z Re: interactive alv https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275066#M494629 <HTML><HEAD></HEAD><BODY><P>hi prasad,</P><P> vijay here,</P><P>in alv case we use &IC1 instead of hide stmt in reports.</P><P>well this keyword acts as same as hide and this value stored in slis_selfield.</P><P>well use below code to check the working by jus use of your table.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report ZTRE_ALVHOTSPOT *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT ZTRE_ALVHOTSPOT.</P><P>type-pools : slis.</P><P></P><P>TABLES : ZTRE_EMP ,ZTRE_LIB.</P><P>*</P><P>DATA : MY_LAYOUT TYPE DISVARIANT.</P><P>MY_LAYOUT-REPORT = SY-REPID.</P><P></P><P>DATA : ITAB LIKE ZTRE_EMP OCCURS 0 WITH HEADER LINE,</P><P> JTAB LIKE ZTRE_LIB OCCURS 0 WITH HEADER LINE.</P><P></P><P>DATA : P_FIELDCAT TYPE slis_t_fieldcat_alv,</P><P> H_FIELDCAT TYPE SLIS_FIELDCAT_ALV,</P><P> SELTAB TYPE SLIS_SELFIELD.</P><P></P><P>PARAMETERS : ID TYPE ZTRE_EMP-EMPPID.</P><P></P><P>SELECT EMPPID ENAMES EMOBILE FROM ZTRE_EMP INTO CORRESPONDING FIELDS OF</P><P>TABLE ITAB.</P><P></P><P>***************************<STRONG>FIELDCATALOG</STRONG>*******************************</P><P>H_FIELDCAT-TABNAME = 'ITAB'.</P><P>H_FIELDCAT-FIELDNAME = 'EMPPID'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'EMPID'.</P><P>H_FIELDCAT-HOTSPOT = 'X'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'ITAB'.</P><P>H_FIELDCAT-FIELDNAME = 'ENAMES'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'NAMES'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'ITAB'.</P><P>H_FIELDCAT-FIELDNAME = 'EMOBILE'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'MOBILE'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'JTAB'.</P><P>H_FIELDCAT-FIELDNAME = 'DEPTCODE'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'DEPTCODE'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'JTAB'.</P><P>H_FIELDCAT-FIELDNAME = 'EMPBOOKS'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'BOOKS'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'JTAB'.</P><P>H_FIELDCAT-FIELDNAME = 'AUTHOR'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'AUTHOR'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P>H_FIELDCAT-TABNAME = 'JTAB'.</P><P>H_FIELDCAT-FIELDNAME = 'EMPAD'.</P><P>H_FIELDCAT-JUST = 'C'.</P><P>H_FIELDCAT-SELTEXT_L = 'ADDRESS'.</P><P></P><P>APPEND H_FIELDCAT TO P_FIELDCAT.</P><P>CLEAR H_FIELDCAT.</P><P></P><P></P><P></P><P>********************************<STRONG>END OF FI</STRONG>**********************</P><P></P><P>CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER = ' '</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE = ' '</P></LI></UL><P> I_CALLBACK_PROGRAM = 'ZTRE_ALVHOTSPOT'</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ''</P></LI></UL><P> I_CALLBACK_USER_COMMAND = 'USER-COMMAND'</P><UL><LI level="1" type="ul"><P> I_CALLBACK_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_END_OF_LIST = ' '</P></LI></UL><P> I_STRUCTURE_NAME = 'ZTRE_EMP'</P><UL><LI level="1" type="ul"><P> I_BACKGROUND_ID = ' '</P></LI></UL><P> I_GRID_TITLE = 'INTERACTIVE LIST'</P><UL><LI level="1" type="ul"><P> I_GRID_SETTINGS =</P></LI><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI></UL><P> IT_FIELDCAT = P_FIELDCAT</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> I_SAVE = 'A'</P></LI><LI level="1" type="ul"><P> IS_VARIANT = MY_LAYOUT</P></LI><LI level="1" type="ul"><P> IT_EVENTS =</P></LI><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ADD_FIELDCAT =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_TOP =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_END =</P></LI><LI level="1" type="ul"><P>IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> TABLES</P><P> T_OUTTAB = ITAB.</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P>IF SY-SUBRC <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P></P><P>FORM USER-COMMAND USING LT_UCOMM LIKE SY-UCOMM</P><P> LT_SELFIELD TYPE SLIS_SELFIELD.</P><P></P><P>IF LT_UCOMM = '&IC1'.</P><P>READ TABLE ITAB INDEX LT_SELFIELD-TABINDEX.</P><P></P><P>SELECT DEPTCODE EMPBOOKS EMPAD AUTHOR EMPAD FROM ZTRE_LIB INTO</P><P>CORRESPONDING FIELDS OF TABLE JTAB WHERE EMPPID = ITAB-EMPPID.</P><P></P><P>*PERFORM DISPLAY1.</P><P>ENDIF.</P><P>*ENDFORM.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DISPLAY1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>*FORM DISPLAY1 .</P><P>*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'</P><UL><LI level="1" type="ul"><P>EXPORTING</P></LI><LI level="1" type="ul"><P> I_PROGRAM_NAME = 'ZTRE_ALVHOTSPOT'</P></LI><LI level="1" type="ul"><P> I_INTERNAL_TABNAME = 'JTAB'</P></LI><LI level="1" type="ul"><P> I_STRUCTURE_NAME = 'ZTRE_LIB'</P></LI><LI level="1" type="ul"><P> I_CLIENT_NEVER_DISPLAY = 'X'</P></LI><UL><LI level="2" type="ul"><P> I_INCLNAME =</P></LI><LI level="2" type="ul"><P> I_BYPASSING_BUFFER =</P></LI><LI level="2" type="ul"><P> I_BUFFER_ACTIVE =</P></LI></UL><LI level="1" type="ul"><P> CHANGING</P></LI><LI level="1" type="ul"><P> CT_FIELDCAT = P_FIELDCAT</P></LI><UL><LI level="2" type="ul"><P>EXCEPTIONS</P></LI><LI level="2" type="ul"><P> INCONSISTENT_INTERFACE = 1</P></LI><LI level="2" type="ul"><P> PROGRAM_ERROR = 2</P></LI><LI level="2" type="ul"><P> OTHERS = 3</P></LI></UL><LI level="1" type="ul"><P> .</P></LI></UL><P>*IF SY-SUBRC <> 0.</P><UL><UL><LI level="2" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="2" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL></UL><P>*ENDIF.</P><P>*</P><P></P><P>CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER = ' '</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE = ' '</P></LI></UL><P> I_CALLBACK_PROGRAM = 'ZTRE_ALVHOTSPOT'</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_END_OF_LIST = ' '</P></LI></UL><P> I_STRUCTURE_NAME = 'ZTRE-LIB'</P><UL><LI level="1" type="ul"><P> I_BACKGROUND_ID = ' '</P></LI><LI level="1" type="ul"><P> I_GRID_TITLE =</P></LI><LI level="1" type="ul"><P> I_GRID_SETTINGS =</P></LI><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI></UL><P> IT_FIELDCAT = P_FIELDCAT</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI></UL><P> I_SAVE = 'A'</P><P> IS_VARIANT = MY_LAYOUT</P><UL><LI level="1" type="ul"><P> IT_EVENTS =</P></LI><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 1</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 1</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ADD_FIELDCAT =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_TOP =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_END =</P></LI><LI level="1" type="ul"><P>IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> TABLES</P><P> T_OUTTAB = JTAB</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P>IF SY-SUBRC <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P>ENDFORM. " DISPLAY1</P><P></P><P></P><P></P><P></P><P>thanks and regards</P><P>vijay dwivedi</P><P></P><P>rewards*</P></BODY></HTML> Tue, 15 May 2007 11:33:25 GMT https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275066#M494629 Former Member 2007-05-15T11:33:25Z Re: interactive alv https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275067#M494630 <HTML><HEAD></HEAD><BODY><P>Hi naidu ,,</P><P></P><P></P><P>Plz find two level drill down ALV interactive program ,,</P><P></P><P></P><P>************************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-----------" />GLOBAL DECLARATIONS--<HR originaltext="------------------------------" /><P></P><P>************************************************************************</P><P></P><UL><LI level="1" type="ul"><P>THIS DEFINES GLOBAL TYPES FOR ALV.</P></LI></UL><P>TYPE-POOLS: slis.</P><P></P><UL><LI level="1" type="ul"><P>TRANSPARENT TABLES USED FOR DATA FETCHING</P></LI></UL><P>TABLES: ekko,ekpo,eket,lfa1,ekbe.</P><P></P><P>DATA : i_fieldcat TYPE slis_t_fieldcat_alv," FOR FIELDCATALOG</P><P> i2_fieldcat TYPE slis_t_fieldcat_alv,"FOR FIELDCATALOG 2</P><P> i3_fieldcat TYPE slis_t_fieldcat_alv, "FOR FIELDCATALOG 3</P><P> i_eventcat TYPE slis_t_event, "FOR EVENTCATALOG</P><P> i_layout TYPE slis_layout_alv, "FOR LAYOUT</P><P> i_sortinfo TYPE slis_t_sortinfo_alv. "FOR SORTING</P><P></P><UL><LI level="1" type="ul"><P>VARIABLE FOR COUNT OF PO</P></LI></UL><P>DATA: n TYPE i ,</P><P> i TYPE i,</P><P> po_item TYPE ebelp,</P><P> v_count(1) VALUE 'N'.</P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------------" />TYPES--<HR originaltext="----------------------------------" /><P></P><P>*********************************************************************</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------" />DATA DECLARATION FOR VENDOR MASTER--<HR originaltext="-------" /><P></P><P>TYPES: BEGIN OF t_lfa1,</P><P> lifnr TYPE lifnr, "VENDOR CODE</P><P> name1 TYPE name1_gp, "VENDOR NAME</P><P> END OF t_lfa1.</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-----------" />DATA DECLARATION FOR HEADER(EKKO)--<HR originaltext="-------------" /><P></P><P>TYPES: BEGIN OF t_ekko,</P><P> ebeln TYPE ebeln, "PURCHASE ORDER NUMBER</P><P> lifnr TYPE elifn, "VENDOR CODE</P><P> c TYPE i, "PURCHASE ORDER COUNT</P><P> END OF t_ekko.</P><P></P><P></P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-----------" />DATA DECLARATION FOR DETAIL(EKPO)--<HR originaltext="-------------" /><P></P><P>TYPES: BEGIN OF t_ekpo,</P><P> ebeln TYPE ebeln, "PURCHASE ORDER NUMBER</P><P> ebelp TYPE ebelp, "PURCHASE ORDER ITEM</P><P> menge TYPE bstmg, "PURCHASE ORDER QTY</P><P> END OF t_ekpo,</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="----------" />DATA DECLARATION FOR EKET TABLE--<HR originaltext="-----------------" /><P></P><P> BEGIN OF t_eket,</P><P> ebeln TYPE ebeln, "PURCHASE ORDER NUMBER</P><P> ebelp TYPE ebelp, "PURCHASE ORDER ITEM</P><P> etenr TYPE eeten, "DELIVERY SCHEDULE LINE COUNTER</P><P> wemng TYPE weemg, "QUANTITY OF GOODS RECIEVED</P><P> END OF t_eket ,</P><P>*----</P><HR originaltext="----------" /><P>DATA DECLARATION FOR FINAL TABLE(FIRST</P><P><STRONG>SCREEN)----</STRONG></P><HR originaltext="-----" /><P></P><P> BEGIN OF t_tab,</P><P> lifnr TYPE elifn,</P><P> ebeln TYPE ebeln,</P><P> name1 TYPE name1_gp,</P><P> ebelp TYPE ebelp,</P><P> menge TYPE bstmg,</P><P> etenr TYPE eeten,</P><P> wemng TYPE weemg,</P><P> c TYPE i,</P><P> END OF t_tab.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="----------" />DATA DECLARATION FOR FINAL TABLE (SECOND SCREEN)---<P></P><P>TYPES: BEGIN OF t_vendor,</P><P> lifnr TYPE elifn,</P><P> ebeln TYPE ebeln,</P><P> ebelp TYPE ebelp,</P><P> menge TYPE bstmg,</P><P> wemng TYPE p,</P><P> END OF t_vendor,</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="----------" />DATA DECLARATION FOR EKBE--<HR originaltext="------------------" /><P></P><P> BEGIN OF t_ekbe,</P><P> ebeln TYPE ebeln,</P><P> ebelp TYPE ebelp,</P><P> bwart TYPE bwart,</P><P> menge TYPE menge_d,</P><P> END OF t_ekbe.</P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------------" />WORK AREA--<HR originaltext="-------------------------------" /><P></P><P>*********************************************************************</P><P>DATA : wa_lfa1 TYPE t_lfa1,</P><P> wa_ekko TYPE t_ekko,</P><P> wa_ekpo TYPE t_ekpo,</P><P> wa_eket TYPE t_eket,</P><P> wa_tab TYPE t_tab,</P><P> wa_vendor TYPE t_vendor,</P><P> wa_ekbe TYPE t_ekbe,</P><P> wa_grn TYPE t_ekbe,</P><P> wa_full TYPE t_vendor.</P><P></P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />INTERNAL TABLES--<HR originaltext="-----------------------------" /><P></P><P>*********************************************************************</P><P>DATA: it_lfa1 TYPE STANDARD TABLE OF t_lfa1 WITH HEADER LINE ,</P><P> it_ekko TYPE STANDARD TABLE OF t_ekko WITH HEADER LINE ,</P><P> it_ekpo TYPE STANDARD TABLE OF t_ekpo WITH HEADER LINE,</P><P> it_eket TYPE STANDARD TABLE OF t_eket WITH HEADER LINE,</P><P> it_tab TYPE STANDARD TABLE OF t_tab WITH HEADER LINE,</P><P> it_vendor TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE,</P><P> it_ekbe TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,</P><P> it_grn TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,</P><P> it_full TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE.</P><P></P><P>DATA: vendor TYPE elifn.</P><P>DATA: qty TYPE p,</P><P> c TYPE i.</P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------------" />SELECTION SCREEN--<HR originaltext="-----------------------" /><P></P><P>**********************************************************************</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE text-001.</P><P>SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr OBLIGATORY.</P><P>SELECTION-SCREEN END OF BLOCK main.</P><P></P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />AT SELECTION-SCREEN--<HR originaltext="-----------------------" /><P></P><P>*********************************************************************</P><P></P><P>AT SELECTION-SCREEN.</P><P> SELECT lifnr INTO (it_lfa1-lifnr) FROM lfa1 WHERE lifnr IN</P><P>s_lifnr.</P><P> ENDSELECT.</P><P> IF sy-subrc <> 0.</P><P> MESSAGE e001.</P><P> ENDIF.</P><P></P><P>*********************************************************************</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />START-OF-SELECTION--<HR originaltext="-------------------------" /><P></P><P>*********************************************************************</P><P></P><P>START-OF-SELECTION.</P><P></P><UL><LI level="1" type="ul"><P> FETCH RECORDS FROM THE DATABASE INTO THE INTERNAL TABLE.</P></LI></UL><P> PERFORM zf_select_it_tab.</P><P></P><UL><LI level="1" type="ul"><P> PREPARE FIELDCATALOG FOR THE MAIN (1ST LIST) REPORT.</P></LI></UL><P> PERFORM zf_build_fieldcat USING i_fieldcat.</P><P></P><UL><LI level="1" type="ul"><P>DEFINE EVENT TABLE</P></LI></UL><P> PERFORM build_eventcat USING i_eventcat.</P><P></P><P></P><UL><LI level="1" type="ul"><P>DETERMINE THE SORTING SEQUENCE.</P></LI></UL><P> PERFORM build_sort USING i_sortinfo.</P><P></P><UL><LI level="1" type="ul"><P> DISPLAY ALV GRID.</P></LI></UL><P> PERFORM zf_display_alv_list.</P><P></P><P></P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_SELECT_IT_TAB</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>*SELECTING DATA FROM IT_LFA1 TABLE</P><P>FORM zf_select_it_tab .</P><P> SELECT lifnr</P><P> name1</P><P> INTO TABLE it_lfa1</P><P> FROM lfa1</P><P> WHERE lifnr IN s_lifnr.</P><P> IF sy-subrc = 0.</P><P> SORT it_lfa1 BY lifnr.</P><P> ENDIF.</P><P>*SELECTING DATA FROM EKKO TABLE</P><P> IF NOT it_lfa1[] IS INITIAL.</P><P> SELECT</P><P> ebeln</P><P> lifnr</P><P> FROM ekko</P><P> INTO TABLE it_ekko</P><P> FOR ALL ENTRIES IN it_lfa1</P><P> WHERE lifnr = it_lfa1-lifnr.</P><P> IF sy-subrc = 0.</P><P> SORT it_ekko BY ebeln.</P><P> ENDIF.</P><P> ENDIF.</P><P>*SELECTING DATA FROM EKPO TABLE</P><P> IF NOT it_ekko[] IS INITIAL.</P><P> SELECT</P><P> ebeln</P><P> ebelp</P><P> menge</P><P> FROM ekpo</P><P> INTO TABLE it_ekpo</P><P> FOR ALL ENTRIES IN it_ekko</P><P> WHERE ebeln = it_ekko-ebeln.</P><P> IF sy-subrc = 0.</P><P> SORT it_ekpo BY ebeln ebelp.</P><P> ENDIF.</P><P> ENDIF.</P><P>*SELECTING DATA FROM EKET TABLE</P><P> IF NOT it_ekpo[] IS INITIAL.</P><P> SELECT</P><P> ebeln</P><P> ebelp</P><P> etenr</P><P> wemng</P><P> FROM eket</P><P> INTO TABLE it_eket</P><P> FOR ALL ENTRIES IN it_ekpo</P><P> WHERE ebeln = it_ekpo-ebeln</P><P> AND ebelp = it_ekpo-ebelp.</P><P> SORT it_eket BY ebeln ebelp etenr.</P><P> ENDIF.</P><P>*SELECTING DATA FROM EKBE TABLE</P><P> IF NOT it_eket[] IS INITIAL.</P><P> SELECT</P><P> ebeln</P><P> ebelp</P><P> bwart</P><P> menge</P><P> FROM ekbe</P><P> INTO TABLE it_ekbe</P><P> FOR ALL ENTRIES IN it_eket</P><P> WHERE ebelp = it_eket-ebelp</P><P> AND ebeln = it_eket-ebeln</P><P> AND bwart = '101'.</P><P> ENDIF.</P><P></P><P>*********************************************************</P><UL><LI level="1" type="ul"><P>THIS BLOCK MOVES THE FIELDS FROM DIFFERENT *</P></LI><LI level="1" type="ul"><P>TABLES(EKKO,LFA1,EKPO,EKET) INTO A FINAL TABLE IT_TAB *</P></LI><LI level="1" type="ul"><P> *</P></LI></UL><P>*********************************************************</P><P> CLEAR wa_tab.</P><P> CLEAR it_tab.</P><P> LOOP AT it_lfa1 INTO wa_lfa1.</P><P> READ TABLE it_ekko INTO wa_ekko WITH KEY lifnr = wa_lfa1-lifnr</P><P> BINARY SEARCH.</P><P></P><P></P><P> READ TABLE it_lfa1 INTO wa_lfa1</P><P> WITH KEY lifnr = wa_lfa1-lifnr</P><P> BINARY SEARCH.</P><P> IF sy-subrc = 0.</P><P> MOVE: wa_lfa1-name1 TO wa_tab-name1.</P><P> MOVE: wa_lfa1-lifnr TO wa_tab-lifnr.</P><P></P><P> ENDIF.</P><P> APPEND wa_tab TO it_tab.</P><P> CLEAR : wa_tab,wa_lfa1.</P><P> ENDLOOP.</P><P></P><P>**READ FOR SECOND SCREEN</P><P></P><P> REFRESH it_full.</P><P> CLEAR : wa_full,</P><P> wa_eket,</P><P> wa_ekpo.</P><P> LOOP AT it_eket INTO wa_eket.</P><P></P><P> READ TABLE it_ekpo INTO wa_ekpo WITH KEY ebeln = wa_eket-ebeln</P><P> ebelp = wa_eket-ebelp</P><P> BINARY SEARCH.</P><P> IF sy-subrc = 0.</P><P></P><P> READ TABLE it_ekko INTO wa_ekko WITH KEY ebeln =</P><P> wa_ekpo-ebeln</P><P> BINARY SEARCH.</P><P> IF sy-subrc = 0.</P><P></P><P> READ TABLE it_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_ekko-lifnr</P><P> BINARY SEARCH.</P><P></P><P> IF sy-subrc = 0.</P><P></P><P> wa_full-ebelp = wa_ekpo-ebelp.</P><P> wa_full-menge = wa_ekpo-menge.</P><P> wa_full-lifnr = wa_lfa1-lifnr.</P><P> wa_full-ebeln = wa_ekko-ebeln.</P><P> wa_full-wemng = wa_eket-wemng.</P><P></P><P> ENDIF.</P><P> ENDIF.</P><P> ENDIF.</P><P> APPEND wa_full TO it_full.</P><P> CLEAR : wa_ekko,wa_ekpo,wa_eket,wa_full.</P><P> ENDLOOP.</P><P></P><P></P><UL><LI level="1" type="ul"><P>COUNT OF PO</P></LI></UL><P> LOOP AT it_tab.</P><P></P><P> LOOP AT it_ekko WHERE lifnr = it_tab-lifnr.</P><P></P><P> c = c + 1.</P><P></P><P> ENDLOOP.</P><P> it_tab-c = c.</P><P> MODIFY it_tab TRANSPORTING c.</P><P> CLEAR c.</P><P> ENDLOOP.</P><P></P><P></P><P>ENDFORM. " ZF_SELECT_IT_TAB</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_BUILD_FIELDCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FIELD CATALOG FOR FIRST SCREEN</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> -->P_I_FIELDCAT text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.</P><P> REFRESH p_i_fieldcat.</P><P> DATA: l_fieldcat TYPE slis_fieldcat_alv.</P><P></P><P> CLEAR l_fieldcat.</P><P></P><P> l_fieldcat-col_pos = '1'.</P><P> l_fieldcat-fieldname = 'LIFNR'.</P><P> l_fieldcat-tabname = 'IT_TAB'.</P><P> l_fieldcat-key = 'X'.</P><P> l_fieldcat-emphasize = 'C410'.</P><P> l_fieldcat-seltext_l = 'VENDOR CODE'.</P><P> l_fieldcat-outputlen = 20.</P><P></P><P> APPEND l_fieldcat TO p_i_fieldcat.</P><P> CLEAR l_fieldcat.</P><P></P><P> l_fieldcat-col_pos = '2'.</P><P> l_fieldcat-fieldname = 'NAME1'.</P><P> l_fieldcat-tabname = 'IT_TAB'.</P><P> l_fieldcat-emphasize = 'C410'.</P><P> l_fieldcat-seltext_l = 'VENDOR NAME'.</P><P> l_fieldcat-outputlen = 20.</P><P></P><P> APPEND l_fieldcat TO p_i_fieldcat.</P><P> CLEAR l_fieldcat.</P><P></P><P> l_fieldcat-col_pos = '3'.</P><P> l_fieldcat-fieldname = 'C'.</P><P> l_fieldcat-tabname = 'IT_TAB'.</P><P> l_fieldcat-emphasize = 'C410'.</P><P> l_fieldcat-seltext_l = 'PO COUNT'.</P><P> l_fieldcat-outputlen = 10.</P><P> APPEND l_fieldcat TO p_i_fieldcat.</P><P></P><P></P><P>ENDFORM. " ZF_BUILD_FIELDCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_DISPLAY_ALV_LIST</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> CALLING FUNCTION FOR ALV GRID DISPLAY</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf_display_alv_list .</P><P></P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'</P><P> i_callback_user_command = 'USER_COMMAND'</P><P> is_layout = i_layout</P><P> it_fieldcat = i_fieldcat</P><P> it_events = i_eventcat</P><P> TABLES</P><P> t_outtab = it_tab</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P> IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> ENDIF.</P><P></P><P>ENDFORM. " ZF_DISPLAY_ALV_LIST</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_SORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> SORTING OUTPUT BY PURCHASE ORDER AND LINE ITEM</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> -->P_I_SORTINFO text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM build_sort USING p_i_sortinfo TYPE slis_t_sortinfo_alv.</P><P> REFRESH p_i_sortinfo.</P><P> DATA: l_sortinfo TYPE slis_sortinfo_alv.</P><P></P><P> CLEAR l_sortinfo.</P><P> l_sortinfo-spos = '1'.</P><P> l_sortinfo-fieldname = 'LIFNR'.</P><P> l_sortinfo-tabname = 'IT_VENDOR'.</P><P> l_sortinfo-up = 'X'.</P><P> l_sortinfo-group = 'UL'.</P><P> APPEND l_sortinfo TO p_i_sortinfo.</P><P></P><P></P><P> CLEAR l_sortinfo.</P><P> l_sortinfo-spos = '2'.</P><P> l_sortinfo-fieldname = 'EBELN'.</P><P> l_sortinfo-tabname = 'IT_VENDOR'.</P><P> l_sortinfo-up = 'X'.</P><P> l_sortinfo-group = 'UL'.</P><P> APPEND l_sortinfo TO p_i_sortinfo.</P><P></P><P>ENDFORM. " BUILD_SORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_EVENTCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*</P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> -->P_I_EVENTCAT text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM build_eventcat USING p_i_eventcat TYPE slis_t_event.</P><P> REFRESH p_i_eventcat.</P><P> DATA: i_event TYPE slis_alv_event.</P><P></P><P> CALL FUNCTION 'REUSE_ALV_EVENTS_GET'</P><P> EXPORTING</P><P> i_list_type = 0</P><P> IMPORTING</P><P> et_events = p_i_eventcat</P><P> EXCEPTIONS</P><P> list_type_wrong = 1</P><P> OTHERS = 2.</P><P> IF sy-subrc <> 0.</P><P> MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno</P><P> WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.</P><P> ENDIF.</P><P></P><P> CLEAR i_event.</P><P> READ TABLE p_i_eventcat WITH KEY name = slis_ev_user_command INTO</P><P> i_event.</P><P> IF sy-subrc = 0.</P><P> MOVE 'USER_COMMAND' TO i_event-form.</P><P> APPEND i_event TO p_i_eventcat.</P><P> ENDIF.</P><P></P><P>ENDFORM. " BUILD_EVENTCAT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& FORM USER_COMMAND</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM user_command USING p_ucomm TYPE sy-ucomm</P><P> p_selfield TYPE slis_selfield.</P><P></P><P></P><P> CASE p_ucomm.</P><P> WHEN '&IC1'.</P><P></P><P></P><P> READ TABLE it_tab INTO wa_tab INDEX p_selfield-tabindex.</P><P></P><P></P><P> IF p_selfield-fieldname = 'LIFNR'.</P><P></P><P> vendor = p_selfield-value.</P><P> PERFORM zf_vendor_details.</P><P> PERFORM zf2_build_fieldcat USING i2_fieldcat.</P><P> PERFORM zf_display_grid.</P><P> ENDIF.</P><P></P><P> CLEAR p_selfield.</P><P></P><P></P><P> ENDCASE.</P><P>ENDFORM. " ZF_USER_COMMAND</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_VENDOR_DETAILS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> THIS FORM IS USED FOR MOVING DATA FROM IT_TAB TO IT_VENDOR</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf_vendor_details .</P><P> CLEAR wa_ekko.</P><P> CLEAR it_ekko.</P><P> REFRESH it_vendor.</P><P> LOOP AT it_full INTO wa_full WHERE lifnr = vendor.</P><P> MOVE :</P><P> wa_full-lifnr TO wa_vendor-lifnr,</P><P> wa_full-ebeln TO wa_vendor-ebeln,</P><P> wa_full-ebelp TO wa_vendor-ebelp,</P><P> wa_full-menge TO wa_vendor-menge,</P><P> wa_full-wemng TO wa_vendor-wemng.</P><P> APPEND wa_vendor TO it_vendor.</P><P> CLEAR : wa_vendor.</P><P> ENDLOOP.</P><P></P><P>ENDFORM. " ZF_VENDOR_DETAILS</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF2_BUILD_FIELDCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> THIS FORM IS USED FOR CATALOG SCREEN 2</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> -->P_I_FIELDCAT text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf2_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.</P><P> REFRESH p_i_fieldcat.</P><P> DATA: l2_fieldcat TYPE slis_fieldcat_alv.</P><P></P><P> CLEAR l2_fieldcat.</P><P></P><P> l2_fieldcat-col_pos = '1'.</P><P> l2_fieldcat-fieldname = 'LIFNR'.</P><P> l2_fieldcat-tabname = 'IT_VENDOR'.</P><P> l2_fieldcat-key = 'X'.</P><P> l2_fieldcat-emphasize = 'C410'.</P><P> l2_fieldcat-seltext_l = 'VENDOR CODE'.</P><P> l2_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l2_fieldcat TO p_i_fieldcat.</P><P> CLEAR l2_fieldcat.</P><P></P><P> l2_fieldcat-col_pos = '2'.</P><P> l2_fieldcat-fieldname = 'EBELN'.</P><P> l2_fieldcat-tabname = 'IT_VENDOR'.</P><P> l2_fieldcat-key = 'X'.</P><P> l2_fieldcat-emphasize = 'C410'.</P><P> l2_fieldcat-seltext_l = 'PURCHASE ORDER NUMBER'.</P><P></P><P> l2_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l2_fieldcat TO p_i_fieldcat.</P><P> CLEAR l2_fieldcat.</P><P></P><P> l2_fieldcat-col_pos = '3'.</P><P> l2_fieldcat-fieldname = 'EBELP'.</P><P> l2_fieldcat-tabname = 'IT_VENDOR'.</P><P> l2_fieldcat-key = 'X'.</P><P> l2_fieldcat-emphasize = 'C710'.</P><P> l2_fieldcat-seltext_l = 'PO ITEM'.</P><P> l2_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l2_fieldcat TO p_i_fieldcat.</P><P> CLEAR l2_fieldcat.</P><P></P><P> l2_fieldcat-col_pos = '4'.</P><P> l2_fieldcat-fieldname = 'MENGE'.</P><P> l2_fieldcat-tabname = 'IT_VENDOR'.</P><P> l2_fieldcat-key = 'X'.</P><P> l2_fieldcat-emphasize = 'C410'.</P><P> l2_fieldcat-seltext_l = 'PO QTY'.</P><P> l2_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l2_fieldcat TO p_i_fieldcat.</P><P> CLEAR l2_fieldcat.</P><P></P><P> l2_fieldcat-col_pos = '5'.</P><P> l2_fieldcat-fieldname = 'WEMNG'.</P><P> l2_fieldcat-tabname = 'IT_VENDOR'.</P><P> l2_fieldcat-key = 'X'.</P><P> l2_fieldcat-emphasize = 'C450'.</P><P> l2_fieldcat-seltext_l = 'QTY RECIEVED'.</P><P> l2_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l2_fieldcat TO p_i_fieldcat.</P><P> CLEAR l2_fieldcat.</P><P>ENDFORM. "ZF2_BUILD_FIELDCAT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_DISPLAY_ALV_LIST</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf_display_grid .</P><P></P><P></P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI></UL><P> i_callback_user_command = 'USER_COMMAND1'</P><P> it_fieldcat = i2_fieldcat</P><P> it_sort = i_sortinfo</P><UL><LI level="1" type="ul"><P>IMPORTING</P></LI></UL><P> TABLES</P><P> t_outtab = it_vendor</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P> IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> ENDIF.</P><P>ENDFORM. "ZF_DISPLAY_GRID</P><P></P><P></P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& FORM USER_COMMAND1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM user_command1 USING p_ucomm TYPE sy-ucomm</P><P> p_selfield TYPE slis_selfield.</P><P></P><P> CASE p_ucomm.</P><P> WHEN '&IC1'.</P><P> READ TABLE it_vendor INTO wa_vendor INDEX p_selfield-tabindex.</P><P> IF p_selfield-fieldname = 'WEMNG'.</P><P> po_item = wa_vendor-ebelp.</P><P> PERFORM zf_grn.</P><P> PERFORM zf3_build_fieldcat USING i3_fieldcat.</P><P> PERFORM zf1_display_grid.</P><P> ENDIF.</P><P> ENDCASE.</P><P>ENDFORM. " ZF_USER_COMMAND</P><P></P><P></P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF3_BUILD_FIELDCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FIELD CATALOG FOR THIRD SCREEN</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> -->P_I3_FIELDCAT text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf3_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv</P><P>.</P><P></P><P></P><P> REFRESH p_i_fieldcat.</P><P> DATA: l3_fieldcat TYPE slis_fieldcat_alv.</P><P></P><P> CLEAR l3_fieldcat.</P><P></P><P> l3_fieldcat-col_pos = '1'.</P><P> l3_fieldcat-fieldname = 'EBELN'.</P><P> l3_fieldcat-tabname = 'IT_GRN'.</P><P> l3_fieldcat-key = 'X'.</P><P> l3_fieldcat-emphasize = 'C410'.</P><P> l3_fieldcat-seltext_l = 'P.O. NO'.</P><P> l3_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l3_fieldcat TO p_i_fieldcat.</P><P></P><P> CLEAR l3_fieldcat.</P><P></P><P> l3_fieldcat-col_pos = '2'.</P><P> l3_fieldcat-fieldname = 'EBELP'.</P><P> l3_fieldcat-tabname = 'IT_GRN'.</P><P> l3_fieldcat-key = 'X'.</P><P> l3_fieldcat-emphasize = 'C410'.</P><P> l3_fieldcat-seltext_l = 'P.O.ITEM'.</P><P> l3_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l3_fieldcat TO p_i_fieldcat.</P><P> CLEAR l3_fieldcat.</P><P></P><P> l3_fieldcat-col_pos = '3'.</P><P> l3_fieldcat-fieldname = 'BWART'.</P><P> l3_fieldcat-tabname = 'IT_GRN'.</P><P> l3_fieldcat-key = 'X'.</P><P> l3_fieldcat-emphasize = 'C410'.</P><P> l3_fieldcat-seltext_l = 'MOVEMENT TYPE'.</P><P> l3_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l3_fieldcat TO p_i_fieldcat.</P><P> CLEAR l3_fieldcat.</P><P></P><P> l3_fieldcat-col_pos = '4'.</P><P> l3_fieldcat-fieldname = 'MENGE'.</P><P> l3_fieldcat-tabname = 'IT_GRN'.</P><P> l3_fieldcat-key = 'X'.</P><P> l3_fieldcat-emphasize = 'C410'.</P><P> l3_fieldcat-seltext_l = 'GR QUANTITY'.</P><P> l3_fieldcat-outputlen = 20.</P><P></P><P></P><P> APPEND l3_fieldcat TO p_i_fieldcat.</P><P> CLEAR l3_fieldcat.</P><P></P><P>ENDFORM. " ZF3_BUILD_FIELDCAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF1_DISPLAY_GRID</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf1_display_grid .</P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'</P><P> it_fieldcat = i3_fieldcat</P><UL><LI level="1" type="ul"><P>IMPORTING</P></LI></UL><P> TABLES</P><P> t_outtab = it_grn</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P> IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> ENDIF.</P><P></P><P></P><P></P><P></P><P>ENDFORM. " ZF1_DISPLAY_GRID</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form ZF_GRN</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM zf_grn .</P><P></P><P></P><P> CLEAR wa_eket .</P><P> CLEAR it_eket.</P><P> REFRESH it_grn.</P><P> LOOP AT it_vendor INTO wa_vendor WHERE ebelp = po_item.</P><P> IF sy-subrc = 0.</P><P> READ TABLE it_ekbe INTO wa_ekbe WITH KEY</P><P> ebeln = wa_vendor-ebeln</P><P> ebelp = wa_vendor-ebelp.</P><P></P><P> IF sy-subrc = 0.</P><P> IF wa_ekbe-bwart = '101'.</P><P> MOVE: wa_ekbe-ebeln TO wa_grn-ebeln,</P><P> wa_ekbe-ebelp TO wa_grn-ebelp,</P><P> wa_ekbe-bwart TO wa_grn-bwart,</P><P> wa_ekbe-menge TO wa_grn-menge.</P><P></P><P> APPEND wa_grn TO it_grn.</P><P> CLEAR wa_ekbe.</P><P> CLEAR wa_grn.</P><P> ELSE.</P><P> MESSAGE e001.</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P> ENDIF.</P><P> ENDLOOP.</P><P></P><P></P><P></P><P></P><P></P><P>ENDFORM. " ZF_GRN</P><P></P><P></P><P></P><P></P><P></P><P></P><P><i>Reward points if helpful.</i></P><P></P><P></P><P></P><P>Regards, </P><P>Amber S</P></BODY></HTML> Tue, 15 May 2007 11:35:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275067#M494630 former_member198270 2007-05-15T11:35:42Z Re: interactive alv https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275068#M494631 <HTML><HEAD></HEAD><BODY><P>hi,</P><P></P><P>see if you are clicking matnr field and want to display material details for the clicked material number..</P><P></P><P>In your grid ALV you are suppose to give the FORM name under user_command parameter(else you can append in events internal table and pass to reuser_slvgrid) as per your quesry FORM NAME is user_command1.</P><P></P><P>FORM <b>USER_COMMAND1</b> USING <b>W_UCOMM</b> LIKE SY_UCOMM <b>RS_SELFIELD</b> TYPE slis_selfield.</P><P>this is called dynamically by the FM reuse_ALV** , (see we are not writing any perform for this)</P><P></P><P>Hope you know the logic in using SUBROUTINES..</P><P></P><P>user_command1 -</P><HR originaltext="---" /><P> form name.</P><P>you are using parameter -- sy-ucomm (using parameter this is for system command for your function code ..)</P><P>in w_ucomm the Function code '&IC1' is saved when you double click on matnr,</P><P>else if you are using a button and clicked it then that relevant Function code of the button is saved..</P><P></P><P></P><P>rs_selfiled of type slis_selfield-- this contains the row whcih you have clicked (eg value ,name of the column etc)</P><P></P><P>dont forget to reward points</P><P></P><P>regards,</P><P>nazeer</P><P></P><P>Message was edited by: </P><P> nazeer shaik</P></BODY></HTML> Tue, 15 May 2007 11:36:34 GMT https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275068#M494631 Former Member 2007-05-15T11:36:34Z Re: interactive alv https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275069#M494632 <HTML><HEAD></HEAD><BODY><P>Hi prasad,</P><P></P><P>HIDE dobj. </P><P></P><P></P><P></P><P>Effect </P><P>This statement stores - in the current list level - the content of the variable dobj together with the current list line whose line number is contained in sy-linno. The data type of the variables dobj must be flat and no field symbols can be specified that point to rows of internal tables, and no class attributes can be specified. The stored values can be read as follows: </P><P></P><P>For each user action in a displayed screen list that leads to a list result, all the row values stored using HIDE - that is, the row on which the screen cursor is positioned at the time of the event - are assigned to the respective variables. </P><P></P><P>If a list row of an arbitrary list level is read or modified using the statements READ LINE or MODIFY LINE, all the values of this row stored using HIDE are assigned to the respective variables. </P><P></P><P>The HIDE statement works independently of whether the list cursor was set. In particular, variables for empty list rows can be stored - that is, rows in which the list cursor was positioned using statements like SKIP. </P><P></P><P>The HIDE statement should be executed immediately at the statement that has set the list cursor in the row. </P><P></P><P>Outside of classes, constants and literals that cannot be read in list results and in the statement READ LINE can be specified for dobj outside of classes. </P><P></P><P></P><P></P><P>Example </P><P>Storing square numbers and cubic numbers for a list of numbers. The example shows that arbitrary variables can be stored independently of row content. In the real situation, one would more likely store only the number and execute the calculation, when required, in the the event block for AT LINE-SELECTION. </P><P></P><P>REPORT ... </P><P></P><P>DATA: square TYPE i, </P><P> cube TYPE i. </P><P></P><P>START-OF-SELECTION. </P><P> FORMAT HOTSPOT. </P><P> DO 10 TIMES. </P><P> square = sy-index ** 2. </P><P> cube = sy-index ** 3. </P><P> WRITE / sy-index. </P><P> HIDE: square, cube. </P><P> ENDDO. </P><P></P><P>AT LINE-SELECTION. </P><P> WRITE: square, cube. </P><P></P><P></P><P>hope this helps</P><P>regards</P></BODY></HTML> Tue, 15 May 2007 11:50:51 GMT https://community.sap.com/t5/application-development-and-automation-discussions/interactive-alv/m-p/2275069#M494632 Former Member 2007-05-15T11:50:51Z