序时簿二次开发

1、序时簿二次开发1、创建一个中间层组件，实现一个接口Public Function HookInvoke(ByVal EventID As Long, dctParams As KFO.Dictionary) As LongEventID为事件ID200001申核刖200003审核后300005单据反/作废前300006单据反/作废后300007单据反/关闭前300008单据反/关闭后300011单据合并前300012单据合并后300013单据拆分前300014单据拆分后dctParams参数包里有可能要使用的单据信息操作信息和连接串sDsn连接串OperateCode1-审核2-反审核4-保存

2、8-删除16-反作废32-作废64-单据复制TranType单据类型InterID单据内码ROB1-蓝字0-红字返回值1为正常，返回值0为失败，可以向上抛出异常和提示信息2、注册组件在表t_thirdpartycomponent中插入记录FtypeID填入2FtypeDetailID就是上边接口里要使用的EventID，不重复即可Findex执行顺序，负数为系统预设，二次开发应该大于0FcomponentName客户端组件和类名，填入空字符串FcomponentSrv填入中间层组件和类名Fdescription描述调拨单审核/反审核示例代码：DELETEFROMt_ThirdPartyComp

3、onentWHEREFComponentSrv=K3MThirdPartyCheck.CheckBillINSERTINTOt_ThirdPartyComponent(FComponentSrv,FTypeID,FTypeDetailID,FIndex,FComponentName,FD escription)VALUES(K3MThirdPartyCheck.CheckBill,2,200002,2,”，调拨单审核反写接口)GO代码：Public Function HookInvoke(ByVal EventID As Long, dictparams As KFO.Dictionary)

4、As BooleanDim lngOperate As LongDim lngTranType As LongDim lngFInterID As LongDim sDsn As StringOn Error GoTo err_HandleHookInvoke = TruelngOperate = CLng(dictparams(OperateCode)lngTranType = CLng(dictparams(TranType)lngFInterID = CLng(dictparams(InterID)sDsn = dictparams(sDsn)If EventID = 200002 Th

5、enSelect Case lngTranTypeCase 41调拨单Select Case lngOperateCase 1MsgBox ”调拨单审核”Case 2MsgBox ”调拨单反审核”Case ElseEnd SelectCase ElseEnd SelectEnd IfIf Not HookInvoke ThenErr.Raise dictparams.GetValue(ErrCode”, 0), dictparams.GetValue(ErrSource”, ), dictparams.GetValue(ErrDescription”,)End IfExit Functionerr_Ha