炒股盈虧審計(jì)方法

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

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

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

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

5、select distinct 證券代碼 into 代碼表 from (select 證券代碼 from 資金股票表 union all select 證券代碼 from 歷史成交表) a（2）計(jì)算涉及到的證券代碼生成過渡表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 '%配號(hào)%')

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

7、券代碼（4）計(jì)算涉及到的證券代碼生成過渡表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 期末單價(jià) into temp3 from temp2 aa le

8、ft join temp1 bb on aa.證券代碼=bb.證券代碼（5）計(jì)算涉及到的證券代碼生成過渡表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 '%配號(hào)%') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出

9、數(shù)量 from 歷史成交表 where 成交日期>20070101 and 操作 like '賣出'and (發(fā)生金額<>0 or 備注 not like '%配號(hào)%') group by 證券代碼) b on a.證券代碼=b.證券代碼（6）計(jì)算涉及到的證券代碼生成過渡表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 期初單價(jià) into temp33 from temp2 aa left join temp11 bb on aa.證券代碼=bb.證券代碼（7）計(jì)算涉及到的證券代碼整理過渡表temp3 update temp3 set 期末單價(jià)=8 where 期末數(shù)量<>0（8）計(jì)算涉及到的證券代碼整理過渡表temp3 select 證券代碼,期末單價(jià) from temp3 w

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

12、金額<>0 or 備注 not like '%配號(hào)%') 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 '%配號(hào)%') group by 證券代碼) b on a.證券代碼=b.證券代碼（11）計(jì)算審計(jì)所需期間盈

13、虧生成成交一覽表 select a.證券代碼,aa.期初數(shù)量,aa.期初單價(jià), 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.期末單價(jià) into 成交一覽表 from (代碼表 a left join temp33 aa on a.證券代碼=aa.證券代碼) left join 當(dāng)期成交表 bb on a

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

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

16、t 證券代碼 from (select 證券代碼 from 資金股票表 union all select 證券代碼 from 歷史成交表) a'createtemptable('代碼表',SQLstr1);ShowMsg('生成代碼表');/計(jì)算涉及到的證券代碼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 ''%配號(hào)%'') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出數(shù)量 from 歷史成交表 where 成交日期>'+Enddate+' and 操作 like ''賣出''and (發(fā)生金額<>0 or 備注 not like ''%配號(hào)%'') 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 期末單價(jià) 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 ''%配號(hào)%'') group by 證券代碼) a inner join (select 證券代碼,sum(成交數(shù)量) as 賣出數(shù)量

21、 from 歷史成交表 where 成交日期>'+Startdate+' and 操作 like ''賣出''and (發(fā)生金額<>0 or 備注 not like ''%配號(hào)%'') 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 期初單價(jià) from temp2 aa left join temp11 bb on aa.證券代碼=bb.證券代碼'createtemptable('temp33&#

23、39;,SQLstr1);ShowMsg('生成過渡表temp33');/SQLstr1:='update temp3 set 期末單價(jià)=8 where 期末數(shù)量<>0'/ShowMsg('生成的SQL為: '+SqlStr1);/ExecuteUpdate(SQLstr1);SQLstr1:='select 證券代碼,期末單價(jià) 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('請(qǐng)輸入證券代碼'+zqdm+'截止'+Enddate+'交易日收盤價(jià)'); SQLstr2:='update temp3 set 期末單價(jià)='+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 期初單價(jià)=9 where 期初數(shù)量<>0'/ShowMsg('生成的SQL為: '+SqlStr1);/ExecuteUpdate(SQLstr1);SQLstr1:='select 證券代碼,期初單價(jià) 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('請(qǐng)輸入證券代碼'+zqdm+'截止'+Startdate+'前一交易日收盤價(jià)'); SQLst

27、r2:='update temp33 set 期初單價(jià)='+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 ''%配號(hào)%'') 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 ''%配號(hào)%'') group by 證券代碼) b on a.證券代碼=b.證券代碼'createtemptable('當(dāng)期成交表',SQLstr1);ShowMsg('生成過渡表:當(dāng)期成交表');SQLstr1:='s

30、elect a.證券代碼,aa.期初數(shù)量,aa.期初單價(jià), 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.期末單價(jià) from (代碼表 a left join temp33 aa on a.證券代碼=aa.證券代碼) left join 當(dāng)期成交表 bb on a.證券代碼=bb.證券代碼) left j

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