在sap中用承諾項(xiàng)目出現(xiàn)金流量表報(bào)表開發(fā)源代碼-在線瀏覽
2024-10-02 16:24本頁面
【正文】 rlow = fmmplifnr. COLLECT r_lifnr. SORT g_t_fmmp BY fikrs fipos gjahr zhldt zbuzei bukrs RANGES: lr_lifnr FOR lfa1lifnr, DATA: l_t_from IF NOT r_lifnr IS INITIAL. LOOP AT r_lifnr WHERE low = 39。. insert IF l_t_lines = 50. SELECT lifnr sortl FROM lfa1 insert * / LieferantenKurztexte in Bloecken einlesen insert insert * / Bloecke zu je 50 Leferanten bilden insert REFRESH lr_lifnr. insert LOOP AT r_lifnr FROM l_t_from TO l_t_to. lr_lifnr = r_lifnr. insert insert ENDLOOP. EXIT. + 1. = l_t_from + 50. insert * / LieferantenKurztexte lesen insert SELECT lifnr sortl FROM lfa1 APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_lfa1 insert insert insert ENDIF. ENDIF. * / Lesen DebitorenTexte aus StammdatenTabelle *39。 DELETE r_kunnr. ENDLOOP. DESCRIBE TABLE r_kunnr LINES l_t_lines. insert * / KundenKurztexte auf einmal einlesen SELECT kunnr sortl FROM kna1 insert * / KundenKurztexte in Bloecken einlesen insert insert * / Bloecke zu je 50 Kunden bilden insert REFRESH lr_kunnr. insert LOOP AT r_kunnr FROM l_t_from TO l_t_to. lr_kunnr = r_kunnr. insert insert ENDLOOP. EXIT. + 1. = l_t_from + 50. insert * / KundenKurztexte lesen insert SELECT kunnr sortl FROM kna1 APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_kna1 insert insert insert ENDIF. ENDIF. DATA: l_sav_wrttp_text(30), l_sav_fwaer LIKE fmmpfwaer, l_sav_butxt LIKE t001butxt, l_sav_hide_row_type(4). max_budat = 0. 9999123139。LOOP AT g_t_fmmp. IF min_budat g_t_fmmpbudat . max_budat = g_t_fmmpbudat . ENDIF. l_sav_fwaer = g_t_fmmpfwaer. AT NEW fikrs. ENDLOOP. ENDAT. AT NEW bukrs. CHANGING g_t_t001butxt. LOOP AT int_cashflow. CLEAR int_cashflow_fkbtr. MODIFY TABLE int_cashflow. CLEAR int_cashflow. PERFORM input_range USING int_cashflowr_fipos. EQ39。 IF r_fiposlow = g_t_fmmpfipos. int_cashflowfi_fkbtr + g_t_fmmpfkbtr. int_cashflow_fkbtr = int_cashflow_fkbtr ENDIF. ENDIF. IF r_fiposoption = 39。. = int_cashflowfi_fkbtr + g_t_fmmpfkbtr. ENDLOOP. CLEAR int_cashflow. REFRESH r_fipos. ENDLOOP . AT END OF bukrs. PERFORM output_info USING 39。. IF num_of_bukrs NE 1. CLEAR l_sav_butxt. PERFORM output_info USING 39。. WRITE : / text103. ENDAT. IF NOT ( s_budatlow IS INITIAL ). min_budat = s_budatlow. IF NOT ( s_budathigh IS INITIAL ). max_budat = s_budathigh. SKIP 2. 現(xiàn) 流 表39。WRITE: /. 會(huì)年企03表39。IF min_budat(6) = max_budat(6). * WRITE: /104 min_budat(4), 39。, min_budat+4(2), 39。, * 202 39。. * 日期:39。 39。 報(bào)表編號(hào): 會(huì)商03表39。ENDIF. * 編制單位: 39。 100 年39。月39。 max_budat+6(2), 39。, 單位: 元39。WRITE: WRITE : /011 syvline, , 087 39。, 093 syvline, 額 , 148 39。, 192 39。, 198 syvline, 額39。 220 syvline. CHECK l_sav_hide_row_type = 39。. FM_DOCUMENT_DISPLAY39。 EXPORTING i_wrttp = g_t_fmmpwrttp i_belnr = g_t_fmmpzbelnr i_blpos = g_t_fmmpzbuzei i_bukrs = g_t_fmmpvo_bukrs i_gjahr = g_t_fmmpvo_gjahr. *********************************************************************** * AT USERCOMMAND. SELE39。 SET PFSTATUS 39。. FM_SELECTION_CRITERIA_PRINT39。 EXPORTING i_report_name = 39。 ENDCASE. *amp。 READ_FIKRS_TEXT *amp。 CHANGING c_fitxt. g_t_fkrsfikrs = u_fikrs. IF sysubrc = 0. c_fitxt = g_t_fkrsfitxt. * *amp。 Form * FORM read_fipos_text USING u_fipos g_t_fpos = space. READ TABLE g_t_fpos. ENDIF. ENDFORM. READ_FIPOS_TEXT *amp。 READ_BUKRS_TEXT *amp。 CHANGING c_butxt. g_t_t001bukrs = u_bukrs. IF sysubrc = 0. c_butxt = g_t_t001butxt. * *amp。 Form * FORM get_kunnr_lifnr_text USING value(u_kunnr) value(u_lifnr) CLEAR c_text. *39。 c_text = 39。. ELSE. * / Lesen DebitorText aus interner Tabelle g_t_kna1kunnr = u_kunnr. IF sysubrc = 0. c_text = g_t_kna1sortl. ENDIF. *39。 c_text = 39。. ELSE. * / Lesen KreditorText aus interner Tabelle g_t_lfa1lifnr = u_lifnr. IF sysubrc = 0. c_text = g_t_lfa1sortl. ENDIF. ENDFORM. GET_KUNNR_LIFNR_TEXT *********************************************************** FORM input_range USING value(rfipos). DATA: item(2
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1