1、炒股盈虧審計方法1. 審計事項企業(yè)審計利潤利潤的真實性和完整性2. 方法名稱炒股盈虧審計方法3. 目標功能審計目標：檢查某一特定期間炒股盈虧核算的的真實性、完整性、合法性，以及控制的有效性。審計功能：通過對被審計單位在證券公司所開設(shè)的證券交易賬戶的資金流水明細記錄、歷史成交流水記錄和截止審計日的資金股票結(jié)存記錄的審查，分析計算被審計單位特定會計期間（如某一會計年度、單位領(lǐng)導人經(jīng)濟責任期間）的證券交易的盈虧金額，通過與會計賬簿的投資收益等科目的核對，以審查炒股盈虧會計核算是否真實完整、合法合規(guī)，分析其資產(chǎn)的保值增值情況。4. 所需數(shù)據(jù)炒股盈虧審計方法所需數(shù)據(jù)資料見下表。序號數(shù)據(jù)資料名稱結(jié)構(gòu)化非結(jié)

2、構(gòu)化半結(jié)構(gòu)化1資金明細表2歷史成交表3資金股票表4結(jié)存股票相應起止日的收盤價（1）基礎(chǔ)表：資金明細表(FB /0001)。數(shù)據(jù)元素：日期，摘要，證券代碼，證券名稱，操作，成交數(shù)量，成交均價，發(fā)生金額，手續(xù)費，印花稅，其他雜費，本次金額，合同編號，交易市場，股東帳戶。（2）基礎(chǔ)表：歷史成交表(FB /0001)。數(shù)據(jù)元素：序號，成交日期，成交時間，證券代碼，證券名稱，操作，成交數(shù)量，成交均價，成交金額，合同編號，發(fā)生金額，備注，交易市場，股東帳戶。（3）基礎(chǔ)表：資金股票表(FB /0003)。數(shù)據(jù)元素：證券代碼，證券名稱，股票余額，可用余額，成本價，買入均價，市價，市值，浮動盈虧，盈虧比()，實

3、現(xiàn)盈虧，交易市場，股東帳戶。（4）結(jié)存股票相應起止日的收盤價(FB /0004)。數(shù)據(jù)元素：證券代碼，證券名稱，市值。5. 分析步驟1炒股盈虧審計方法的ER模型構(gòu)建 炒股盈虧審計方法的實體和關(guān)系如下：實體1：資金股票表實體2：歷史成交表實體3：資金明細表關(guān)系1：買入或賣出股票關(guān)系2：撥入或撥出資金2炒股盈虧審計方法的數(shù)據(jù)模型構(gòu)建實體及關(guān)系數(shù)據(jù)元素實體關(guān)系數(shù)據(jù)元素資金明細表日期，摘要，證券代碼，證券名稱，操作，成交數(shù)量，成交均價，發(fā)生金額，手續(xù)費，印花稅，其他雜費，本次金額，合同編號，交易市場，股東帳戶歷史成交表序號，成交日期，成交時間，證券代碼，證券名稱，操作，成交數(shù)量，成交均價，成交金額，合

4、同編號，發(fā)生金額，備注，交易市場，股東帳戶資金股票表證券代碼，證券名稱，股票余額，可用余額，成本價，買入均價，市價，市值，浮動盈虧，盈虧比()，實現(xiàn)盈虧，交易市場，股東帳戶結(jié)存股票相應起止日的收盤價證券代碼，證券名稱，市值。3炒股盈虧審計方法的分析步驟（1）歷史成交表記錄和資金股票表記錄，得出有關(guān)證券代碼。（2）根據(jù)資金股票表的股票結(jié)存數(shù)，歷史成交表記錄的當期買賣記錄，計算出審計所需時點的證券結(jié)存數(shù)量。（3）根據(jù)結(jié)存數(shù)量，通過證券交易軟件查出相應時點的股票收盤價，計算審計所需期間盈虧。6. 流程圖7. 方法語言（一）用SQL語句描述如下：（1）歷史成交表記錄和資金股票表記錄，得出有關(guān)證券代碼。

5、select distinct 證券代碼 into 代碼表 from (select 證券代碼 from 資金股票表 union all select 證券代碼 from 歷史成交表) a（2）計算涉及到的證券代碼生成過渡表temp1select a.證券代碼,a.買入數(shù)量,b.賣出數(shù)量 into temp1 from (select 證券代碼,sum(成交數(shù)量) as 買入數(shù)量 from 歷史成交表 where 成交日期>20100101 and 操作 like '買入'and (發(fā)生金額<>0 or 備注 not like '%配號%')

6、group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出數(shù)量 from 歷史成交表 where 成交日期>20100101 and 操作 like '賣出'and (發(fā)生金額<>0 or 備注 not like '%配號%') group by 證券代碼) b on a.證券代碼=b.證券代碼（3）計算涉及到的證券代碼生成過渡表temp2select a.證券代碼,aa.股票余額 into temp2 from 代碼表 a left join 資金股票表 aa on a.證券代碼=aa.證

7、券代碼（4）計算涉及到的證券代碼生成過渡表temp3select aa.證券代碼,iif(isnull(aa.股票余額),0,aa.股票余額) as 股票余額,iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量,iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 賣出數(shù)量,iif(isnull(aa.股票余額),0,aa.股票余額)-iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量)+iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 期末數(shù)量,0 as 期末單價 into temp3 from temp2 aa le

8、ft join temp1 bb on aa.證券代碼=bb.證券代碼（5）計算涉及到的證券代碼生成過渡表temp11 select a.證券代碼,a.買入數(shù)量,b.賣出數(shù)量 into temp11 from (select 證券代碼,sum(成交數(shù)量) as 買入數(shù)量 from 歷史成交表 where 成交日期>20070101 and 操作 like '買入'and (發(fā)生金額<>0 or 備注 not like '%配號%') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出

9、數(shù)量 from 歷史成交表 where 成交日期>20070101 and 操作 like '賣出'and (發(fā)生金額<>0 or 備注 not like '%配號%') group by 證券代碼) b on a.證券代碼=b.證券代碼（6）計算涉及到的證券代碼生成過渡表temp33 select aa.證券代碼,iif(isnull(aa.股票余額),0,aa.股票余額) as 股票余額,iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量,iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 賣出

10、數(shù)量,iif(isnull(aa.股票余額),0,aa.股票余額)-iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量)+iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 期初數(shù)量,0 as 期初單價 into temp33 from temp2 aa left join temp11 bb on aa.證券代碼=bb.證券代碼（7）計算涉及到的證券代碼整理過渡表temp3 update temp3 set 期末單價=8 where 期末數(shù)量<>0（8）計算涉及到的證券代碼整理過渡表temp3 select 證券代碼,期末單價 from temp3 w

11、here 期末數(shù)量<>0（9）計算涉及到的證券代碼整理過渡表temp33 update temp33 set 期初單價=9 where 期初數(shù)量<>0（10）計算審計所需期間盈虧。 select a.證券代碼,a.買入數(shù)量, a.買入金額,b.賣出數(shù)量,b.賣出金額 into 當期成交表 from (select 證券代碼,sum(成交數(shù)量) as 買入數(shù)量, sum(成交金額) as 買入金額 from 歷史成交表 where (成交日期>20070101 and 成交日期<20100101) and 操作 like '買入'and (發(fā)生

12、金額<>0 or 備注 not like '%配號%') group by 證券代碼) a inner join (select 證券代碼,sum(-成交數(shù)量) as 賣出數(shù)量, sum(-成交金額) as 賣出金額 from 歷史成交表 where (成交日期>20070101 and 成交日期<20100101) and 操作 like '賣出'and (發(fā)生金額<>0 or 備注 not like '%配號%') group by 證券代碼) b on a.證券代碼=b.證券代碼（11）計算審計所需期間盈

13、虧生成成交一覽表 select a.證券代碼,aa.期初數(shù)量,aa.期初單價, iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量, iif(isnull(bb.買入金額),0,bb.買入金額) as 買入金額, iif(isnull(bb.賣出數(shù)量),0,bb.賣出數(shù)量) as 賣出數(shù)量, iif(isnull(bb.賣出數(shù)量),0,bb.賣出金額) as 賣出金額,cc.期末數(shù)量,cc.期末單價 into 成交一覽表 from (代碼表 a left join temp33 aa on a.證券代碼=aa.證券代碼) left join 當期成交表 bb on a

14、.證券代碼=bb.證券代碼) left join temp3 cc on a.證券代碼=cc.證券代碼（12）計算審計所需期間盈虧 select sum(盈虧) as 當期盈虧 from (select sum(-期初數(shù)量*期初單價-買入金額+賣出金額+期末數(shù)量*期末單價) as 盈虧 from 成交一覽表 union all select sum(發(fā)生金額) as 盈虧 from 資金明細表 where 操作 in ('罰息歸本','股息入帳','紅股入帳','利稅代扣','利息歸本','批量罰息歸

15、9;,'批量利稅代','批量利息歸','認購行權(quán)') a（二）用ASL語言描述如下：var SQLstr1,CurQuery1,SQLstr2,CurQuery2,ab,Startdate,Enddate,isempty,zqdm,zqdj;beginStartdate:=newread('審計炒股盈虧開始日(格式y(tǒng)yyymmdd),如20070101');Enddate:=newread('審計炒股盈虧結(jié)束日(格式y(tǒng)yyymmdd),如20091231');SQLstr1:='select distinc

16、t 證券代碼 from (select 證券代碼 from 資金股票表 union all select 證券代碼 from 歷史成交表) a'createtemptable('代碼表',SQLstr1);ShowMsg('生成代碼表');/計算涉及到的證券代碼SQLstr2:='select a.證券代碼,a.買入數(shù)量,b.賣出數(shù)量 from (select 證券代碼,sum(成交數(shù)量) as 買入數(shù)量 from 歷史成交表 where 成交日期> '+Enddate+' and 操作 like ''買入&

17、#39;'and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出數(shù)量 from 歷史成交表 where 成交日期>'+Enddate+' and 操作 like ''賣出''and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) b on a.證券代碼=b.證券代碼

18、'createtemptable('temp1',SQLstr2);ShowMsg('生成過渡表temp1');SQLstr1:='select a.證券代碼,aa.股票余額 from 代碼表 a left join 資金股票表 aa on a.證券代碼=aa.證券代碼'createtemptable('temp2',SQLstr1);ShowMsg('生成過渡表temp2');SQLstr1:='select aa.證券代碼,iif(isnull(aa.股票余額),0,aa.股票余額) as 股票

19、余額,iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量,iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 賣出數(shù)量,iif(isnull(aa.股票余額),0,aa.股票余額)-iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量)+iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 期末數(shù)量,0 as 期末單價 from temp2 aa left join temp1 bb on aa.證券代碼=bb.證券代碼'createtemptable('temp3',SQLstr1);ShowMsg

20、('生成過渡表temp3');SQLstr1:='select a.證券代碼,a.買入數(shù)量,b.賣出數(shù)量 from (select 證券代碼,sum(成交數(shù)量) as 買入數(shù)量 from 歷史成交表 where 成交日期>'+Startdate+' and 操作 like ''買入''and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出數(shù)量

21、 from 歷史成交表 where 成交日期>'+Startdate+' and 操作 like ''賣出''and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) b on a.證券代碼=b.證券代碼'createtemptable('temp11',SQLstr1);ShowMsg('生成過渡表temp11');SQLstr1:='select aa.證券代碼,iif(isnull(aa.股票余額

22、),0,aa.股票余額) as 股票余額,iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量,iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 賣出數(shù)量,iif(isnull(aa.股票余額),0,aa.股票余額)-iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量)+iif(isnull(-bb.賣出數(shù)量),0,-bb.賣出數(shù)量) as 期初數(shù)量,0 as 期初單價 from temp2 aa left join temp11 bb on aa.證券代碼=bb.證券代碼'createtemptable('temp33&#

23、39;,SQLstr1);ShowMsg('生成過渡表temp33');/SQLstr1:='update temp3 set 期末單價=8 where 期末數(shù)量<>0'/ShowMsg('生成的SQL為: '+SqlStr1);/ExecuteUpdate(SQLstr1);SQLstr1:='select 證券代碼,期末單價 from temp3 where 期末數(shù)量<>0'createtemptable('abcd',SQLstr1);CurQuery1:=CreateQ(sqlstr

24、1,-1);isempty:=qeof(CurQuery1);if isempty<>1 thenbegin repeat zqdm:=leftstr(qfdvalue(CurQuery1,'證券代碼'),6); zqdj:=newread('請輸入證券代碼'+zqdm+'截止'+Enddate+'交易日收盤價'); SQLstr2:='update temp3 set 期末單價='+zqdj+' where 證券代碼='+zqdm+'' ExecuteUpdate(SQ

25、Lstr2); isempty:=QMov(CurQuery1,1); isempty:=QEof(CurQuery1); zqdm:=leftstr(qfdvalue(CurQuery1,'證券代碼'),6); until IsEmpty=1;end;/SQLstr1:='update temp33 set 期初單價=9 where 期初數(shù)量<>0'/ShowMsg('生成的SQL為: '+SqlStr1);/ExecuteUpdate(SQLstr1);SQLstr1:='select 證券代碼,期初單價 from tem

26、p33 where 期初數(shù)量<>0'createtemptable('abcd',SQLstr1);CurQuery1:=CreateQ(sqlstr1,-1);isempty:=qeof(CurQuery1);if isempty<>1 thenbegin repeat zqdm:=leftstr(qfdvalue(CurQuery1,'證券代碼'),6); zqdj:=newread('請輸入證券代碼'+zqdm+'截止'+Startdate+'前一交易日收盤價'); SQLst

27、r2:='update temp33 set 期初單價='+zqdj+' where 證券代碼='+zqdm+'' ExecuteUpdate(SQLstr2); isempty:=QMov(CurQuery1,1); isempty:=QEof(CurQuery1); zqdm:=leftstr(qfdvalue(CurQuery1,'證券代碼'),6); until IsEmpty=1;end;SQLstr1:='select a.證券代碼,a.買入數(shù)量, a.買入金額,b.賣出數(shù)量,b.賣出金額 from (sele

28、ct 證券代碼,sum(成交數(shù)量) as 買入數(shù)量, sum(成交金額) as 買入金額 from 歷史成交表 where (成交日期>'+Startdate+' and 成交日期<'+Enddate+') and 操作 like ''買入''and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) a inner join (select 證券代碼,sum(-成交數(shù)量) as 賣出數(shù)量, sum(-成交金額) as 賣出金額

29、from 歷史成交表 where (成交日期>'+Startdate+' and 成交日期<'+Enddate+') and 操作 like ''賣出''and (發(fā)生金額<>0 or 備注 not like ''%配號%'') group by 證券代碼) b on a.證券代碼=b.證券代碼'createtemptable('當期成交表',SQLstr1);ShowMsg('生成過渡表:當期成交表');SQLstr1:='s

30、elect a.證券代碼,aa.期初數(shù)量,aa.期初單價, iif(isnull(bb.買入數(shù)量),0,bb.買入數(shù)量) as 買入數(shù)量, iif(isnull(bb.買入金額),0,bb.買入金額) as 買入金額, iif(isnull(bb.賣出數(shù)量),0,bb.賣出數(shù)量) as 賣出數(shù)量, iif(isnull(bb.賣出數(shù)量),0,bb.賣出金額) as 賣出金額,cc.期末數(shù)量,cc.期末單價 from (代碼表 a left join temp33 aa on a.證券代碼=aa.證券代碼) left join 當期成交表 bb on a.證券代碼=bb.證券代碼) left j

31、oin temp3 cc on a.證券代碼=cc.證券代碼'createtemptable('成交一覽表',SQLstr1);ShowMsg('生成過渡表:成交一覽表');SQLstr1:='select sum(盈虧) as 當期盈虧 from (select sum(-期初數(shù)量*期初單價-買入金額+賣出金額+期末數(shù)量*期末單價) as 盈虧 from 成交一覽表 union all select sum(發(fā)生金額) as 盈虧 from 資金明細表 where 操作 in (''罰息歸本'',''股息入帳'',''紅股入帳'',''利稅代扣'',''利息歸本