金蝶K/3 查询SQL及单据显示

最新推荐文章于 2019-02-27 13:34:02 发布

消失了的灰色

最新推荐文章于 2019-02-27 13:34:02 发布

阅读量3.2k

点赞数

分类专栏：金蝶K3插件文章标签：金蝶插件SQL使用金蝶单据显示

金蝶K3插件专栏收录该内容

4 篇文章 2 订阅

订阅专栏

Private Sub viewContract(ByVal strContractID As String)

    Dim objLookup As Object
    Dim obj As Object
    Dim dFilter As KFO.Dictionary
    Dim rs As ADODB.Recordset
    Dim oDataSrv As Object
    On Error GoTo Catch

    Set rs = m_BillInterface.K3Lib.GetData("select distinct fcontractid from t_rpcontract where fcontractno in (" & strContractID & ")")
    If rs.RecordCount > 0 Then
        Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")
        oDataSrv.ClassTypeID = 1000019
        Set objLookup = m_BillInterface.K3Lib.CreateK3Object("K3ClassLookUp.BillLookUp")
        Set dFilter = New KFO.Dictionary
        dFilter("HeadSort") = "" '单据头排序条件
        dFilter("EntrySort") = "" '单据体排序条件
        dFilter("SelectPage") = "1,3," '1为单据头，2为[收款计划]单据体，3为[产品明细]单据体，此处表明选单单据体为[单据头]和[产品明细]
        dFilter("FilterString") = " fcontractno in (" & strContractID & ")"
        objLookup.ClassTypeID = oDataSrv.ClassTypeID
        oDataSrv.Filter = dFilter
        Set objLookup.DataSrv = oDataSrv
        objLookup.Show
    Else
        MsgBox m_BillInterface.K3Lib.LoadKDString("该单据没有与任何合同关联！"), vbOKOnly + vbCritical, m_BillInterface.K3Lib.LoadKDString("金蝶提示")
    End If

    GoTo ExitSub

    Catch:
        HandleError Err

    ExitSub:
        Set obj = Nothing
        Set oDataSrv = Nothing
        Set objLookup = Nothing
        Set dFilter = Nothing
        Set rs = Nothing
End Sub