新增文章
文章标题
分类
C#
云星空
K3 BOS
K3 功能
用友
Oracle
python
SQL
MySql
PHP
HTML
script
windows
Access
影视后期
财务
服务
生活
内容
使用MenuBarClick事件实现F7 1、 BeginEdit事件 If dct("FKey") = "要处理字段FKey“ Then m_BillInterface.MenuBar.BOSTools("mnuDataLookUp").Enabled = True End If 2、 MenuBarClick If BOSTool.ToolName = "mnuDataLookUp" Then m_BillInterface.GetActiveField dct, col, row If dct("FKey") = "FBillNo_BS" Then m_BillInterface.BillCtl.DoSelBill 200000104 '(原单的ClassTypeID) End If End If 3、 采购价格管理的调用接口,结合上述所说使用: Dim obj As Object Set obj = CreateObject("k3Suplly.SupplyFace") With obj .CallByBill = True .SelICItemID = '当前物料行内码 .CategoryBySupply = false .SelSupID = '供应商内码 .PriceType = 1 .Show 1 End With Set obj = Nothing
返回
保存