新增文章

文章标题分类内容

Private Sub aListProduce(aFID As String)

Dim oDataSrv As Object
    Dim oBillLookUp As Object
    Dim dctFilter As KFO.Dictionary
    Dim sKey As String

Set dctFilter = New KFO.Dictionary
    Set oBillLookUp = CreateObject("K3ClassLookUp.BillLookUp")
    Set oDataSrv = CreateObject("K3ClassTpl.DataSrv")
    
'    oDataSrv.ClassTypeID = 210001401    '要打开的目标单据序时薄的单据类型ID
    oBillLookUp.ClassTypeID = 210001401 '要打开的目标单据序时薄的单据类型ID
    
    dctFilter("HeadSort") = ""
    dctFilter("EntrySort") = ""
    
    dctFilter("FilterString") = "FID_Src in ( " & aFID & " )"    '传递的过滤条件，比如按指定单据内码进行过滤
    dctFilter("SelectPage") = "1,2," '显示单据头、单据体1
    
'    If oDataSrv.TableInfo("PageCount") >= 2 Then 'BOS单据有多个单据体，序时薄只展示一个单据体，所以需要指定打开的序时薄显示哪个单据体
'        dctFilter("SelectPage") = "1,2," '显示单据头、单据体1
'    Else
'        dctFilter("SelectPage") = "1," '只显示单据头
'    End If
    
    oDataSrv.Filter = dctFilter '将过滤条件
    
    Set oBillLookUp.DataSrv = oDataSrv: oBillLookUp.Show
    
    Set oBillLookUp = Nothing
    Set oDataSrv = Nothing
    Set dctFilter = Nothing
End Sub