u872凭证二次开发问题

hdf007

问题如下，如能解决必有重谢（可用可以使用的U9V2版交换）
[表单] U872二开凭证生成问题

以下代码是VB6 做的U872生成凭证的过程： Dim m_login As New U8Login.clsLogin '定义注册对象 Dim m_ZwPub As New clsPub '定义公用函数 Dim WithEvents m_objPz  As ZzPz.clsPZ Dim UfDb      As New UfDbKit.UfDatabase '定义凭证对象 Private Sub Command1_Click()    Dim sysLogin As Object    Set sysLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")     If sysLogin.login_2("AA") = False Then       MsgBox sysLogin.ErrDescript    Else       MsgBox "login ok"    End If    If m_login.ConstructLogin(sysLogin.userToken) = False Then       MsgBox g_oLogin.ShareString       Exit Sub    Else       MsgBox "ConstructLogin ok"    End If End Sub Private Sub Command2_Click()    UfDb.OpenDatabase m_login.UfDbName    m_ZwPub.InitPubs2 "IA", m_login.UfSystemDb, UfDb, m_login.cAcc_Id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword    Set m_objPz = New clsPZ    Set m_objPz.zzLogin = m_login    Set m_objPz.zzSys = m_ZwPub    Dim rstVouch   As New UfDbKit.UfRecordset    Set rstVouch = m_ZwPub.DataMdb.OpenRecordset("Select * from " & m_ZwPub.WbTableName)    For i = 0 To 1        rstVouch.AddNew        rstVouch.Fields("inid").Value = i + 1        If i = 0 Then           rstVouch.Fields("ccode").Value = "100201"           rstVouch.Fields("md").Value = 500           rstVouch.Fields("nd_s").Value = 0           rstVouch.Fields("md_f").Value = 0           rstVouch.Fields("mc").Value = 0           rstVouch.Fields("nc_s").Value = 0           rstVouch.Fields("mc_f").Value = 0        Else           rstVouch.Fields("ccode").Value = "6001"           rstVouch.Fields("md").Value = 0           rstVouch.Fields("nd_s").Value = 0           rstVouch.Fields("md_f").Value = 0           rstVouch.Fields("mc").Value = 500           rstVouch.Fields("nc_s").Value = 0           rstVouch.Fields("mc_f").Value = 0        End If        rstVouch.Fields("coutsysname").Value = "IA"        rstVouch.Fields("ioutperiod").Value = 10        rstVouch.Fields("coutsign") = "存货核算"        rstVouch.Fields("coutno_id").Value = "00000001"        rstVouch.Fields("doutdate").Value = m_login.CurDate        rstVouch.Fields("coutbillsign").Value = "SC"        rstVouch.Fields("cOutid").Value = "000001"        rstVouch.Fields("bvouchedit").Value = True                       '----凭证是否可修改        rstVouch.Fields("bvouchaddordele").Value = False                  '----凭证分录是否可删除        rstVouch.Fields("bvalueedit").Value = False                       '----分录数值是否可修改        rstVouch.Fields("bcodeedit").Value = True                        '----科目是否可修改        rstVouch.Fields("bPCSedit").Value = True                         '----往来项是否可修改        rstVouch.Fields("bDeptedit").Value = True                        '----部门信息是否可修改        rstVouch.Fields("bItemedit").Value = True                        '----项目信息是否可修改        rstVouch.Fields("bCusSupInput").Value = True                    '----往来信息是否必须        rstVouch.Fields("idoc").Value = 1                                '----凭证附件张数        rstVouch.Fields("cbill").Value = m_login.cUserName             '----制单人        rstVouch.Fields("doutbilldate").Value = m_login.CurDate        '----制单日期        rstVouch.Update    Next    m_objPz.StartUpPz "IA", "IASCPZ", ZzPz.pzStyle.Pz_ZD End Sub Private Sub m_objPz_Save(rstCurrentVouch As ADODB.Recordset, IsSuccess As Boolean)    IsSuccess = True End Sub 运行出现下图错误提示： 注：以前凭证都是可以（U852、U860）的，为什么U872就不行了呢？郁闷啊，有知道的朋友提示一下吧

amani10

我也遇到同样的问题,不知道如何解决