> gobott
dd=ye
ifks
sm=dd
a00=a0
ks=.f.
else
sm=sm＆a00.dd
a00=a0
endif
al=″″
endif
sele2
usez＆al
sm=sm＆a00.ye
sele1
replqm＆dwithsm
endif
skip
enddo
d=str（val（d）＋1，1）
enddo
＊表内合计
d=″1″
dowhild<″3″
sele1
gotop
dowhil.not.eof（）
ifbs＆d=″3″
jlh=recn（）
kss=.t.
hl=″″
aa=ltrim（trim（kmh＆d））
c=1
dowhilc<=len（aa）
a0=subs（aa，c，1）
ifap<>″－″。and.a0<>″＋″
hl=hl＋a0
else
locaforltrim（trim（hc＆d））=hl
ifks
sm=qm＆d
a00=a0
ks=.f.
else
sm=sm＆a00.qm＆d
a00=a0
endif hl=″″
endif c=c＋1
enddo
licaforltrim（trim（hc＆d））=hl
sm=sm＆
a00.qm＆
d sele1
gojlh
replqm＆dwithsm
endif
skip
enddo
d=str（val（d）＋1，1）
enddo
closdata
retu
（三）通用报表的设计 此种方法的设计要点是：报表格式（表头和表体）自行定义，数据来源也由用户自行定义，即不同用户可以根据自己的实际需要自行定义表格的表头栏目，自行定义数据来源和计算公式。其特点是：自行定义，自行设计。
1.通用报表的数据文件组织
（1）报表名称数据库 报表名称数据库用于存放定义的报表名称、报表编号、定义的日期，通过该数据库实现会计报表的管理，即增、删、改会计报表。
（2）报表框架结构 该数据库由三个字段组成：表号、标识字段和表结构内容字段。标识字段取值为：xt、lh、xw，分别表示“直接显示表头内容”、“栏号”和“直接显示表尾内容”。若标识字段各记录取值都为“xt”则可全屏幕手工制表（数据由键盘直接录入，与wps等字处理软件制表相似）。
（3）报表数据来源及计算公式数据库 该数据库用于采集某报表各栏数据。由六个字段组成：表号、栏号、核算、数据、数据来源、标识。标识字段取值为：“dz”、“fz”、“bn”及“lr”，分别表示数据来源于某一个帐、多个文件、表内运算及手工录入。栏号表示数据在表中的装配位置。
2.通用报表的程序设计 通用报表程序设计思想是：根据报表名称数据库、报表框架结构数据库、报表数据来源及计算公式数据库中的内容，程序自动编制一张报表并打印输出。

上一页  [1] [2]