BOS插件中调单据附件功能

'BillType 单据类型ID

'BillID 单据内码

'bEdit 调出的附件界面是否可编辑

'lPage 单据头或单据体附件 1:表示单据头，2:表示单据体1,3:表示单据体2,依此类推。。。

'lEntryId 分录行ID

Public Function ViewAccessory(ByVal BillType As Long, _

                              ByVal BillID As Long, _

                              ByVal bEdit As Boolean, _

                              Optional ByVal lPage As Long = 1, _

                              Optional ByVal lEntryId As Long = 0) As Boolean

lBillType = m_BillInterface.ClassType("FID")

lBillID = m_BillInterface.Data("FID")

'可自行根据单据状态判断是否可修改 0表示查看，1表示新增，2表示修改

bEdit = (m_BillInterface.BillStatus <> 0)

'比如编辑单据头附件

lPage = 1

lEntryId = 0

m_BillInterface.BillCtl.ViewAcce