BOS单据审核后插件中解锁字段

栏目：k3wise知识作者：金蝶来源：金蝶云社区发布：2024-09-22浏览：1

BOS单据审核后插件中解锁字段

Dim dct As KFO.Dictionary

Dim lBillStatusBak As String

lBillStatusBak = m_BillInterface.BillStatus '先备份单据状态

m_BillInterface.BillCtl.BillStatus = 2 '设置单据为修改状态

Set dct = m_BillInterface.GetFieldInfoByKey("FText", "", 0) '获得字段的模板信息

Call m_BillInterface.LockCell(dct, -1, False) 'False表示解锁

'解锁完成后，还原单据状态

m_BillInterface.BillCtl.BillStatus = lBillStatusBak

本文2024-09-22 16:40:09发表“k3wise知识”栏目。
本文链接：https://wenku.my7c.com/article/kingdee-k3wise-89425.html

阅读排行