【四五打印】欢迎您!

由《四五打印》开发《四五法院案款管理系统》

浏览次数:24409

山东省青岛市城阳区人民法院 刘建明、宋士海


《四五打印》作为一款优秀的免费打印软件,给用户提供了一个自定义自由打印、数据报表统计的卓越平台。利用该软件进行二次开发应用,可以在其他行业实现自由打印、统计报表等功能的个性化利用,大幅度减轻工作压力。现将笔者由《四五打印》开发《四五法院案款管理系统》的详细情况总结出来,供其他用户参考借鉴。


一、问题的提出。


笔者在山东省青岛市城阳区人民法院从事案件款的接收、发放工作。平时动态管理大约1500件案件的信息,每年需要完成9000万元、约2000笔案款的收发核对工作。由于每个案件可能有多个当事人,且这些当事人可能在不同的时间收发案款,所以,法院案款的收和发就经常存在多对一、一对多、多对多的情况,案件多、票据多、流程紧,案款收发、管理工作极为繁杂。


在我2012年接手这项工作之前,单位一直是手工记账。手工记账的弊端,可以举例来讲:假如某个案子结案后,这案子的某个当事人因为案款收发存疑,想要查实,那就需要法院的工作人员协助查实。而一个案子由立案到结案,一般跨度半年左右。要彻底核实这个案子的案款收付,就需要仔细核实立案到案款付清期间的,全部案件(而不是这一个案子)的入账、出账流水明细,再从这全部明细中,滤出和这个案子相关的收付数据。毫不夸张地讲,核实这一项小小的数据,轻易就能耗费掉半个工作日,还不见得能胸有成竹的给当事人一个齐全准确的数据。实际情况却是,每每答复完当事人的查询,一种隐隐的不安便会马上袭上心头:查询范围之内,有没有疏忽遗漏数据;查询范围之前、之后,还会不会再有数据;假若出具的查询结果有误,会不会误导当事人,进而引起上访投诉?


建立电子账务,破解案款收发、管理难题的任务,迫在眉睫地摆在了我的面前。


在探寻方案之初,我赶巧在网上碰见了《四五打印》,因为他的自由打印功能以及数据管理功能,我立即感觉眼前一亮:这个软件有可能完善解决案款管理的难题?


二、收款单据的打印


在《四五打印》里面设计的模板:



①:利用《四五打印》本身的运算功能,将案件年度和案件编号链接起来,存入数据库,作为检索字,方便数据查询。


②:利用《四五打印》自动递增字段,作为收款票据的编号,标记本张凭证。方便账务核查。


③:收款时,就输入领款人名字及金额,进行发款情况的预处理和核算。方便随后将要进行的收款凭证向付款凭证的转换;提高付款凭证打印的效率,避免领款人较多时付款出错。


④:此处输入备注信息。比如该笔收款还包含(2013)城民初字第4507号、(2013)城民初字第4508号、(2013)城民初字第4509号等案件的案款,就可以在此处输入2013-45072013-45082013-4509等多个收款案件的缩减案件号。


收款单据上所做的①、②、④三项设计,使得在《四五法院案款管理系统》中,仅需输入案件编号,就立刻可以查出案款情况,完全实现了案款的数字管理,实现了“秒查”案款。


⑤:多对一收款。左侧数据=Σ右侧五项。


大写金额,由《四五》根据小写金额自动生成。


⑥:内置的一个简单的临时计算器,下部数据=Σ上部五项。支持正负号的使用。方便收款时进行一些简单的加减运算。


预览的打印效果:



这样逐张打印后,就会在《四五打印》系统里面,形成一条条收款记录。


三、收款单据→发款单据的数据库转换


有收必有发,收发紧密关联。如果能够直接将打印收款单据的数据直接转换为发款单据的打印数据,就可以将收发打印的工作量减半。


经过解析《四五打印》系统的软件结构,发现打印记录数据存放在程序所在目录的加密数据库文件\data\Record.mdb里面。经联系《四五打印》作者授权,我们解开了该数据库。发现打印数据存储情况如下:



为了实现快速自动转换,我们考虑选用了Excel里面的宏处理程序。即把Access数据库里面的数据,复制粘贴到Excel里面,用Excel的宏,进行处理。


创建一个通知单to发放单.xlsExcel文件:



Alt+F11打开宏代码编辑器,以模块的形式插入以下名称为“通知单to发放单”的宏代码:


Sub 通知单to发放单()


 


maxrec = 500


i = MsgBox("系统最多处理" & maxrec & "行数据记录。您是否已经修改了B3单元格的日期至发款日?", vbOKCancel, "警告!")


If i = 2 Then Exit Sub


 


'从第5行到最末行,替换日期数据中的“--”为“-”


For i = 5 To maxrec


    Cells(i, 7).Replace What:="--", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


Next i


 


For i = 5 To maxrec


 


'如果记录是“案款缴纳通知书”,改名为“案款发还领取单”,以待转换


'如果记录不是“案款缴纳通知书”,改名标记为“没有用”,以待删除


If Cells(i, 3) = "案款缴纳通知书" Then  


   Cells(i, 3) = "案款发还领取单"


 


    Cells(i, 2) = Cells(3, 2)


    Cells(i, 13) = ""


   


    '进账数据多合一,转存


    Cells(i, 41) = Cells(i, 30) & "" & Cells(i, 31) & "" & Cells(i, 32) & "" & Cells(i, 33) & "" & Cells(i, 34)


   


   


    '删除串尾的“、”号


    mm$ = Cells(i, 41)


    For ii = 1 To 5


     If Right(mm$, 1) = "" Then mm$ = Left(mm$, Len(mm$) - 1)


    Next ii


    mm$ = Replace(mm$, ",", "")


    Cells(i, 41) = "" & mm$


   


    '转换、赋值


    m = Cells(i, 26)


    If m <> "" Then


     Cells(i, 26) = Cells(i, 26) & "。办案人" & Cells(i, 14) & "审查诉讼费已缴清无误。"


     Else


     Cells(i, 26) = Cells(i, 26) & "办案人" & Cells(i, 14) & "审查诉讼费已缴清无误。"


    End If


 


    Cells(i, 27) = Cells(i, 12)


    Cells(i, 28) = Cells(i, 12)


    Cells(i, 29) = Cells(i, 15)


    Cells(i, 30) = Cells(i, 15)


    Cells(i, 15) = ""


    Cells(i, 32) = ""


    Cells(i, 31) = "μ" & Cells(i, 6)     '添加未支付标记“μ”


    Cells(i, 33) = Cells(3, 2)


    Cells(i, 57) = ""


 


    Cells(i, 21) = Cells(i, 12)


    Cells(i, 23) = Cells(i, 12)


    Cells(i, 39) = Cells(i, 12)


    Cells(i, 40) = Cells(i, 8) & "-" & Cells(i, 10) & ""


 


    '转换收款单中的日期格式为发款单中对应的日期格式


    Cells(i, 2).NumberFormatLocal = "yyyy-mm-dd"


    Cells(i, 7).NumberFormatLocal = "yyyy.mm.dd"


    Cells(i, 33).NumberFormatLocal = "yyyy..mm.dd"


   


Else


   Cells(i, 3) = "没有用"


End If


 


Next i


 


'删除标记为“没有用”的即不是发款单的数据行。


For i = 1 To maxrec


   Do Until Cells.Find(What:="没有用") Is Nothing


   Cells.Find(What:="没有用").Activate


   Selection.EntireRow.Delete '删除行


   'Selection.EntireColumn.Delete '删除列


   Loop


Next i


 


End Sub


点击菜单:工具→宏→宏,点击执行,运行宏代码,转换后得到如下的数据:



可以看见,收款单(案款缴纳通知书)数据已经转换成了发款单(案款发还领取单)的数据。


复制发款单的Excel数据,到Access里面执行粘贴追加命令:



当然,Access本身也有丰富的宏程序处理能力。本文作者只是由于习惯问题,选择了在Excel里面开发。有兴趣的读者朋友也可以考虑直接在Access里面实现上述程序设计开发。


这样,在《四五打印》里面,就有了预处理好的发款单数据了。打开查看如下(假定此前已经在《四五打印》里面设计好了案款发还领取单的模板):



四、发款单据的打印


假设2014.06.26发给张三104000元,打印的案款发放领取单如下:



在实际的工作中,收到的这105000元钱,可能要在不同的时间,发放给不同的领款人。譬如这个例子里面,发放完104000元给张三后,尚余1000元,需要等待李四来领取。这里就牵扯这剩余的1000元,如何在《四五法院案款管理系统》里面标记保存的问题。我们按照先前设立的μ标记未发款项的规则,将未发放的余款1000元,标记μ,保存至打印记录:



删除掉预处理生成的支付105000元的记录。



五、收款、发款的查询(一秒查账)


假设查询(2013)城民初字第4506号案件的收款,仅需在查找内容处输入20134506,即可一秒查账。如下图所示:



查询(2013)城民初字第4506号案件的发款情况,仅需在查找内容处输入2013-4506,即可一秒查账。如下图所示:



显见,104000元已经被张三领走,剩余1000元,等待李四来领取。


六、总结:


由于采用了电脑打印,相比手写填制凭证,大幅度提高了工作效率。


由于采用了宏代码,由收款单预处理自动生成了发款单,数据一次输入,多次调用,再次将工作量减少了一半。


由于采用了电子账务,检索快、结果准、数据齐。


总之,研制和使用《四五法院案款管理系统》,使我法院的案款管理效率和管理水平得到了大幅度的提升,既往那种当事人排长队等候领款的情景一去不返了。