資源描述：
《金蝶k3 bos插件開(kāi)發(fā)常見(jiàn)技巧》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、1、如何在工具欄上添加多級(jí)審核的按鈕？在m_BillInterface_MenuBarInitialize事件里添加如下代碼即可。SetoTool=m_BillInterface.MenuBar.BOSTools("mnuEditMultiCheck")WithoTool.Caption="多級(jí)審核".ToolTipText="多級(jí)審核".Description="多級(jí)審核".BeginGroup=False.ToolPicture=App.Path+"Checker.bmp".SetPicture0,vbButtonFaceEndWi
2、thSetoBand=oMenuBar.BOSBands("BandToolBar")oBand.BOSTools.InsertBefore"mnuFilePrint",oTool'將菜單對(duì)象插入指定工具欄2、如何在顯示一張Bos單據(jù)的同時(shí)給它賦值？要想在顯示Bos單據(jù)的同時(shí)給它賦值,關(guān)鍵是在顯示前要購(gòu)建m_Billinterface的data包,這樣在顯示這張同據(jù)的時(shí)候,程序會(huì)解析data包,并將里面的值賦到單據(jù)界面上來(lái)。DimdctDataAskfo.DictionaryDimdatasrvasobjectDimoTableinfoa
3、sobjectSetDataSrv=m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")DataSrv.ClassTypeID=lClassTypeID'lClassTypeID需要彈出單據(jù)的IDSetoTableInfo=DataSrv.TableInfoSetdctData=DataSrv.GetEmptyBill'然后將當(dāng)前單據(jù)數(shù)據(jù)包中需要的數(shù)據(jù)填充到dctdata的對(duì)應(yīng)字段'在以上語(yǔ)句執(zhí)行后,dctdata(“page2”)里只有一行表結(jié)構(gòu)(即表體只有一行)'賦表頭的
4、值dctData("Page1")(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_BillIn
5、terface.GetFieldValue("FDeptID",-1,Enu_ValueType_FFND)dctData("Page1")(oTableinfo("map")("FDeptID"))("FDSP")=m_BillInterface.GetFieldValue("FDeptID",-1,Enu_ValueType_FDSP)'賦表體的值DimoPage2AsObjectFori=1Tom_BillInterface.Data("Page2").UBound-1SetoPage2=dctData("Page2")(1).Cl
6、oneAlldctData("Page2").AddoPage2'添加到dcDatadctData("Page2")(i+1)(oTableinfo("map")("FIndex2"))("FFLD")=i+1'更改分錄號(hào)NextFori=1Tom_BillInterface.Data("Page2").UBound'物料FItemIDdctData("Page2")(i)(oTableinfo("map")("FItemID"))("FFLD")=m_BillInterface.GetFieldValue("FItemID",i,Enu
7、_ValueType_FFLD)dctData("Page2")(i)(oTableinfo("map")("FItemID"))("FDSP")=m_BillInterface.GetFieldValue("FItemID",i,Enu_ValueType_FDSP)dctData("Page2")(i)(oTableinfo("map")("FItemID"))("FFND")=m_BillInterface.GetFieldValue("FItemID",i,Enu_ValueType_FFND)'物料名稱fbaseproperty
8、dctData("page2")(i)(oTableinfo("map")("fbaseproperty"))("FFLD")=m_BillInterface.GetFieldValue("f
