一、企业损益状况分析的目标功能

掌握某集团各类活动现金流入流出占企业全部现金流入流出等比重状况，确定重点关注的企业及事项。

二、所需数据

该方法所需数据属于《中央企业审计数据规划》的范畴。所需数据资料见下表。数据表和数据元素如下：

（1）基础表：现金流量表（AFA31/0004）。数据元素：企业代码、企业名称、会计年度、现金流入流出项目、现金流入流出金额。

三、分析步骤

（1）将中央企业数据库中集团公司本部及所属主要企业的现金流量表行转列，形成现金流量转换表。

（2）计算每户企业的经营、投资等各类活动的结构比重，形成现金流量结构比重表。

（3）结合审计经验，编写查询语句分析现金流量结构比重表，一是根据正常企业经营活动现金流入占现金流入总额的比重一般高于0.5，筛选低于该值的企业；二是根据经营活动现金净流量是企业最稳定、最可靠的现金来源，筛选经营活动产生的现金流量净额占企业现金流量净额的比重小于0.5的企业；三是根据筹资活动现金净流量一般会对企业现金净流量增加形成有益补充，若出现相反的情况，企业可能存在集中偿还债务等风险，筛选筹资活动产生的现金流量净额占企业现金流量净额的比重为负的企业。

四、流程图

五、方法语言方法ASL语言描述

Var Cx,Bz,Je;

begin

//步骤一 形成“现金流量转换表”。

CreateTempTable('现金流量转换表','select企业代码,企业名称,会计年度,经营活动现金流入金额=sum(case现金流入流出项目when''经营活动现金流入小计''then现金流入流出金额end),投资活动现金流入金额=sum(case现金流入流出项目when''投资活动现金流入小计''then现金流入流出金额end),筹资活动现金流入金额=sum(case现金流入流出项目when''筹资活动现金流入小计''then现金流入流出金额end),现金流入总额=sum(case现金流入流出项目when''经营活动现金流入小计''then现金流入流出金额end)+sum(case现金流入流出项目when''投资活动现金流入小计''then现金流入流出金额end)+sum(case现金流入流出项目when ''筹资活动现金流入小计''then现金流入流出金额end),经营活动现金流出金额=sum(case现金流入流出项目when''经营活动现金流出小计''then现金流入流出金额end),投资活动现金流出金额=sum(case现金流入流出项目when''投资活动现金流出小计''then现金流入流出金额end),筹资活动现金流出金额=sum(case现金流入流出项目when''筹资活动现金流出小计''then现金流入流出金额end),现金流出总额=sum(case现金流入流出项目when''经营活动现金流出小计''then现金流入流出金额end)+sum(case现金流入流出项目when''投资活动现金流出小计''then现金流入流出金额end)+sum(case现金流入流出项目when''筹资活动现金流出小计''then现金流入流出金额end),经营活动产生的现金流量净额=sum(case现金流入流出项目when''经营活动产生的现金流量净额''then现金流入流出金额end),投资活动产生的现金流量净额=sum(case现金流入流出项目when''投资活动产生的现金流量净额''then现金流入流出金额end),筹资活动产生的现金流量净额=sum(case现金流入流出项目when''筹资活动产生的现金流量净额''then现金流入流出金额end),汇率变动对现金及现金等价物的影响=sum(case现金流入流出项目when''四、汇率变动对现金及现金等价物的影响''then现金流入流出金额end),现金及现金等价物净增加额=sum(case现金流入流出项目when''五、现金及现金等价物净增加额''then现金流

入流出金额end)from AFA31/0004现金流量表〕group by企业代码,企业名称,会计年度');

//步骤二 形成“现金流量结构比重表”。

CreateTempTable('现金流量结构比重表','select企业代码,企业名称,会计年度,经营活动流入占现金流入总额的比重=经营活动现金流入金额/现金流入总额,投资活动流入占现金流入总额的比重=投资活动现金流入金额/现金流入总额,筹资活动流入占现金流入总额的比重=筹资活动现金流入金额/现金流入总额,经营活动流出占现金流出总额的比重=经营活动现金流出金额/现金流出总额,投资活动流出占现金流出总额的比重=投资活动现金流出金额/现金流出总额,筹资活动流出占现金流出总额的比重=筹资活动现金流出金额/现金流出总额,经营活动产生的现金流量净额占企业现金流量净额的比重=case when现金及现金等价物净增加额>0 then经营活动产生的现金流量净额/现金及现金等价物净增加额else经营活动产生的现金流量净额/abs(现金及现金等价物净增加额)end,投资活动产生的现金流量净额占企业现金流量净额的比重=case when现金及现金等价物净增加额>0 then投资活动产生的现金流量净额/现金及现金等价物净增加额else投资活动产生的现金流量净额/abs(现金及现金等价物净增加额)end,筹资活动产生的现金流量净额占企业现金流量净额的比重=case when现金及现金等价物净增加额>0 then筹资活动产生的现金流量净额/现金及现金等价物净增加额else筹资活动产生的现金流量净额/abs(现金及现金等价物净增加额)end,汇率变动对现金及现金等价物的影响占企业现金流量净额的比重=case when现金及现金等价物净增加额>0 then汇率变动对现金及现金等价物的影响/现金及现金等价物净增加额else汇率变动对现金及现金等价物的影响/abs(现金及现金等价物净增加额)end from现金流量转换表where现金及现金等价物净增加额<>0 and现金流出总额<>0 and现金流入总额<>0');

//步骤三 编写查询语句分析“现金流量结构比重表”。

Cx:=CreateQ('select from现金流量结构比重表',-1);

Bz:=Qeof(Cx);

while Bz<>1 do

begin

Je:=QFDValue(Cx,'经营活动产生的现金流量净额占企业现金流量净额的比重');

if Je<0.5 then AddTransRslt(Cx,'正常企业经营活动现金流入占现金流入总额的比重一般高于0.5');

Bz:=Qmov(Cx,1);

Bz:=Qeof(Cx);

end;

TransBatch(Cx,'正常企业经营活动现金流入占现金流入总额的比重一般高于0.5');

Cx:=CreateQ('selectfrom现金流量结构比重表',-1);

Bz:=Qeof(Cx);

while Bz<>1 do

begin

Je:=QFDValue(Cx,'经营活动产生的现金流量净额占企业现金流量净额的比重');

if Je<0.5 then AddTransRslt(Cx,'经营活动产生的现金流量净额占企业现金流量净额的比重小于0.5的企业');

Bz:=Qmov(Cx,1);

Bz:=Qeof(Cx);

end;

TransBatch(Cx,'经营活动产生的现金流量净额占企业现金流量净额的比重一般高于0.5');

Cx:=CreateQ('selectfrom现金流量结构比重表',-1);

Bz:=Qeof(Cx);

while Bz<>1 do

begin

Je:=QFDValue(Cx,'筹资活动产生的现金流量净额占企业现金流量净额的比重');

if Je<0 then AddTransRslt(Cx,'筛选筹资活动产生的现金流量净额占企业现金流量净额的比重为负的企业');

Bz:=Qmov(Cx,1);

Bz:=Qeof(Cx);

end;

TransBatch(Cx,'筛选筹资活动产生的现金流量净额占企业现金流量净额的比重为负的企业');

End.

参考文献

《中央企业计算机审计方法体系—计算机审计实务公告第31号》