金蝶K3工业老单中间层开发示例-2
二次开发实现的步骤：
第一步、新建组件工程（假设工程名为ReDevPro，包含一个类名为 clsReDev的类模块），引用k3BillTransfer 组件和其他你要使用的组件例如ADO--Microsoft ActiveX Data Objects 2.1 Library等。
第二步、在clsReDev类代码中声明
Private WithEvents m_BillTransfer As k3BillTransfer.Bill。
第三步、必须添加以下代码否则系统不能够传递事件到你的组件中
Public Sub Show(ByVal o As Object)
Set m_BillTransfer = o
End Sub
第四步、在m_BillTransfer的各事件中编写相应处理代码。例如
Private Sub m_BillTransfer_BillInitialize()
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open m_BillTransfer.Cnnstring
End Sub
二次开发实现的步骤—续：
第五步、编写完成以后编译你的工程
第六步、注册二次开发组件使单据调用时能触发
在表t_ThirdpartyComponent中增加二次开发组件记录，各字段
含义为
FTypeID:二次开发插件类型，0为客户端插件；2为中间层插件
FTypeDetailID：单据类型ID，客户端表示对应表ICTransactionType的
FID，中间层表示事件类型
FIndex:组件调用顺序，按FTypeDetailID排取一个值
FComponentName：客户端二次开发组件，如PrjDemo.clsDemo
FComponentSrv:中间层保存二次开发组件名称
FDescription：描述
举几个二次开发的例子
范例一
在菜单中添加一个菜单，并实现该功能
Private Sub m_BillTransfer _BillInitialize()
m_BillTransfer.AddUserMenuItem "ddd", "dddddd"
End Sub
Private Sub m_billtranty_UserMenuClick(ByVal Index As Long, ByVal Caption As String)
If Caption = "ddd" Then
' 'MsgBox "OK" 此处可以实现该菜单的功能代码
End If
End Sub
范例二
改变单据头的Filter 属性值，在插件中看到已经改变，
为什么没有传到k3bills中去，用以下代码即可实现
Private Sub m_BillTransfer_BeforHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long, Cancel As Boolean)
Dim THeadCtl As Variant
Dim i As Long
If CtlIndex = 4 Then
THeadCtl = m_BillTransfer.HeadCtl
THeadCtl(CtlIndex).Filter = Replace(THeadCtl(CtlInd
ex).Filter, 986=986”, “986<>986”)
m_BillTransfer.HeadCtl = THeadCtl ‘一定需要先定义
一个THeadCtl的变量, 最后把该变量赋给
m_BillTransfer.HeadCtl，才能使其真正生效
End If
End Sub
范例三
在插件中改变辅助属性的值为什么不起作用，插件中对表体的赋值有的不能按照m_BillTransfer.SetGridText的形式修改，一定要调用m_BillTransfer.BillForm.SetBillDataInput方式才可以真正修改
Set tmpItemInfo = New KFO.Dictionary
tmpItemInfo("Name") = "黄色" '辅助属性名称
tmpItemInfo("Number") = "YELLOW" '辅助属性代码
tmpItemInfo("Value") = "2" '辅助属性内码
m_BillTransfer.BillForm.SetBillDataInput tmpItemInfo,
"FAuxPropID", 1, 1
Set tmpItemInfo = Nothing
'SetBillDataInput 辅助属性包，字段名，单据体（0：单据头；1：单据体），行号
范例四
在插件中填界面字段的三值
Private Const OperNo = 22 'FOperID的FCtlOrder
Private Sub SetOperID(ByVal Row As Long, ByRef dctResult As KFO.Dictionary)
On Error GoTo HErr
Dim EntryCtl As Variant
EntryCtl = m_BillTransfer.EntryCtl
EntryCtl(OperNo).DInterID(Row) =
dctResult.GetValue("FOperID")
EntryCtl(OperNo).DNumber(Row) = dctResult.GetValue("FID")
EntryCtl(OperNo).DName(Row) = dctResult.GetValue("FName")
m_BillTransfer.EntryCtl = EntryCtl
m_BillTransfer.SetGridText Row, OperNo, dctResult.GetValue("FName")
HErr:
....
End Sub
二次开发中间层接口
Public Function HookInvoke(ByVal EventID As Long, dctParams As KFO.Dictionary) As Long
dctParams 参数包里有可能要使用的单据信息操作信息和连接串
sDsn 连接串
OperateCode 1 '------审核
2 '------反审核
4 '------保存
8 '------删除
16 '-----反作废
32 '-----作废
64 '-----单据复制
TranType 单据类型
InterID 单据内码
ROB 1-蓝字 -1红字
返回值1为正常，返回值0为失败，可以向上抛出异常和提示信息