u8用友库存单据插件接口 例子.rar

【实例简介】u8用友库存单据插件接口 VB 例子.rar
【实例截图】

【核心代码】如下：有需要的下载 没有需要的，建议不要下载，是否骗分大家睁大眼睛！

以下是核心代码：

VERSION 1.0 CLASS

BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Option Explicit
'********参数据说明***************
' domHead         表头DOM
' domBody         表体DOM
' cnnAccount      数据库连接对象
' Login           用友登录对象
' strUserErr      错误字符串
' bSuc            执行该函数是否成功
'*********************************

'单据表体双击插件接口
Public Sub ctlVoucher1_DblClick(ByVal domHead As Object, ByVal domBody As Object, icurrRow As Long, ByVal cnnAccount As Object, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  Form1.Show vbModal
  strUserErr = ""
  bSuc = True
End Sub

'单据删除前插件接口
Public Sub Delete(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据删除前调用插件不成功"
End Sub

'单据删除不成功插件接口
Public Sub DeleteRollBack(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据删除不成功调用插件不成功"
End Sub

'单据表体行删除插件接口
Public Sub DeleteLine(ByVal domHead As Object, ByVal domBody As Object, icurrRow As Long, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据表体行删除调用插件不成功"
End Sub

'单据审核前插件接口
Public Sub Verify(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
    bSuc = False
    strUserErr = "单据审核前调用插件不成功"

End Sub

'单据审核不成功插件接口
Public Sub VerifyRollBack(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
    bSuc = False
    strUserErr = "单据审核不成功调用插件不成功"
  
End Sub

'单据弃审前插件接口
Public Sub UnVerify(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据弃审前调用插件不成功"
End Sub

'单据弃审不成功插件接口
Public Sub UnVerifyRollBack(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据弃审不成功调用插件不成功"
End Sub



'单据保存前插件接口
Public Sub Save(ByVal domHead As Object, ByVal domBody As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据保存前调用插件不成功"
End Sub


'单据保存后插件接口
' oVoucher  表头记录集(Recordset)
' oVouchers 表体记录集(Recordset)
Public Sub AfterSave(ByVal oVoucher As Object, ByVal oVouchers As Object, ByVal cnnAccount As ADODB.Connection, ByVal Login As USCOMMON.Login, strUserErr As String, bSuc As Boolean)
  bSuc = False
  strUserErr = "单据保存后调用插件不成功"
End Sub