金蝶ERP二次开发第十二章 插件开发(三).pptVIP

P* * Ex4。注意，如果单据是由上游单据下推生成，单据流转未设置供应商可修改，则此处无需插件，供应商都是锁定不能修改的。 * 可以打开三种状态的单据进行说明 * 注意：此处有的单据供应商字段就是不能修改的，因为这些单据是由上游单据下推生成，在设置下推时没有选择“可修改”，所以锁定不能修改 * ex5.。 * ex8 * Select case 变量或条件 case 表达式1 语句块1 case 表达式2 语句块2 …… [case else] [ 语句块n] End Select * ex16 * 插件开发（三） BillEvent接口对象插件开发案例 案例三：在单据加载（打开做好的单据）后，判断单据状态，如果是“修改”模式，锁定单据头供应商字段，不允许修改 分析： (1)使用事件：单据加载后触发，AfterLoadBill事件 (2)判断单据状态，使用BillEvent对象的BillStatus属性 (3)锁定字段，需要访问到该字段，然后使用字段对象(BOSField)的FieldLock属性 BillEvent接口对象插件开发案例 BillEvent对象的BillStatus属性为只读属性，用于获取单据对象的状态 单据一共有三个状态，用三个常量代表，对应三个整数值(类型long)： 打开已审核或已生成凭证的单据 打开未审核，且未生成凭证的单据 BillEvent接口对象插件开发案例 关键代码 If m_BillInterface.BillStatus = Enu_BillStatusExt_Modify Then m_BillInterface.BillHeads(1).BOSFields(FBase).FieldLock = True End If BillEvent接口对象插件开发案例 案例四：客户要求，单据在生成凭证后，打开单据仍可修改单据头备注字段，修改后可以保存 问题： (1) 单据在生成凭证后，处于“查看”状态，所有字段都被锁定，不能修改 (2) 在工具栏和菜单上找不到“保存”命令,无法保存 应该如何达到客户的要求？ BillEvent接口对象插件开发案例 分析一： (1) 单据事件：AfterLoadBill (2) 要使单据可以修改，必须把单据的状态设置为“修改”状态，使用BillEvent对象的BillStatus属性 (3) 把“备注字段”从“锁定”改为“非锁定”，使用BOSField对象的FieldLock属性 (4) 把原本隐藏的“保存”命令显示出来，并且启用该命令。使用BillEvent对象的SetBarStatus方法 (5) 恢复单据的初始状态。因此需要在代码开始声明变量保存单据的初始状态 BillEvent接口对象插件开发案例 分析二： (1)BillEvent对象的BillStatus属性为只读属性，只能获取单据的状态，而不能直接设置单据状态。 (2)使用BillEvent对象的BillCtl属性来解决此问题 m_BillInterface.BillCtl返回可直接设置的单据对象: m_BillInterface.BillCtl.BillStatus=Enu_BillStatusExt_Modify 把单据状态设置为“修改” BillEvent接口对象插件开发案例 BillEvent对象的SetBarStatus方法 该方法用于设置菜单命令，包含三个参数： 参数一：菜单或命令的名称 参数二：菜单命令的可见选项(Visible)或启用(Enable)选项 参数三：布尔值，true表示该命令可见或启用，false则相反 每个菜单或命令把”名称“作为唯一标识，在金蝶BOS开发向导中可以查找到 BillEvent接口对象插件开发案例 Dim lbillstatus As Long lbillstatus = m_BillInterface.BillStatus m_BillInterface.BillCtl.BillStatus = Enu_BillStatusExt_Modify m_BillInterface.BillHeads(1).BOSFields(FNOTE).FieldLock = False m_BillInterface.SetBarStatus mnuFileSave, Visible, True m_BillInterface.SetBarStatus mnuFileSave, Enabled, True m_BillInterface.MenuBar.Refresh m_BillInterface.B