K3BOS插件开发常见技巧

1、K3BOS 插件开发常见技巧以下是为大家整理的K3bos插件开发常见技巧的相关范文，本文关键 词为K3bos,插件，开发，常见，技巧，何在，工具栏，添加，多级，您可以从右 上方搜索框检索更多相关文章，如果您觉得有用，请继续关注我们并 推荐给您的好友，您可以在教育文库中查看更多范文。1、如何在工具栏上添加多级审核的按钮？在 m_billInterface_menubarInitialize 事件里添加如下代码即可。setoTool=m_billInterface.menubar.bosTools(withoTool.caption=多级审核 .ToolTipText二多级审核.Descripti

2、on=多级审核.begingroup=False.Toolpicture=App.path+.setpicture0,vbbuttonFaceendwithsetoband=omenubar.bosbands(oband.bosTools.lnsertbefore将菜单对象插入指定工具栏2、如何在显示一张 bos 单据的同时给它赋值？要想在显示 bos 单据的同时给它赋值 ,关键是在显示前要购建 m_billinterface 的 data 包,这样在显示这张同据的时候 ,程序会解析 data 包,并将里面的值赋到单据界面上来。DimdctDataAskfo.DictionaryDimdata

3、srvasobjectDimoTableinfoasobjectsetDatasrv=m_billlnterface.K3Lib.createK3object(Datasrv.classTypelD=lc lassTypelDlclassTypelD 需 要 弹 出 单 据 的 lDsetoTablelnfo=Datasrv.TablelnfosetdctData二Datasrv.getemptybill然后将当前单据数据包中需要的 数据填充到 dctdata 的对应字段在以上语句执行后，dctdata(“page2”)里只有一行表结构(即表体 只有一行)赋表头的值dctData(m_bill

4、Interface.getFieldValue(dctData(m_billInterface.getFieldValue(dctData(m_billInterface.getFieldValue(dctData( m_billInterface.getFieldValue(赋表体的值Dimopage2AsobjectFori=1Tom_billInterface.Data(setopage2=dctData(dctData(添加到 deDatadctData(更改分录号nextFori=1Tom_billInterface.Data(物料 FItemIDdctData(FItemIDm_b

5、illInterface.getFieldValue(dctData(FItemIDm_billInterface.getFieldValue(dctData(FItemIDm_billInterface.getFieldValue(物料名称 fbaseproperty dctData(m_billInterface.getFieldValue(dctData(m_billInterface.getFiel dValue(dctData(m_billInterface.getFieldValue(计量单位 FunitIDdctData(FunitIDm_billInterface.getFie

6、ldValue(dctData(FunitIDm_bill Interface.getFieldValue(dctData(FunitIDm_billInterface.getFieldValue( 数量 FQtydctData(m_billInterface.getFieldValue(nextsetobj=createobject(withobj.datasrv=datasrv=.IscheckRight=True.show,dctDataendwith3、如何在插件中实现选单的功能？调用 bos 单据m_billlnterface.billctl.DoselbilllclassTypel

7、D(原单的 classTypelD)调 用工业单据m_billlnterface.billctl.DoseloldbilllclassTypelD(原单的 classTypelD)4、在插件中以新增、修改和查看方式打开另一单据功能：显示 bos 单据，显示的方式为新增、修改和浏览参数：IcIassTypelD显示 bos 单据的 ID privatesubshowbill(byVallclassTypeIDAsLong)DimoDatasrvAsobjectDimobiIIAsobjectonerrorgoToerr_ctrsetoDatasrv=m_biIIInterface.K3Lib.c

8、reateK/3object(oDatasrv.cIassTypeID=IcIassTypeIDsetobiII=createobject(withobiII.Datasrv=oDatasrv.IsnetcontroI=True.IscheckRight=True.show*show 参数类型第一个参数optionalbyValllDAsLong=0；描述修改或查看的单据ID 第二个参数 optionalbyValbshowgroupAsboolean二False；如是基础资料 时，是否显示分组第三个参数 optionalbyValbillstatusAsLong二enu_billstatus

9、_new；显示方 式 0 查 看 ； 1 新 增 ； 2 修 改 第 四 个 参 数 optionalbyValdctDataAsKFo.Dictionary 单 据 初 始 值*endwithsetoDatasrv=nothingsetobill=nothingexitsuberr_ctr:setoDatasrv=nothingsetobill=nothingendsub5、显示 bos 序时簿并返回选中的值功能：显示bos序时簿并返回选中的值参数：IcIassTypelD显 示 bos 单据的 IDprivateFunctionshowListbyReturn(byVaIIcIassTyp

10、elDAsLong)AsobjectDimoDatasrvAsobjectDimobjLookupAsobjectonerrorgoToerr_ctrsetoDatasrv=m_biIIlnterface.K3Lib.createK3object(oDatasrv.cIassTypelD=IcIassTypelDlfoDatasrv.showfiIterThensetobjLookup=createobject(objLookup.cIassTypelD=IcIassTypelDsetobjL ookup.Datasrv=oDatasrvobjLookup.LookupsetshowListb

11、yReturn=objLookup.VectReturnendlfsetoDatasrv=nothingsetobjLookup=nothing exitFunctionerr_ctr: setoDatasrv=nothingsetobjLookup=nothingendFunction6、如何在序事簿中得到选中行的记录集值? Dimvectselectaskfo.vectorDimrsasadodb.recordset setvectselect=m_Listinterface.getselectedbillInfo setrs=m_Listinterface.datasrv.getbill

12、Detail(vectselect(1)(7、将当前单据转化为另一单据，并无界面保存数据功能：将当前单据转化为另一单据，并无界面保存数据参数：IcIassTypelD显示 bos 单据的 IDprivatesubnouIsavebill(byVallclassTypeIDAsLong)DimoDatasrvAsobjectDimoTabIeInfoAsobjectDimobiIIAsobjectDimoDataAsobjectDimosrvAsobj ectDimopage2AsobjectDimiAsLongonerrorgoToerr_ctr setoDatasrv=m_billInter

13、face.K3Lib.createK3object(oDatasrv.classTypeID=lclassTypeIDsetoTableInfo=oDatasrv.TableInfosetoData=oDatasrv.getem ptybillFori=1Tom_billInterface.Data(setopage2=oData(oData(添力口至U deDataoData(更改分录号nextFori=1Tom_billInterfaee.Data(oData(m_billInterfaee.getFieldValue(oData(m_billInterfaee.getFieldValue

14、(oData(以下是为大家整理的K3bos插件开发常见技巧的相关范文,本文关 键词为K3bos,插件，开发，常见，技巧，何在，工具栏，添加，多级，您可以从 右上方搜索框检索更多相关文章，如果您觉得有用，请继续关注我们 并推荐给您的好友，您可以在教育文库中查看更多范文。m_billInterface.getFieldValue(nextsetosrv=createobject(i=osrv.save(mmTpsstring,oDatasrv.classType,oDatasrv.classTypeentry, oDatasrv.TableInfo,oData,oDatasrv.dctL

15、ink)setoDatasrv=nothingsetobill=nothingexitsuberr_ctr:msgboxerr.DescriptionsetoDatasrv二nothingsetobill二nothingendsub【备注】1、K/3bos保存方法save的参数描述：publicFunctionsave(byValsDsnAsstring,_byValdctclassTypeAsKFo.Dictionary,_byValvctclassTypeentryAsKFo.Vecto r,_byValdctTableinfoAsKFo.Dictionary,_byRefdctDataA

16、sKFo.Dictionary,_byValdctLinksAsKFo.Dictionary)AsLong*/*描述:单据保存/*参数:/*dctclassTypeKFo.Dictionary 单 据 整 体 信 息 模 板/*dctDataKFo.Dictionary 单据数据包/*dctLinkKFo.Dictionary 选 单 关 系 模 板 ， 无 选 单 为 nothing/*dctTableInfoKFo.Dictionary 单 据 字 段 模 板 信 息 /*sDsnstringK/3 标准数据库连接串7*vctclassTypeentryKFo.Vector 单据体模板信息/*备注:*/2、使用此方法时插件要添加 mmTs。8、如何在插件中获取当前系统字符连接串？ 一、连接串获取方式：(注意不支持调试，调试的话可以用实际 连接串代替)privateDeclareFunctiongetcurrentprocessldLib获取连接串publicFunctiongetpropsstring()AsstringDim