SAP程序设计随书源代码.zip

*-- by Kingdon-- *-- date:2008-9-03 *-- SV Huizhou 0001 REPORT z_dong_standard_list . * include for using icon INCLUDE <icon>. *line type of internal table TYPES: BEGIN OF linetype, cityfrom LIKE spfli-cityfrom, cityto LIKE spfli-cityto, carrid LIKE spfli-carrid, connid LIKE spfli-connid, countryfr LIKE spfli-countryfr, countryto LIKE spfli-countryto, fldate LIKE sflight-fldate, price LIKE sflight-price, currency LIKE sflight-currency, seatsmax LIKE sflight-seatsmax, seatsocc LIKE sflight-seatsocc, END OF linetype. *constants for writing position CONSTANTS: pos_c1 TYPE i VALUE 6, pos_c3 TYPE i VALUE 30, pos_c4 TYPE i VALUE 58, pos_c5 TYPE i VALUE 68, line_size TYPE i VALUE 100. *constant for case statement CONSTANTS mark VALUE 'X'. *internal table type linetype. DATA: itab_flights TYPE STANDARD TABLE OF linetype, wa_flights TYPE linetype. *selections for connections SELECTION-SCREEN BEGIN OF BLOCK conn WITH FRAME TITLE text-001. SELECT-OPTIONS: so_car FOR wa_flights-carrid, so_con FOR wa_flights-connid. SELECTION-SCREEN END OF BLOCK conn. *selections for flights SELECTION-SCREEN BEGIN OF BLOCK flight WITH FRAME TITLE text-002. SELECT-OPTIONS: so_fdt FOR wa_flights-fldate NO-EXTENSION. SELECTION-SCREEN END OF BLOCK flight. *output parameter SELECTION-SCREEN BEGIN OF BLOCK param WITH FRAME TITLE text-003. SELECTION-SCREEN BEGIN OF BLOCK radio WITH FRAME. PARAMETERS: all RADIOBUTTON GROUP rbg1, national RADIOBUTTON GROUP rbg1, internat RADIOBUTTON GROUP rbg1 DEFAULT 'X'. SELECTION-SCREEN END OF BLOCK radio. PARAMETERS country LIKE wa_flights-countryfr. SELECTION-SCREEN END OF BLOCK param. *top-of-page TOP-OF-PAGE. *title FORMAT COLOR COL_HEADING INTENSIFIED ON. ULINE (100). WRITE: / sy-vline, 'Flight data', AT line_size sy-vline. ULINE (100). *column header FORMAT COLOR COL_HEADING INTENSIFIED OFF. WRITE: / sy-vline, 'Departure location', AT line_size sy-vline, / sy-vline, 'Arrival location', AT line_size sy-vline, / sy-vline, AT pos_c1 'Flight'. * fix left scroll boundary SET LEFT SCROLL-BOUNDARY. WRITE: 'date', AT pos_c3 'Price'(006), "(006) refers to text-006 and overwrite the string. AT pos_c4 'Max.'(008), AT pos_c5 'Occ.'(009), AT line_size sy-vline. ULINE (100). *event block 1: initialization INITIALIZATION. *initialize select-options for carrid MOVE : 'AA' TO so_car-low, 'UA' TO so_car-high, 'BT' TO so_car-option, 'I' TO so_car-sign. APPEND so_car. CLEAR so_car. MOVE: 'SQ' TO so_car-low, 'EQ' TO so_car-option, 'E' TO so_car-sign. APPEND so_car. CLEAR so_car. *event block 2: at selection-screen on block param AT SELECTION-SCREEN ON BLOCK param. *check country for national flights is not empty CHECK national = mark AND country = space. MESSAGE e003(bc405). *event block 3: start-of-selection START-OF-SELECTION. *checking the output parameters CASE mark. WHEN all. *radiobutton all is marked SELECT * FROM spfli INNER JOIN sflight ON spfli~carrid = sflight~carrid AND spfli~connid = sflight~connid INTO CORRESPONDING FIELDS OF TABLE itab_flights WHERE spfli~carrid IN so_car AND spfli~connid IN so_con AND sflight~fldate IN so_fdt AND spfli~countryfr = spfli~countryto AND spfli~countryfr = country. WHEN internat. *radiobutton internate is marked SELECT * FROM spfli INNER JOIN sflight ON spfli~carrid = sflight~carrid AND spfli~connid = sflight~connid INTO CORRESPONDING FIELDS OF TABLE itab_flights WHERE spfli~carrid IN so_car AND spfli~connid IN so_con AND sflight~fldate IN so_fdt AND spfli~countryfr = spfli~countryto . ENDCASE. *event block 4: end-of-selection END-OF-SELECTION. *control level processing: the internal table has to be sorted SORT itab_flights BY cityfrom cityto carrid connid. *data output PERFORM data_output. *---------------------------------------------------------------------* * FORM data_output * *---------------------------------------------------------------------* * ........ * *---------------------------------------------------------------------* FORM data_output. LOOP AT itab_flights INTO wa_flights. *group level: cityfrom AT NEW cityfrom. NEW-PAGE. FORMAT COLOR COL_GROUP INTENSIFIED ON. WRITE: / sy-vline, wa_flights-cityfrom, AT line_size sy-vline. FORMAT RESET. ENDAT. *group level: cityto AT NEW cityto. FORMAT COLOR COL_GROUP INTENSIFIED ON. WRITE: / sy-vline, wa_flights-cityto, AT line_size sy-vline. FORMAT RESET. ENDAT. *single record processing *mark international flights FORMAT COLOR COL_KEY INTENSIFIED ON. IF wa_flights-countryfr EQ wa_flights-countryto. WRITE: / sy-vline, icon_space AS ICON CENTERED. ELSE. WRITE: / sy-vline, icon_bw_gis AS ICON CENTERED. ENDIF. *data output WRITE: wa_flights-carrid, wa_flights-connid. FORMAT COLOR COL_NORMAL INTENSIFIED OFF. WRITE: wa_flights-fldate, wa_flights-price CURRENCY wa_flights-currency, wa_flights-currency, wa_flights-seatsmax, wa_flights-seatsocc, AT line_size sy-vline. FORMAT RESET. * group level: connid AT END OF connid. SUM. FORMAT COLOR COL_TOTAL. WRITE: / sy-vline, 'Total'(007), wa_flights-seatsmax UNDER wa_flights-seatsmax, wa_flights-seatsocc UNDER wa_flights-seatsocc, AT line_size sy-vline. FORMAT RESET. ENDAT. *group level: cityfrom AT END OF cityfrom. ULINE (100). ENDAT. ENDLOOP. ENDFORM.