案例：870凭证调用

spybbb

我们自己开发的软件，生成凭证之后。在选择摘要或指定现金流量的时候出现如上错误。请问怎么解决？

是我们的程序问题还是？跟踪数据库发现，选择摘要或现金流量都执行如下语句，好像是锁定这个功能吧。可这个语句是语法有问题的，所以出错。

INSERT INTO UA_task with(rowlock)(cAcc_Id,iYear,cUser_Id,cAuth_Id,cStation,cTaskId,iLogId,cSub_Id,cAppServer)

VALUES(N'001',2010,N'mao',N'reg',N'5B98E7FB32B543D',N'',,N'GL',N'{91AE1F6C-E613-4090-BC11-73FA7D259220}')

很怪的是,相同的程序在u871是一切正常．是不是u870有ＢＵＧ？是否有相关的补丁呢？

以下是培训资料里的测试案例，才发现根本通不过。也是相同的错误。

Dim m_login As U8Login.clsLogin '定义注册对象

Dim m_ZwPub As clsPub
'定义公用函数

Dim m_objPz As clsPZ
'定义凭证对象

Private Sub Command1_Click()

'
'注册对象实例化

'
Set m_login = New U8Login.clsLogin

'
m_login.Login ("GL")

'注册对象实例化

'
Set m_login = New U8Login.clsLogin

'
m_login.Login ("PM")

Dim sysLogin As Object

Set sysLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")

'Dim sysLogin As New UFSoft_U8_Framework_Login_UI.clsLogin

   

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

MsgBox sysLogin.ErrDescript

Else

MsgBox "login ok"

End If

   

Set m_login = CreateObject("U8Login.clsLogin")

If m_login.ConstructLogin(sysLogin.userToken) = False Then

MsgBox g_oLogin.ShareString

Exit Sub

Else

MsgBox "ConstructLogin ok"

End If

   

If m_login.Login("AA") = False Then

MsgBox g_oLogin.ShareString

Else

MsgBox "ConstructLogin login ok"

End If

End Sub

Private Sub Command2_Click()

      

'总账公用函数实例化

Set m_ZwPub = New clsPub

m_ZwPub.InitPubs m_login.UfSystemDb, m_login.UfDbName, 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

m_objPz.StartUpPz "GL", "GL0201", Pz_ZD

Set m_objPz = Nothing:
Set m_ZwPub = Nothing

      

End Sub

naojin

在选择摘要或指定现金流量的时候出现如上错误



估计是摘要或现金流量 用友ERP不认。
因为你是自己开发的程序，但控件是用友的，从你发的代码看，应该没有问题，871下是好用的，建议在870下查查现金流量的表是否和你现有的程序匹配.

naojin

还有，最好是从低版本到高版本调试，像你从871再到870，最好是从870到871

micoywh

还有，最好是从低版本到高版本调试，像你从871再到870，最好是从870到871