插件中F7调用其他核算项目或者BOS基础资料界面

事件参数说明：

'/********************************************************************

'/*描述:F7调出界面之前触发事件

'/*dct ：       字段模板包

'/*vCurValue ： 当前值

'/*lRow ：      当前行  单据头 -1

'/*strFilter ： 过滤条件

'/*sRetMsg ：   返回显示值

'/* bCancel：   是否取消F7的处理

'/********************************************************************

Public Event F7LookUp(ByVal dct As KFO.Dictionary, _

                         ByVal vCurValue As Variant, _

                         ByVal lRow As Long, _

                         ByRef strFilter As String, _

                         ByRef sRetMsg As String, _

                         ByRef bCancel As Boolean)

具体代码示例如下：

Private Sub m_BillInterface_F7LookUp(ByVal dct As KFO.IDictionary, ByVal vCurValue As Variant, ByVal lRow As Long, strFilter As String, sRetMsg As String, bCancel As Boolean)

    Dim iLookUpcls As Long

    Dim obj As Object

    Dim oDict As KFO.Dictionary

    Dim retVect As KFO.Vector

    Dim RtnCollection As Object

    bCancel = True '取消系统的F7处理,单独在插件中处理调其他核算项目字段的F7界面

    iLookUpcls = 4 '（iLookUpCls表示要调的基础资料的类别ID，可以从t_itemclass里查询ID，例如物料ID为：4）

    iLookUpcls = 1001310 '不在T_ITEMCLASS表中，且FClassTypeID>1000000的为BOS基础资料，例如检验值的ID为：1001310

    Select Case iLookUpcls

    Case 1, 2, 3, 4, 5, 8, 9, 10, 14, 1000 To 10000 '核算项目

        Set oDict = New KFO.Dictionary

        oDict("BeShortNumber") = False '是否短代码

        oDict("GetDataType") = 1 '1表示只显示核算项目明细，0表示显示核算项目上级组和明细，2表示只显示核算项目上级组

        oDict("MultiSlt") = True '是否允许选择多条基础资料返回

        oDict("Refresh") = 0

        Set obj = CreateObject("EBCGLView.GLView")

        Set RtnCollection = obj.ItemLookUp(iLookUpcls, "", strFilter, oDict)

        '数据包RtnCollection就是核算项目界面双击返回的数据，其中该数据包中的RtnColl