K3BOS插件开发常见技巧
以下是为大家整理的K3bos插件开发常见技巧的相关范文，本文关键词为K3bos,插件,开发,常见,技巧,何在,工具栏,添加,多级，您可以从右上方搜索框检索更多相关文章，如果您觉得有用，请继续关注我们并推荐给您的好友，您可以在教育文库中查看更多范文。
1、如何在工具栏上添加多级审核的按钮？
在m_billInterface_menubarInitialize事件里添加如下代码即可。 setoTool=m_billInterface.menubar.bosTools(\\withoTool
.caption=\\多级审核\\.ToolTipText=\\多级审核\\.Description=\\多级审
核\\
.begingroup=False
.Toolpicture=App.path+\\.setpicture0,vbbuttonFaceendwith setoband=omenubar.bosbands(\\
oband.bosTools.Insertbefore\\将菜单对象插入指定工具栏 2、如何在显示一张bos单据的同时给它赋值？
要想在显示bos单据的同时给它赋值,关键是在显示前要购建m_billinterface的data包,这样在显示这张同据的时候,程序会解析data包,并将里面的值赋到单据界面上来。
DimdctDataAskfo.DictionaryDimdatasrvasobjectDimoTableinfoasobject
setDatasrv=m_billInterface.K3Lib.createK3object(\\Datasrv.classTypeID=lclassTypeID'lclassTypeID
需
要
弹
出
单
据
的
IDsetoTableInfo=Datasrv.TableInfo
setdctData=Datasrv.getemptybill'然后将当前单据数据包中需要的数据填充到dctdata的对应字段
'在以上语句执行后,dctdata(“page2”)里只有一行表结构(即表体只有一行)'赋表头的值
dctData(\\m_billInterface.getFieldValue(\\ dctData(\\
m_billInterface.getFieldValue(\\dctData(\\ m_billInterface.getFieldValue(\\dctData(\\ m_billInterface.getFieldValue(\\ '赋表体的值 Dimopage2Asobject ====
Fori=1Tom_billInterface.Data(\\ setopage2=dctData(\\ dctData(\\添加到dcData dctData(\\更改分录号next
Fori=1Tom_billInterface.Data(\\ '物料FItemID dctData(\\ FItemID \\
m_billInterface.getFieldValue(\\dctData(\\FItemID\\m_billInterface.getFieldValue(\\dctData(\\FItemID\\m_billInterface.getFieldValue(\\ '物料名称fbaseproperty
dctData(\\m_billInterface.getFieldValue(\\dctData(\\m_billInterface.getFieldValue(\\dctData(\\m_billInterface.getFieldValue(\\ '计量单位FunitID
dctData(\\FunitID\\m_billInterface.getFieldValue(\\dctData(\\FunitID\\m_billInterface.getFieldValue(\\dctData(\\FunitID\\m_billInterface.getFieldValue(\\
'数量FQty
dctData(\\m_billInterface.getFieldValue(\\ next
setobj=createobject(\\withobj .datasrv=datasrv === ===
====.IscheckRight=True.show,,,dctDataendwith 3、如何在插件中实现选单的功能？ 调用bos单据
m_billInterface.billctl.DoselbilllclassTypeID'(原单的classTypeID)调用工业单据
m_billInterface.billctl.DoseloldbilllclassTypeID'(原单的classTypeID) 4、在插件中以新增、修改和查看方式打开另一单据
'********************************************
'功能：显示bos单据，显示的方式为新增、修改和浏览'参数：lclassTypeID—显示bos单据的ID'
'******************************************** privatesubshowbill(byVallclassTypeIDAsLong) DimoDatasrvAsobjectDimobillAsobject onerrorgoToerr_ctr
setoDatasrv=m_billInterface.K3Lib.createK/3object(\\oDatasrv.classTypeID=lclassTypeID
setobill=createobject(\\withobill
.Datasrv=oDatasrv.Isnetcontrol=True.IscheckRight=True.show '**********************'show参数类型
'第一个参数optionalbyVallIDAsLong=0；描述修改或查看的单据ID'第二个参数optionalbyValbshowgroupAsboolean=False；如是基础资料时，
是
否
显
示
分
组
'第
三
个
参
数
optionalbyValbillstatusAsLong=enu_billstatus_new；显示
方式0—查看；1—新增；2—修改'第四个参数optionalbyValdctDataAsKFo.Dictionary''**********************endwith
单
据
初
始
值
K3BOS插件开发常见技巧
