U8开发之会计凭证组件

U8会计凭证组件摘要凭证组件是提供U8会计凭证录入、查询、修改、联查的界面交互组件。适合于为各种原始单据或其他数据来源如excel并且需要用户交互，转换为会计凭证提供服务。完全后台生成会计凭证不适用此组件。组件文件Us_pz.dll，部署于安装目录u8soft\UFCOMSQL。的停inQa*好y-._u-Hs*嘲■丑警n概念说明会计凭证：以原始单据如发票、收据等为依据，按照经济业务的事项的内容加以分类（以会计科目体现），并据以确定会计分录（要素：会计科目、借贷金额后所填制的会计凭证，是登入账簿的直接依据。会计科目：按照经济业务的内容和经济管理的要求，对会计要素的具体内容进行分类核算的科目。辅助核算：会计科目可设置辅助核算属性如客户、供应商、部门、项目等，用以补充会计分录其他辅助信息，如某笔收款的客户信息。凭证类别：如收款凭证、付款凭证、转账凭证目标本文主要介绍凭证组件的基础知识，应用过程及相关注意事项，方便各类U8产品开发人员更好的使用凭证组件，更高效的开发产品。如何使用凭证组件初始化凭证组件DimWithEventsm_objPzAszzpz.cIsPZ'声明为类变量，使用VithEvents^键字从而可以处理事件setm_objPz=Newzzpz.cIsPZSetm_objPz.zzLogin=m_loginSetm_objPz.zzSys=m_ZwPub '总账公用函数ZzPub.cIsPub准备临时表数据，凭证组件对外数据接口主要是此临时表准备临时表数据准备数据,临时表结构参见总账凭证表gl_accvouch数据字典'临时表名称为m_ZwPub.WbTabIeName'相同的coutno_id表示一张凭证'分录L•科目1001借方200strSqI="insertinto"&m_ZwPub.WbTabIeName&"(ioutperiod,coutsign,coutno_id,coutsysname,cbiII,inid,ccode,dt_date,doutbiIIdate,bvouchedit,bvaIueedit,bcodeedit,md)vaIues(12,N^目；N'123456',N'PM',N'n&m_Iogin.cUserName&"',1,4100172012-12-0172012-12-01',1,1,1,200)‘UfDb.ExecutestrSqI'分录2.•科目1002贷方200strSqI="insertinto"&m_ZwPub.WbTabIeName&“(ioutperiod,coutsign,coutno_id,coutsysname,cbiII,inid,ccode,dt_date,doutbiIIdate,bvouchedit,bvaIueedit,bcodeedit,mc)vaIues(12,N项目；N'123456',N'PM',N'n&m_Iogin.cUserName&",1,41002'「2012-12-01'「2012-12-01',1,1,1,200)'UfDb.ExecutestrSqIgI_accvouch数据字典ColumnNameDescriptionDatatypeLengthAllowNullsi_id自动编号int4Falseiperiod会计期间tinyint1Falsecsign凭证类别字nvarchar8Trueisignseq凭证类别排序号int4Trueino_id凭证编号smallint2Trueinid行号smallint2Falsedbill_date制单日期datetime8Falseidoc附单据数smallint2Falsecbill制单人nvarchar20Trueccheck审核人nvarchar20Truecbook记账人nvarchar20Trueibook记账标志tinyint1Falseccashier出纳签字人nvarchar20Trueiflag凭证标志tinyint1Truectext1凭证头自定义项1nvarchar10Truectext2凭证头自定义项2nvarchar10Truecdigest摘要nvarchar120Trueccode科目编码nvarchar15Falsecexch_name币种名称nvarchar8Truemd借方金额money8Falsemc贷方金额money8Falsemd_f外币借方金额money8Falsemc_f外币贷方金额money8Falsenfrat汇率float8Falsend_s数量借方float8Falsenc_s数量贷方float8Falsecsettle结算方式编码nvarchar3Truecn_id票据号nvarchar30Truedt_date票号发生日期datetime8Truecdept_id部门编码nvarchar12Truecperson_id职员编码nvarchar20Trueccus_id客户编码nvarchar20Truecsup_id供应商编码nvarchar20Truecitem_id项目编码nvarchar20Truecitem_class项目大类编码nvarchar2True

cname业务员nvarchar40Trueccode_equal对方科目编码nvarchar50Trueiflagbank银行账两清标志tinyint1TrueiflagPerson往来账两清标志tinyint1Truebdelete是否核销bit1Truecoutaccset外部凭证账套号nvarchar3Trueioutyear外部凭证会计年度smallint2Truecoutsysname外部凭证系统名称nvarchar10Truecoutsysver外部凭证系统版本号nvarchar10Truedoutbilldate外部凭证制单日期datetime8Trueioutperiod外部凭证会计期间tinyint1Truecoutsign外部凭证业务类型nvarchar100Truecoutno_id外部凭证业务号nvarchar50Truedoutdate外部凭证单据日期datetime8Truecoutbillsign外部凭证单据类型nvarchar100Truecoutid外部凭证单据号nvarchar50Truebvouchedit凭证是否可修改bit1TruebvouchAddordele凭证分录是否可增删bit1Truebvouchmoneyhold凭证合计金额是否保值bit1Truebvalueedit分录数值是否可修改bit1Truebcodeedit分录科目是否可修改bit1Trueccodecontrol分录受控科目可用状态nvarchar50TruebPCSedit分录往来项是否可修改bit1TruebDeptedit分录部门是否可修改bit1TruebItemedit分录项目是否可修改bit1TruebCusSupInput分录往来项是否必输bit1TruecDefine1自定义项1nvarchar20TruecDefine2自定义项2nvarchar20TruecDefine3自定义项3nvarchar20TruecDefine4自定义项4datetime8TruecDefine5自定义项5int4TruecDefine6自定义项6datetime8TruecDefine7自定义项7float8TruecDefine8自定义项8nvarchar4TruecDefine9自定义项9nvarchar8TruecDefine10自定义项10nvarchar60TruecDefine11自定义项11nvarchar120TruecDefine12自定义项12nvarchar120TruecDefine13自定义项13nvarchar120TruecDefine14自定义项14nvarchar120TruecDefine15自定义项15int4TruecDefine16自定义项16float8True常见问题：提示凭证不可修改怎么办？字段bvouchedit=1提示不能增删凭证分录怎么办？字段bvouchAddordele=1提示借贷金额不可修改怎么办？字段bvouchmoneyhold=1提示科目不可修改怎么办？字段bcodeedit=1调用凭证组件调用凭证组件SubStartUpPz(SysNameAsString,AuthldAsString,StyleValAspzStyle,[Version],[k1],[k2],[k3],[k4],[iyearAsInteger],[sbilldateAsDate])参数：SysName为外部系统。(可参考ufsystem..ua_subsys)AuthId权限但StyleVal制单状态枚举Pz_ZD=0增加Pz_CX=2修改Pz_LC=3联查Version可选参数忽略k1是否记账K2期间K3凭证类别K4凭证号iYear年度sbilldate凭证日期通过事件回写业务单据凭证信息回写凭证信息通过事件回写凭证信息PrivateSubm_objPz_Save(rstCurrentVouchAsADODB.Recordset,IsSuccessAsBoolean)DimobjConAsADODB.ConnectionSetobjCon=rstCurrentVouch.ActiveConnection1 *代码略，注意使用objCon连接以保证统一的事务管理lsSuccess=TrueEndSub应用案例详细说明实现过程应用场景描述某ERP系统费用单据推至山8生成凭证实现步骤过程及效果⑴开发可与U8门户集成的d//，参考U8开发之CS门户集成相关文档⑵引用USDbKit.DLL，USZZPUB.DLL，US_Pz.dll(U8SOFT\ufcomsq/)Beftrences一凭让例子.讪PVisualBasicForApplicationsVisualBasicruntimeobjectsandproceduresVisualBasicobjectsandproceduresOLEAutonation鉴注册都件[V如1]用VisualBasicForApplicationsVisualBasicruntimeobjectsandproceduresVisualBasicobjectsandproceduresOLEAutonation鉴注册都件[V如1]用岌对象模型(gL)MicrosoftActiveXDataObjects2.7Library总帐公用函数(5QL)IASHelperCOMCamponent1.0TypeLibraryIA5RADIUSPratocol1.0TypeLibraryMDIExtenderControl3605peedTime1.□T^peLibraryAAAjthDimen.CancelJdPriorityJd凭证都件(SQL)Location: E:\LI85OFT\uFconnsql\us_pz.dllLanguage;Standard(3)实现费用单据列表，可供选择生成凭证凶凶Ml⑷初始化总账公用函数ZzPub.clsPub初始化总账公用函数参数说明，第一个参数为外部系窕何参考ufsystem..Ua_subsys；‘m_login为Login对象'UfDb为UfDbKit.UfDatabase(引用usdbkit.dll)Dimm_ZwPubAsnewZzPub.clsPub定义公用函数引用uszzpub.dll)DimUfDbAsNewUfDbKit.UfDatabaseUfDb.OpenDatabasem_login.UfDbNamem_ZwPub.InitPubs2"PM",m_login.UfSystemDb,UfDb,m_login.cAcc_Id,m_login.cIYear,m_login.cUserId,m_login.CurDate,m_login.SysPassword'10.1及以后版本通过贝iig_business可以嵌入门户，否则凭证为模态窗口SetmZwPub.gbusiness=gbusiness(5).初始化凭证组件初始化凭证组件DimWithEventsm_objPzAszzpz.clsPZ‘声明为类变量setm_objPz=Newzzpz.clsPZSetm_objPz.zzLogin=m_loginSetmobjPz.zzSys=mZwPub⑹.准备临时表数据准备临时表数据准备数据,临时表结构参见总账凭证表gl_accvouch数据字典，临时表名称为m_ZwPub.WbTableName'相同的coutno_id表示一张凭证'分录L•科目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'n&m_login.cUserName&"',1,4100172012-12-0172012-12-01',1,1,1,200)‘UfDb.ExecutestrSql'分录2.•科目1002贷方200strSql="insertinto