税控可导入数据生成方法

摘 要

卫星通信核算工作中,在有关的通信费用清单打印出来后,所有清单的相关内容能在一张所谓的对账数据表中详细记录.在这里,探讨一下如何将这张表中的数据作进一步处理,使生成符合税局要求的可在网上开票自动导入的电子表格数据.

【关 键 词 】源数据表 目标表格模板 方法探讨

1.源数据表

在这个方法探讨中,源数据表就是所谓的对账数据表,它的内容是在清单打印过程中,每打印一份清单,自动增加一条收费记录而组成的.可用造表指令生成SATCOMDZB.DBF：

CREATE TABLE SATCOMDZB.DBF （DM C（6）, DW C（70）, AZMC C（10）, CM C（20）, SBJ C（20）, ZJRMB N（10,2）, TOTALRMB N（10,2）, WTQGBF N（5,2）, RMARKS C（250））

当一批费用清单打印完成后,该表中有了内容,模拟表如下表,表1.

2.目标表格模板

目标表格模板就是税局要求的能在网上自动导入到开票系统的电子表格文件.是由两张表组成的工作簿,文件名为INVOICEDATA.XLS,其一名为INVOICEINFO,如图1；其二名为CODETABLE,如图：2.表INVOICEINFO的字段种类（*）、开票项目（*）、付款方类型（*）、付款方类型（*）均为下拉选项,分别对应CODETABLE表1、4、2、3列的可选项（涉及数据有效性）.

很显然,源数据是根本没有办法使用简单的命令直接生成符合这种要求的电子表格工作簿的.

3.方法探讨

像这种从一个系统出来的数据,要按要求填入另外一个系统适用的表格文件,单靠简单方法是无法实现的,特别是要求的表格文件有其严格的要求,下拉选项及各字段的其他要求等等,就是人们有那样的耐性,人工逐项复制、粘贴也绝不是办法.

用SELECT语句,按需要生成的表格之字段顺序,从源数据表获取相应字段数据,作为单位开票项目主行数据,并按要求设置相关字段,称为内容主行数据：

同样,用SELECT语句,按需要生成的表格之字段顺序,从源数据表获取相应字段数据,作为单位开票主行外数据,并按要求设置相关字段,称为内容主行外之一、二,甚至三、四等数据：

将以上两或更多数据合并后以序号字段排序,结果保存到RESULT.DBF表中；

对刚保存的表根据需要做适当修改：

以上已在内容上将源数据生成了和要求的表格一致的数据表,但这时只是备足了有关的数据.

根据刚刚生成的数据表的记录条数,声明一个二维数组.

USE RESULT.DBF

COUNT TO RECNR

CLEAR

@10,10 SAY'正在为’+ALLTRIM（STR（RECNR））+’张信息填写数据中.......'

DECLARE EXCEL（RECNR+2,13）

接下来将数据表的所有数据存储到二维数组中,必须注意的是源数据表的第一行数据对应的是可导入电子表格模板的第二行并依此类推；

USE RESULT

CT等于0

DO WHILE CT<=RECNR-1

USE RESULT

GO TOP

SKIP CT

STOR 序号 TO EXCEL（CT+2,1）

STOR 种类 TO EXCEL（CT+2,2）

STOR 开票项目 TO EXCEL（CT+2,3）

STOR 付款方类型 TO EXCEL（CT+2,4）

STOR 付款方手机 TO EXCEL（CT+2,5）

STOR 付款方 TO EXCEL（CT+2,6）

STOR 付款方 TO EXCEL（CT+2,7）

STOR 号 TO EXCEL（CT+2,8）

STOR 合计金额 TO EXCEL（CT+2,9）

STOR 附注 TO EXCEL（CT+2,10）

STOR 明细行 TO EXCEL（CT+2,11）

STOR 明细行1 TO EXCEL（CT+2,12）

STOR 备注 TO EXCEL（CT+2,13）

CT等于CT+1

ENDDO

USE

创设一个电子表格对象且使之隐藏；

MYEXCEL等于CREATEOBJECT（'EXCEL.APPLICATION'）

MYEXCEL.VISIBLE等于.F.

设置表格列范围,从1列到13列,行则从1行到数据记录数增加一行,将刚刚存在二维数组中的数据对应放到模板表格中

HANG等于1

HANG11等于RECNR+1

MYEXCEL.WORKBOOKS.OPEN（WJM）

DO WHILE HANG<=HANG11

LIE等于1

LIE11等于13

DO WHILE LIE<=LIE11

MYEXCEL.ACTIVEWORKBOOK.SHEETS（"INVOICEINFO"）.SELECT

MYEXCEL.CELLS（HANG,LIE）.VALUE等于EXCEL（HANG,LIE）

IF LIE等于LIE11

HANG等于HANG+1

ENDIF

LIE等于LIE+1

ENDDO

ENDDO

选取税局要求格式的模板工作簿,将活动工作表另存为可网上开票导入的文件；

MYEXCEL.ACTIVEWORKBOOK.SHEETS（"INVOICEINFO"）.SELECT

MYEXCEL.ACTIVEWORKBOOK.SHEETS（"INVOICEINFO"）.SEAS（RESULTXLS）

最后生成了如图3所示的结果工作簿,

以上方法总结为：

按目标表格模板字段结构整理相关数据；

利用数组将整理好的数据（所有字段的各行数据）进行承载；

将承载的数据对应地转移到目标表格模板；

目标表格模板另存.

4.结束语

以上方法实现了费用清单数据表数据自动填入税控网上可导入数据文件.这样,将通信费用详细清单和可导入文件一并提交给核算、财务之开票人员,实现卫星通信核算账单与相关数据开票工作之间有机衔接.这种方法在各种数据统计工作得到广泛应用,如卫星通信按通信种类的业务量统计和船舶通信大客户业务量统计等,这些统计表都有复杂格式要求.

作者简介

李日宏,男,广东省人.现为广州中海电信有限公司工程师,从事海上卫星通信业务核算工作.主要研究方向为计算机技术在卫星通信业务核算中的应用.

作者单位

广州中海电信有限公司 广东省广州市 510220