利润中心利润表牵涉form(zfirp037).docVIP

利润中心利润表牵涉form(zfirp037) ** * Report ZFIRP37 * ** * * ** REPORT zfirp037 NO STANDARD PAGE HEADING LINE-SIZE 310. TABLES:faglflext,setnode,ska1,zlrb,zlrb_racct. INCLUDE ole2incl. TYPE-POOLS: slis. DATA:g_profit_cash TYPE c VALUE P. DATA: BEGIN OF it_item OCCURS 0, racct LIKE faglflext-racct, account drcrk LIKE faglflext-drcrk, debit/credit ryear LIKE faglflext-ryear, year rpmax LIKE faglflext-rpmax, year rbukrs LIKE faglflext-rbukrs, objnr00 LIKE faglflext-objnr00, objnr01 LIKE faglflext-objnr01, objnr02 LIKE faglflext-objnr02, objnr03 LIKE faglflext-objnr03, objnr04 LIKE faglflext-objnr04, objnr05 LIKE faglflext-objnr05, objnr06 LIKE faglflext-objnr06, objnr07 LIKE faglflext-objnr07, objnr08 LIKE faglflext-objnr08, hslvt LIKE faglflext-hslvt, hsl01 LIKE faglflext-hsl01, hsl02 LIKE faglflext-hsl02, hsl03 LIKE faglflext-hsl03, hsl04 LIKE faglflext-hsl04, hsl05 LIKE faglflext-hsl05, hsl06 LIKE faglflext-hsl06, hsl07 LIKE faglflext-hsl07, hsl08 LIKE faglflext-hsl08, hsl09 LIKE faglflext-hsl09, hsl10 LIKE faglflext-hsl10, hsl11 LIKE faglflext-hsl11, hsl12 LIKE faglflext-hsl12, hsl13 LIKE faglflext-hsl13, hsl14 LIKE faglflext-hsl14, hsl15 LIKE faglflext-hsl15, hsl16 LIKE faglflext-hsl16, END OF it_item. DATA: it_item1 LIKE TABLE OF it_item WITH HEADER LINE. DATA: it_zfi012 TYPE TABLE OF zfi012 WITH HEADER LINE. DATA: sumhsl(16) TYPE p DECIMALS 2. DATA: BEGIN OF it_tab OCCURS 0, racct LIKE faglflext-racct, drcrk LIKE faglflext-drcrk, ryear LIKE faglflext-ryear, rbukrs LIKE faglflext-rbukrs, s_hslvt LIKE sumhsl, h_hslvt LIKE sumhsl, s_hsl LIKE sumhsl, h_hsl LIKE sumhsl, s_month LIKE sumhsl, h_month LIKE sumhsl, END OF it_tab. DATA: BEGIN OF it_racct OCCURS 0, zc_index LIKE zlrb-zc_index, from_ra