金蝶K3 BOS插件開發(fā)常見技巧

1、1、 如何在工具欄上添加多級審核的按鈕？在m_billinterface_menubarinitialize事件里添加如下代碼即可。set otool = m_billinterface.menubar.bostools(mnueditmulticheck)with otool .caption = 多級審核 .tooltiptext = 多級審核 .description = 多級審核 .begingroup = false .toolpicture = app.path + checker.bmp .setpicture 0, vbbuttonfaceend withset oband =

2、 omenubar.bosbands(bandtoolbar)oband.bostools.insertbefore mnufileprint, otool 將菜單對象插入指定工具欄2、 如何在顯示一張bos單據(jù)的同時給它賦值？要想在顯示bos單據(jù)的同時給它賦值,關(guān)鍵是在顯示前要購建m_billinterface的data包,這樣在顯示這張同據(jù)的時候,程序會解析data包,并將里面的值賦到單據(jù)界面上來。 dim dctdata as kfo.dictionary dim datasrv as object dim otableinfo as object set datasrv = m_bil

3、linterface.k3lib.createk3object(k3classtpl.datasrv) datasrv.classtypeid = lclasstypeid lclasstypeid 需要彈出單據(jù)的id set otableinfo = datasrv.tableinfo set dctdata = datasrv.getemptybill 然后將當(dāng)前單據(jù)數(shù)據(jù)包中需要的數(shù)據(jù)填充到dctdata的對應(yīng)字段 在以上語句執(zhí)行后,dctdata(“page2”)里只有一行表結(jié)構(gòu)(即表體只有一行) 賦表頭的值 dctdata(page1)(otableinfo(map)(ftext)(f

4、fld) = 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.getfieldvalue(fdeptid, -1, enu_valuetype_ffnd) dctdata(page1)(otableinfo(map)(fde

5、ptid)(fdsp) = m_billinterface.getfieldvalue(fdeptid, -1, enu_valuetype_fdsp) 賦表體的值 dim opage2 as object for i = 1 to m_billinterface.data(page2).ubound - 1 set opage2 = dctdata(page2)(1).cloneall dctdata(page2).add opage2 添加到 dcdata dctdata(page2)(i + 1)(otableinfo(map)(findex2)(ffld) = i + 1 更改分錄號

6、next for i = 1 to m_billinterface.data(page2).ubound 物料 fitemid dctdata(page2)(i)(otableinfo(map)( fitemid )(ffld) = m_billinterface.getfieldvalue(fitemid , i, enu_valuetype_ffld) dctdata(page2)(i)(otableinfo(map)( fitemid )(fdsp) = m_billinterface.getfieldvalue(fitemid , i, enu_valuetype_fdsp) dctd

7、ata(page2)(i)(otableinfo(map)( fitemid )(ffnd) = m_billinterface.getfieldvalue(fitemid , i, enu_valuetype_ffnd) 物料名稱 fbaseproperty dctdata(page2)(i)(otableinfo(map)(fbaseproperty)(ffld) = m_billinterface.getfieldvalue(fbaseproperty, i, enu_valuetype_ffld) dctdata(page2)(i)(otableinfo(map)(fbaseprope

8、rty)(fdsp) = m_billinterface.getfieldvalue(fbaseproperty, i, enu_valuetype_fdsp) dctdata(page2)(i)(otableinfo(map)(fbaseproperty)(ffnd) = m_billinterface.getfieldvalue(fbaseproperty, i, enu_valuetype_ffnd) 計量單位 funitid dctdata(page2)(i)(otableinfo(map)( funitid )(ffld) = m_billinterface.getfieldvalu

9、e(funitid , i, enu_valuetype_ffld) dctdata(page2)(i)(otableinfo(map)( funitid )(fdsp) = m_billinterface.getfieldvalue(funitid , i, enu_valuetype_fdsp) dctdata(page2)(i)(otableinfo(map)( funitid )(ffnd) = m_billinterface.getfieldvalue(funitid , i, enu_valuetype_ffnd) 數(shù)量 fqty dctdata(page2)(i)(otablei

10、nfo(map)(fqty)(ffld) = m_billinterface.getfieldvalue(fqty, i, enu_valuetype_ffld) next set obj = createobject(k3singleclassbill.classinfomanager) with obj .datasrv = datasrv .ischeckright = true .show , , , dctdata end with3、 如何在插件中實現(xiàn)選單的功能？調(diào)用bos單據(jù)m_billinterface.billctl.doselbill lclasstypeid (原單的cl

11、asstypeid)調(diào)用工業(yè)單據(jù)m_billinterface.billctl.doseloldbill lclasstypeid (原單的classtypeid)4、 在插件中以新增、修改和查看方式打開另一單據(jù) * 功能：顯示bos單據(jù)，顯示的方式為新增、修改和瀏覽參數(shù)：lclasstypeid顯示bos單據(jù)的id* private sub showbill(byval lclasstypeid as long) dim odatasrv as object dim obill as object on error goto err_ctr set odatasrv = m_billinte

12、rface.k3lib.createk/3object(k3classtpl.datasrv)odatasrv.classtypeid = lclasstypeid set obill = createobject(k3singleclassbill.classinfomanager)with obill .datasrv = odatasrv .isnetcontrol = true .ischeckright = true .show * show 參數(shù)類型 第一個參數(shù) optional byval lid as long = 0 ；描述修改或查看的單據(jù)id 第二個參數(shù) optional

13、byval bshowgroup as boolean = false ；如是基礎(chǔ)資料時，是否顯示分組 第三個參數(shù) optional byval billstatus as long = enu_billstatus_new ；顯示方式 0查看；1新增；2修改 第四個參數(shù) optional byval dctdata as kfo.dictionary 單據(jù)初始值 * end with set odatasrv = nothing set obill = nothing exit suberr_ctr:set odatasrv = nothing set obill = nothingend

14、sub5、 顯示bos序時簿并返回選中的值* 功能：顯示bos序時簿并返回選中的值參數(shù)：lclasstypeid顯示bos單據(jù)的id* private function showlistbyreturn(byval lclasstypeid as long) as object dim odatasrv as objectdim objlookup as objecton error goto err_ctrset odatasrv = m_billinterface.k3lib.createk3object(k3classtpl.datasrv)odatasrv.classtypeid =

15、lclasstypeidif odatasrv.showfilter then set objlookup = createobject(k3classlookup.billlookup) objlookup.classtypeid = lclasstypeid set objlookup.datasrv = odatasrv objlookup.lookup set showlistbyreturn = objlookup.vectreturn end ifset odatasrv = nothingset objlookup = nothingexit functionerr_ctr:se

16、t odatasrv = nothingset objlookup = nothingend function6、 如何在序事簿中得到選中行的記錄集值?dim vectselect as kfo.vectordim rs as adodb.recordsetset vectselect=m_listinterface. getselectedbillinfoset rs=m_listinterface.datasrv. getbilldetail(vectselect(1)(fid)7、 將當(dāng)前單據(jù)轉(zhuǎn)化為另一單據(jù)，并無界面保存數(shù)據(jù) *功能：將當(dāng)前單據(jù)轉(zhuǎn)化為另一單據(jù)，并無界面保存數(shù)據(jù)參數(shù)：lcl

17、asstypeid顯示bos單據(jù)的id* private sub nouisavebill(byval lclasstypeid as long) dim odatasrv as objectdim otableinfo as objectdim obill as objectdim odata as objectdim osrv as objectdim opage2 as objectdim i as longon error goto err_ctrset odatasrv = m_billinterface.k3lib.createk3object(k3classtpl.datasrv

18、)odatasrv.classtypeid = lclasstypeidset otableinfo = odatasrv.tableinfoset odata = odatasrv.getemptybillfor i = 1 to m_billinterface.data(page2).ubound - 1 set opage2 = odata(page2)(1).cloneall odata(page2).add opage2 添加到 dcdata odata(page2)(i + 1)(_-0001_findex2)(ffld) = i + 1 更改分錄號nextfor i = 1 to

19、 m_billinterface.data(page2).ubound odata(page2)(i)(otableinfo(map)(fitemid)(ffld) = m_billinterface.getfieldvalue(fitemid, i, enu_valuetype_ffld) odata(page2)(i)(otableinfo(map)(fitemid)(ffnd) = m_billinterface.getfieldvalue(fitemid, i, enu_valuetype_ffnd) odata(page2)(i)(otableinfo(map)(fitemid)(f

20、dsp) = m_billinterface.getfieldvalue(fitemid, i, enu_valuetype_fdsp) next set osrv = createobject(k3mclass.billupdate) i = osrv.save(mmts.propsstring, odatasrv.classtype, odatasrv.classtypeentry, odatasrv.tableinfo, odata, odatasrv.dctlink)set odatasrv = nothingset obill = nothing exit suberr_ctr: m

21、sgbox err.descriptionset odatasrv = nothingset obill = nothingend sub【備注】1、k/3 bos保存方法save的參數(shù)描述：public function save(byval sdsn as string, _ byval dctclasstype as kfo.dictionary, _ byval vctclasstypeentry as kfo.vector, _ byval dcttableinfo as kfo.dictionary, _ byref dctdata as kfo.dictionary, _ byval dctlinks as kfo.dictionary) as long/*/*描述