![ENDIF.
*The following select statement retrieves the item data
*for each P.O retrieved
IF NOT it_ekko[] IS INITIAL.
SELECT ebeln " P.O No.
ebelp " Itm No.
matnr " Mat No.
netwr " Net Pr.
INTO TABLE it_ekpo
FROM ekpo FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln.
ENDIF.
ENDFORM. " retrieve_data
&----
*& Form list_data
&----
text
----
--> p1 text
<-- p2 text
----
FORM list_data.
SORT it_ekko BY ebeln.
SORT it_ekpo BY ebeln ebelp.
LOOP AT it_ekpo.
AT NEW ebeln.
READ TABLE it_ekko WITH KEY ebeln = it_ekpo-ebeln.
IF sy-subrc = 0.
WRITE : /3 it_ekko-ebeln COLOR 2,
15 it_ekko-ekorg COLOR 2,
21 it_ekko-lifnr COLOR 2,
33 it_ekko-waers COLOR 2,
83 it_ekko-name1+0(20) COLOR 2.
ENDIF.
PERFORM draw_vline.
ENDAT.
WRITE : /42 it_ekpo-ebelp COLOR 1 INTENSIFIED OFF,
47 it_ekpo-matnr COLOR 5 INTENSIFIED OFF,
67 it_ekpo-netwr LEFT-JUSTIFIED COLOR 3 INTENSIFIED OFF.
PERFORM draw_vline.
v_sub_netwr = v_sub_netwr + it_ekpo-netwr.
v_grd_netwr = v_grd_netwr + it_ekpo-netwr.](https://image.slidesharecdn.com/events-140605083845-phpapp01/85/ABAP-EVENTS-EXAMPLE-5-320.jpg)
ABAP EVENTS EXAMPLE
- 1. REPORT y_m_rept_po_dtls NO STANDARD PAGE HEADING LINE-SIZE 132 LINE-COUNT 26(3) MESSAGE-ID y_msg. ---- Tables Declaration * ---- TABLES : ekko, " Purchasing doc Header data ekpo, " Purchasing doc item data lfa1. " Vendor Master(General Section) ---- Internal Tables Declaration * ---- DATA : BEGIN OF it_ekko OCCURS 0, ebeln LIKE ekko-ebeln, " Purcahse Order no. ekorg LIKE ekko-ekorg, " Purchase Organization lifnr LIKE ekko-lifnr, " Vendor no. waers LIKE ekko-waers, " Currency Key name1 LIKE lfa1-name1, " Vendor's Name END OF it_ekko. DATA : BEGIN OF it_ekpo OCCURS 0, ebeln LIKE ekpo-ebeln, " Purcahse Order No. ebelp LIKE ekpo-ebelp, " Purchase Item No. matnr LIKE ekpo-matnr, " Material no. netwr LIKE ekpo-netwr, " Net Price of Purchase Order END OF it_ekpo. ---- Variables Declaration * ---- DATA : v_grd_netwr LIKE ekpo-netwr, " For Grand totals of net price v_sub_netwr LIKE ekpo-netwr, " For Sub totals of net price fg_no_data, " NO DATA flag v_ekorg LIKE ekko-ekorg. " For Purchase Organiztion validation ---- Selection Screen * ---- SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME. SELECT-OPTIONS : s_bukrs FOR ekko-bukrs. " For Company Codes PARAMETERS : p_ekorg LIKE ekko-ekorg. " For Purchase Organization SELECTION-SCREEN END OF BLOCK blk1. ---- Initialization * ---- INITIALIZATION.
- 2. PERFORM initialize. " Initializing values ---- at selection screen * ---- AT SELECTION-SCREEN. PERFORM sel_scr_vald. " Selection Screen validations ---- start of selection * ---- START-OF-SELECTION. PERFORM retrieve_data. " Select the data from database ---- end of selection * ---- END-OF-SELECTION. PERFORM list_data. " List the selected data ---- top of page * ---- TOP-OF-PAGE. PERFORM disp_header. " Page Header PERFORM disp_col_header. " Column Header PERFORM draw_vline. " Generates Vertical Lines ---- end of page * ---- END-OF-PAGE. PERFORM disp_footer. " Page Footer ---- SUB ROUTINEES * ---- &---- *& Form disp_header &---- text ----
- 3. --> p1 text <-- p2 text ---- FORM disp_header. WRITE : /40 'Intelligroup Asia Pvt. Ltd.'(001), /47 'Hyderabad'(002). SKIP 1. WRITE : /43 'Purchase Orders List'(012) COLOR 5 INVERSE ON. ENDFORM. " disp_header &---- *& Form disp_footer &---- text ---- --> p1 text <-- p2 text ---- FORM disp_footer. IF fg_no_data = 'X'. EXIT. ELSE. SKIP 1. WRITE : /89 'PAGE NO. : '(003), (4) sy-pagno COLOR 2 INTENSIFIED OFF. ENDIF. ENDFORM. " disp_footer &---- *& Form initialize &---- text ---- --> p1 text <-- p2 text ---- FORM initialize. p_ekorg = '1000'. s_bukrs-low = '1000'. APPEND s_bukrs. ENDFORM. " initialize &---- *& Form sel_scr_vald &---- text ---- --> p1 text <-- p2 text ----
- 4. FORM sel_scr_vald. *This Select statement validates the supplied Purchase Org. Value. SELECT SINGLE ekorg INTO v_ekorg FROM ekko WHERE ekorg = p_ekorg. IF sy-subrc <> 0. MESSAGE e000 WITH p_ekorg 'Purchase Org.does not exists'. ENDIF. *This Select statement validates the supplied Company Code Values. SELECT SINGLE bukrs INTO s_bukrs-low FROM ekko WHERE bukrs IN s_bukrs. IF sy-subrc <> 0. MESSAGE e000 WITH s_bukrs 'Company Code does not exists'. ENDIF. ENDFORM. " sel_scr_vald &---- *& Form retrieve_data &---- text ---- --> p1 text <-- p2 text ---- FORM retrieve_data. *This select statement retrieves the P.O header data based on *Company Code and Purchase Organization supplied SELECT v1~ebeln " Purcahse Order no v1~ekorg " Purchase Organization v1~lifnr " Vendor no v1~waers " Currency Key v2~name1 " Vendor's Name INTO TABLE it_ekko FROM ekko as v1 join lfa1 as v2 on v1lifnr = v2lifnr WHERE ekorg = p_ekorg AND bukrs IN s_bukrs AND bsart = 'NB' AND loekz = space. IF sy-subrc <> 0. fg_no_data = 'X'. MESSAGE i000 WITH 'No Data for this Selection Criteria'. STOP.
- 5. ENDIF. *The following select statement retrieves the item data *for each P.O retrieved IF NOT it_ekko[] IS INITIAL. SELECT ebeln " P.O No. ebelp " Itm No. matnr " Mat No. netwr " Net Pr. INTO TABLE it_ekpo FROM ekpo FOR ALL ENTRIES IN it_ekko WHERE ebeln = it_ekko-ebeln. ENDIF. ENDFORM. " retrieve_data &---- *& Form list_data &---- text ---- --> p1 text <-- p2 text ---- FORM list_data. SORT it_ekko BY ebeln. SORT it_ekpo BY ebeln ebelp. LOOP AT it_ekpo. AT NEW ebeln. READ TABLE it_ekko WITH KEY ebeln = it_ekpo-ebeln. IF sy-subrc = 0. WRITE : /3 it_ekko-ebeln COLOR 2, 15 it_ekko-ekorg COLOR 2, 21 it_ekko-lifnr COLOR 2, 33 it_ekko-waers COLOR 2, 83 it_ekko-name1+0(20) COLOR 2. ENDIF. PERFORM draw_vline. ENDAT. WRITE : /42 it_ekpo-ebelp COLOR 1 INTENSIFIED OFF, 47 it_ekpo-matnr COLOR 5 INTENSIFIED OFF, 67 it_ekpo-netwr LEFT-JUSTIFIED COLOR 3 INTENSIFIED OFF. PERFORM draw_vline. v_sub_netwr = v_sub_netwr + it_ekpo-netwr. v_grd_netwr = v_grd_netwr + it_ekpo-netwr.
- 6. AT END OF ebeln. ULINE AT /47(35). PERFORM draw_vline. WRITE : /53 'Doc.Value : '(010) COLOR 3 INVERSE ON, v_sub_netwr LEFT-JUSTIFIED COLOR 3. CLEAR v_sub_netwr. PERFORM draw_vline. ULINE AT /2(104). ENDAT. AT LAST. WRITE : /52 'Grand Value :'(011) COLOR 7 INVERSE ON, v_grd_netwr LEFT-JUSTIFIED COLOR 7 INTENSIFIED OFF. CLEAR v_grd_netwr. ENDAT. ENDLOOP. ENDFORM. " list_data &---- *& Form disp_col_header &---- text ---- --> p1 text <-- p2 text ---- FORM disp_col_header. SKIP 1. ULINE AT /2(104). WRITE : /3(11) 'P.O No.'(003) COLOR COL_HEADING, 15(6) 'P.Org'(004) COLOR COL_HEADING, 21(12) 'Vendor No'(005) COLOR COL_HEADING, 33(8)'Curr.Key'(006) COLOR COL_HEADING, 42(4) 'Item No'(007) COLOR COL_HEADING, 47(19) 'Material No.'(008) COLOR COL_HEADING, 67(15) 'Net Price'(009) COLOR COL_HEADING, 83(22) 'Vendor Name'(013) COLOR COL_HEADING. PERFORM draw_vline. ULINE AT /2(104). ENDFORM. " disp_col_header &---- *& Form draw_vline &---- text ---- --> p1 text <-- p2 text ---- FORM draw_vline.
- 7. WRITE : 2 sy-vline, 14 sy-vline, 20 sy-vline, 32 sy-vline, 41 sy-vline, 46 sy-vline, 66 sy-vline, 82 sy-vline, 105 sy-vline . ENDFORM. " draw_vline 1. OBJPS 2. SPRPS 3.Qnnnn 4. CI_Pnnnn Several infotypes have subtypes. If this is the case, the infotype’s time constraint is on the subtype. 1-3-1 How do you determine which time constraint is assigned to the subtype of an infotype?