資源描述：
《k3bos插件開發(fā)常見技巧》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
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單據(jù)的同時給它賦值？要想在顯示Bos單據(jù)的同時給它賦值,關(guān)鍵是在顯示前要購建m_Billinterface的data包,這樣在顯示這張同據(jù)的時候,程序會解析data包,并將里面的值賦到單據(jù)界面上來。DimdctDataAskfo.DictionaryDimdatasrvasobjectDimoTableinfoasobjectSet
3、DataSrv=m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")DataSrv.ClassTypeID=lClassTypeID'lClassTypeID需要彈出單據(jù)的IDSetoTableInfo=DataSrv.TableInfoSetdctData=DataSrv.GetEmptyBill'然后將當(dāng)前單據(jù)數(shù)據(jù)包中需要的數(shù)據(jù)填充到dctdata的對應(yīng)字段'在以上語句執(zhí)行后,dctdata(“page2”)里只有一行表結(jié)構(gòu)(即表體只有一行)'賦表頭的值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
