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=recom（）

　　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]