用友T6二次开发凭证调用,保存出错

amani10

以下是我用VB写的代码,在T6v5.1下测试生成凭证,保存不了,提示"外部系统处理出错"

'总账公用函数实例化
      Dim UfDb As New UfDbKit.UfDatabase
   UfDb.OpenDatabase m_login.UfDbName
   Set m_ZwPub = New clsPub

   'm_ZwPub.InitPubs2 "IA", m_login.UfSystemDb, UfDb, m_login.cAcc_Id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
   m_ZwPub.InitPubs2 "PM", 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 = "1002"
          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 = "1001"         '会计科目编码
          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!csign = "记"                    '凭证类别字
       'rstVouch!ino_id = "1"                     '凭证号
       rstVouch.Fields("cbill").Value = m_login.cUserName             '----制单人
       rstVouch.Fields("doutbilldate").Value = m_login.CurDate        '----制单日期
      
       rstVouch.Fields("idoc").Value = 1                                '----凭证附件张数
       rstVouch!cexch_name = ""
       rstVouch!cdigest = "测试"           '摘要
      
       'rstVouch!ccodecontrol = "IA"
       rstVouch!cCodecontrol = Null              '分录受控科目可用状态
      
      
       rstVouch.Fields("coutsysname").Value = "PM"
       'rstVouch.Fields("coutsysname").Value = "PM"                        '外部凭证系统名称
       rstVouch.Fields("ioutperiod").Value = Month(m_login.CurDate)      '外部凭证会计期间
      ' rstVouch.Fields("coutsign") = "存货核算"
       rstVouch.Fields("coutsign") = "项目"                       '外部凭证业务类型
       rstVouch.Fields("coutno_id").Value = "00000001"           '外部凭证业务号"
       rstVouch.Fields("doutdate").Value = m_login.CurDate
       'rstVouch.Fields("coutbillsign").Value = "08"             '外部凭证单据类型
       'rstVouch.Fields("cOutid").Value = "000001"               '外部凭证单据号
       'rstVouch!dOutBillDate = m_login.CurDate      '外部凭证制单日期
      
      
       'rstVouch!cSettle = Null                          '结算方式编码
       'rstVouch!cn_id = NBlank(txtCode.Text)            '票号
       'rstVouch!dT_Date = NBlank(txtDate.Text)          '票号发生日期
      
       rstVouch.Fields("bvouchedit").Value = True                       '----凭证是否可修改
       rstVouch.Fields("bvouchaddordele").Value = True                  '----凭证分录是否可删除
       rstVouch.Fields("bvalueedit").Value = True                       '----分录数值是否可修改
       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!bVouchMoneyHold = False           '凭证合计金额是否保值
      
       rstVouch!iOutYear = m_login.cIYear      '外部凭证会计年度
       rstVouch!cOutAccset = m_login.cAcc_Id  '外部凭证帐套号
      
       rstVouch!cOutSysVer = "8.0"           '外部凭证系统版本号
       rstVouch.Update
   Next
   
   
   '调用凭证对象
   
   Set m_objPz = New clsPZ
   Set m_objPz.zzLogin = m_login
   Set m_objPz.zzSys = m_ZwPub
   'm_objPz.StartUpPz "IA", "IASCPZ", ZzPz.pzStyle.Pz_ZD
   m_objPz.StartUpPz "PM", "PM034", Pz_ZD
   
   Set m_objPz = Nothing
   Set m_ZwPub = Nothing

37724861

保存时，还要一个事件的支持

amani10

37724861 发表于 2012-11-26 21:25

                               
登录/注册后可看大图

保存时，还要一个事件的支持

凭证Save事件的处理：

Private Sub m_objPz_Save(rstCurrentVouch As UfDbKit.UfRecordset, IsSuccess As Boolean)

IsSuccess = True

    Exit Sub

End Sub

是这个事件吧,我写进去了,但还是同样的错误,不能正常保存

xzwjf

T6v6.2的登录示例能给一份吗

nazi8888

不太懂编程，！

wxwqtds2004

解决了没有？？？

koko417

你好老师  可以请教一下  如何调用  凭证组件吗？   我的QQ417229496

bigtime

学习学习！