税控发票可导入数据生成方法探讨.docVIP

税控发票可导入数据生成方法探讨摘 要卫星通信核算工作中，在有关的通信费用清单打印出来后，所有清单的相关内容能在一张所谓的对账数据表中详细记录。在这里，探讨一下如何将这张表中的数据作进一步处理，使生成符合税局要求的可在网上开票自动导入的电子表格数据。【关键词】源数据表 目标表格模板 方法探讨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.DBFCOUNT TO RECNRCLEAR@10，10 SAY正在为’+ALLTRIM（STR（RECNR））+’张发票信息填写数据中.......DECLARE EXCEL（RECNR+2，13）接下来将数据表的所有数据存储到二维数组中，必须注意的是源数据表的第一行数据对应的是可导入电子表格模板的第二行并依此类推；USE RESULTCT=0DO WHILE CT=RECNR-1USE RESULTGO TOPSKIP CTSTOR 序号 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+1ENDDOUSE创设一个电子表格对象且使之隐藏；MYEXCEL=CREATEOBJECT（EXCEL.APPLICATION）MYEXCEL.VISIBLE=.F.设置表格列范围，从1列到13列，行则从1行到数据记录数增加一行，将刚刚存在二维数组中的数据对应放到模板表格中HANG=1HANG11=RECNR+1MYEXCEL.WORKBOOKS.OPEN（WJM）DO WHILE HANG=HANG11LIE=1LIE11=13DO WHILE LIE=LIE11MYEXCEL.ACTIVEWORKBOOK.SHEETS（INVOICEINFO）.SELECTMYEXCEL.CELLS（HANG，LIE）.VALUE=EXCEL（HANG，LIE）IF LIE=LIE11HANG=HANG+1ENDIFLIE=LIE+1ENDDOENDDO选取