1. 引言
记得那是去年的春天,一位高中时代的老同学,也是相知相交多年的挚友,受某著名机构邀请,来到我生活的城市参加财税论坛峰会,并做学术报告。当时正值清明前后,正所谓是“春风吹柳万条斜” 的美好时节。活动结束之后,我带老友去这个时节,我们这个城市人气指数NO1的景点欣赏形态各异,五颜六色的郁金香,然后泛舟名湖,参观千年古寺,老友对这座城市的湖光山色和文化底蕴赞叹不已。晚上,我找了一个比较幽静的酒馆,准备一醉方休,为老友饯行。
酒过三巡,菜过五味,我们相互交流分享着踏入社会后这么多年,各自所经历的人、事、物,可谓“无可奈何花落去,似曾相识燕归来”,感叹不已!后来话题转移到各自的工作上来,由于我在IT行业混迹多年。老友说,现在有六七百家的客户委托他公司做账,有四五百个税盘(有白色的金税盘,黑色的税控盘和税务UKey)在公司里托管。每到月初心里有着莫名的恐惧感。他说每月月初都要将这些盘进行抄税和清卡,工作量极大。最开始的时候采用全手工操作,找到众多的盘相应的税盘,插到电脑上,然后打开相应的开票软件,进行抄税和清卡,顺利的话一个盘需要六七分钟的时间,如果遇到特殊的情况一个盘需要二十甚至三十多分钟才能做完,这样每个月都要投入七八天的时间,做这些机械化的,让人眼花缭乱的,又不得不做的操作,真是痛苦烦恼不已啊!
他为了能结束这种煎熬的过程,经过多方咨询和比较后,从一家知名的公司采购了税盘机柜和配套使用的软件,第一年投入十来万的费用,后续每年还要缴纳一定费用的维护费,以期解决这种只有经历过才知道的痛苦煎熬。此时,我问老友说:“现在你们有了这批硬件设备和配套的软件,应该轻松很多了?”不料,老友此时眉头紧皱,长叹一声,说道:“唉!远远未达我的预期,现在依然在煎熬中,也算花了冤枉钱。”我便问道:“此话怎讲呢?”。老友说道:“我感觉采购的硬件还算可以,配套使用的软件很不稳定,各种报错,卡死。现在每个月还要花费四五天的时间来处理这个事情。你懂软件,不知你能否抽时间到我那看看软件是否有改进的空间。”看到老友这么痛苦不堪的样子,我便答应了下来。
翌日一早,我便随老友一起到他的公司,分析问题出在哪里。老友的盛情款待不再言表,带着老友的嘱托和殷切的期盼,我通宵到旦地对配套软件进行跟踪分析,终于发现了其中的秘密。原来这款软件其实就是一个模拟器(专业术语叫RPA技术),通过自动打开相应的开票软件(会将票软件的界面隐藏),模拟鼠标键盘操作以实现抄税和清卡的功能,这款软件对各种场景的处理不太尽如人意,所以效率和稳定性都太差。
老友眼神流露出殷切的期盼,问我道:“是否有改进空间?”,其实,我心里此时也没底,便说道:“让我试试吧,给我一两个月的时间。”
带着老友的期待和嘱托,我回去后通过两个月的日夜兼程的努力,终于写了一款工具出来。通过给老友使用,该工具运行比较稳定,四五百个盘不需要做任何的人工干预,花费六七个小时的时间即可实现抄税和清卡。老友看到这个结果兴奋不已,感激的对我说:“你真的解决了我的难言之隐,辛苦你了,说实话不能让你白忙一场。这样把我按一个月X万的成本支付你,给你X万。”我哈哈一笑说:“你怎这么客气呢,要不这样把,你买一瓶好酒,我们一起喝酒就行了。”
于是老友买了几瓶享誉海内外的某酒,喊上三五好友作陪,开怀畅饮,一切不再言表。翌日,老友知道我爱喝酒,便买了一箱该酒偷偷放到我后备箱内。我发现后,再三推辞,但盛情难却,象征行的收了两瓶。直到今日,老友的规模也在不断扩大,工具依然在稳定的运行。
最近笔者稍得闲暇,将税盘批量抄税和清卡的相关经验和核心的代码分享给各位读者,希望能对有类似经历的朋友起到帮助作用。笔者同时也非常愿意和各位有类似业务场景需求,或者遇到技术瓶颈的,各界朋友交流业务或技术经验。
2. 税盘抄税和清卡业务流程
增值税开票软件迄今为止都需要税盘,税盘分为金税盘(白盘),税控盘(黑盘)和税务UKey三种(如下图所示,当然还有全电,不再本文讨论的范畴)。其中金税盘是航信旗下研发的开票软件,税控盘和税务UKey是百旺研发的开票软件。从市场占有率来说金税盘属于佼佼者,从趋势来看当属税务UKey首屈一指。
开票软件需要每月月初进行抄税,将当前开票软件中,上月所开的发票数据进行汇总上传(注意:在抄税之前,需要从税盘中修复所有的发票,并将发票全部上传)。在开票软件中,进行抄税之后,税务会计能登录到电子税务局,进行纳税申报(这一操作也称为“报税”)。在电子税务局进行纳税申报之后,方可在开票软件中,进行清卡操作,清卡成功后,税盘的锁死日期自动变更为次月。若未清卡,到税盘锁死日期后,不能再开具发票。抄税和清卡的操作流程如下图所示。
图-4 抄税和清卡流程
3. 常见的税盘抄税和清卡操作方式
税盘的抄税和清卡操作方式,根据笔者的理解和调研大致分为如下四种。第一种,在开票软件中手工操作进行抄税和清卡;第二种,使用RPA技术,模拟鼠标键盘操作进行抄税和清卡;第三种,通过注入技术进行税盘抄税和清卡进行操作;第四种,通过相关组件提供的抄税和清卡接口进行抄税和清卡进行操作。笔者,下面分别就这四种操作方式进行详细的阐述和对比。
图-5 抄税和清卡操作的几种方式
3.1 手工操作进行抄税和清卡
在开票软件里进行手工的抄税和清卡,是最便捷、最稳定的方式。这对于只有一个或数个盘的单个企业而言,是行之有效的操作手段。
这种操作,首先,找到税盘(金税盘,或者税控盘,或者税务UKey)插到电脑上,打开对应的开票软件(不同类型的税盘需要不同的开票软件)输入密码(包括软件密码,税控设备密码,证书密码)登录到开票软件。
然后,修复发票数据(因为有可能存在同一税盘在不同的电脑上开过票),以确保当月的所有的开票数据在当前开票软中已存在,如果这一点已确保,可以忽略修复发票。修复完发票数据后,需要确认是否存在未上传的发票数据,如果存在未上传的发票数据则要进行上传发票。
经过以上的准备和前奏操作之后,则进行抄税(在有的开票软件中或称之为“汇总上传”,不同的开票软件其入口或者叫法不同,笔者在此不再一一展开赘述)。抄税成功之后,则需要税务会计登录到电子税务局,进行纳税申报(亦称之为“申报”或“报税”)。
最后,在税务会计纳税申报完成之后,开票员插入税盘,打开并登录开票软件进行清卡(在有的开票软件中也称之为 “监控回传”或“监控回写”,不同的开票软件其操作入口也不同,笔者也不再展开赘述)。清卡完成后,则税盘的锁死日期自动变为次月的日期,若清卡失败,则到税盘锁死日期(一般是当月中旬,当然具体的日期可以查看税局的纳税申报截止日期)不再允许开票。
上面描述的则是手工进行抄税,清卡的完整的操作流程,这种方式的优点是稳定可控。但是,如果企业有数百甚至更多的盘(例如代账企业),其工作量也是可想而知的,正如我在引言中所描述的,老友的痛苦一样,在此笔者不再回忆老友的梦魇和痛苦。
3.2 通过RPA技术进行抄报和清卡
RPA技术(Robotic Process Automation)即机器人流程自动化,该技术用在税盘的抄税和清卡中,也即自动打开税盘对应的开票软件,通过模拟键盘鼠标操作,进行抄税和清卡。操作的流程和手工操作完全一致,首先登录开票软件,然后修复发票,判断发票是否上传,如果存在未上传的发票则上传,最后进行抄税和清卡操作。
这种方式的优点是,相对于纯手工操作来说会提升一定的效率,但效率提升是有限的。缺点是,开票软件种类繁多,和各种单步操作的各种业务场景(例如多报错信息的处理等)叠加在一起,有数不尽的细分场景,很难一一枚举,这也就导致RPA很不稳定。在加上开票软件本身会在使用各种反模拟操作的技术手段。开票软件升级后RPA也要做相关的调整和迭代,开票软件升级频繁(至少每月一个版本)。这些因素决定了,RPA技术很难在税盘的抄税,清卡的场景能做到稳定,同时提升的效率也是有限的。正如在引言中所描述的一样,我老友花“巨资”引入的产品,依然令他痛苦不堪,正所谓“花钱买了寂寞”。
3.3 通过注入技术进行抄税和清卡
通过注入技术进行税盘的抄税,清卡操作,相对于RPA技术来说更加考验开发着的技术功底,正所谓“没有金刚钻,别拦瓷器活”,注入需要找到正确的注入点,并进行相关的分析,这个过程没有一定技术底蕴很难胜任。当然注入也可以分为初级和高级两个境界,能做到高级注入的话,可以直接调用相关的底层接口,可以做到很稳定和很高效。然而,高级注入没有“大师”级的技术底蕴,很难胜任。
高级注入虽然可以做大稳定和高效,但是开票软件频繁升级,也是梦魇一般的存在,每次升级后,都需要进行重新的分析,这个过程也是极其耗时和繁杂的,所以这种技术也有很大的瓶颈。
3.4 通过组件接口进行抄税和清卡
相关的组件接口提供了抄税,清卡以及其它功能,使用组件接口可以获取税盘状态(例如各核定票种的最近抄报日期,锁死日期等),并依此来判断税盘的抄税,清卡状态。如果没有抄税,则可以调用相关接口进行未上传发票上传,抄税,清卡。组件接口的优点是稳定,高效,同时不用再考虑开票软件的升级问题,一劳永逸。另外组件接口调用简单,很容易上手。
综上所述,组件接口是最优方案。当然组件所提供的接口不止抄税和清卡的功能,例如开票,作废,冲红,库存查询,领购,上传,发票查询,版式文件下载等一应具全。本文着重介绍抄税和清卡。
4. 组件接口实现抄税清卡的核心代码分享
下面笔者对通过调用组件接口实现抄税和清卡的核心代码进行分享,上节提到的通过RPA技术和注入技术实现抄税,清卡的技术细节,有兴趣的朋友可以和笔者进行沟通交流。
4.1 金税盘组件接口
4.1.1 抄税操作核心代码
{**********************************************************
功能:金税盘抄税操作
参数:errMsg 输出参数,错误信息
返回值:ture - 成功
false - 失败
date: 2021-05-0430
author: 海之边 qq-3094353627
流程简述:
1. 打开金税盘
2. 获取金税盘盘状态
3. 如果尚未抄税则进行抄税
4. 抄税成功后获取金税盘状态,并缓存到本地数据库
**********************************************************}
function TCtrlItem.reportTax(var errMsg: string): boolean;
var idx: integer;
bReported: boolean;
sFplxdm, sCardClock: string;
oJsCardComponent: TJsCardComponent;
oTaxCardRespOpenCard: TJsCardResponse_OpenCard;
oJsCardRespGetClock: TJsCardResponse_getClock;
oJsCardState: TJsCardState;
oJsCardRespRep: TJsCardResponse_taxReport;
oHdFplxdmLst: TStrings;
oDBAJxsb: TDBAJxsb;
oDBAPzxx: TDBAPzxx;
begin
result := false;
oJsCardComponent := TJsCardComponent.Create;
oTaxCardRespOpenCard := nil;
oJsCardState := nil;
oJsCardRespRep := nil;
oHdFplxdmLst := nil;
oDBAJxsb := nil;
oDBAPzxx := nil;
try
oDBAJxsb := TDBAJssb.Create;
oDBAPzxx := TDBAPzxx.Create;
//1. 打开金税盘
oTaxCardRespOpenCard := oJsCardComponent.openTaxCard(Zsmm);
if not oTaxCardRespOpenCard.isSucc then
begin
errMsg := Format('打开金税盘%s.%s失败: %s。', [FNsrsbh, FMachineNo, errMsg]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
exit;
end;
if oTaxCardRespOpenCard.isCertNotPass then
begin
//证书密码错误,设置密码校验不通过状态
Zsmmjyjg := untGolbalConst.JYJG_NotPass;
updateToDb(oDBAJxsb);
Exit;
end;
//判断抄报状态
//2. 读取金税盘时钟
oJsCardRespGetClock := OJsCardComponent.getClock;
if not oJsCardRespGetClock.isSucc then
begin
errMsg := Format('读取金税盘时钟失败:%d-%s', [oJsCardRespGetClock.retCode,
oJsCardRespGetClock.retMsg]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
sCardClock := oJsCardRespGetClock.Clock;
//3 读取金税盘状态
oJsCardState := oJsCardComponent.queryTaxcardState_svr(errMsg);
if not Assigned(oJsCardState) then
begin
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
updateToDb(oDBAJxsb);
//更新设备状态信息
assignFromJsCardState(oJsCardState);
//保存票种核定信息
oJsCardState.Pzxxs.saveToDb(Sksblx, SksbNo);
//4 逐个核定票种判断是否能抄报
//4.1 判断是否已经抄报
bReported := True;
oHdFplxdmLst := spliteStr(hdfplxdm, ',');
for idx := 0 to oHdFplxdmLst.Count - 1 do
begin
sFplxdm := oHdFplxdmLst.Strings[idx];
if not oDBAPzxx.isReport(Sksblx, SksbNo, sFplxdm, sCardClock) then
begin
bReported := False;
Break;
end;
end;
if bReported then
begin
//已抄报
updateCzzt(oDBAJxsb, CZZT_CG, '已抄报,无需再执行抄报操作。');
result := true;
Exit;
end;
//4.2 是否到抄报期
if oTaxCardRespOpenCard.IsRepReached <> '1' then
begin
errMsg := '未到抄税期';
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
//5 执行抄税操作
oJsCardRespRep := OJsCardComponent.taxReport;
if not oJsCardRespRep.reportIsSucc then
begin
//抄税失败
errMsg := Format('抄报失败:%s-%s', [oJsCardRespRep.Code, oJsCardRespRep.Mess]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end
else
begin
//抄税成功
updateCzzt(oDBAJxsb, CZZT_CG, '');
//更新金税盘状态
if Assigned(taskThread) then
taskThread.setThirdPrompt('正在更新金税盘状态信息...');
updateCzlb(oDBAJxsb, CZLB_HQJSPZT);
oJsCardState := oJsCardComponent.queryTaxcardState(errMsg);
if not Assigned(oJsCardState) then
begin
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
updateToDb(oDBAJxsb);
//更新设备状态信息
assignFromJsCardState(oJsCardState);
//保存票种核定信息
oJsCardState.Pzxxs.saveToDb(Sksblx, SksbNo);
result := true;
end;
finally
if Assigned(oJsCardComponent) then
FreeAndNil(oJsCardComponent);
if Assigned(oTaxCardRespOpenCard) then
FreeAndNil(oTaxCardRespOpenCard);
if Assigned(oJsCardRespGetClock) then
FreeAndNil(oJsCardRespGetClock);
if Assigned(oJsCardState) then
FreeAndNil(oJsCardState);
if Assigned(oHdFplxdmLst) then
FreeAndNil(oHdFplxdmLst);
if Assigned(oJsCardRespRep) then
FreeAndNil(oJsCardRespRep);
if Assigned(oDBAJxsb) then
FreeAndNil(oDBAJxsb);
if Assigned(oDBAPzxx) then
FreeAndNil(oDBAPzxx);
end;
end;
4.1.2 清卡操作核心代码
{**********************************************************
功能:金税盘清卡操作
参数:errMsg 输出参数,错误信息
返回值:ture - 成功
false - 失败
date: 2021-05-0430
author: 海之边 qq-3094353627
流程简述:
1. 打开金税盘
2. 获取金税盘盘状态
3. 如果尚未清卡则进行清卡
4. 清卡成功后获取金税盘状态,并缓存到本地数据库
**********************************************************}
function TCtrlItem.reportTaxJSP(var errMsg: string): boolean;
var idx: integer;
bCleared: boolean;
sFplxdm, sCardClock: string;
oJsCardComponent: TJsCardComponent;
oTaxCardRespOpenCard: TJsCardResponse_OpenCard;
oJsCardRespGetClock: TJsCardResponse_getClock;
oJsCardState: TJsCardState;
oJsCardRespClearCard: TJsCardResponse_clearReport;
oHdFplxdmLst: TStrings;
oDBAJxsb: TDBAJxsb;
oDBAPzxx: TDBAPzxx;
begin
result := false;
oJsCardComponent := TJsCardComponent.Create;
oTaxCardRespOpenCard := nil;
oJsCardState := nil;
oJsCardRespClearCard := nil;
oHdFplxdmLst := nil;
oDBAJxsb := nil;
oDBAPzxx := nil;
try
oDBAJxsb := TDBAJssb.Create;
oDBAPzxx := TDBAPzxx.Create;
//1 打开金税盘
oTaxCardRespOpenCard := oJsCardComponent.openTaxCard(Zsmm);
if not oTaxCardRespOpenCard.isSucc then
begin
errMsg := Format('打开金税盘%s.%s失败: %s。', [FNsrsbh, FMachineNo, errMsg]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
if oTaxCardRespOpenCard.isCertNotPass then
begin
//证书密码错误,设置密码校验不通过状态
Zsmmjyjg := untGolbalConst.JYJG_NotPass;
updateToDb(oDBAJxsb);
Exit;
end;
//2. 判断是否已经清卡
//读取金税盘时钟
oJsCardRespGetClock := OJsCardComponent.getClock;
if not oJsCardRespGetClock.isSucc then
begin
errMsg := Format('读取金税盘时钟失败:%d-%s', [oJsCardRespGetClock.retCode,
oJsCardRespGetClock.retMsg]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
sCardClock := oJsCardRespGetClock.Clock;
updateLastClock(sCardClock);
//读取金税盘状态
oJsCardState := oJsCardComponent.queryTaxcardState(errMsg);
if not Assigned(oJsCardState) then
begin
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
updateToDb(oDBAJxsb);
//更新设备状态信息,保存票种核定信息
assignFromJsCardState(oJsCardState);
oJsCardState.Pzxxs.saveToDb(Sksblx, SksbNo);
//这个核定票种判断是否已经抄报
bCleared := True;
oHdFplxdmLst := spliteStr(hdfplxdm, ',');
for idx := 0 to oHdFplxdmLst.Count - 1 do
begin
sFplxdm := oHdFplxdmLst.Strings[idx];
if not oDBAPzxx.isClearCard(Sksblx, SksbNo, sFplxdm, sCardClock) then
begin
bCleared := False;
Break;
end;
end;
if bCleared then
begin
//已经清卡
WriteLog('金税盘%s.%s已清卡,无需再次清卡。', [FNsrsbh, FMachineNo]);
updateCzzt(oDBAJxsb, CZZT_CG, '已清卡,无需再执行清卡操作。');
result := true;
Exit;
end;
//3 执行清卡操作
oJsCardRespClearCard := OJsCardComponent.clearCard;
if not oJsCardRespClearCard.reportIsSucc then
begin
//清卡失败
errMsg := Format('清卡失败:%s-%s', [oJsCardRespClearCard.Code,
oJsCardRespClearCard.Mess]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end
else
begin
//清卡成功
updateCzzt(oDBAJxsb, CZZT_CG, '');
//更新金税盘状态
if Assigned(oJsCardState) then
FreeAndNil(oJsCardState);
oJsCardState := oJsCardComponent.queryTaxcardState(errMsg);
if not Assigned(oJsCardState) then
begin
WriteLogError('更新金税盘状态信息失败: %s', [errMsg]);
updateCzzt(oDBAJxsb, CZZT_SB, errMsg);
Exit;
end;
updateToDb(oDBAJxsb);
oJsCardState.Pzxxs.saveToDb(Sksblx, SksbNo);
result := true;
end;
finally
if Assigned(oJsCardComponent) then
FreeAndNil(oJsCardComponent);
if Assigned(oTaxCardRespOpenCard) then
FreeAndNil(oTaxCardRespOpenCard);
if Assigned(oJsCardRespGetClock) then
FreeAndNil(oJsCardRespGetClock);
if Assigned(oJsCardState) then
FreeAndNil(oJsCardState);
if Assigned(oHdFplxdmLst) then
FreeAndNil(oHdFplxdmLst);
if Assigned(oJsCardRespRep) then
FreeAndNil(oJsCardRespRep);
if Assigned(oDBAJxsb) then
FreeAndNil(oDBAJxsb);
if Assigned(oDBAPzxx) then
FreeAndNil(oDBAPzxx);
end;
end;
4.2 税控盘组件
税控盘组件的抄税和清卡相关的核心代码,和金税盘类似,笔者不再一一贴出代码,有兴趣或需求的朋友可以和笔者做进一步的沟通交流。
4.3 税务UKey组件
税务UKey组件的抄税和清卡相关的核心代码,和金税盘类似,笔者不再一一贴出代码,有兴趣或需求的朋友可以和笔者做进一步的沟通交流。
5. 后记
上文中笔者所述的组件,抄税和清卡只是其诸多功能之一,同时支持发票开具,作废,冲红,库存查询,发票上传,领购,版式文件下载,发票查询等功能。有兴趣的朋友可以和笔者进一步的沟通交流,同时笔者认知、技术水平有限,若文中有错误或不当之处,欢迎各位批评指正。