Report on Open and Shipped Orders

This report provides the information about Open orders and Shipped Orders.

REPORT z_0000__1_3_1_1___0023. *Include for Data declaration INCLUDE z_0000__1_3_1_1___0023_top. *Include for selection screen INCLUDE z_0000__1_3_1_1___0023_scr. *Include for Calculations INCLUDE z_0000__1_3_1_1___0023_f01. *----------------------------------------------------------------------* * Initialization * *----------------------------------------------------------------------* INITIALIZATION. PERFORM refresh_data. *----------------------------------------------------------------------* * Start of selection * *----------------------------------------------------------------------* START-OF-SELECTION. * Fetching the required Data PERFORM fetch_data. *Build Field catalog. PERFORM build_field_catalog. *----------------------------------------------------------------------* * End of selection * *----------------------------------------------------------------------* END-OF-SELECTION. IF t_output IS NOT INITIAL. *Display report output PERFORM display_alv. ELSE. MESSAGE 'No data found' TYPE 'I'. ENDIF. *&---------------------------------------------------------------------* *& Include Z_0000__1_3_1_1___0023_TOP *&---------------------------------------------------------------------* TYPE-POOLS: slis. *----------------------------------------------------------------------* * Table-declaration * *----------------------------------------------------------------------* TABLES: vbrk,vbak,likp,lips,vbap,kna1,knvv. *----------------------------------------------------------------------* * Structure declaration * *----------------------------------------------------------------------* TYPES : BEGIN OF x_vbak, vbeln LIKE vbak-vbeln, END OF x_vbak. TYPES : BEGIN OF x_vbap, vbeln LIKE vbak-vbeln, "Sales document kunnr LIKE vbak-kunnr, "Sold-to-Party * kvgr4 LIKE vbak-kvgr4, "Cust Grp A kdgrp LIKE knvv-kdgrp, "Cust Group posnr LIKE vbap-posnr, "Sales Document Item matnr LIKE vbap-matnr, "Material Number arktx LIKE vbap-arktx, "Product description kwmeng LIKE vbap-kwmeng, "Cumulative Order Quantity in Sales Units werks LIKE vbap-werks, "Plant netwr LIKE vbap-netwr, "Total Value Sales order line END OF x_vbap. TYPES : BEGIN OF x_lips, vbeln LIKE likp-vbeln, lfdat LIKE likp-lfdat, wadat_ist LIKE likp-wadat_ist, posnr LIKE lips-posnr, lfimg LIKE lips-lfimg, END OF x_lips. TYPES : BEGIN OF x_kna1, kunnr LIKE kna1-kunnr, name1 LIKE kna1-name1, END OF x_kna1. TYPES : BEGIN OF x_vbfa, vbelv LIKE vbfa-vbelv, posnv LIKE vbfa-posnv, vbeln LIKE vbfa-vbeln, posnn LIKE vbfa-posnn, vbtyp_n LIKE vbfa-vbtyp_n, matnr LIKE vbfa-matnr, rfmng LIKE vbfa-rfmng, END OF x_vbfa. TYPES : BEGIN OF x_output, kunnr LIKE vbak-kunnr, name1 LIKE kna1-name1, vbeln LIKE vbak-vbeln, arktx LIKE vbap-arktx, kwmeng LIKE vbap-kwmeng, netwr LIKE vbap-netwr, "Inserted Ver 03.00 lfimg LIKE lips-lfimg, wadat_ist LIKE likp-wadat_ist, open_unit LIKE vbap-kwmeng, mbdat like vbep-mbdat, END OF x_output. TYPES: BEGIN OF x_vbep, vbeln LIKE vbep-vbeln, posnr LIKE vbep-posnr, etenr LIKE vbep-etenr, mbdat LIKE vbep-mbdat, END OF x_vbep. *----------------------------------------------------------------------* * Internal table declaration * *----------------------------------------------------------------------* DATA : t_vbak TYPE STANDARD TABLE OF x_vbak, t_vbap TYPE STANDARD TABLE OF x_vbap, t_lips TYPE STANDARD TABLE OF x_lips, t_kna1 TYPE STANDARD TABLE OF x_kna1, t_vbfa TYPE STANDARD TABLE OF x_vbfa, t_output TYPE STANDARD TABLE OF x_output, t_fieldcat TYPE TABLE OF slis_fieldcat_alv WITH HEADER LINE, t_vbep TYPE STANDARD TABLE OF x_vbep. DATA : wa_vbap TYPE x_vbap, wa_kna1 TYPE x_kna1, wa_lips TYPE x_lips, wa_vbfa TYPE x_vbfa, wa_output TYPE x_output, wa_vbep TYPE x_vbep. *----------------------------------------------------------------------* * Declaration for Email processing * *----------------------------------------------------------------------* DATA: docdata LIKE sodocchgi1, objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE, objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE, objbin1 LIKE solisti1 OCCURS 10 WITH HEADER LINE, objbin2 LIKE solisti1 OCCURS 10 WITH HEADER LINE, objbin_final LIKE solisti1 OCCURS 10 WITH HEADER LINE, reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE, tab_lines TYPE sy-tabix. DATA: gd_sender_type LIKE soextreci1-adr_typ. DATA: c_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab, c_ret TYPE c VALUE cl_abap_char_utilities=>cr_lf. DATA: c_dev TYPE sy-sysid. *&---------------------------------------------------------------------* *& Include Z_0000__1_3_1_1___0023_SCR *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. SELECT-OPTIONS: s_vbeln FOR vbak-vbeln, "Sales Document s_kunnr FOR kna1-kunnr, "Customer Number s_land1 FOR kna1-land1, "Country of Destination * s_kvgr4 FOR vbak-kvgr4, "Customer Group s_KDGRP for knvv-KDGRP, "Customer Group * s_GPC, *Begin of change Ver 02.00 * s_lfdat FOR likp-lfdat. "Date of Delivery s_vdatu for vbak-vdatu. "Req Delivery date *End of change Ver 02.00 SELECTION-SCREEN END OF BLOCK b1. *&---------------------------------------------------------------------* *& Include Z_0000__1_3_1_1___0023_F01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form REFRESH_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM refresh_data . *Refresh internal table data. REFRESH : t_vbak , t_vbap , t_lips , t_kna1 , t_vbfa , t_output, t_fieldcat, t_vbep. ENDFORM. " REFRESH_DATA *&---------------------------------------------------------------------* *& Form FETCH_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM fetch_data . DATA l_index TYPE sy-index. *Select Sales Item data. SELECT k~vbeln k~kunnr v~kdgrp p~posnr p~matnr p~arktx p~kwmeng p~werks p~netwr "Inserted Ver 03.00 INTO CORRESPONDING FIELDS OF TABLE t_vbap FROM ( ( ( vbak AS k INNER JOIN vbap AS p ON k~vbeln = p~vbeln ) INNER JOIN kna1 AS a ON a~kunnr = k~kunnr ) INNER JOIN knvv AS v ON v~kunnr = a~kunnr AND k~vkorg = v~vkorg AND k~vtweg = v~vtweg AND k~spart = v~spart ) WHERE k~vbeln IN s_vbeln AND a~kunnr IN s_kunnr AND v~kdgrp IN s_kdgrp *Begin of insert Ver 02.00 and k~vdatu in s_vdatu. *End of insert Ver 02.00 IF t_vbap IS NOT INITIAL. SORT t_vbap BY vbeln posnr. *Select Sales Document Flow data from VBFA SELECT vbelv posnv vbeln posnn vbtyp_n matnr rfmng FROM vbfa INTO TABLE t_vbfa FOR ALL ENTRIES IN t_vbap WHERE vbelv = t_vbap-vbeln AND vbtyp_n = 'J'. IF t_vbfa IS NOT INITIAL. *Select Delivery based on Sales order on selection screen. SELECT p~vbeln p~lfdat p~wadat_ist s~posnr s~lfimg FROM ( likp AS p INNER JOIN lips AS s ON p~vbeln = s~vbeln ) INTO TABLE t_lips FOR ALL ENTRIES IN t_vbfa WHERE p~vbeln = t_vbfa-vbeln AND s~posnr = t_vbfa-posnn. *Begin of commenting Ver 02.00 * AND p~lfdat IN s_lfdat. *End of commenting Ver 02.00 ENDIF. * SORT t_lips BY vbeln posnr. *Select Customer name SELECT kunnr name1 FROM kna1 INTO TABLE t_kna1 FOR ALL ENTRIES IN t_vbap WHERE kunnr = t_vbap-kunnr AND land1 IN s_land1. SORT t_kna1 BY kunnr. DELETE ADJACENT DUPLICATES FROM t_kna1. *Select Product availability date from VBEP table SELECT vbeln posnr etenr mbdat FROM vbep INTO TABLE t_vbep FOR ALL ENTRIES IN t_vbap WHERE vbeln = t_vbap-vbeln AND posnr = t_vbap-posnr. *Create Output Internal table for Display ALV report LOOP AT t_vbap INTO wa_vbap. wa_output-kunnr = wa_vbap-kunnr. "Customer # READ TABLE t_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbap-kunnr. wa_output-name1 = wa_kna1-name1. "Customer Name wa_output-vbeln = wa_vbap-vbeln. "Sales Order # wa_output-arktx = wa_vbap-arktx. "Product description wa_output-kwmeng = wa_vbap-kwmeng. "Total Value of sales order quantity wa_output-netwr = wa_vbap-netwr. "Total Value of sales order line "Inserted Ver 03.00 *Read sales doc data for sales order READ TABLE t_vbfa INTO wa_vbfa WITH KEY vbelv = wa_vbap-vbeln posnv = wa_vbap-posnr. *Read delivery data READ TABLE t_lips INTO wa_lips WITH KEY vbeln = wa_vbfa-vbeln posnr = wa_vbfa-posnn. *Selecting Delivered unit of SO line SELECT SUM( DISTINCT rfmng ) INTO wa_output-lfimg FROM vbfa WHERE vbelv = wa_vbap-vbeln AND posnv = wa_vbap-posnr AND vbtyp_n = 'J'. *Begin of Change Ver 02.00 * IF s_lfdat IS NOT INITIAL AND wa_lips IS INITIAL. IF s_vdatu IS NOT INITIAL AND wa_lips IS INITIAL. *End of change Ver 02.00 CONTINUE. ELSE. wa_output-wadat_ist = wa_lips-wadat_ist. "When shipped (GI date) wa_output-open_unit = ( wa_vbap-kwmeng - wa_output-lfimg ). "Open unit of sales. ENDIF. READ TABLE t_vbep INTO wa_vbep WITH KEY vbeln = wa_vbap-vbeln posnr = wa_vbap-posnr. IF sy-subrc EQ 0. wa_output-mbdat = wa_vbep-mbdat. "Product Availability date ENDIF. APPEND wa_output TO t_output. CLEAR : wa_output,wa_lips,wa_vbfa,wa_vbap,wa_kna1. ENDLOOP. ENDIF. ENDFORM. " FETCH_DATA *&---------------------------------------------------------------------* *& Form BUILD_FIELD_CATALOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM build_field_catalog . PERFORM fieldcat_add USING 'KUNNR' 15 'Customer' 'Customer' '' '' '' '' ''. PERFORM fieldcat_add USING 'NAME1' 15 'Customer Name' 'Customer Name' '' '' '' '' ''. PERFORM fieldcat_add USING 'VBELN' 15 'Sales Order Number' 'Sales Order Number' '' '' '' '' ''. PERFORM fieldcat_add USING 'ARKTX' 15 'Product Discription' 'Product Discription' '' '' '' '' ''. PERFORM fieldcat_add USING 'KWMENG' 15 'Total Units of Sales Order Line' 'Total Units of Sales Order Line' '' '' '' '' ''. *Begin of insert Ver 03.00 PERFORM fieldcat_add USING 'NETWR' 15 'Total Value of Sales Order Line' 'Total Value of Sales Order Line' '' '' '' '' ''. *End of insert Ver 03.00 PERFORM fieldcat_add USING 'LFIMG' 15 'Delivered Unit of Sales Order Line' 'Delivered Unit of Sales Order Line' '' '' '' '' ''. PERFORM fieldcat_add USING 'WADAT_IST' 15 'When Shipped(GI date)' 'When Shipped(GI date)' '' '' '' '' ''. PERFORM fieldcat_add USING 'OPEN_UNIT' 15 'Open Units of sales Order line' 'Open Units of sales Order line' '' '' '' '' ''. PERFORM fieldcat_add USING 'MBDAT' 20 'Prdct Availability Date' 'Prdct Avail Date' '' '' '' '' ''. ENDFORM. " BUILD_FIELD_CATALOG *&---------------------------------------------------------------------* *& Form DISPLAY_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM display_alv . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' i_callback_program = sy-repid * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = * I_GRID_SETTINGS = * IS_LAYOUT = it_fieldcat = t_fieldcat[] * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * I_SAVE = ' ' * IS_VARIANT = * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = t_output * 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. " DISPLAY_ALV *&---------------------------------------------------------------------* *& Form FIELDCAT_ADD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0250 text * -->P_15 text * -->P_C_CMP text * -->P_C_CMP text * -->P_0254 text * -->P_0255 text * -->P_0256 text * -->P_0257 text * -->P_0258 text *----------------------------------------------------------------------* FORM fieldcat_add USING lp_fieldname lp_outputlen lp_seltext_s lp_seltext_m lp_seltext_l lp_cfieldname lp_do_sum lp_key lp_no_zero. CLEAR: t_fieldcat. t_fieldcat-fieldname = lp_fieldname. t_fieldcat-outputlen = lp_outputlen. t_fieldcat-no_zero = lp_no_zero. t_fieldcat-seltext_s = lp_seltext_s. t_fieldcat-seltext_l = lp_seltext_l. IF lp_seltext_m IS INITIAL. t_fieldcat-seltext_m = t_fieldcat-seltext_s. ELSE. t_fieldcat-seltext_m = lp_seltext_m. ENDIF. IF t_fieldcat-seltext_l IS INITIAL. t_fieldcat-seltext_l = t_fieldcat-seltext_m. ELSE. t_fieldcat-seltext_l = lp_seltext_l. ENDIF. t_fieldcat-cfieldname = lp_cfieldname. t_fieldcat-do_sum = lp_do_sum. t_fieldcat-key = lp_key. APPEND t_fieldcat. ENDFORM. " FIELDCAT_ADD .

Purchase Requisition Status Report

This report is developed to get the current status of the PRs..This might be helpful for the similar requirement. REPORT z_0000__2_1_3_1___0003. *Include for Data declaration INCLUDE z_0000__2_1_3_1___0003_top. *Include for selection screen INCLUDE z_0000__2_1_3_1___0003_scr. *Include for Calculations INCLUDE z_0000__2_1_3_1___0003_f01. *----------------------------------------------------------------------* * Initialization * *----------------------------------------------------------------------* INITIALIZATION. PERFORM refresh_data. *----------------------------------------------------------------------* * Start of selection * *----------------------------------------------------------------------* START-OF-SELECTION. * Fetching the required Data PERFORM fetch_data. *Build Output internal table PERFORM build_output. **Build Layout PERFORM build_layout. *Build Field catalog. PERFORM build_field_catalog. *----------------------------------------------------------------------* * End of selection * *----------------------------------------------------------------------* END-OF-SELECTION. IF t_output[] IS INITIAL. MESSAGE text-001 TYPE 'I'. ELSE. *Display report output PERFORM display_alv. ENDIF. *&---------------------------------------------------------------------* *& Include Z_0000__2_1_3_1___0003_TOP *&---------------------------------------------------------------------* *Declaration of Tables TYPE-POOLS : slis. TABLES: eban, ebkn, lfa1. *Declaration of Struture TYPES: BEGIN OF x_eban, banfn LIKE eban-banfn, bnfpo LIKE eban-bnfpo , statu LIKE eban-statu , frgkz LIKE eban-frgkz , frgzu like eban-frgzu , frgst LIKE eban-frgst, ekgrp LIKE eban-ekgrp , ernam LIKE eban-ernam , afnam LIKE eban-afnam , TXZ01 like eban-TXZ01 , matnr LIKE eban-matnr , werks LIKE eban-werks , menge LIKE eban-menge , meins LIKE eban-meins , badat LIKE eban-badat , lfdat LIKE eban-lfdat , preis LIKE eban-preis, "Price in Purchase Requisition peinh LIKE eban-peinh, "Price Unit knttp LIKE eban-knttp , lifnr LIKE eban-lifnr , flief LIKE eban-flief , ebeln LIKE eban-ebeln, ebelp LIKE eban-ebelp , frggr LIKE eban-frggr, "release group waers LIKE eban-waers , rlwrt LIKE eban-rlwrt , kostl LIKE ebkn-kostl, aufnr LIKE ebkn-aufnr, END OF x_eban. TYPES: BEGIN OF x_lfa1, lifnr LIKE lfa1-lifnr, name1 LIKE lfa1-name1, END OF x_lfa1. TYPES : BEGIN OF x_t16fv, frggr LIKE t16fv-frggr, frgsx LIKE t16fv-frgsx, frgco LIKE t16fv-frgco, frgct LIKE t16fd-frgct, END OF x_t16fv. DATA : t_eban TYPE STANDARD TABLE OF x_eban WITH HEADER LINE . DATA : BEGIN OF t_output OCCURS 0, ernam LIKE eban-ernam , "Created By badat LIKE eban-badat , "Created On banfn LIKE eban-banfn, "PR bnfpo LIKE eban-bnfpo , "Item matnr LIKE eban-matnr , "Material maktx LIKE makt-maktx, "Material Description knttp LIKE eban-knttp , "A/c Assignment kostl LIKE ebkn-kostl, "Cost Centre aufnr LIKE ebkn-aufnr, "Order menge LIKE eban-menge , "Quantity meins LIKE eban-meins , "UOM rlwrt LIKE eban-rlwrt , "Total Value of Item waers LIKE eban-waers , "Curency lfdat LIKE eban-lfdat , "Delivery date werks LIKE eban-werks , "Plant ekgrp LIKE eban-ekgrp , "Purchasing group afnam LIKE eban-afnam , "Requisitioner * lifnr LIKE eban-lifnr , "Vendor * flief LIKE eban-flief , "Vendor flief LIKE lfa1-lifnr , "Vendor name1 LIKE lfa1-name1, "Vendor name approved1 LIKE adrp-name_text, approved2 LIKE adrp-name_text, approved3 LIKE adrp-name_text, approved4 LIKE adrp-name_text, approved5 LIKE adrp-name_text, approved6 LIKE adrp-name_text, approved7 LIKE adrp-name_text, approved8 LIKE adrp-name_text, appr1 LIKE t16fd-frgct, "Next approver1 appr2 LIKE t16fd-frgct, "Next approver2 appr3 LIKE t16fd-frgct, "Next approver3 appr4 LIKE t16fd-frgct, "Next approver4 appr5 LIKE t16fd-frgct, "Next approver5 appr6 LIKE t16fd-frgct, "Next approver6 appr7 LIKE t16fd-frgct, "Next approver7 appr8 LIKE t16fd-frgct, "Next approver8 ebeln LIKE eban-ebeln, "PO ebelp LIKE eban-ebelp , "PO Item END OF t_output. TYPES : BEGIN OF x_cdhdr, objectclas LIKE cdhdr-objectclas, objectid LIKE cdhdr-objectid, changenr LIKE cdhdr-changenr, username LIKE cdhdr-username, tcode LIKE cdhdr-tcode, END OF x_cdhdr. TYPES : BEGIN OF x_cdpos, objectclas LIKE cdpos-objectclas, objectid LIKE cdpos-objectid, changenr LIKE cdpos-changenr, tabkey LIKE cdpos-tabkey, END OF x_cdpos. DATA : t_cdhdr TYPE STANDARD TABLE OF x_cdhdr, t_cdpos TYPE STANDARD TABLE OF x_cdpos, wa_cdhdr TYPE x_cdhdr, l_objid LIKE cdhdr-objectid, wa_address TYPE bapiaddr3, l_tabix TYPE sy-tabix, l_frgkx LIKE t16fk-frgkx. DATA : t_lfa1 TYPE STANDARD TABLE OF x_lfa1, t_t16fv TYPE STANDARD TABLE OF x_t16fv, t_t16fv1 TYPE STANDARD TABLE OF x_t16fv, wa_eban TYPE x_eban, wa_lfa1 TYPE x_lfa1, wa_t16fv TYPE x_t16fv. DATA: BEGIN OF t_posted OCCURS 1. INCLUDE STRUCTURE bapirlcorq. DATA: END OF t_posted. DATA: BEGIN OF t_general OCCURS 1. INCLUDE STRUCTURE bapirlgnrq. DATA: END OF t_general. *Field catalog data declaration DATA : g_repid LIKE sy-repid, t_fieldcat TYPE slis_t_fieldcat_alv, wa_fieldcat LIKE LINE OF t_fieldcat, gs_layout TYPE slis_layout_alv. *Global data declaration for Flag DATA : g_flag1 TYPE c, g_flag2 type c, g_flag3 type c, g_flag4 type c, g_flag5 type c, g_flag6 type c, g_flag7 type c, g_flag8 type c, g_flag9 type c, g_flag10 type c, g_flag11 type c, g_flag12 type c, g_flag13 type c, g_flag14 type c, g_flag15 type c, g_flag16 type c. *&---------------------------------------------------------------------* *& Include Z_0000__2_1_3_1___0003_SCR *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. SELECT-OPTIONS: s_banfn FOR eban-banfn , "Purchase Requisition Number s_matnr FOR eban-matnr, "Material Number s_werks FOR eban-werks, "Plant s_lifnr FOR eban-lifnr, "Vendor s_ekgrp FOR eban-ekgrp, "Purchasing Group s_badat FOR eban-badat, "Requisition (Request) Date s_ernam FOR eban-ernam DEFAULT sy-uname, "Name of Person who Created the Object s_knttp FOR eban-knttp, "Account Assignment Category s_kostl FOR ebkn-kostl, "Cost Center s_aufnr FOR ebkn-aufnr, "Order Number s_lfdat FOR eban-lfdat, "Item Delivery Date s_statu FOR eban-statu. "Processing status of purchase requisition SELECTION-SCREEN END OF BLOCK b1 . *&---------------------------------------------------------------------* *& Include Z_0000__2_1_3_1___0003_F01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form FETCH_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM fetch_data . DATA l_count TYPE n. *Select Header Data SELECT a~banfn a~bnfpo a~statu a~frgkz a~frgzu a~frgst a~ekgrp a~ernam a~afnam a~txz01 a~matnr a~werks a~menge a~meins a~badat a~lfdat a~preis a~peinh a~knttp a~lifnr a~flief a~ebeln a~ebelp a~frggr a~waers a~rlwrt k~kostl k~aufnr INTO CORRESPONDING FIELDS OF TABLE t_eban FROM eban AS a INNER JOIN ebkn AS k ON k~banfn = a~banfn AND k~bnfpo = a~bnfpo WHERE a~banfn IN s_banfn AND a~matnr IN s_matnr AND a~werks IN s_werks AND a~lifnr IN s_lifnr AND a~ekgrp IN s_ekgrp AND a~badat IN s_badat AND a~ernam IN s_ernam AND a~knttp IN s_knttp AND a~statu IN s_statu AND k~kostl IN s_kostl AND k~aufnr IN s_aufnr AND a~lfdat IN s_lfdat. *Select Vendor names SELECT lifnr name1 INTO TABLE t_lfa1 FROM lfa1 FOR ALL ENTRIES IN t_eban WHERE lifnr = t_eban-lifnr OR lifnr = t_eban-flief. IF sy-subrc EQ 0. SORT t_lfa1 BY lifnr. DELETE ADJACENT DUPLICATES FROM t_lfa1. ENDIF. SORT t_eban BY banfn bnfpo. ENDFORM. " FETCH_DATA *&---------------------------------------------------------------------* *& Form BUILD_FIELD_CATALOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM build_field_catalog . CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = g_repid i_internal_tabname = 'T_OUTPUT' i_inclname = g_repid CHANGING ct_fieldcat = t_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. LOOP AT t_fieldcat INTO wa_fieldcat. CASE wa_fieldcat-fieldname. WHEN 'BADAT'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-002. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'NAME1'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-003. MODIFY t_fieldcat FROM wa_fieldcat. * WHEN 'FRGCT'. * wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = * wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic * = text-004. * MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'EBELP'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-005. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'RLWRT'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-006. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR1'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag9 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR2'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag10 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR3'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag11 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR4'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag12 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR5'.. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag13 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR6'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag14 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR7'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag15 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPR8'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-007. IF g_flag16 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED1'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag1 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED2'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag2 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED3'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag3 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED4'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag4 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED5'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag5 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED6'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag6 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED7'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag7 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. WHEN 'APPROVED8'. wa_fieldcat-seltext_s = wa_fieldcat-seltext_m = wa_fieldcat-seltext_l = wa_fieldcat-reptext_ddic = text-008. IF g_flag8 IS INITIAL. wa_fieldcat-no_out = 'X'. ENDIF. MODIFY t_fieldcat FROM wa_fieldcat. ENDCASE. ENDLOOP. ENDFORM. " BUILD_FIELD_CATALOG *&---------------------------------------------------------------------* *& Form DISPLAY_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM display_alv . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' i_callback_program = g_repid * I_CALLBACK_PF_STATUS_SET = ' ' i_callback_user_command = 'USER_COMMAND' * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = * I_GRID_SETTINGS = is_layout = gs_layout it_fieldcat = t_fieldcat[] * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * I_SAVE = ' ' * IS_VARIANT = * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = t_output 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. " DISPLAY_ALV *&---------------------------------------------------------------------* *& Form BUILD_LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM build_layout . * ls_layout-f2code = p_f2code. * ls_layout-zebra = p_zebra. gs_layout-zebra = 'X'. gs_layout-colwidth_optimize = 'X'. * ls_layout-cell_merge = p_merge. * ls_layout-no_input = p_noinpt. * ls_layout-no_vline = p_novlin. * ls_layout-no_colhead = p_nocolh. * ls_layout-lights_condense = p_lightc. * gs_layout-totals_text = 'X'. * ls_layout-subtotals_text = p_sttext. * ls_layout-totals_only = p_totonl. * ls_layout-key_hotspot = p_keyhot. * ls_layout-detail_popup = p_detpop. * ls_layout-group_change_edit = p_groups. * ls_layout-group_buttons = space. ENDFORM. " BUILD_LAYOUT *&---------------------------------------------------------------------* *& Form REFRESH_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM refresh_data . REFRESH : t_output, t_eban, t_lfa1, * t_makt, t_t16fv. CLEAR : wa_eban, wa_lfa1, * wa_makt, wa_t16fv. g_repid = sy-repid. ENDFORM. " REFRESH_DATA *User command. *Display the ME53N tcode whenever any PO is double clicked on report *output FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield . IF rs_selfield-fieldname = 'BANFN'. READ TABLE t_output INDEX rs_selfield-tabindex. SET PARAMETER ID 'BAN' FIELD t_output-banfn. CALL TRANSACTION 'ME53N' AND SKIP FIRST SCREEN. ENDIF. ENDFORM. " USER_COMMAND *&---------------------------------------------------------------------* *& Form BUILD_OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM build_output . DATA l_tabix TYPE sy-tabix. *Build Output internal table. LOOP AT t_eban INTO wa_eban. t_output-ernam = wa_eban-ernam . "Created By t_output-badat = wa_eban-badat . "Created On t_output-banfn = wa_eban-banfn. "PR t_output-bnfpo = wa_eban-bnfpo . "Item t_output-matnr = wa_eban-matnr . "Material t_output-maktx = wa_eban-txz01 . "Material Description t_output-knttp = wa_eban-knttp . "A/c Assignment t_output-kostl = wa_eban-kostl. "Total Value of Item t_output-aufnr = wa_eban-aufnr. "Order t_output-menge = wa_eban-menge . "Quantity t_output-meins = wa_eban-meins . "UOM IF wa_eban-rlwrt IS NOT INITIAL. t_output-rlwrt = wa_eban-rlwrt . ELSEIF wa_eban-peinh = 1. t_output-rlwrt = wa_eban-preis * wa_eban-menge. ELSEIF wa_eban-peinh GT 1. wa_eban-preis = wa_eban-preis / wa_eban-peinh. t_output-rlwrt = wa_eban-preis * wa_eban-menge. ENDIF. t_output-waers = wa_eban-waers . "Curency t_output-lfdat = wa_eban-lfdat . "Delivery date t_output-werks = wa_eban-werks . "Plant t_output-ekgrp = wa_eban-ekgrp . "Purchasing group t_output-afnam = wa_eban-afnam . "Requisitioner IF wa_eban-flief IS NOT INITIAL. t_output-flief = wa_eban-flief . "Vendor READ TABLE t_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_eban-flief. IF sy-subrc EQ 0. t_output-name1 = wa_lfa1-name1. "Vendor name ENDIF. ELSE. t_output-flief = wa_eban-lifnr . "Vendor READ TABLE t_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_eban-lifnr. IF sy-subrc EQ 0. t_output-name1 = wa_lfa1-name1. "Vendor name ENDIF. ENDIF. t_output-ebeln = wa_eban-ebeln. "PO t_output-ebelp = wa_eban-ebelp . "PO Item *Begin of for approver names *Select Approved by names l_objid = wa_eban-banfn. *Check Release indicator for Approved by names IF ( wa_eban-frgkz = 'Z' OR wa_eban-frgkz = '2' OR wa_eban-frgkz = 'Y' ). SELECT objectclas objectid changenr username tcode FROM cdhdr INTO CORRESPONDING FIELDS OF TABLE t_cdhdr WHERE objectclas = 'BANF' AND objectid = l_objid AND ( tcode = 'ME54N' OR tcode = 'ME55N' OR tcode = 'ME54' OR tcode = 'ME55'). IF sy-subrc EQ 0. "Begin If for Approved by SELECT objectclas objectid changenr FROM cdpos INTO CORRESPONDING FIELDS OF TABLE t_cdpos FOR ALL ENTRIES IN t_cdhdr WHERE objectclas = t_cdhdr-objectclas AND objectid = t_cdhdr-objectid AND changenr = t_cdhdr-changenr. IF sy-subrc EQ 0. DATA l_username LIKE adrp-name_text. LOOP AT t_cdhdr INTO wa_cdhdr. l_tabix = sy-tabix. *Get Full name of Approved by PERFORM get_user_name USING wa_cdhdr-username CHANGING l_username. CASE l_tabix. WHEN '1'. t_output-approved1 = l_username. g_flag1 = 1. WHEN '2'. t_output-approved2 = l_username. g_flag2 = 1. WHEN '3'. t_output-approved3 = l_username. g_flag3 = 1. WHEN '4'. t_output-approved4 = l_username. g_flag4 = 1. WHEN '5'. t_output-approved5 = l_username. g_flag5 = 1. WHEN '6'. t_output-approved6 = l_username. g_flag6 = 1. WHEN '7'. t_output-approved7 = l_username. g_flag7 = 1. WHEN '8'. t_output-approved8 = l_username. g_flag8 = 1. ENDCASE. CLEAR l_tabix. ENDLOOP. ENDIF. ENDIF. "End of IF for Approved by ELSE. ENDIF. *Select Next approver names *Check PR is Released or not IF ( wa_eban-frgkz = 'Z' OR wa_eban-frgkz = '2' ). "Begin of IF for Next Approver APPEND t_output. CLEAR : wa_eban, wa_lfa1, wa_t16fv, t_output, t_t16fv1. ELSE. *Select Release code. REFRESH t_t16fv. CLEAR wa_t16fv. SELECT v~frggr v~frgsx v~frgco d~frgct FROM t16fv AS v INNER JOIN t16fd AS d ON d~frggr = v~frggr AND d~frgco = v~frgco INTO TABLE t_t16fv WHERE v~frggr = wa_eban-frggr AND v~frgsx = wa_eban-frgst AND d~spras = sy-langu. IF sy-subrc EQ 0. SORT t_t16fv BY frggr frgsx frgco. DELETE ADJACENT DUPLICATES FROM t_t16fv. *Applying BAPI to get Approver names. CALL FUNCTION 'BAPI_REQUISITION_GETRELINFO' EXPORTING number = wa_eban-banfn item = wa_eban-bnfpo * REL_CODE = TABLES general_release_info = t_general * release_prerequisites = r_prereq release_already_posted = t_posted * release_final = r_final * RETURN = . LOOP AT t_t16fv INTO wa_t16fv WHERE frggr = wa_eban-frggr AND frgsx = wa_eban-frgst. READ TABLE t_posted WITH KEY rel_code1 = wa_t16fv-frgco. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code2 = wa_t16fv-frgco. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code3 = wa_t16fv-frgco. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code4 = wa_t16fv-frgco. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code5 = wa_t16fv-frgco. IF sy-subrc EQ 0. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code6 = wa_t16fv-frgco. IF sy-subrc EQ 0. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code7 = wa_t16fv-frgco. IF sy-subrc EQ 0. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ELSEIF sy-subrc NE 0. READ TABLE t_posted WITH KEY rel_code8 = wa_t16fv-frgco. IF sy-subrc EQ 0. APPEND wa_t16fv TO t_t16fv1. DELETE t_t16fv. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. CLEAR wa_t16fv. LOOP AT t_t16fv INTO wa_t16fv. CASE sy-tabix . WHEN '1'. t_output-appr1 = wa_t16fv-frgco. g_flag9 = 1. WHEN '2'. t_output-appr2 = wa_t16fv-frgco. g_flag10 = 1. WHEN '3'. t_output-appr3 = wa_t16fv-frgco. g_flag11 = 1. WHEN '4'. t_output-appr4 = wa_t16fv-frgco. g_flag12 = 1. WHEN '5'. t_output-appr5 = wa_t16fv-frgco. g_flag13 = 1. WHEN '6'. t_output-appr6 = wa_t16fv-frgco. g_flag14 = 1. WHEN '7'. t_output-appr7 = wa_t16fv-frgco. g_flag15 = 1. WHEN '8'. t_output-appr8 = wa_t16fv-frgco. g_flag16 = 1. ENDCASE. ENDLOOP. APPEND t_output. CLEAR : wa_eban, wa_lfa1, wa_t16fv, t_output, t_t16fv1. ELSE. APPEND t_output. CLEAR : wa_eban, wa_lfa1, wa_t16fv, t_output, t_t16fv1. ENDIF. *End of for approver names ENDIF. "End of IF for Next Approver ENDLOOP. ENDFORM. " BUILD_OUTPUT *&---------------------------------------------------------------------* *& Form GET_USER_NAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_WA_CDHDR_USERNAME text * <--P_L_USERNAME text *----------------------------------------------------------------------* FORM get_user_name USING p_userid CHANGING p_username. DATA address TYPE bapiaddr3. DATA BEGIN OF return OCCURS 0. INCLUDE TYPE bapiret2. DATA END OF return. CALL FUNCTION 'BAPI_USER_GET_DETAIL' EXPORTING username = p_userid IMPORTING address = address TABLES return = return. IF address-fullname IS NOT INITIAL. p_username = address-fullname. ELSE. p_username = p_userid. ENDIF. ENDFORM. " GET_USER_NAME