U8开发之会计凭证组件

U8知识库文档会计凭证录入、查询、修改、联查的界面交互组件。适合于为各种原始单据或其他数据来源如excel并且需要用户交互，转换为会计凭证提供服务。完全后台生成会计凭证不适用此组件。组件文件Us_pz.dll，部署于安装目录u8soft\UFCOMSQL。概念说明会计凭证：以原始单据如发票、收据等为依据，按照经济业务的事项的内容加以分类(以会计科目体现)，并据以确定会计分录(要素：会计科目、借贷金额)后所填制的会计凭证，是登入账簿的直接依据。会计科目：按照经济业务的内容和经济管理的要求，对会计要素的具体内容进行分类核算的科目。辅助核算：会计科目可设置辅助核算属性如客户、供应商、部门、项目等，用以补充会计分录其他辅助信息，如某笔收款的客户信息。凭证类别：如收款凭证、付款凭证、转账凭证U8知识库文档目标本文主要介绍凭证组件的基础知识，应用过程及相关注意事项，方便各类U8产品开发人员更好的使用凭证组件，更高效的开发产品。如何使用凭证组件1.初始化凭证组件DimWithEventsm_objPzAszzpz.clsPZ‘声明为类变量，使用WithEvents关键字从而可以处理事件setm_objPz=Newzzpz.clsPZSetm_objPz.zzLogin=m_loginSetm_objPz.zzSys=m_ZwPub‘总账公用函数ZzPub.clsPub2.准备临时表数据,凭证组件对外数据接口主要是此临时表准备临时表数据‘准备数据,临时表结构参见总账凭证表gl_accvouch数据字典‘临时表名称为m_ZwPub.WbTableName‘相同的coutno_id表示一张凭证‘分录1:科目1001借方200strSql=”insertinto“&m_ZwPub.WbTableName&“(ioutperiod,coutsign,coutno_id,coutsysname,cbill,inid,ccode,dt_date,doutbilldate,bvouchedit,bvalueedit,bcodeedit,md)values(12,N'项目',N'123456',N'PM',N'&m_login.cUserName&',1,N'1001','2012-12-01','2012-12-01',1,1,1,200)”UfDb.ExecutestrSql‘分录2:科目1002贷方200strSql=”insertinto“&m_ZwPub.WbTableName&“(ioutperiod,coutsign,coutno_id,coutsysname,cbill,inid,ccode,dt_date,doutbilldate,bvouchedit,bvalueedit,bcodeedit,mc)values(12,N'项目',N'123456',N'PM',N'&m_login.cUserName&',1,N'1002','2012-12-01','2012-12-01',1,1,1,200)”UfDb.ExecutestrSqlgl_accvouch数据字典U8知识库文档常见问题：提示凭证不可修改怎么办？字段bvouchedit=1提示不能增删凭证分录怎么办？字段bvouchAddordele=1提示借贷金额不可修改怎么办？字段bvouchmoneyhold=1提示科目不可修改怎么办？字段bcodeedit=13.调用凭证组件调用凭证组件SubStartUpPz(SysNameAsString,AuthIdAsString,StyleValAspzStyle,[Version],[k1],[k2],[k3],[k4],[iyearAsInteger],[sbilldateAsDate])参数：SysName为外部系统ID(可参考ufsystem..ua_subsys)AuthId权限IDStyleVal制单状态枚举Pz_ZD=0增加;Pz_CX=2修改;Pz_LC=3联查Version可选参数忽略k1是否记账K2期间K3凭证类别K4凭证号iYear年度sbilldate凭证日期4.通过事件回写业务单据凭证信息回写凭证信息‘通过事件回写凭证信息PrivateSubm_objPz_Save(rstCurrentVouchAsADODB.Recordset,IsSuccessAsBoolean)DimobjConAsADODB.ConnectionSetobjCon=rstCurrentVouch.ActiveConnection'--------------------'代码略，注意使用objCon连接以保证统一的事务管理'--------------------U8知识库文档=TrueEndSub应用案例详细说明实现过程1.应用场景描述某ERP系统费用单据推到U8生成凭证2.实现步骤过程及效果(1)开发可与U8门户集成的dll，参考U8开发之CS门户集成相关文档(2)引用USDbKit.DLL，USZZPUB.DLL，US_Pz.dll（U8SOFT\ufcomsql）(3)实现费用单据列表，可供选择生成凭证U8知识库文档(4)初始化总账公用函数ZzPub.clsPub初始化总账公用函数‘参数说明‘第一个参数为外部系统ID(可参考ufsystem..ua_subsys)‘m_login为Login对象‘UfDb为UfDbKit.UfDatabase(引用usdbkit.dll)Dimm_ZwPubAsnewZzPub.clsPub'定义公用函数(引用uszzpub.dll)DimUfDbAsNewUfDbKit.UfDatabaseUfDb.OpenDatabasem_login.UfDbNamem_ZwPub.InitPubs2PM,m_login.UfSystemDb,UfDb,m_login.cAcc_Id,m_login.cIYear,m_login.cUserId,m_login.CurDate,m_login.SysPassword’10.1及以后版本通过赋g_business可以嵌入门户，否则凭证为模态窗口Setm_ZwPub.g_business=g_business(5).初始化凭证组件初始化凭证组件DimWithEventsm_objPzAszzpz.clsPZ‘声明为类变量setm_objPz=Newzzpz.clsPZSetm_objPz.zzLogin=m_loginSetm_objPz.zzSys=m_ZwPubU8知识库文档(6).准备临时表数据准备临时表数据‘准备数据,临时表结构参见总账凭证表gl_accvouch数据字典‘临时表名称为m_ZwPub.WbTableName‘相同