U8开发之会计凭证组件

U8会计凭证组件

摘要

凭证组件是提供U8会计凭证录入、查询、修改、联查的界面交互组件。

适合于为各种原始单据或其他数据来源如excel并且需要用户交互，转换为会计凭证提供服务。完全后台生成会计凭证不适用此组件。

组件文件Us_pz.dll，部署于安装目录u8soft\\UFCOMSQL。

概念说明

会计凭证：以原始单据如、收据等为依据，按照经济业务的事项的内容加以分类(以会计科目体现)，并据以确定会计分录(要素：会计科目、借贷金额)后所填制的会计凭证，是登入账簿的直接依据。 会计科目：按照经济业务的内容和经济管理的要求，对会计要素的具体内容进行分类核算的科目。

辅助核算：会计科目可设置辅助核算属性如客户、供应商、部门、项目等，用以补充会计分录其他辅助信息，如某笔收款的客户信息。 凭证类别：如收款凭证、付款凭证、转账凭证

www.yonyou.com

U8知识库文档

目标

本文主要介绍凭证组件的基础知识，应用过程及相关注意事项，方便各类U8产品开发人员更好的使用凭证组件，更高效的开发产品。

如何使用凭证组件

1.初始化凭证组件

Dim WithEvents m_objPz As zzpz. clsPZ ‘声明为类变量，使用WithEvents关键字从而可以处理事件

set m_objPz = New zzpz.clsPZ Set m_objPz.zzLogin = m_login

Set m_objPz.zzSys = m_ZwPub ‘总账公用函数ZzPub.clsPub 2.准备临时表数据,凭证组件对外数据接口主要是此临时表 准备临时表数据 ‘准备数据 , 临时表结构参见总账凭证表gl_accvouch数据字典 ‘临时表名称为m_ZwPub.WbTableName ‘相同的coutno_id表示一张凭证 ‘分录1:科目1001借方200 strSql=”insert into “ & 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.Execute strSql ‘分录2:科目1002贷方200 strSql=”insert into “ & 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.Execute strSql

gl_accvouch数据字典

www.yonyou.com

U8知识库文档

Column Name i_id iperiod csign isignseq ino_id inid dbill_date idoc cbill ccheck cbook ibook ccashier iflag ctext1 ctext2 cdigest ccode cexch_name md mc md_f mc_f nfrat nd_s nc_s csettle cn_id dt_date cdept_id cperson_id ccus_id csup_id citem_id citem_class

Description 自动编号 会计期间 凭证类别字 凭证类别排序号 凭证编号 行号 制单日期 附单据数 制单人 审核人 记账人 记账标志 出纳签字人 凭证标志 凭证头自定义项1 凭证头自定义项2 摘要 科目编码 币种名称 借方金额 贷方金额 外币借方金额 外币贷方金额 汇率 数量借方 数量贷方 结算方式编码 票据号 票号发生日期 部门编码 职员编码 客户编码 供应商编码 项目编码 项目大类编码 Datatype int Length Allow Nulls 4 False False True True True False False False True True True False True True True True True False True False False False False False False False True True True True True True True True True tinyint 1 nvarchar 8 int 4 smallint 2 smallint 2 datetime 8 smallint 2 nvarchar 20 nvarchar 20 nvarchar 20 tinyint 1 nvarchar 20 tinyint 1 nvarchar 10 nvarchar 10 nvarchar 120 nvarchar 15 nvarchar 8 money 8 money 8 money 8 money 8 float float float 8 8 8 nvarchar 3 nvarchar 30 datetime 8 nvarchar 12 nvarchar 20 nvarchar 20 nvarchar 20 nvarchar 20 nvarchar 2 www.yonyou.com

U8知识库文档

cname ccode_equal iflagbank iflagPerson bdelete coutaccset ioutyear coutsysname coutsysver doutbilldate ioutperiod coutsign coutno_id doutdate coutbillsign coutid bvouchedit 业务员 对方科目编码 银行账两清标志 往来账两清标志 是否核销 外部凭证账套号 外部凭证会计年度 外部凭证系统名称 外部凭证系统版本号 外部凭证制单日期 外部凭证会计期间 外部凭证业务类型 外部凭证业务号 外部凭证单据日期 外部凭证单据类型 外部凭证单据号 凭证是否可修改 nvarchar 40 nvarchar 50 tinyint 1 tinyint 1 bit 1 nvarchar 3 smallint 2 nvarchar 10 nvarchar 10 datetime 8 tinyint 1 nvarchar 100 nvarchar 50 datetime 8 nvarchar 100 nvarchar 50 bit bit bit bit bit bit bit bit bit 1 1 1 1 1 1 1 1 1 True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True True bvouchAddordele 凭证分录是否可增删 bvouchmoneyhold 凭证合计金额是否保值 bvalueedit bcodeedit ccodecontrol bPCSedit bDeptedit bItemedit bCusSupInput cDefine1 cDefine2 cDefine3 cDefine4 cDefine5 cDefine6 cDefine7 cDefine8 cDefine9 cDefine10 cDefine11

分录数值是否可修改 分录科目是否可修改 分录受控科目可用状态 分录往来项是否可修改 分录部门是否可修改 分录项目是否可修改 分录往来项是否必输 自定义项1 自定义项2 自定义项3 自定义项4 自定义项5 自定义项6 自定义项7 自定义项8 自定义项9 自定义项10 自定义项11 nvarchar 50 nvarchar 20 nvarchar 20 nvarchar 20 datetime 8 int float 4 8 datetime 8 nvarchar 4 nvarchar 8 nvarchar 60 nvarchar 120 www.yonyou.com

U8知识库文档

cDefine12 cDefine13 cDefine14 cDefine15 cDefine16 自定义项12 自定义项13 自定义项14 自定义项15 自定义项16 nvarchar 120 nvarchar 120 nvarchar 120 int float 4 8 True True True True True

常见问题：

提示凭证不可修改怎么办？字段bvouchedit=1

提示不能增删凭证分录怎么办？字段bvouchAddordele =1 提示借贷金额不可修改怎么办？字段bvouchmoneyhold =1 提示科目不可修改怎么办？字段bcodeedit =1

3.调用凭证组件 调用凭证组件 Sub StartUpPz(SysName As String, AuthId As String, StyleVal As pzStyle, [Version], [k1], [k2], [k3], [k4], [iyear As Integer], [sbilldate As Date]) 参数： SysName为外部系统ID(可参考ufsystem..ua_subsys) AuthId 权限ID StyleVal 制单状态枚举Pz_ZD=0增加;Pz_CX=2修改;Pz_LC=3联查 Version 可选参数忽略 k1 是否记账 K2 期间 K3 凭证类别 K4 凭证号 iYear 年度 sbilldate 凭证日期 4. 通过事件回写业务单据凭证信息

回写凭证信息 ‘通过事件回写凭证信息 Private Sub m_objPz_Save(rstCurrentVouch As ADODB.Recordset, IsSuccess As Boolean) Dim objCon As ADODB.Connection Set objCon = rstCurrentVouch.ActiveConnection '-------------------- '代码略，注意使用objCon连接以保证统一的事务管理 '--------------------

www.yonyou.com

U8知识库文档

IsSuccess = True End Sub

应用案例

详细说明实现过程

1. 应用场景描述

某ERP系统费用单据推到U8生成凭证 2. 实现步骤过程及效果

(1)开发可与U8门户集成的dll，参考U8开发之CS门户集成相关文档 (2)引用USDbKit.DLL，USZZPUB.DLL，US_Pz.dll（U8SOFT\sql）

(3)实现费用单据列表，可供选择生成凭证

www.yonyou.com

U8知识库文档

(4)初始化总账公用函数ZzPub.clsPub 初始化总账公用函数 ‘参数说明 ‘第一个参数为外部系统ID(可参考ufsystem..ua_subsys) ‘m_login为Login对象 ‘UfDb为UfDbKit.UfDatabase (引用usdbkit.dll) Dim m_ZwPub As new ZzPub.clsPub '定义公用函数(引用uszzpub.dll) Dim UfDb As New UfDbKit.UfDatabase UfDb.OpenDatabase m_login.UfDbName m_ZwPub.InitPubs2 \"PM\m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword ’10.1及以后版本通过赋g_business可以嵌入门户，否则凭证为模态窗口 Set m_ZwPub.g_business = g_business

(5).初始化凭证组件

初始化凭证组件 Dim WithEvents m_objPz As zzpz. clsPZ ‘声明为类变量 set m_objPz = New zzpz.clsPZ Set m_objPz.zzLogin = m_login Set m_objPz.zzSys = m_ZwPub

www.yonyou.com

U8知识库文档

(6).准备临时表数据 准备临时表数据 ‘准备数据 , 临时表结构参见总账凭证表gl_accvouch数据字典 ‘临时表名称为m_ZwPub.WbTableName ‘相同的coutno_id表示一张凭证 ‘分录1:科目1001借方200 strSql=”insert into “ & 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.Execute strSql ‘分录2:科目1002贷方200 strSql=”insert into “ & 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.Execute strSql

(7).调用凭证组件

调用凭证组件 ‘枚举Pz_ZD=0增加;Pz_CX=2修改;Pz_LC=3联查 m_objPz.StartUpPz \"PM\ 8.回写凭证信息

回写凭证信息 ‘通过事件回写凭证信息 Private Sub m_objPz_Save(rstCurrentVouch As ADODB.Recordset, IsSuccess As Boolean) Dim objCon As ADODB.Connection Set objCon = rstCurrentVouch.ActiveConnection '-------------------- '代码略，注意使用objCon连接以保证统一的事务管理 ‘回写费用单据凭证信息(一般回写coutno_id字段并通过它进行关联查询)，从而实现不可重复生成凭证和联查凭证功能 '--------------------

www.yonyou.com

U8知识库文档

IsSuccess = True End Sub

www.yonyou.com