2008年1月24日,开始使用用友UFO编制报表,直接在UFO里面写公式感觉速度很慢,所以就看了看批处理,发现还真能用上。现将资产负债表和现金流量表的批处理文件分享如下:
//现金流量表
LET c5=XJLL(,,"借","01","001",2008,"y",月)-XJLL(,,"贷","01","001",2008,"y",月)
LET d5=XJLL(,,"借","01","001",2008,"y",30)-XJLL(,,"贷","01","001",2008,"y",30)
LET C6=XJLL(,,"借","02","001",2008,"y",月)-XJLL(,,"贷","02","001",2008,"y",月)
LET d6=XJLL(,,"借","02","001",2008,"y",30)-XJLL(,,"贷","02","001",2008,"y",30)
LET C7=XJLL(,,"借","03","001",2008,"y",月)-XJLL(,,"贷","03","001",2008,"y",月)
LET d7=XJLL(,,"借","03","001",2008,"y",30)-XJLL(,,"贷","03","001",2008,"y",30)
LET c8=c5+c6+c7
LET d8=d5+d6+d7
LET C9=XJLL(,,"贷","04","001",2008,"y",月)-XJLL(,,"借","04","001",2008,"y",月)
LET d9=XJLL(,,"贷","04","001",2008,"y",30)-XJLL(,,"借","04","001",2008,"y",30)
LET C10=XJLL(,,"贷","05","001",2008,"y",月)-XJLL(,,"借","05","001",2008,"y",月)
LET d10=XJLL(,,"贷","05","001",2008,"y",30)-XJLL(,,"借","05","001",2008,"y",30)
LET C11=XJLL(,,"贷","06","001",2008,"y",月)-XJLL(,,"借","06","001",2008,"y",月)
LET d11=XJLL(,,"贷","06","001",2008,"y",30)-XJLL(,,"借","06","001",2008,"y",30)
LET C12=XJLL(,,"贷","07","001",2008,"y",月)
LET d12=XJLL(,,"贷","07","001",2008,"y",30)
LET c13=c9+c10+c11+c12
LET d13=d9+d10+d11+d12
LET c14=c8-c13
LET d14=d8-d13
LET c16=XJLL(,,"借","08","001",2008,"y",月)-XJLL(,,"贷","08","001",2008,"y",月)
LET d16=XJLL(,,"借","08","001",2008,"y",30)-XJLL(,,"贷","08","001",2008,"y",30)
LET c17=XJLL(,,"借","09","001",2008,"y",月)-XJLL(,,"贷","09","001",2008,"y",月)
LET d17=XJLL(,,"借","09","001",2008,"y",30)-XJLL(,,"贷","09","001",2008,"y",30)
LET c18=XJLL(,,"借","10","001",2008,"y",月)-XJLL(,,"贷","10","001",2008,"y",月)
LET d18=XJLL(,,"借","10","001",2008,"y",30)-XJLL(,,"贷","10","001",2008,"y",30)
LET c20=XJLL(,,"借","11","001",2008,"y",月)-XJLL(,,"贷","11","001",2008,"y",月)
LET d20=XJLL(,,"借","11","001",2008,"y",30)-XJLL(,,"贷","11","001",2008,"y",30)
LET c21=c16+c17+c18+c19+c20
LET d21=d16+d17+d18+d19+d20
LET c22=XJLL(,,"贷","12","001",2008,"y",月)-XJLL(,,"借","12","001",2008,"y",月)
LET d22=XJLL(,,"贷","12","001",2008,"y",30)-XJLL(,,"借","12","001",2008,"y",30)
LET c22=XJLL(,,"贷","13","001",2008,"y",月)-XJLL(,,"借","13","001",2008,"y",月)
LET d22=XJLL(,,"贷","13","001",2008,"y",30)-XJLL(,,"借","13","001",2008,"y",30)
LET g5=XJLL(,,"贷","14","001",2008,"y",月)-XJLL(,,"借","14","001",2008,"y",月)
LET h5=XJLL(,,"贷","14","001",2008,"y",30)-XJLL(,,"借","14","001",2008,"y",30)
LET g6=c22+c23+g4+g5
LET h6=d22+d23+h4+h5
LET g7=c21-g6
LET h7=d21-g6
LET g9=XJLL(,,"借","15","001",2008,"y",月)-XJLL(,,"贷","15","001",2008,"y",月)
LET h9=XJLL(,,"借","15","001",2008,"y",30)-XJLL(,,"贷","15","001",2008,"y",30)
LET g11=XJLL(,,"借","16","001",2008,"y",月)-XJLL(,,"贷","16","001",2008,"y",月)
LET h11=XJLL(,,"借","16","001",2008,"y",30)-XJLL(,,"贷","16","001",2008,"y",30)
LET g12=XJLL(,,"借","17","001",2008,"y",月)-XJLL(,,"贷","17","001",2008,"y",月)
LET h12=XJLL(,,"借","17","001",2008,"y",30)-XJLL(,,"贷","17","001",2008,"y",30)
LET g13=g9+g11+g12
LET h13=h9+h11+h12
LET g14=XJLL(,,"贷","18","001",2008,"y",月)-XJLL(,,"借","18","001",2008,"y",月)
LET h14=XJLL(,,"贷","18","001",2008,"y",30)-XJLL(,,"借","18","001",2008,"y",30)
LET g15=XJLL(,,"贷","19","001",2008,"y",月)-XJLL(,,"借","19","001",2008,"y",月)
LET h15=XJLL(,,"贷","19","001",2008,"y",30)-XJLL(,,"借","19","001",2008,"y",30)
LET g17=XJLL(,,"贷","20","001",2008,"y",月)-XJLL(,,"借","20","001",2008,"y",月)
LET h17=XJLL(,,"贷","20","001",2008,"y",30)-XJLL(,,"借","20","001",2008,"y",30)
LET g18=g14+g15+g17
LET h18=h14+h15+h17
LET g19=g13-g18
LET h19=h13-h18
LET g20=XJLL(,,"借","21","001",2008,"y",月)-XJLL(,,"贷","21","001",2008,"y",月)
LET h20=XJLL(,,"借","21","001",2008,"y",30)-XJLL(,,"贷","21","001",2008,"y",30)
LET g21=c14+g7+g19+g20
LET h21=d14+h7+h19+h20
LET g22=QC("1001",月,,,,,,,"y",,)+QC("1002",月,,,,,,,"y",,)+QC("1012",月,,,,,,,"y",,)
LET h22=QC("1001",全年,,,,,,,"y",,)+QC("1002",全年,,,,,,,"y",,)+QC("1012",全年,,,,,,,"y",,)
LET g23=g21+g22
LET h23=h21+h22
将这些文件存储后,每次查看会计期报表只需执行批处理文件即可。在这里分享这些东东,主要的目的是想问问大家都是如何编制自己的报表的?其他报表的编制就不再赘述了!
[ 本帖最后由 hner 于 2008-1-24 11:40 编辑 ] |