k3bos插件开发常见技巧

k3bos插件开发常见技巧

ID:17752062

大小:39.50 KB

页数:7页

时间:2018-09-05

k3bos插件开发常见技巧_第1页
k3bos插件开发常见技巧_第2页
k3bos插件开发常见技巧_第3页
k3bos插件开发常见技巧_第4页
k3bos插件开发常见技巧_第5页
资源描述:

《k3bos插件开发常见技巧》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、1、如何在工具栏上添加多级审核的按钮?在m_BillInterface_MenuBarInitialize事件里添加如下代码即可。SetoTool=m_BillInterface.MenuBar.BOSTools("mnuEditMultiCheck")WithoTool.Caption="多级审核".ToolTipText="多级审核".Description="多级审核".BeginGroup=False.ToolPicture=App.Path+"Checker.bmp".SetPicture0,vbButtonFaceEndWithSet

2、oBand=oMenuBar.BOSBands("BandToolBar")oBand.BOSTools.InsertBefore"mnuFilePrint",oTool'将菜单对象插入指定工具栏2、如何在显示一张Bos单据的同时给它赋值?要想在显示Bos单据的同时给它赋值,关键是在显示前要购建m_Billinterface的data包,这样在显示这张同据的时候,程序会解析data包,并将里面的值赋到单据界面上来。DimdctDataAskfo.DictionaryDimdatasrvasobjectDimoTableinfoasobjectSet

3、DataSrv=m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")DataSrv.ClassTypeID=lClassTypeID'lClassTypeID需要弹出单据的IDSetoTableInfo=DataSrv.TableInfoSetdctData=DataSrv.GetEmptyBill'然后将当前单据数据包中需要的数据填充到dctdata的对应字段'在以上语句执行后,dctdata(“page2”)里只有一行表结构(即表体只有一行)'赋表头的值dctData("Page1

4、")(oTableinfo("map")("FText"))("FFLD")=m_BillInterface.GetFieldValue("FText")dctData("Page1")(oTableinfo("map")("FDeptID"))("FFLD")=m_BillInterface.GetFieldValue("FDeptID",-1,Enu_ValueType_FFLD)dctData("Page1")(oTableinfo("map")("FDeptID"))("FFND")=m_BillInterface.GetFieldValu

5、e("FDeptID",-1,Enu_ValueType_FFND)dctData("Page1")(oTableinfo("map")("FDeptID"))("FDSP")=m_BillInterface.GetFieldValue("FDeptID",-1,Enu_ValueType_FDSP)'赋表体的值DimoPage2AsObjectbeconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlinei

6、dentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcoreFori=1Tom_BillInterface.Data("Page2").UBound-1SetoPage2=dctData("Page2")(1).CloneAlldct

7、Data("Page2").AddoPage2'添加到dcDatadctData("Page2")(i+1)(oTableinfo("map")("FIndex2"))("FFLD")=i+1'更改分录号NextFori=1Tom_BillInterface.Data("Page2").UBound'物料FItemIDdctData("Page2")(i)(oTableinfo("map")("FItemID"))("FFLD")=m_BillInterface.GetFieldValue("FItemID",i,Enu_ValueType_FFL

8、D)dctData("Page2")(i)(oTableinfo("map")("FItemID"))("FDSP")=m

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。