凭证类别K4凭证号iYear年度sbilldate凭证日期4.通过事件回写业务单据凭证信息回写凭证信息‘通过事件回写凭证信息PrivateSubm_objPz_Save(rstCurrentVouchAsADODB.Recordset,essAsBoolean)DimobjConAsADODB.ConnectionSetobjCon=rstCurrentVouch.ActiveConnection'--------------------'代码略,注意使用objCon连接以保证统一的事务管理'--------------------ess=TrueEndSub应用案例详细说明实现过程应用场景描述某ERP系统费用单据推到U8生成凭证实现步骤过程及效果(1)开发可与U8门户集成的dll,参考U8开发之CS门户集成相关文档(2)引用USDbKit.DLL,USZZPUB.DLL,US_Pz.dll(U8SOFT\sql) (3)实现费用单据列表,可供选择生成凭证(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.InitPubs2"PM",m_login.UfSystemDb,UfDb,m_login._Id,m_login.cIYear,m_login.cUserId,m_login.CurDate,m_login.SysPassword
全文预览
