*&---------------------------------------------------------------------* *& Report ZCESHI_26 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zceshi_03. TABLES: afpo,aufk,plaf,makt,t001w. *alv 定义 TYPE-POOLS: slis. DATA: afield TYPE slis_fieldcat_alv, fieldcat TYPE slis_t_fieldcat_alv, gs_layout TYPE slis_layout_alv, g_repid TYPE sy-repid, i_layout TYPE slis_layout_alv, gridlsl TYPE lvc_s_glay. *downloadexcel 定义 TYPE-POOLS ole2. DATA: v_excel TYPE ole2_object, v_book TYPE ole2_object, v_cell TYPE ole2_object, v_range TYPE ole2_object, v_font TYPE ole2_object, v_color TYPE ole2_object, v_column TYPE ole2_object, v_border TYPE ole2_object. DATA:count1 TYPE i VALUE 0. DATA:count2 TYPE i VALUE 0. DATA:count3 TYPE i VALUE 0. DATA:count4 TYPE i VALUE 0. DATA:count5 TYPE i VALUE 0. DATA:count6 TYPE i VALUE 0. DATA:count7 TYPE i VALUE 0. DATA:count8 TYPE i VALUE 0. DATA:count9 TYPE i VALUE 0. DATA:count10 TYPE i VALUE 0. DATA:count11 TYPE i VALUE 0. DATA:count12 TYPE i VALUE 0. *内表定义区 DATA: BEGIN OF itab_d_ty, matnr LIKE afpo-matnr, maktx LIKE makt-maktx, sumnb LIKE afpo-psmng, meins LIKE afpo-meins, month(6) TYPE c, END OF itab_d_ty. DATA: BEGIN OF wa_month, month(6) TYPE c, END OF wa_month. DATA: BEGIN OF itab_alv_ty, matnr LIKE afpo-matnr, "生产订单物料编码 maktx LIKE makt-maktx, "生产物料名称 3 LIKE afpo-psmng, 4 LIKE afpo-psmng, 5 LIKE afpo-psmng, 6 LIKE afpo-psmng, 7 LIKE afpo-psmng, 8 LIKE afpo-psmng, 9 LIKE afpo-psmng, 10 LIKE afpo-psmng, 11 LIKE afpo-psmng, 12 LIKE afpo-psmng, 13 LIKE afpo-psmng, 14 LIKE afpo-psmng, sumnb LIKE afpo-psmng, meins LIKE afpo-meins, flag(1), END OF itab_alv_ty. DATA: itab_d LIKE itab_d_ty OCCURS 0 WITH HEADER LINE. DATA: it_month LIKE wa_month OCCURS 0 WITH HEADER LINE. DATA: itab_alv LIKE itab_alv_ty OCCURS 0 WITH HEADER LINE. DATA: str_name2 TYPE string. PARAMETERS: p_pwerk LIKE afpo-pwerk OBLIGATORY, p_date LIKE sy-datum OBLIGATORY. AT SELECTION-SCREEN ON p_pwerk. PERFORM: check_pwerk. START-OF-SELECTION. PERFORM get_data. PERFORM creat_allmonth. PERFORM alv_display. *&---------------------------------------------------------------------* *& Form CHECK_PWERK *&---------------------------------------------------------------------* * 字段检查，检查工厂是否存在 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM check_pwerk . DATA: mesg_01 TYPE string. SELECT SINGLE * FROM afpo WHERE pwerk = p_pwerk. IF sy-subrc = 4. CONCATENATE p_pwerk '工厂不存在！' INTO mesg_01. MESSAGE mesg_01 TYPE 'W'. CLEAR sy-subrc. ENDIF. ENDFORM. " CHECK_PWERK *&---------------------------------------------------------------------* *& Form GET_DATA *&---------------------------------------------------------------------* * 主数据取数 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_data . DATA: BEGIN OF itab_01_ty, pwerk LIKE afpo-pwerk, "工厂 matnr LIKE afpo-matnr, "生产订单物料编码 maktx LIKE makt-maktx, "生产物料名称 psmng LIKE afpo-psmng, "生产订单数量 dgltp LIKE afpo-dgltp, "生产订单基本结束日期 meins LIKE afpo-meins, month(6) TYPE c, END OF itab_01_ty. DATA: BEGIN OF itab_02_ty, plwrk LIKE plaf-plwrk, matnr LIKE plaf-matnr, "计划订单物料编码 maktx LIKE makt-maktx, "计划物料名称 gsmng LIKE plaf-gsmng, "计划订单数量 pedtr LIKE plaf-pedtr, "计划订单基本结束日期 meins LIKE plaf-meins, month(6) TYPE c, END OF itab_02_ty. DATA: BEGIN OF itab_tw_ty, name2 LIKE t001w-name2, END OF itab_tw_ty. DATA: itab_01 LIKE itab_01_ty OCCURS 0 WITH HEADER LINE. DATA: itab_02 LIKE itab_02_ty OCCURS 0 WITH HEADER LINE. DATA: p_date1 TYPE dats. DATA: string_1(6) TYPE c. DATA: rows TYPE i. CLEAR: itab_01[],itab_02[]. * 获取12月之后日期 PERFORM get_date USING p_date CHANGING p_date1. CONCATENATE p_date1(6) '01' INTO p_date1."取一年之后当月的第一天 * 取生产订单的计划数量和物料号: SELECT afpo~pwerk afpo~matnr makt~maktx afpo~psmng afpo~dgltp afpo~meins INTO CORRESPONDING FIELDS OF TABLE itab_01 FROM afpo INNER JOIN aufk ON aufk~aufnr = afpo~aufnr AND aufk~loekz NE 'X' INNER JOIN makt ON makt~matnr = afpo~matnr AND makt~spras = 1 WHERE afpo~pwerk = p_pwerk AND aufk~auart IN ('JJ01', 'JJ05', 'JL01', 'JL05', 'KC01', 'KC05', 'NM01', 'NM02', 'NM03', 'NX01', 'NX02', 'NX03', 'WY01', 'WY02', 'WE01', 'WE02', 'WS01', 'WS02') AND afpo~dgltp >= p_date AND afpo~dgltp < p_date1 ORDER BY afpo~dgltp. * 选出符合条件的计划订单 SELECT plaf~plwrk plaf~matnr makt~maktx plaf~gsmng plaf~pedtr plaf~meins INTO CORRESPONDING FIELDS OF TABLE itab_02 FROM plaf INNER JOIN makt ON makt~matnr = plaf~matnr AND makt~spras = 1 WHERE plaf~plwrk = p_pwerk AND plaf~pedtr >= p_date AND plaf~pedtr < p_date1 AND plaf~paart = 'LA' AND plaf~matnr NOT LIKE '000000000080%' . IF itab_01[] IS INITIAL AND itab_02[] IS INITIAL. MESSAGE '未包含任何生产订单和计划单！' TYPE 'I'. STOP. RETURN. ENDIF. *获取工厂描述 SELECT name2 INTO CORRESPONDING FIELDS OF itab_tw_ty FROM t001w WHERE werks = p_pwerk AND spras = 1. str_name2 = itab_tw_ty-name2. ENDSELECT. *提炼itab_01和itab_02的数据 LOOP AT itab_01 INTO itab_01_ty. MOVE itab_01_ty-matnr TO itab_d_ty-matnr. MOVE itab_01_ty-maktx TO itab_d_ty-maktx. MOVE itab_01_ty-psmng TO itab_d_ty-sumnb. MOVE itab_01_ty-dgltp(6) TO string_1. MOVE string_1 TO itab_d_ty-month. MOVE itab_01_ty-meins TO itab_d_ty-meins. COLLECT itab_d_ty INTO itab_d. ENDLOOP. CLEAR itab_01[]. LOOP AT itab_02 INTO itab_02_ty. MOVE itab_02_ty-matnr TO itab_d_ty-matnr. MOVE itab_02_ty-maktx TO itab_d_ty-maktx. MOVE itab_02_ty-gsmng TO itab_d_ty-sumnb. MOVE itab_02_ty-pedtr(6) TO string_1. MOVE string_1 TO itab_d_ty-month. MOVE itab_02_ty-meins TO itab_d_ty-meins. COLLECT itab_d_ty INTO itab_d. ENDLOOP. CLEAR itab_02[]. SORT itab_d BY month matnr. ENDFORM. " GET_DATA *&---------------------------------------------------------------------* *& Form GET_DATE *&---------------------------------------------------------------------* * 计算出当前年月之后一年的年月 *----------------------------------------------------------------------* * -->P_P_DATE text * <--P_P_DATE1 text *----------------------------------------------------------------------* FORM get_date USING l_date CHANGING l_date1. CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL' EXPORTING date = l_date days = 0 "天数加N或者减N 不加也不减 写0 months = 12 "月份加N或者减N 不加也不减 写0 signum = '+' "可以是+或者- years = 0"年份加N或者减N 不加也不减 写0 IMPORTING calc_date = l_date1."得到加减之后的日期 ENDFORM. " GET_DATE *&---------------------------------------------------------------------* *& Form CREAT_ALLMONTH *&---------------------------------------------------------------------* * 获取满足条件的数据的所有不相同的年月份 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM creat_allmonth . DATA: c1(6) TYPE c, y2(4) TYPE c, m3(2) TYPE c. MOVE p_date(6) TO c1. MOVE p_date(4) TO y2. MOVE p_date+4(2) TO m3. APPEND c1 TO it_month. DO 11 TIMES. m3 = m3 + 1. IF m3 < 10. CONCATENATE y2 '0' m3 INTO c1. APPEND c1 TO it_month. ELSEIF m3 > 9 AND m3 < 13. CONCATENATE y2 m3 INTO c1. APPEND c1 TO it_month. ELSEIF m3 > 12. m3 = 1. y2 = y2 + 1. CONCATENATE y2 '0' m3 INTO c1. APPEND c1 TO it_month. ENDIF. ENDDO. ENDFORM. " CREAT_ALLMONTH *&---------------------------------------------------------------------* *& Form ALV_DISPLAY *&---------------------------------------------------------------------* * 调用ALV *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM alv_display . PERFORM get_alv_data. PERFORM layout_build. PERFORM fieldcat_init USING fieldcat[]. PERFORM display_alv. ENDFORM. " ALV_DISPLAY *&---------------------------------------------------------------------* *& Form GET_ALV_DATA *&---------------------------------------------------------------------* * 为ALV取得数据 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_alv_data . FIELD-SYMBOLS: <dyn_field> TYPE any. DATA: col(4) TYPE c. DEFINE cutmonth. loop at it_month into wa_month. if wa_month-month = &1. col = sy-tabix + 2. assign component col of structure itab_alv_ty to <dyn_field>. <dyn_field> = &2. clear col. endif. endloop. END-OF-DEFINITION. LOOP AT itab_d INTO itab_d_ty. ASSIGN COMPONENT 1 OF STRUCTURE itab_alv_ty TO <dyn_field>. PERFORM cut_zero USING itab_d_ty-matnr CHANGING itab_d_ty-matnr. <dyn_field> = itab_d_ty-matnr. ASSIGN COMPONENT 2 OF STRUCTURE itab_alv_ty TO <dyn_field>. <dyn_field> = itab_d_ty-maktx. cutmonth itab_d_ty-month itab_d_ty-sumnb. ASSIGN COMPONENT 16 OF STRUCTURE itab_alv_ty TO <dyn_field>. <dyn_field> = itab_d_ty-meins. COLLECT itab_alv_ty INTO itab_alv. CLEAR itab_alv_ty. ENDLOOP. LOOP AT itab_alv INTO itab_alv_ty. itab_alv_ty-sumnb = itab_alv_ty-3 + itab_alv_ty-4 + itab_alv_ty-5 + itab_alv_ty-6 + itab_alv_ty-7 + itab_alv_ty-8 + itab_alv_ty-9 + itab_alv_ty-10 + itab_alv_ty-11 + itab_alv_ty-12 + itab_alv_ty-13 + itab_alv_ty-14. MODIFY itab_alv FROM itab_alv_ty. ENDLOOP. LOOP AT itab_alv. IF itab_alv-3 IS NOT INITIAL. count1 = count1 + 1. ENDIF. IF itab_alv-4 IS NOT INITIAL. count2 = count2 + 1. ENDIF. IF itab_alv-5 IS NOT INITIAL. count3 = count3 + 1. ENDIF. IF itab_alv-6 IS NOT INITIAL. count4 = count4 + 1. ENDIF. IF itab_alv-7 IS NOT INITIAL. count5 = count5 + 1. ENDIF. IF itab_alv-8 IS NOT INITIAL. count6 = count6 + 1. ENDIF. IF itab_alv-9 IS NOT INITIAL. count7 = count7 + 1. ENDIF. IF itab_alv-10 IS NOT INITIAL. count8 = count8 + 1. ENDIF. IF itab_alv-11 IS NOT INITIAL. count9 = count9 + 1. ENDIF. IF itab_alv-12 IS NOT INITIAL. count10 = count10 + 1. ENDIF. IF itab_alv-13 IS NOT INITIAL. count11 = count11 + 1. ENDIF. IF itab_alv-14 IS NOT INITIAL. count12 = count12 + 1. ENDIF. ENDLOOP. ENDFORM. " GET_ALV_DATA *&---------------------------------------------------------------------* *& Form LAYOUT_BUILD *&---------------------------------------------------------------------* * 设置ALV的显示格式 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM layout_build . i_layout-box_fieldname = 'FLAG'. i_layout-colwidth_optimize = 'X'. "优化列宽选项是否设置 i_layout-zebra = 'X'. i_layout-detail_initial_lines = 'X'. i_layout-no_vline = 'X'." layout_build ENDFORM. " LAYOUT_BUILD *&---------------------------------------------------------------------* *& Form FIELDCAT_INIT *&---------------------------------------------------------------------* * 设置ALV的列项目 *----------------------------------------------------------------------* * -->P_FIELDCAT[] text *----------------------------------------------------------------------* FORM fieldcat_init USING fieldcat TYPE slis_t_fieldcat_alv. DATA: string(10) TYPE c. DATA: tabix(6) TYPE c. DATA: c1(4) TYPE c. DATA: c2(2) TYPE c. DATA: c3(2) TYPE c. DATA: afieldcat TYPE slis_fieldcat_alv, pos TYPE i. CLEAR pos. DEFINE d_get_field. pos = pos + 1. clear afieldcat. afieldcat-col_pos = pos. afieldcat-fieldname = &1. afieldcat-seltext_l = &2. afieldcat-key = &3. afieldcat-no_zero = &4. afieldcat-decimals_out = '0'. append afieldcat to fieldcat. END-OF-DEFINITION. d_get_field 'MATNR' '物料编号' 'X' ''. d_get_field 'MAKTX' '物料描述' 'X' ''. LOOP AT it_month INTO wa_month. MOVE wa_month-month(4) TO c1. MOVE wa_month-month+4(2) TO c2. CONCATENATE c1 '年' c2 '月' INTO string. tabix = sy-tabix + 2. CONDENSE tabix NO-GAPS. CASE tabix. WHEN '3'. IF count1 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '4'. IF count2 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '5'. IF count3 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '6'. IF count4 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '7'. IF count5 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '8'. IF count6 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '9'. IF count7 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '10'. IF count8 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '11'. IF count9 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '12'. IF count10 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '13'. IF count11 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN '14'. IF count12 NE 0. d_get_field tabix string '' 'X'. ENDIF. WHEN OTHERS. ENDCASE. * d_get_field tabix string '' 'X'. CLEAR: c1,c2,tabix,string. ENDLOOP. d_get_field 'SUMNB' '总计' '' ''. d_get_field 'MEINS' '单位' '' ''. ENDFORM. " FIELDCAT_INIT *&---------------------------------------------------------------------* *& Form DISPLAY_ALV *&---------------------------------------------------------------------* * 显示ALV *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM display_alv . g_repid = sy-repid. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * i_grid_settings = gridlsl * i_structure_name = '' i_callback_program = g_repid i_callback_pf_status_set = 'USER_STATUS' i_callback_user_command = 'USER_COMMAND' it_fieldcat = fieldcat is_layout = i_layout i_callback_top_of_page = slis_ev_top_of_page i_save = 'A' * it_sort = it_sort * it_events = er_events[] TABLES t_outtab = itab_alv. CLEAR itab_alv[]. ENDFORM. " DISPLAY_ALV *&---------------------------------------------------------------------* *& Form user_status *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM user_status USING extab TYPE slis_t_extab. SET TITLEBAR 'TITLE_ALV'. SET PF-STATUS 'STSTUS_ALV'. ENDFORM. "USER_STATUS *&---------------------------------------------------------------------* *& Form user_command *&---------------------------------------------------------------------* * 抓取ALV的功能码 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. rs_selfield-refresh = 'X'. r_ucomm = sy-ucomm. CLEAR sy-ucomm. CASE r_ucomm. WHEN 'DLOD'. PERFORM download_excel. WHEN OTHERS. ENDCASE. ENDFORM. "user_command *&---------------------------------------------------------------------* *& Form top_of_page *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM top_of_page. DATA: lit_header TYPE slis_t_listheader, lhe_header TYPE slis_listheader. * wk_rate TYPE string. CLEAR lhe_header. lhe_header-typ = 'H'. lhe_header-info = str_name2. APPEND lhe_header TO lit_header. CLEAR lhe_header. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = lit_header. ENDFORM. "top_of_page *&---------------------------------------------------------------------* *& Form DOWNLOAD_EXCEL *&---------------------------------------------------------------------* * 导出到Excel *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM download_excel . DATA column TYPE i. DATA: str_title TYPE string. DATA: str_month TYPE string. *对单元格操作的宏 DEFINE fill_cell. call method of v_excel 'CELLS' = v_cell exporting #1 = &1 #2 = &2. set property of v_cell 'value' = &3. call method of v_cell 'FONT' = v_font. set property of v_font 'Bold' = &4. set property of v_font 'size' = &5. END-OF-DEFINITION. *为特定区域加边框的宏 DEFINE addborder. call method of v_excel 'Range' = v_range exporting #1 = &1 #2 = &2. get property of v_range 'Borders' = v_border. set property of v_border 'LineStyle' = 1. set property of v_border 'WEIGHT' = 2. free object v_border. END-OF-DEFINITION. *产生对象 CREATE OBJECT v_excel 'Excel.Application'. CALL METHOD OF v_excel 'Workbooks' = v_book. CALL METHOD OF v_book 'ADD'. *生产大标题，居中，加粗 CONCATENATE str_name2 '整机投入产品明细表' INTO str_title. fill_cell 1 1 str_title 1 18. SET PROPERTY OF v_cell 'HorizontalAlignment' = -4108. *合并大标题所在单元格 CALL METHOD OF v_excel 'Range' = v_range EXPORTING #1 = 'A1' #2 = 'P1'. CALL METHOD OF v_range 'select'. SET PROPERTY OF v_range 'MergeCells' = 1. *添加年月份标题 fill_cell 2 3 '年份月份' 1 10. SET PROPERTY OF v_cell 'HorizontalAlignment' = -4108. *合并年月份标题单元格，居中 CALL METHOD OF v_excel 'Range' = v_range EXPORTING #1 = 'C2' #2 = 'P2'. CALL METHOD OF v_range 'select'. SET PROPERTY OF v_range 'MergeCells' = 1. *添加主表表头信息 fill_cell 2 1 '物料编码' 1 10. SET PROPERTY OF v_cell 'HorizontalAlignment' = -4108. fill_cell 2 2 '物料描述' 1 10. SET PROPERTY OF v_cell 'HorizontalAlignment' = -4108. CALL METHOD OF v_excel 'Range' = v_range EXPORTING #1 = 'A2' #2 = 'A3'. CALL METHOD OF v_range 'select'. SET PROPERTY OF v_range 'MergeCells' = 1. CALL METHOD OF v_excel 'Range' = v_range EXPORTING #1 = 'B2' #2 = 'B3'. CALL METHOD OF v_range 'select'. SET PROPERTY OF v_range 'MergeCells' = 1. LOOP AT it_month INTO wa_month. column = sy-tabix + 2. CONCATENATE wa_month-month(4) '年' wa_month-month+4(2) '月' INTO str_month. fill_cell 3 column str_month 1 10. ENDLOOP. fill_cell 3 15 '总计' 1 10. fill_cell 3 16 '单位' 1 10. *为数据区赋值 FIELD-SYMBOLS: <field> TYPE any. DATA lv_txt(50) TYPE c. DATA: row_i TYPE i, col_i TYPE i. LOOP AT itab_alv. row_i = sy-tabix + 3. DO 16 TIMES. col_i = sy-index. ASSIGN COMPONENT sy-index OF STRUCTURE itab_alv TO <field>. lv_txt = <field>. IF col_i > 2 AND col_i < 16 AND lv_txt = 0. lv_txt = ''. ENDIF. fill_cell row_i col_i lv_txt 0 10. * IF col_i = 15. * CALL METHOD of v_cell 'INTERIOR' = v_color. * SET PROPERTY OF v_color 'ColorIndex' = 8. * ENDIF. ENDDO. ENDLOOP. *为除了大标题外的所有加边框 DATA: intstr TYPE string. intstr = row_i. CONCATENATE 'P' intstr INTO intstr. addborder 'A2' 'B3'. addborder 'C2' 'P3'. addborder 'A4' intstr. *设置列的长度为自适应 CALL METHOD OF v_excel 'Columns' = v_column. CALL METHOD OF v_column 'Autofit'. *设置Excel可见 SET PROPERTY OF v_excel 'Visible' = 1. ENDFORM. " DOWNLOAD_EXCEL *&---------------------------------------------------------------------* *& Form CUT_ZERO *&---------------------------------------------------------------------* * 去掉前导零 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM cut_zero USING input_data CHANGING output_data. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = input_data IMPORTING output = output_data. ENDFORM. " CUT_ZERO