【正文】 syvline, 118(60) int_cashflowdesc, zcashflow = int_cashflowfi_fkbtr. . ELSEIF fi_value = 39。 COM39。 READ TABLE int_cashflow INDEX l. IF i 3. ENDIF. WRITE: 099 zcashflow CURRENCY g_t_fmmpfwaer. i = i + 1. ENDIF. zcashflow = int_cashflowfi_fkbtr. FI39。 . IF fi_value = 39。LOOP AT int_cashflow FROM 1 TO 32. i = 0. DATA zcashflow LIKE fmmpfkbtr. APPEND r_fipos. ENDIF. str. . r_fiposoption = 39。 I39。r_fipossign ELSE. str. r_fiposhigh SHIFT item BY off PLACES. = r_fiposlow BT39。 . = 39。 off = off + 1. off = syfdpos. 39。 MOVE rfipos TO item. MOVE rfipos(offset) TO item. IF sysubrc = 0. . SEARCH rfipos FOR 39。SHIFT rfipos BY offset PLACES. WHILE doing 0. off = 0. offset = 0. DATA: off TYPE i, offset TYPE i, doing TYPE i. ENDIF. ENDIF. READ TABLE g_t_lfa1. g_t_lfa1 = space. *39。 . IF u_lifnr = 39。IF NOT u_lifnr IS INITIAL. ENDIF. ENDIF. READ TABLE g_t_kna1. g_t_kna1 = space. *39。 . IF u_kunnr = 39。IF NOT u_kunnr IS INITIAL. CHANGING c_text. GET_KUNNR_LIFNR_TEXT *amp。 READ_FIPOS_TEXT *amp。 ENDIF. ENDFORM. READ TABLE g_t_t001. g_t_t001 = space. * FORM read_bukrs_text USING u_bukrs Form * *amp。 c_pname = g_t_fpospname. IF sysubrc = 0. g_t_fposfipos = u_fipos. CHANGING c_pname. READ_FIPOS_TEXT *amp。 READ_FIKRS_TEXT *amp。 ENDIF. ENDFORM. READ TABLE g_t_fkrs. g_t_fkrs = space. * FORM read_fikrs_text USING u_fikrs Form * *amp。= 1. OTHERS EXCEPTIONS RFFMIEP539。 CALL FUNCTION 39。 SELE39。 . WHEN 39。CASE syum. CALL FUNCTION 39。EPOS39。WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. , 金 39。 行次39。 190 syvline, 補充資料39。 116 syvline, 39。金 095 39。 行次39。 085 syvline, 目39。 項 040 39。 /011 syuline. . 212 39。 日39。 , , max_budat+4(2), 39。max_budat(4), 39。 , l_sav_butxt, WRITE: /012 39。. * 202 39。 , 115 max_budat, * 103 min_budat, 113 39。 , * WRITE: /097 39。ELSE. * 報表編號: 會商03表39。 月39。年39。 . * WRITE: /210 39。. 量 金 WRITE: /100 39。ENDIF. ENDIF. ENDLOOP.TOPOFPAGE. ENDIF. FI39。 AT END OF fikrs. ENDAT. num_of_bukrs = num_of_bukrs + 1. COM39。 PERFORM cal_indirect USING g_t_fmmpbukrs. CLEAR r_fipos. MODIFY TABLE int_cashflow. ENDIF. ENDIF. int_cashflow_fkbtr = int_cashflow_fkbtr + g_t_fmmpfkbtr. int_cashflowfi_fkbtr g_t_fmmpfipos = r_fiposhigh. IF g_t_fmmpfipos = r_fiposlow AND BT39。 + g_t_fmmpfkbtr. = int_cashflowfi_fkbtr . IF r_fiposoption = 39。 LOOP AT r_fipos. LOOP AT int_cashflow. ENDAT. ENDLOOP. l_sav_butxt = g_t_t001butxt. PERFORM read_bukrs_text USING g_t_fmmpbukrs CLEAR int_cashflow. MODIFY TABLE int_cashflow. CLEAR int_cashflowfi_fkbtr. LOOP AT int_cashflow. IF max_budat g_t_fmmpbudat . ENDIF. min_budat = g_t_fmmpbudat . . min_budat = 39。num_of_bukrs = 0. INTO CORRESPONDING FIELDS OF TABLE g_t_t001. SELECT bukrs butxt FROM t001 insert ENDDO. WHERE kunnr IN lr_kunnr. insert l_t_to insert l_t_from = l_t_to insert ENDIF. insert insert IF sysubrc NE 0. insert APPEND lr_kunnr. insert DO. ELSE. WHERE kunnr IN r_kunnr. INTO CORRESPONDING FIELDS OF TABLE g_t_kna1 insert IF l_t_lines = 50. insert . LOOP AT r_kunnr WHERE low = 39。IF NOT r_kunnr IS INITIAL. insert ENDDO. WHERE lifnr IN lr_lifnr. insert l_t_to insert l_t_from = l_t_to insert ENDIF. insert insert IF sysubrc NE 0. insert APPEND lr_lifnr. insert DO. ELSE. WHERE lifnr IN r_lifnr. INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 insert / LieferantenKurztexte auf einmal einlesen insert * DESCRIBE TABLE r_lifnr LINES l_t_lines. ENDLOOP. DELETE r_lifnr. *39。 l_t_lines LIKE sytabix. * / Lesen KreditorenTexte aus StammdatenTabelle LIKE sytabix VALUE 50, l_t_to LIKE sytabix VALUE 1, lr_kunnr FOR kna1kunnr. vo_saknr. zbelnr perio wrttp bukrs ENDIF. ENDOFSELECTION. EQ39。 I39。r_lifnrsign IF NOT fmmplifnr IS INITIAL. COLLECT r_kunnr. = fmmpkunnr. r_kunnrlow . r_kunnroption = 39。. = 39。 APPEND g_t_fmmp. g_t_fmmp