U872二开凭证生成问题

hdf007

以下代码是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就不行了呢？郁闷啊，有知道的朋友提示一下吧

naojin

If sysLogin.login_2("AA") = False Then


改为If sysLogin.login_2("IA") = False Then
试试

naojin

你登陆的是aa，但程序登陆的是ia，所以报系统外部处理错误

naojin

m_objPz.StartUpPz "IA", "IASCPZ", ZzPz.pzStyle.Pz_ZD
或改为
m_objPz.StartUpPz "AA", "IASCPZ", ZzPz.pzStyle.Pz_ZD
试试

hdf007

试过了，没有用

mrq3000

看不懂，好像没有用呀

naojin

还有个原因可能是在872下，凭证控件不支持。
但这个可能性很小

hdf007

经测试，以上代码在U852+vb6环境下同样出错，错误提示是一样的。据此判断应该不是软件版本的问题
但是同样的代码，在vb.net2005下测试通过，可以生成凭证。
那位大侠显身解决一下吧

litengteng1985

坐等牛人现身

naojin

回复 8# hdf007


vb.2005下能测试通过，可以生成凭证？？
大哥，这个凭证控件是vb6.0开发的啊，能在vb.2005下成功？？

严重怀疑

hdf007

不用怀疑，已经试过了，绝对地可以

uipower

哈哈 不错噢。

tangboyong123

楼主，最后又没有解决啊

zjz891027

直接运行编译后的exe文件，调试模式不行