在SAP中用承诺项目出现金流量表(报表开发源代码)(.pdf

在SAP中用承诺项目出现金流量表（报表开发源代码）可能使用到的外部数据 或 SAP数据表数据的格式、字段等：f k r s 财务管理范围主记录表 f o p s 承诺项目主记录表 f m m p 现金预算管理行项目表 l f a 1 供应商主记录表 k n a 1 客户主记录表 b s i s 总帐未清项表 t 001 公司代码主记录表 u s r 21 用户主记录表 a d r p 用户地址表 b k p f 财务凭证抬头表 b s e g 财务凭证行项目表 g l t 0 总帐科目期间余额表 直接法通过分析凭证的承诺项目来取数，SAP为该项功能定义了一个逻辑数据库C1F.本程序 开始部分的逻辑数据库取数部分是SAP的标准程序，其功能是将与现金流量相关的数据装入内部表 G_T_FMMP,这部分程序禁止修改。直接法：1、装入金流量表定义参数（FORM f i l l _i t e m _d i r e c t）该子程序将的现金流量表项和其对应的承诺项目装入内部表INT_CASHFLOW.2、装入与现金流量相关的数据 这部分是逻辑数据库装入，属于SAP标准程序，数据关系比较复杂，建议不要做任何改动。3、计算现金流量 计算的基本思路是对表G_T_FMMP进行循环，查找其中每条记录的承诺项目属于INT_CASHFLOW的 表项后，把其金额累计到相应表项。REPORT z c m r p 001 NO STANDARD PAGE HEADING LINE-SIZE 220.TABLES:f k r s,f p o s,f m m p,l f a 1,k n a 1,b s i s,t 001,u s r 21,a d r p,b k p f,b s e g,g l t 0.DATA:BEGIN OF g _t _f m m p OCCURS 300,f i k r s LIKE f m m p-f i k r s,b u k r s LIKE f m m p-b u k r s,f i p o s LIKE f m m p-f i p o s,w r t t p LIKE f m m p-w r t t p,g j a h r LIKE f m m p-g j a h r,p e r i o LIKE f m m p-p e r i o,z h l d t LIKE f m m p-z h l d t,b u d a t LIKE f m m p-b u d a t,g s b e r LIKE f m m p-g s b e r,v o _s a k n r LIKE f m m p-v o _s a k n r,l i f n r LIKE f m m p-l i f n r,k u n n r LIKE f m m p-k u n n r,f w a e r LIKE f m m p-f w a e r,f k b t r LIKE f m s u-b t r 001,z b e l n r LIKE c o o i-r e f b n,p a g e 1 z b u z e i LIKE c o o i-r f p o s,v o _b u k r s LIKE f m m p-v o _b u k r s,v o _g j a h r LIKE f m m p-v o _g j a h r,f i t x t LIKE f k r s-f i t x t,f n a m e LIKE f f n d-f n a m e,c n a m e LIKE f c t r-c n a m e,p n a m e LIKE f p o s-p n a m e,w t e x t LIKE f m m p-w t e x t,END OF g _t _f m m p.DATA:BEGIN OF g _t _f k r s OCCURS 20,f i k r s LIKE f k r s-f i k r s,f i t x t LIKE f k r s-f i t x t,END OF g _t _f k r s.DATA:BEGIN OF g _t _f p o s OCCURS 200,f i p o s LIKE f p o s-f i p o s,p n a m e LIKE f p o s-p n a m e,END OF g _t _f p o s.DATA:BEGIN OF g _t _l f a 1 OCCURS 200,l i f n r LIKE l f a 1-l i f n r,s o r t l LIKE l f a 1-s o r t l,END OF g _t _l f a 1.DATA:BEGIN OF g _t _k n a 1 OCCURS 200,k u n n r LIKE k n a 1-k u n n r,s o r t l LIKE k n a 1-s o r t l,END OF g _t _k n a 1.RANGES:r _k u n n r FOR k n a 1-k u n n r,r _l i f n r FOR l f a 1-l i f n r,r _f i p o s FOR f m m p-f i p o s.DATA:BEGIN OF i n t _c a s h f l o w OCCURS 100,d e s c(66)TYPE c,r _f i p o s(66)TYPE c,c o m _f k b t r LIKE f m m p-f k b t r,f i _f k b t r LIKE f m m p-f k b t r,f i _f w a e r LIKE f m m p-f w a e r,END OF i n t _c a s h f l o w.DATA:BEGIN OF g _t _t 001 OCCURS 300,b u k r s LIKE t 001-b u k r s,b u t x t LIKE t 001-b u t x t,END OF g _t _t 001.DATA:p o s TYPE i VALUE 0,n u m _o f _b u k r s TYPE i VALUE 0.p a g e 2DATA c a s h f l o w _d e t a i l.DATA:m i n _b u d a t LIKE f m m p-b u d a t,m a x _b u d a t LIKE f m m p-b u d a t,z _m i n _b u d a t LIKE s y-d a t u m,z _m a x _b u d a t LIKE s y-d a t u m,z _b u k r s LIKE f m m p-b u k r s,z _p r o f i t LIKE b s e g-d m b t r,净利润 z _b a d _d e b i t LIKE b s e g-d m b t r,坏帐准备及计提的资产减值准备 z _a s s e t _d e p LIKE b s e g-d m b t r,固定资产折旧 z _i n t a n g _d e p LIKE b s e g-d m b t r,无形资产摊销 z _l o n g p a i d _d e p LIKE b s e g-d m b t r,长期待摊费用摊销 z _p a i d _d e c LIKE b s e g-d m b t r,待摊费用减少 z _a c c r u l _i n c LIKE b s e g-d m b t r,预提费用增加 z _a s s e t _p r o LIKE b s e g-d m b t r,固定资产，长期资产处置损失 z a s s e t _s c r LIKE b s e g-d m b t r,固定资产报废损失 z _f i _e x p e n LIKE b s e g-d m b t r,财务费用 z _i n v e s t _l o s s LIKE b s e g-d m b t r,投资损失 z _d e f e r _t a x LIKE b s e g-d m b t r,递延税款贷项 z _s t o c k LIKE b s e g-d m b t r,存货减少 z _a r LIKE b s e g-d m b t r,经营性应收减少 z _a p LIKE b s e g-d m b t r,经营性应付增加 z _o t h e r LIKE b s e g-d m b t r,其他 z _p r o d u c t i o n LIKE b s e g-d m b t r,经营活动产生的现金净额 z _l o s s LIKE b s e g-d m b t r,总公司下拨弥补亏损 z _a s s e t _d e b i t LIKE b s e g-d m b t r,以固定资产偿还债务 z _i n v e s t _d e b i t LIKE b s e g-d m b t r,以投资偿还债务 z _a s s e t _i n v e s t LIKE b s e g-d m b t r,以固定资产投资 z _s t o c k _d e b i t LIKE b s e g-d m b t r,以存货偿还债务 z _a s s e t _r e n t e d LIKE b s e g-d m b t r,融资租赁固定资产 z _d o n a t i o n LIKE b s e g-d m b t r,接受捐赠非现金资产 z _d e b i t _s h o r t LIKE b s e g-d m b t r,偿还的经营性债务 z _d e b i t _e q u i t LIKE b s e g-d m b t r,债务转为资本 z _b o n d _d u e LIKE b s e g-d m b t r,一年内到期的可转换公司债券 z _m o n e y _i n i t LIKE b s e g-d m b t r,货币资金期初余额 z _m o n e y _e n d LIKE b s e g-d m b t r,货币资金期末余额 z _c a s h s _i n i t LIKE b s e g-d m b t r,现金等价物期初余额 z _c a s h s _e n d LIKE b s e g-d m b t r,现金等价物期末余额 z _a l l _m o n e y LIKE b s e g-d m b t r.货币资金及现金等价物净变动 DATA:BEGIN OF i t b 0 OCCURS 0,t x t(70)TYPE c,n u m LIKE b s e g-d m b t r,END OF i t b 0,m t x t(70)TYPE c.*INITIALIZATION.PERFORM f i l l _i t e m _d i r e c t.*START-OF-SELECTION.GET f k r s.g _t _f k r s-f i k r s =f k r s-f i k r s.p a g e 3 g _t _f k r s-f i t x t f k r s-f i t x t.APPEND g _t _f k r s.GET f p o s.g _t _f p o s-f i p o s =f p o s-f i p o s.g _t _f p o s-p n a m e =f p o s-p n a m e.COLLECT g _t _f p o s.GET f m m p.MOVE-CORRESPONDING f m m p TO g _t _f m m p.CASE f m m p-w r t t p.WHEN 50 OR 51.p u r c h a s e o r d e r g _t _f m m p-z b e l n r =f m m p-e b e l n.g _t _f m m p-z b u z e i =f m m p-e b e l p.WHEN 64.p a y m e n t t r a n s f e r g _t _f m m p-z b e l n r =f m m p-k b l n r.g _t _f m m p-z b u z e i =f m m p-k b l p o s.WHEN 65.f u n d s c o m m i t m e n t s g _t _f m m p-z b e l n r =f m m p-k b l n r.g _t _f m m p-z b u z e i =f m m p-k b l p o s.WHEN OTHERS.Fi d o c u m e n t s g _t _f m m p-z b e l n r =f m m p-v o _b e l n r.g _t _f m m p-z b u z e i =f m m p-v o _b u z e i.ENDCASE.APPEND g _t _f m m p.IF NOT f m m p-k u n n r IS INITIAL.r _k u n n r-s i g n =I.r _k u n n r-o p t i o n =EQ.r _k u n n r-l o w =f m m p-k u n n r.COLLECT r _k u n n r.ENDIF.IF NOT f m m p-l i f n r IS INITIAL.r _l i f n r-s i g n =I.r _l i f n r-o p t i o n =EQ.r _l i f n r-l o w =f m m p-l i f n r.COLLECT r _l i f n r.ENDIF.END-OF-SELECTION.SORT g _t _f m m p BY f i k r s b u k r s f i p o s w r t t p g j a h r p e r i o z h l d t z b e l n r z b u z e i b u k r s v o _s a k n r.RANGES:l r _l i f n r FOR l f a 1-l i f n r,l r _k u n n r FOR k n a 1-k u n n r.DATA:l _c n t _f r o m LIKE s y-t a b i x VALUE 1,l _c n t _t o LIKE s y-t a b i x VALUE 50,l _c n t _l i n e s LIKE s y-t a b i x.p a g e 4*/Le s e n Kr e d i t o r e n-Te x t e a u s St a m m d a t e n-Ta b e l l e IF NOT r _l i f n r IS INITIAL.LOOP AT r _l i f n r WHERE l o w =*.DELETE r _l i f n r.ENDLOOP.DESCRIBE TABLE r _l i f n r LINES l _c n t _l i n e s.-i n s e r t IF l _c n t _l i n e s =50.-i n s e r t */Li e f e r a n t e n-Ku r z t e x t e a u f e i n m a l e i n l e s e n -i n s e r t SELECT l i f n r s o r t l FROM l f a 1 INTO CORRESPONDING FIELDS OF TABLE g _t _l f a 1 WHERE l i f n r IN r _l i f n r.ELSE.-i n s e r t */Li e f e r a n t e n-Ku r z t e x t e i n Bl o e c k e n e i n l e s e n -i n s e r t DO.-i n s e r t */Bl o e c k e z u j e 50 Le f e r a n t e n b i l d e n -i n s e r t REFRESH l r _l i f n r.-i n s e r t LOOP AT r _l i f n r FROM l _c n t _f r o m TO l _c n t _t o.-i n s e r t l r _l i f n r =r _l i f n r.-i n s e r t APPEND l r _l i f n r.-i n s e r t ENDLOOP.-i n s e r t IF s y-s u b r c NE 0.-i n s e r t EXIT.-i n s e r t ENDIF.-i n s e r t l _c n t _f r o m =l _c n t _t o +1.-i n s e r t l _c n t _t o =l _c n t _f r o m +50.-i n s e r t */Li e f e r a n t e n-Ku r z t e x t e l e s e n -i n s e r t SELECT l i f n r s o r t l FROM l f a 1 -i n s e r t APPENDING CORRESPONDING FIELDS -i n s e r t OF TABLE g _t _l f a 1 -i n s e r t WHERE l i f n r IN l r _l i f n r.-i n s e r t ENDDO.-i n s e r t ENDIF.-i n s e r t ENDIF.*/Le s e n De b i t o r e n-Te x t e a u s St a m m d a t e n-Ta b e l l e IF NOT r _k u n n r IS INITIAL.LOOP AT r _k u n n r WHERE l o w =*.DELETE r _k u n n r.ENDLOOP.DESCRIBE TABLE r _k u n n r LINES l _c n t _l i n e s.-i n s e r t IF l _c n t _l i n e s =50.-i n s e r t */Ku n d e n-Ku r z t e x t e a u f e i n m a l e i n l e s e n -i n s e r t SELECT k u n n r s o r t l FROM k n a 1 INTO CORRESPONDING FIELDS OF TABLE g _t _k n a 1 WHERE k u n n r IN r _k u n n r.ELSE.-i n s e r t */Ku n d e n-Ku r z t e x t e i n Bl o e c k e n e i n l e s e n -i n s e r t DO.-i n s e r t */Bl o e c k e z u j e 50 Ku n d e n b i l d e n -i n s e r t REFRESH l r _k u n n r.-i n s e r t LOOP AT r _k u n n r FROM l _c n t _f r o m TO l _c n t _t o.-i n s e r t p a g e 5 l r _k u n n r =r _k u n n r.-i n s e r t APPEND l r _k u n n r.-i n s e r t ENDLOOP.-i n s e r t IF s y-s u b r c NE 0.-i n s e r t EXIT.-i n s e r t ENDIF.-i n s e r t l _c n t _f r o m =l _c n t _t o +1.-i n s e r t l _c n t _t o =l _c n t _f r o m +50.-i n s e r t */Ku n d e n-Ku r z t e x t e l e s e n -i n s e r t SELECT k u n n r s o r t l FROM k n a 1 -i n s e r t APPENDING CORRESPONDING FIELDS -i n s e r t OF TABLE g _t _k n a 1 -i n s e r t WHERE k u n n r IN l r _k u n n r.-i n s e r t ENDDO.-i n s e r t ENDIF.g _t _f m m p-b u d a t .m i n _b u d a t =g _t _f m m p-b u d a t .ENDIF.IF m a x _b u d a t =r _f i p o s-l o w AND g _t _f m m p-f i p o s =r _f i p o s-h i g h.i n t _c a s h f l o w-f i _f k b t r =i n t _c a s h f l o w-f i _f k b t r +g _t _f m m p-f k b t r.i n t _c a s h f l o w-c o m _f k b t r =i n t _c a s h f l o w-c o m _f k b t r +g _t _f m m p-f k b t r.ENDIF.ENDIF.ENDLOOP.MODIFY TABLE i n t _c a s h f l o w.CLEAR i n t _c a s h f l o w.CLEAR r _f i p o s.REFRESH r _f i p o s.ENDLOOP.AT END OF b u k r s.PERFORM c a l _i n d i r e c t USING g _t _f m m p-b u k r s.PERFORM o u t p u t _i n f o USING COM.n u m _o f _b u k r s =n u m _o f _b u k r s +1.ENDAT.AT END OF f i k r s.IF n u m _o f _b u k r s NE 1.CLEAR l _s a v _b u t x t.PERFORM o u t p u t _i n f o USING FI.ENDIF.WRITE:/t e x t-103.ENDAT.ENDLOOP.TOP-OF-PAGE.p a g e 7 IF NOT(s _b u d a t-l o w IS INITIAL).m i n _b u d a t =s _b u d a t-l o w.ENDIF.IF NOT(s _b u d a t-h i g h IS INITIAL).m a x _b u d a t =s _b u d a t-h i g h.ENDIF.SKIP 2.WRITE:/100 现 金 流 量 表.WRITE:/.WRITE:/210 会年企03表.*IF m i n _b u d a t(6)=m a x _b u d a t(6).*WRITE:/104 m i n _b u d a t(4),年,m i n _b u d a t+4(2),月,*202 报表编号:会商03表.*ELSE.*WRITE:/097 日期:,*103 m i n _b u d a t,113-,115 m a x _b u d a t,*202 报表编号:会商03表.*ENDIF.*WRITE:/012 编制单位:,l _s a v _b u t x t,100 m a x _b u d a t(4),年,m a x _b u d a t+4(2),月,m a x _b u d a t+6(2),日,212 单位:元.WRITE:/011 s y-u l i n e.WRITE:/011 s y-v l i n e,040 项 目,085 s y-v l i n e,087 行次,093 s y-v l i n e,095 金 额 ,116 s y-v l i n e,148 补充资料,190 s y-v l i n e,192 行次,198 s y-v l i n e,金 额,220 s y-v l i n e.WRITE:/011 s y-u l i n e.*AT LINE-SELECTION.CHECK l _s a v _h i d e _r o w _t y p e =EPOS.CALL FUNCTION FM_DOCUMENT_DISPLAY EXPORTING i _w r t t p =g _t _f m m p-w r t t p i _b e l n r =g _t _f m m p-z b e l n r i _b l p o s =g _t _f m m p-z b u z e i i _b u k r s =g _t f m m p-v o _b u k r s i _g j a h r =g _t _f m m p-v o _g j a h r.*AT USER-COMMAND.p a g e 8 CASE s y-u c o m m.WHEN SELE.SET PF-STATUS SELE.CALL FUNCTION FM_SELECTION_CRITERIA_PRINT EXPORTING i _r e p o r t _n a m e =RFFMIEP5 EXCEPTIONS OTHERS =1.ENDCASE.*&-*&Fo r m READ_FIKRS_TEXT*&-*FORM r e a d _f i k r s _t e x t USING u _f i k r s CHANGING c _f i t x t.g _t _f k r s =s p a c e.g _t _f k r s-f i k r s =u _f i k r s.READ TABLE g _t _f k r s.IF s y-s u b r c =0.c _f i t x t =g _t _f k r s-f i t x t.ENDIF.ENDFORM.READ_FIKRS_TEXT*&-*&Fo r m READ_FIPOS_TEXT*&-*FORM r e a d _f i p o s _t e x t USING u _f i p o s CHANGING c _p n a m e.g _t _f p o s =s p a c e.g _t _f p o s-f i p o s =u _f i p o s.READ TABLE g _t _f p o s.IF s y-s u b r c =0.c _p n a m e =g _t _f p o s-p n a m e.ENDIF.ENDFORM.READ_FIPOS_TEXT*&-*&Fo r m READ_BUKRS_TEXT*&-*FORM r e a d _b u k r s _t e x t USING u _b u k r s CHANGING c _b u t x t.g _t _t 001=s p a c e.g _t _t 001-b u k r s =u _b u k r s.READ TABLE g _t _t 001.p a g e 9 IF s y-s u b r c =0.c _b u t x t =g _t _t 001-b u t x t.ENDIF.ENDFORM.READ_FIPOS_TEXT*&-*&Fo r m GET_KUNNR_LIFNR_TEXT*&-*FORM g e t _k u n n r _l i f n r _t e x t USING v a l u e(u _k u n n r)v a l u e(u _l i f n r)CHANGING c _t e x t.CLEAR c _t e x t.IF NOT u _k u n n r IS INITIAL.IF u _k u n n r =*.c _t e x t =*.ELSE.*/Le s e n De b i t o r-Te x t a u s i n t e r n e r Ta b e l l e g _t _k n a 1=s p a c e.g _t _k n a 1-k u n n r =u _k u n n r.READ TABLE g _t _k n a 1.IF s y-s u b r c =0.c _t e x t =g _t _k n a 1-s o r t l.ENDIF.ENDIF.ENDIF.IF NOT u _l i f n r IS INITIAL.IF u _l i f n r =*.c _t e x t =*.ELSE.*/Le s e n Kr e d i t o r-Te x t a u s i n t e r n e r Ta b e l l e g _t _l f a 1=s p a c e.g _t _l f a 1-l i f n r =u _l i f n r.READ TABLE g _t _l f a 1.IF s y-s u b r c =0.c _t e x t =g _t _l f a 1-s o r t l.ENDIF.ENDIF.ENDIF.ENDFORM.GET_KUNNR_LIFNR_TEXT*FORM i n p u t _r a n g e USING v a l u e(r f i p o s).DATA:o f f TYPE i,o f f s e t TYPE i,d o i n g TYPE i.DATA:i t e m(20),s t r(10).o f f =0.o f f s e t =0.d o i n g =1.WHILE d o i n g 0.p a g e 10 SHIFT r f i p o s BY o f f s e t PLACES.SEARCH r f i p o s FOR,.IF s y-s u b r c =0.o f f s e t =s y-f d p o s.MOVE r f i p o s(o f f s e t)TO i t e m.o f f s e t =o f f s e t +1.ELSE.MOVE r f i p o s TO i t e m.d o i n g =0.ENDIF.SEARCH i t e m FOR-.IF s y-s u b r c =0.o f f =s y-f d p o s.MOVE i t e m(o f f)TO s t r.o f f =o f f +1.r _f i p o s-s i g n =I.r _f i p o s-o p t i o n =BT.r _f i p o s-l o w =s t r.SHIFT i t e m BY o f f PLACES.MOVE i t e m TO s t r.r _f i p o s-h i g h =s t r.ELSE.MOVE i t e m TO s t r.r _f i p o s-s i g n =I.r _f i p o s-o p t i o n =EQ.r _f i p o s-l o w =s t r.ENDIF.APPEND r _f i p o s.ENDWHILE.ENDFORM.*FORM o u t p u t _i n f o USING f i _v a l u e.DATA z c a s h f l o w LIKE f m m p-f k b t r.DATA:i LIKE s y-t a b i x,j LIKE s y-t a b i x,k LIKE s y-t a b i x,l LIKE s y-t a b i x.i =0.j =0.k =32.LOOP AT i n t _c a s h f l o w FROM 1 TO 32.IF f i _v a l u e =COM.z c a s h f l o w =i n t _c a s h f l o w-c o m _f k b t r.ELSEIF f i _v a l u e =FI.z c a s h f l o w =i n t _c a s h f l o w-f i _f k b t r.p a g e 11 ENDIF.i =i +1.j =j +1.k =k +1.WRITE:/011 s y-v l i n e,014 i n t _c a s h f l o w-d e s c,085 s y-v l i n e,088(2)i,093 s y-v l i n e.IF z c a s h f l o w 0.WRITE:099 z c a s h f l o w CURRENCY g _t _f m m p-f w a e r.ENDIF.IF i 3.l =i +32.READ TABLE i n t _c a s h f l o w INDEX l.IF f i _v a l u e =COM.z c a s h f l o w =i n t _c a s h f l o w-c o m _f k b t r.ELSEIF f i _v a l u e =FI.z c a s h f l o w =i n t _c a s h f l o w-f i _f k b t r.ENDIF.WRITE:116 s y-v l i n e,118(60)i n t _c a s h f l o w-d e s c,190 s y-v l i n e,193(2)k,198 s y-v l i n e.IF z c a s h f l o w 0.WRITE:204 z c a s h f l o w CURRENCY g _t _f m m p-f w a e r.ENDIF.ELSE.l =i -2.READ TABLE i t b 0 INDEX l.IF s y-s u b r c 0.CLEAR i t b 0.ENDIF.WRITE:116 s y-v l i n e,118(60)i t b 0-t x t,190 s y-v l i n e,193(2)k,198 s y-v l i n e.IF i t b 0-n u m 0.WRITE:204 i t b 0-n u m CURRENCY g _t _f m m p-f w a e r.ENDIF.ENDIF.WRITE:220 s y-v l i n e.WRITE:/011 s y-u l i n e.IF j =25.j =0.PERFORM o u t _f o o t e r.NEW-PAGE.ENDIF.ENDLOOP.PERFORM o u t _f o o t e r.EN