[求助]如何实现财务报表打印 - 编程论坛

路過2006-12-19 10:34

[IMG]C:\Documents and Settings\as\桌面\snap.bmp[/IMG]
在報表中 computed object 計算 ,欄位 fin_detail_amt
分： if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+2,1), ' 0 '))
角：if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+1,1), ' 0 '))
元：if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+2,1), ' 0 '))
next (太多啦)

路過2006-12-19 10:59

十：if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-2 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-2,1),
if(mid(string(fin_detail_ant),1,1) = '0', ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-1,1)))
百:if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-3 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-3,1),
if(len(string(fin_detail_ant))-2< = 0, ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-2,1)))
千：
if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-4 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-4,1),
if(len(string(fin_detail_ant))-3< = 0, ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-3,1)))
以此類推。
總計的時候把 fin_detail_amt 換成 sum(fin_detail_amt for group 1)就好了.
轉換成大寫要寫兩個function.