k3插件简单实例

guo9long

1. 
   
2. Private Sub m_BillInterface_Change(ByVal dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)   'bos新单据插件 ，单据数据变动事件
   
3.     Select Case dct("FKey")'检测所选字段
   
4.     Case "FPrice":
   
5.     m_BillInterface.SetFieldValue "FAmount", m_BillInterface.GetFieldValue("FPrice", Row) * m_BillInterface.GetFieldValue("FQty", Row), Row             '如果单价改变，则重置金额=单价*数量  下同
   
6.     Case "FQty":
   
7.     m_BillInterface.SetFieldValue "FAmount", m_BillInterface.GetFieldValue("FPrice", Row) * m_BillInterface.GetFieldValue("FQty", Row), Row
   
8.     Case "FAmount":
   
9.     m_BillInterface.SetFieldValue "FPrice", m_BillInterface.GetFieldValue("FAmount", Row) / m_BillInterface.GetFieldValue("FQty", Row), Row
   
10.     End Select
    
11.      前面发了几篇后面开发的代码，很多人反映看不懂，这次从最简单的开始，应该是最简单的了。上面代码经过本人测试通过。后面陆续补上。尽量每天一篇，有时间的话。
    
12.    
    
13. End Sub
    

复制代码

zhhsh

多谢楼主,对金蝶二次开发爱好者很有用的

guo9long

回复 2# zhhsh


  其实bos功能已经很强大，但是还有很多不是很满意的地方，二次编程开发也是没有办法的办法，加上很多老单据不能通过bos进行更改，开发成了必然。