金蝶核算项目插件


'delete from t_ThirdPartyComponent where FTypeID=101 and FTypeDetailID =4 and FComponentName ='baseitemtest.myclass'

'insert into t_ThirdPartyComponent(FTypeID, FTypeDetailID, FIndex, FComponentName)

'values (101,4, 1, 'baseitemtest.myclass')

'-- 101表示基础资料，4表示物料

'-- 该sql表示当编辑物料时，加载Test.MeterialPlug插件，若要该插件在所有核算项目编辑中都加载，只要将FTypeDetailID设为0即可

'--select * from t_ThirdPartyComponent where ftypeid=101

'定义插件对象接口. 必须具有的声明, 以此来获得事件

Private WithEvents m_K3BaseDataEvents As K3BaseDataEvents.ItemEvents

Private m_EditInterface As K3BaseDataEvents.ItemEditInterface 'API接口

Public Sub Show(ByVal oBillTransfer As ItemEvents)

'接口实现

'注意: 此方法必须存在, 请勿修改

Set m_K3BaseDataEvents = oBillTransfer

Set m_EditInterface = m_K3BaseDataEvents.EditInterface

End Sub

Private Sub m_K3BaseDataEvents_AfterGridLoad()

Dim i As Integer

i = m_EditInterface.GetRowNumber("F_114")

m_EditInterface.SetRowValue i, "哦也"

m_EditInterface.SetRowCaption i, "" & m_EditInterface.ItemClassId & "," & m_EditInterface.ParentID & ","

m_EditInterface.SetRowLock i

i = m_EditInterface.GetRowNumber("FSPID")

MsgBox m_EditInterface.ReadID(i)

m_EditInterface.SetRowValue i, "仓位", 50 '给基础资料类型字段赋值

End Sub

Private Sub m_K3BaseDataEvents_BeforeF7(ByVal lRow As Long, strFilterReturn As String)

MsgBox strFilterReturn

' SELECT * FROM t_StockPlace WHERE FSPID <> 0 And FDeleted=0 AND FDetail=1 ORDER BY FNumber

strFilterReturn = " 1=2" '失败

End Sub

Private Sub m_K3BaseDataEvents_BeforeList(ByVal lRow As Long, strSqlReturn As String)

'MsgBox strSqlReturn

'strSqlReturn = "select FNumber,FName from t_Item where FItemClassID =4"

End Sub

Private Sub m_K3BaseDataEvents_BeforeSave(Cancel As Boolean)

MsgBox "BeforeSave"

End Sub

Private Sub m_K3BaseDataEvents_GridChange(ByVal lRow As Long)

MsgBox "GridChange"

End Sub

Private Sub m_K3BaseDataEvents_OnPressF7(ByVal lRow As Long, RetCol As KDVBF.ReturnCollection, Cancel As Boolean)

MsgBox "OnPressF7"

End Sub

--注册脚本

delete from t_ThirdPartyComponent where FTypeID=101 and FTypeDetailID =4 and FComponentName ='baseitemtest.myclass'

insert into t_ThirdPartyComponent(FTypeID, FTypeDetailID, FIndex, FComponentName)

values (101,4, 1, 'baseitemtest.myclass')

-- 101表示基础资料，4表示物料

-- 该sql表示当编辑物料时，加载Test.MeterialPlug插件，若要该插件在所有核算项目编辑中都加载，只要将FTypeDetailID设为0即可

--select * from t_ThirdPartyComponent where ftypeid=101

引用插件

K3BaseDataEvents.dll#K3BaseDataEvents