金蝶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