金蝶核算项目插件

'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