KIS商贸版插件加载错误

我在商贸版6.0参数KISBOS3.2.1说明文档开发一个插件,主要实现,外购入库单据上,我修改了自定义字段"生产厂家,注册证号",在外购入库后,在做销售单时自动把"生产厂家,注册证号"自动带出来了,在商品资料上我选择了"启用批号的,启用保质期的",可以根据商品编号,仓库,批号来关连带出"生产厂家与注册证号",只是入库输入一次,出库不带输入,本系统并不带这种功能,所以想实现这样一应用场景.
我的步骤:我就用例子上的语句,来测试DLL加载
1.用在XP系统上用VBSP6,新建工程:smbos_yygs,类为:ChangZhuche,代码如下:
Private WithEvents m_BillInterface As BillEventPublic Sub Show(ByVal oBillInterface As Object) Set m_BillInterface = oBillInterfaceEnd SubPrivate 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) Dim FPrice As Double FPrice = Val(m_BillInterface.GetFieldValue("FPrice", Row)) If FPrice <= 0 Then MsgBox "价格必须大于0！" End If End Sub 2.我将插件smbos_yygs.DLL文件复制到了商贸版的安装目录:\kingdee\kis\commerce\common(或者\kingdee\kis\commerce\standard)目录下,我两都试过,并且用regsvr32注册前面的DLL文件,提示成功. 3.我用SQL语句将插件发布到商贸版系统中:语句如下:
update icclasstype
set fcomponentExt='FBillevents=KIC_XS_PlugIns.BillEvent_Sale;smbos_yygs.ChangZhuche|FLstEvents=KIC_XS_PlugIns.BillEvent_Sale|
FBaseLstEvents=|FBeforeSave=KICM_XS_PlugIns.SaleUpdate|FAfterSave=KICM_XS_PlugIns.SaleUpdate
|FBeforeDel=KICM_XS_PlugIns.SaleUpdate|FAfterDel=KICM_XS_P'
where fid=1030002
4,找开商贸版6.0,点击销售出库单就出现以下报错. "单据接口对象创建失败,ActiveX部件不能创建对象" ,我也不知道是怎么回事的.请高手们指点一二,感谢哦. 如果我把3步中的SQL语句改成不加载到系统中,就不报错.就是更改为原来系统默认的情况.(update icclasstype
set fcomponentExt='FBillevents=KIC_XS_PlugIns.BillEvent_Sale|FLstEvents=KIC_XS_PlugIns.BillEvent_Sale|
FBaseLstEvents=|FBeforeSave=KICM_XS_PlugIns.SaleUpdate|FAfterSave=KICM_XS_PlugIns.SaleUpdate
|FBeforeDel=KICM_XS_PlugIns.SaleUpdate|FAfterDel=KICM_XS_P'
where fid=1030002 )