金蝶K3bos插件操作另一張單據

在插件中以新增、修改和查看方式打開另一單據

 

********************************************
'功能：顯示BOS單據，顯示的方式為新增、修改和瀏覽
'參數：lClassTypeID—顯示BOS單據的ID
'********************************************
Private Sub ShowBill(ByVal lClassTypeID As Long)
 Dim oDataSrv As Object
 Dim oBill As Object
 On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK/3Object("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID = lClassTypeID
     Set oBill = CreateObject("K3SingleClassBill.ClassInfoManager")
With oBill
   .DataSrv = oDataSrv
   .ISNetControl = True
   .ISCheckRight = True
   .Show
   '**********************
   'Show 參數類型
   '第一個參數 Optional ByVal lID As Long = 0 ；描述修改或查看的單據ID
   '第二個參數 Optional ByVal bShowGroup As Boolean = False ；如是基礎資料時，是否顯示分組
   '第三個參數 Optional ByVal BillStatus As Long = Enu_BillStatus_New ；顯示方式 0—查看；1—新增；2—修改
   '第四個參數 Optional ByVal dctData As KFO.Dictionary '單據初始值
   '**********************
 End With
 Set oDataSrv = Nothing
 Set oBill = Nothing
   Exit Sub
err_ctr:
Set oDataSrv = Nothing
 Set oBill = Nothing
End Sub