金蝶K3 V13.1BOS 插件開(kāi)發(fā)手冊(cè)

KBOS插件開(kāi)發(fā)手冊(cè)金蝶軟件(中國(guó))有限公司 o ey k x KBOS插件開(kāi)發(fā)手冊(cè) x t v d i ata ata l ii a iii e x ta i ii v KBOS插件開(kāi)發(fā)手冊(cè)第1頁(yè)K3ClassEvents的對(duì)象模型關(guān)于KingdeeFoundationObjects1.0對(duì)象O關(guān)于MicrosoftActiveXDataObjectsLibrary對(duì)象使用方法、描述等詳細(xì)內(nèi)容，請(qǐng)參考/相關(guān)內(nèi)容。KBOS插件開(kāi)發(fā)手冊(cè)第2頁(yè)sBOSBand(以及它的集合對(duì)象BOSBands)BillHead(以及它的集合對(duì)象BillHeads)BillEntry(以及它的集合對(duì)象BillEntrys)BOSField(以及它的集合對(duì)象BOSFields)輔助對(duì)象，不能使用New關(guān)鍵字創(chuàng)建。KBOS插件開(kāi)發(fā)手冊(cè)ListEvents對(duì)象參考ListEvents對(duì)象屬于金蝶K/3BOS的客戶(hù)端接口對(duì)象，用來(lái)獲得金蝶K/3BOS的客戶(hù)端的序時(shí)簿對(duì)tsDataSrvDataSrv屬性的數(shù)據(jù)服務(wù)對(duì)象DataSrvoaSrvClassTypeIDDataSrvClassTypeFName)DataSrvSQLSelectDetail"Where"&DataSrv.Filter("FilterString")獲取字段(Key通過(guò)參數(shù)sField指定)的模板的數(shù)據(jù)：PrivateFunctionGetFieldInfoByValsFieldAsString)AsKFO.DictionaryDimdctTableInfoAsKFODictionaryDimsKeyAsString第3頁(yè)第4頁(yè)etdctTableInfomListInterfaceDataSrvTableInfobleInfoMapLookupsFieldThenydctTableInfoMapsFieldtGetFieldInfodctTableInfosKeyetFieldInfoNothingEndIfunctionEnableListFillRowEventsEnableListFillRowEvents屬性istFillRowEventsPublicSubShowByValoListInterfaceAsObject)tEvents須存在,請(qǐng)勿修改mListInterfaceoListInterfaceEnableListFillRowEvents性，允許激發(fā)ListFillRow事件mListInterface.EnableListFillRowEvents=TruedSub第5頁(yè)dDictFKeyFTextThenCaseCellDataCase“1”:CellData一"BackColorvbWhiteCase“2”:CellData二"BackColorvbWhiteCase“3”:CellData三"BackColorvbWhiteCase“4”:CellData四"BackColorvbWhiteCase“5”:CellData五"BackColorvbWhiteCase“6”:CellData六"BackColorvbGreenCase“7”:CellData日"BackColorvbGreenElseBackColorvbWhiteSelectEndIfntinueRaiseTruedSubKK3Lib屬性KLib對(duì)象b第6頁(yè)ListList屬性Callm_ListInterface.List.RefreshList(False)ListEntrySortListEntrySort屬性tEntrySort可以通過(guò)該屬性返回當(dāng)前序時(shí)簿顯示前過(guò)濾界面中設(shè)置的單據(jù)體字段排序，或者設(shè)置當(dāng)前單據(jù)體字段的排序(設(shè)置后需要調(diào)用序時(shí)簿刷新方法才可以看到設(shè)置結(jié)果)。KBOS插件開(kāi)發(fā)手冊(cè)第7頁(yè)ListFilterStringListFilterString屬性stFilterString)。ListHeadSortListHeadSort屬性HeadSort可以通過(guò)該屬性返回當(dāng)前序時(shí)簿顯示前過(guò)濾界面中設(shè)置的單據(jù)頭字段排序，或者設(shè)置當(dāng)前單據(jù)頭字段的排序(設(shè)置后需要調(diào)用序時(shí)簿刷新方法才可以看到設(shè)置結(jié)果)。MenuBarMenuBar屬性象MenuBar第8頁(yè)uBarMultiCheckMgrMultiCheckMgr屬性ltiCheckMgr都能從此組件中讀取到。RsIdRsId屬性段數(shù)據(jù)集合ctRsIDordset使用這個(gè)屬性，插件工程還必須引用MicrosoftActiveXDataObjectsLibrary。第9頁(yè)ShowModeShowMode屬性stFilterStringewwModelookUpConnectView=1:一般查詢(xún)模態(tài)窗口=2:選單=3:聯(lián)查ShowMsgShowMsg屬性示。owMsgDeleteBillDeleteBill函數(shù)Object.DeleteBill(ByVallClassTypeIDAsLong,ByValnInterIDAsLong,OptionalByRefKBOS插件開(kāi)發(fā)手冊(cè)第10頁(yè)ring內(nèi)碼操作是否成功String操作成功或失敗用戶(hù)定義單據(jù)并保存后，會(huì)在數(shù)據(jù)庫(kù)中創(chuàng)建對(duì)應(yīng)的表。如單據(jù)為t_BOS200000001表，單據(jù)體為tBOSEntry行。ID義單據(jù)時(shí)所指定的“主鍵字段”(默認(rèn)為“FID”)。當(dāng)前序時(shí)簿的單據(jù)類(lèi)型ID與內(nèi)碼可以通過(guò)nterfaceRsIdFClassTypeIDmListInterfaceRsIdFIDimbSuccessAsBooleanDimsResultAsStringsResultmListInterfaceDeleteBill1,0018,bSuccess)Debug.Print“刪除成功”Debug.Print“刪除失敗”EndIfDebugPrintsResultGetDataFldByKeyGetDataFldByKey函數(shù)aFldByKeysFKeyAsStringRowAsLongString類(lèi)型。字段模板的關(guān)鍵字(FKey)。第11頁(yè)當(dāng)字段位于多分錄上時(shí)，通過(guò)此參數(shù)指定需要獲得的字段的值所在的行號(hào)。不指定dctFielddctDatadctBillIDAsKFODictionaryAsKFODictionaryAsKFODictionaryetdctBillIDmListInterfaceListGetSelectedBillIDSetdctDatamListInterfaceDataSrvLoadBilldctBillID.Name(1))etmListInterfaceDatadctDataSetdctFieldmListInterfaceGetDataFldbyKeyFBillNo")ldIsNothingThenDebugPrint單據(jù)編號(hào):"&dctField("FFLD")EndIfctFieldNothingctDataNothingctBillIDNothingGetDataFldGetDataFld函數(shù)。dctAsDictionaryRowAsLongFODictionary當(dāng)字段位于多分錄上時(shí)，通過(guò)此參數(shù)指定需要獲得的字段的值所在的行號(hào)。不指定第12頁(yè)DimdctAsKFO.DictionarymdctDataAsKFO.DictionaryDimdctBillIDAsKFO.DictionaryDimdctDataInfoAsKFODictionaryetdctBillIDmListInterfaceListGetSelectedBillIDSetdctDatamListInterfaceDataSrvLoadBilldctBillID.Name(1))etmListInterfaceDatadctDataSetdctDataInfoGetFieldInfoFBillNoSetdctmListInterfaceGetDataFlddctDataInfoothingThenDebugPrint單據(jù)編號(hào):"&dct("FFLD")EndIfctNothingctDataNothingctBillIDNothingctDataInfoNothingGetCurrentSelRowInfoGetCurrentSelRowInfo函數(shù)bjectGetCurrentSelRowInfo第13頁(yè)DimdctSelectedRowAsKFODictionarytdctSelectedRowmListInterfaceGetCurrentSelRowInfoDebugPrint據(jù)內(nèi)碼:"&dctSelectedRow("FID"),_dctSelectedRow("FClassTypeID"),_ctSelectedRowNothingGetSelectedBillInfoGetSelectedBillInfo函數(shù)獲取選中行(可以多選)的關(guān)鍵數(shù)據(jù)。ObjectGetSelectedBillInfo()此函數(shù)返回一個(gè)KFO.Vector數(shù)據(jù)包，Vector的Size和選中的行數(shù)一致。每行包含一個(gè)IDDimiAsLongDimvctRowsAsKFOVectorDimdctRowAsKFO.DictionarytvctRowsmListInterfaceGetSelectedBillInfosIsNothingThenFori1TovctRows.SizetdctRowvctRowsi第14頁(yè)DebugPrint據(jù)內(nèi)碼:"&dctRow("FID");_&dctRow("FClassTypeID");_xtEndIfctRowNothingctRowsNothingLoadSelectedBillLoadSelectedBill函數(shù)ctLoadSelectedBillBillStatusAsEnuBillStatusExtxtEnu_BillStatusExt常數(shù)值tView0tusExtNew1sExtModify2True返回False。mListInterfaceLoadSelectedBillEnu_BillStatusExt_ModifyObject.RefreshList(OptionalByValbRefreshToolBarAsBoolean=True,OptionalByValKBOS插件開(kāi)發(fā)手冊(cè)第15頁(yè)else無(wú)：mListInterface.RefreshListTrue,TrueSenderMessageSenderMessage函數(shù)ringsMessageAsStringarrUserslSenderTypeAseFalse第16頁(yè)imblnAsBooleanbln=m_ListInterface.SenderMessage("審核單據(jù)","請(qǐng)審核[111111]單據(jù)",16394)UpdateNormalFldUpdateNormalFld函數(shù)Object.UpdateNormalFld(dctAsDictionary,sValueAsString,[RowAsLong],BooleanFODictionarynmListInterfaceUpdateNormalFldGetFieldInfo("FBillNo"),"33333"UpdateNormalFldByKeyUpdateNormalFldByKey函數(shù)ObjectUpdateNormalFldByKeysKeyAsStringsValueAsString,[RowAsLong],Boolean第17頁(yè)String類(lèi)型。字段模板的關(guān)鍵名稱(chēng)(FKey)。mListInterface.UpdateNormalFldByKey"FBillNo","33333"RefreshMenuRefreshMenu函數(shù)單和工具欄MenuListInterfaceRefreshMenurBatchMultiCheckKBOS插件開(kāi)發(fā)手冊(cè)第18頁(yè)P(yáng)rivateSubObject_AfterBatchMultiCheck(ByVallCheckDirectionAsLong,ByValultAsKFODictionarytAfterBusinessCheckAfterBusinessCheck事件erBusinessCheckByValSuccessAsBooleanAfterBusinessCheckExAfterBusinessCheckEx事件PrivateSubObject_AfterBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAsKBOS插件開(kāi)發(fā)手冊(cè)第19頁(yè)AfterCopyBillCreateDataAfterCopyBillCreateData事件AsDictionaryAfterDeleteBillAfterDeleteBill事件PrivateSubObject_AfterDeleteBill(ByValbSuccessAsBoolean,ByVallBillInterIDAsLong,ByValsBillNoAsString,ByValsErrorMessageAsString,bCancelErrorMessageAsagegeBoolean類(lèi)型。是否顯示錯(cuò)誤信息提示對(duì)話框(包括成功信息)。bCancelErrorMessageFalseKBOS插件開(kāi)發(fā)手冊(cè)第20頁(yè)rMergeCopyBillgeCopyBillByValdctDataAsKFODictionaryictionaryAfterMultiCheckAfterMultiCheck事件PrivateSubObjectAfterMultiCheckByVallCheckModeAsLongByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsByValSuccessAsBooleanAfterMultiCheckExAfterMultiCheckEx事件KBOS插件開(kāi)發(fā)手冊(cè)第21頁(yè)ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByValSuccessAsBooleankAfterSelListAfterSelList事件PrivateSubObject_AfterSelList(ByValRsIdAsADODB.Recordset,VectListAsADODBRecordset時(shí)簿所有單據(jù)的關(guān)鍵字段記錄集合。VectList并將其一同返回。sIdMicrosoftActiveXDataObjectsLibraryAfterUnBusinessCheckAfterUnBusinessCheck事件UnBusinessCheckByValSuccessAsBooleanKBOS插件開(kāi)發(fā)手冊(cè)第22頁(yè)AfterUnBusinessCheckExAfterUnBusinessCheckEx事件PrivateSubObject_AfterUnBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAsAfterUnMultiCheckAfterUnMultiCheck事件PrivateSubObject_AfterUnMultiCheck(ByVallCheckModeAslCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelongByValSuccessAsBooleanAsLong,ByVallCheckMode參數(shù)的值值1KBOS插件開(kāi)發(fā)手冊(cè)第23頁(yè)2AfterUnMultiCheckExAfterUnMultiCheckEx事件PrivateSubObject_AfterUnMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAssAsLongByValSuccessAsBooleankBeforeMultiCheckBeforeMultiCheck事件velAsLong,ByVallBusinessLevelAsLong,lCheckLevelAsLong,ByVallCheckStatusAsLong,ngByVallLastCheckToAsLongCancelAsBooleanLong。KBOS插件開(kāi)發(fā)手冊(cè)第24頁(yè)lCheckMode參數(shù)的值值12BeforeMultiCheckExBeforeMultiCheckEx事件PrivateSubObject_BeforeMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByReflCheckLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAssBooleanBeforePrintBillBeforePrintBill事件PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsolean第25頁(yè)terIDKFOVector。當(dāng)前選擇的單據(jù)/基礎(chǔ)資料內(nèi)碼列表Boolean類(lèi)型。當(dāng)前動(dòng)作是否預(yù)覽Boolean類(lèi)型。是否取消后續(xù)的打印/預(yù)覽操作BeforeSenderMessageBeforeSenderMessage事件PrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsctionCodeString動(dòng)作名稱(chēng)。ectionaryoleandctMessage的值，可以修改發(fā)送的消息數(shù)據(jù)。BeforRefreshToolBarBeforRefreshToolBar事件bShowCaptionAsBoolean第26頁(yè)BusinessCheckBusinessCheck事件ectBusinessCheckCancelAsBooleanBusinessCheckExBusinessCheckEx事件sinessCheckExByVallBillIDAsLongCancelAsBoolean此事件總是在BusinessCheck事件之后觸發(fā)。即使在BusinessCheck事件中設(shè)置了Cancel=FinishMultiCheckFinishMultiCheck事件AsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,bSenderMessageAsooleanKBOS插件開(kāi)發(fā)手冊(cè)第27頁(yè)lCheckMode參數(shù)的值值12FinishMultiCheckExFinishMultiCheckEx事件ByVallCheckMaxLevelAsLongByVallBusinessLevelAsLongByVallCheckStatusAsLong,eAsBooleanListFillRowListFillRow事件PrivateSubObject_ListFillRow(ByVallRowAsHeadDictAsKFO.Dictionary,CellDataAsString,Long,ByValRowDataAsObject,ByValBackColorAsLong,ContinueRaiseAsKBOS插件開(kāi)發(fā)手冊(cè)jectADODBRecordsetKFO.Dictionary對(duì)象。當(dāng)前單元格(字段)的信息。Boolean的時(shí)候是否發(fā)生ListFillRow事件。每個(gè)行的每個(gè)可見(jiàn)的單元格(字段)的數(shù)據(jù)填充都會(huì)發(fā)生此事件。CellData值，可以改變單元格的實(shí)際填充數(shù)據(jù)。更改BackColor參數(shù)的值，可以改變行的背景色?？梢允褂肦GB函數(shù)得到色值。ListFillRow。注意：如果要使用RowData參數(shù)，插件工程還必須引用MicrosoftActiveXDataObjectsPublicSubShowByValoListInterfaceAsObject)tEvents須存在,請(qǐng)勿修改mListInterfaceoListInterfaceEnableListFillRowEvents性，允許激發(fā)ListFillRow事件mListInterface.EnableListFillRowEvents=TruedSubdDictFKeyFTextThen第28頁(yè)KBOS插件開(kāi)發(fā)手冊(cè)第29頁(yè)CaseCellDataCase“1”:CellData一"BackColorvbWhiteCase“2”:CellData二"BackColorvbWhiteCase“3”:CellData三"BackColorvbWhiteCase“4”:CellData四"BackColorvbWhiteCase“5”:CellData五"BackColorvbWhiteCase“6”:CellData六"BackColorvbGreenCase“7”:CellData日"BackColorvbGreenElseBackColorvbWhiteSelectEndIfntinueRaiseTruedSubListRowSelectedListRowSelected事件dByVallRowAsLongKBOS插件開(kāi)發(fā)手冊(cè)第30頁(yè)MenuBarClickMenuBarClick事件ToolBoolean作。MenuBarInitializeMenuBarInitialize事件rInitializeByValoMenuBarAsKClassEventsMenuBarlassEventsMenuBar作oMenuBar參數(shù)來(lái)修改、新增菜單、工具欄項(xiàng)。MultiCheckMultiCheck事件PrivateSubObject_MultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsbSenderCheckMessageAsBoolean,bSenderAcceptMessageAsBoolean,sMessageTitleAsringsMessageAsStringCancelAsBooleanKBOS插件開(kāi)發(fā)手冊(cè)第31頁(yè)geoleanageBoolean息。String。String。erCheckMessageTrueFalsesMessageTitlesMessage值可以改變審核消息的內(nèi)容。lCheckMode參數(shù)的值值12MultiCheckExMultiCheckEx事件PrivateSubObject_MultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByRefbSendCheckMessageAsBoolean,ByReflean第32頁(yè)fulByValdctParametersAsKFODictionaryStartMultiCheckStartMultiCheck事件SubObjectStartMultiCheckByVallCheckModeAsLongByVallCheckMaxLevelAsLong,bSenderMessageAsBoolean,CancelAsBoolean)BooleanMessageleKBOS插件開(kāi)發(fā)手冊(cè)lCheckMode參數(shù)的值值12StartMultiCheckExStartMultiCheckEx事件ankUnBusinessCheckUnBusinessCheck事件ectUnBusinessCheckCancelAsBooleanUnBusinessCheckExUnBusinessCheckEx事件ctUnBusinessCheckExByVallBillIDAsLongCancelAsBoolean第33頁(yè)KBOS插件開(kāi)發(fā)手冊(cè)第34頁(yè)UnMultiCheckUnMultiCheck事件LongByVallBusinessLevelAsLongByVallCheckStatusAsLongByVallLastCheckFromAserMessageAsBooleanCancelAsBooleanLong。BooleanbSenderMessageTrueFalse發(fā)送駁回lCheckMode參數(shù)的值值1KBOS插件開(kāi)發(fā)手冊(cè)第35頁(yè)2UnMultiCheckExUnMultiCheckEx事件PrivateSubObject_UnMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLongByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,bSenderMessageAsBoolean,sBooleanReMultiCheckReMultiCheck事件heckAsBooleanctionaryReMultiCheckExReMultiCheckEx事件第36頁(yè)P(yáng)rivateSubObject_ReMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsctbReCheckAsBooleanReUnMultiCheckReUnMultiCheck事件AsObjectbReCheckAsBoolean)ctionaryReUnMultiCheckExReUnMultiCheckEx事件PrivateSubObject_ReUnMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsctbReCheckAsBooleanKBOS插件開(kāi)發(fā)手冊(cè)第37頁(yè)KBOS插件開(kāi)發(fā)手冊(cè)第38頁(yè)BaseClassEvent對(duì)象參考BaseClassEvent對(duì)象屬于金蝶K/3BOS的客戶(hù)端接口對(duì)象，用來(lái)獲得金蝶K/3BOS的客戶(hù)端的基礎(chǔ)BrowseCtlBrowseCtl屬性rowseCtlDataSrvDataSrv屬性時(shí)簿服務(wù)對(duì)象ctDataSrvEnableListFillRowEventsEnableListFillRowEvents屬性istFillRowEventsKBOS插件開(kāi)發(fā)手冊(cè)第39頁(yè)P(yáng)ublicSubShowByValoListInterfaceAsObject)tEvents須存在,請(qǐng)勿修改mBaseListInterfaceoListInterfaceEnableListFillRowEvents性，允許激發(fā)ListFillRow事件mBaseListInterface.EnableListFillRowEvents=TruedSubByValHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsoleandDictFKeyFTextThenCaseCellDataCase“1”:CellData一"BackColorvbWhiteCase“2”:CellData二"BackColorvbWhiteCase“3”:CellData三"BackColorvbWhiteCase“4”:CellData四"BackColorvbWhiteCase“5”:CellData五"BackColorvbWhite第40頁(yè)Case“6”:CellData六"BackColorvbGreenCase“7”:CellData日"BackColorvbGreenElseBackColorvbWhiteSelectEndIfntinueRaiseTruedSubwAndFillOptionObjectInsertNewRowAndFillOptionByValdctOptionAsKFO.Dictionary]ptionDoActionionDoLoadActionnDoHaveDateDoSetFieldFontionIncludLinkFieldKK3Lib屬性KBOS插件開(kāi)發(fā)手冊(cè)第41頁(yè)ibListActiveBarListActiveBar屬性象stActiveBarListEntrySortListEntrySort屬性tEntrySort可以通過(guò)該屬性返回當(dāng)前基礎(chǔ)資料序時(shí)簿顯示前過(guò)濾界面中設(shè)置的單據(jù)體字段排序，或者設(shè)置當(dāng)前單據(jù)體字段的排序(設(shè)置后需要調(diào)用基礎(chǔ)資料序時(shí)簿刷新方法才可以看到設(shè)置結(jié)果)。ListFilterStringListFilterString屬性第42頁(yè)tFilterString濾條件(設(shè)置后需要調(diào)用基礎(chǔ)資料序時(shí)簿刷新方法才可以看到設(shè)置結(jié)果)。ListHeadSortListHeadSort屬性HeadSort可以通過(guò)該屬性返回當(dāng)前基礎(chǔ)資料序時(shí)簿顯示前過(guò)濾界面中設(shè)置的單據(jù)頭字段排序，或者設(shè)置當(dāng)前單據(jù)頭字段的排序(設(shè)置后需要調(diào)用基礎(chǔ)資料序時(shí)簿刷新方法才可以看到設(shè)置結(jié)果)。MenuBarMenuBar屬性象MenuBaruBar只讀屬性。菜單及工具欄對(duì)象，主要用來(lái)新增、修改菜單和工具欄。詳細(xì)請(qǐng)參考“MenuBar對(duì)象參第43頁(yè) RsClassGroupRsClassGroup屬性lassGroupet使用這個(gè)屬性，插件工程還必須引用MicrosoftActiveXDataObjectsLibrary。RsIdRsId屬性ectRsIdet使用這個(gè)屬性，插件工程還必須引用MicrosoftActiveXDataObjectsLibrary。GetActiveCtlGetActiveCtl函數(shù)ActiveCtlKBOS插件開(kāi)發(fā)手冊(cè)第44頁(yè)DimsCtlNameAsStringlNameVBAUCaseVBATypeNamemBaseListInterfaceGetActiveCtlctCasesCtlNameaseTREEVIEWMsgBox"光標(biāo)選中了分組樹(shù)"CaseLEDGER:MsgBox"光標(biāo)選中了明細(xì)表"Else:MsgBox"我也不知道是什么"SelectGetSelectedClassIDGetSelectedClassID函數(shù)Object.GetSelectedClassID()PrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestElseSelectdSub第45頁(yè)GetSelectedClassTypeGetSelectedClassType函數(shù)dClassType值12tPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTest基礎(chǔ)資料頂級(jí)分組","基礎(chǔ)資料子分組")ElseSelectdSubGetSelectedItemIDGetSelectedItemID函數(shù)ObjectGetSelectedItemID()第46頁(yè)P(yáng)rivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestElseSelectdSubGetSelectedItemsGetSelectedItems函數(shù)的基礎(chǔ)資料的詳細(xì)信息。tGetSelectItemsAsKFODictionaryoleanrrorResumeNextidictAsLongAsKFODictionarySetdictmBaseInterfaceGetSelectItems)NothingThenForiTodict.CountDebugPrintdictNamei)eixt第47頁(yè)Debug.Print“獲取失敗”EndIfdSubIsSearchStateIsSearchState函數(shù)ObjectIsSearchState()DimsCtlNameAsStringlNameVBAUCaseVBATypeNamemBaseListInterfaceGetActiveCtlctCasesCtlNameaseTREEVIEWMsgBox光標(biāo)選中了分組樹(shù)"CaseLEDGER:nterfaceIsSearchStateThenMsgBox光標(biāo)選中了查詢(xún)狀態(tài)的明細(xì)表"MsgBox光標(biāo)選中了明細(xì)表"EndIfeMsgBox我也不知道是什么"SelectPitchItemByIDPitchItemByID函數(shù)第48頁(yè)ObjectPitchItemByIDlItemIDAsLongPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestCallmBaseListInterfacePitchItemByIDm_lItemID)ElseSelectdSubSelectClassGroupByIDSelectClassGroupByID函數(shù)bjectSelectClassGroupByIDlClassGroupIDAsLongKBOS插件開(kāi)發(fā)手冊(cè)第49頁(yè)P(yáng)rivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestCallmBaseListInterfaceSelectClassGroupByIDmlGroupIDElseSelectdSubSenderMessageSenderMessage函數(shù)ringsMessageAsStringarrUserslSenderTypeAsimblnAsBooleanbln=m_BaseListInterface.SenderMessage("審核單據(jù)","請(qǐng)審核[111111]單據(jù)",16394)KBOS插件開(kāi)發(fā)手冊(cè)第50頁(yè)tusSetStatusOptionalByValsStatusAsStringReadyimblnAsBooleanbln=m_BaseListInterface.SenderMessage("審核單據(jù)","請(qǐng)審核[111111]單據(jù)",16394)RefreshClassGroupsRefreshClassGroups方法bjectRefreshClassGroupsPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestlmBaseListInterfaceRefreshClassGroupsElseSelectdSubRefreshListByClassGroupIDRefreshListByClassGroupID方法ByClassGroupIDlClassGroupTypeAsLonglClassGroupIDAsLongstPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestCallmBaseListInterfaceRefreshListByClassGroupIDmlGroupTypem_lGroupID)ElseSelectdSubRefreshSelectedClassGroupRefreshSelectedClassGroup方法jectRefreshSelectedClassGroupPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBoolean第51頁(yè)第52頁(yè)tCaseBOSToolToolNamesemnuTestlmBaseListInterfaceRefreshSelectedClassGroupElseSelectdSubRefreshSelectedClassGroupListRefreshSelectedClassGroupList方法bjectRefreshSelectedClassGroupListPrivateSubmBaseListInterfaceMenuBarClickByValBOSToolAsK3ClassEvents.BOSTool,celAsBooleantCaseBOSToolToolNamesemnuTestlmBaseListInterfaceRefreshSelectedClassGroupListElseSelectdSubAfterGetDataAfterGetData事件ubObjectAfterGetDataKBOS插件開(kāi)發(fā)手冊(cè)第53頁(yè)BeforePrintBillBeforePrintBill事件PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsoleanterIDKFOVector象。當(dāng)前選擇的基礎(chǔ)資料內(nèi)碼列表覽操作BeforeSenderMessageBeforeSenderMessage事件PrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsctionCodeString動(dòng)作名稱(chēng)。ectionarydctMessage的值，可以修改發(fā)送的消息數(shù)據(jù)。KBOS插件開(kāi)發(fā)手冊(cè)第54頁(yè)ClassGroupSelectedClassGroupSelected事件LongByValClassGroupFullNumberAsStringgIDFullNumber值124鍵盤(pán)鍵LEFTARROW鍵。鍵盤(pán)鍵UPARROW鍵。鍵盤(pán)鍵RIGHTARROW鍵。鍵盤(pán)鍵DOWNARROW鍵。值12ClassGroupFullNumber參數(shù)值對(duì)應(yīng)于數(shù)據(jù)表中的FFullNumer。如果選擇基礎(chǔ)資料頂級(jí)分組返回lKBOS插件開(kāi)發(fā)手冊(cè)第55頁(yè)P(yáng)rivateSubObject_DeleteBillSucessful(ByValsNumberAsString,ByVallInterIDAsListFillRowListFillRow事件PrivateSubObject_ListFillRow(ByVallRowAsLong,ByValRowDataAsObject,ByValHeadDictAsKFO.Dictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsjectADODBRecordsetKFO.Dictionary對(duì)象。當(dāng)前單元格(字段)的信息。Boolean的時(shí)候是否發(fā)生ListFillRow事件。每個(gè)行的每個(gè)可見(jiàn)的單元格(字段)的數(shù)據(jù)填充都會(huì)發(fā)生此事件。CellData值，可以改變單元格的實(shí)際填充數(shù)據(jù)。更改BackColor參數(shù)的值，可以改變行的背景色?？梢允褂肦GB函數(shù)得到色值。ListFillRow。注意：如果要使用RowData參數(shù)，插件工程還必須引用MicrosoftActiveXDataObjectsKBOS插件開(kāi)發(fā)手冊(cè)第56頁(yè)P(yáng)ublicSubShowByValoListInterfaceAsObject)tEvents須存在,請(qǐng)勿修改mBaseListInterfaceoListInterfaceEnableListFillRowEvents性，允許激發(fā)ListFillRow事件mBaseListInterface.EnableListFillRowEvents=TruedSubByValHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsoleandDictFKeyFTextThenCaseCellDataCase“1”:CellData一"BackColorvbWhiteCase“2”:CellData二"BackColorvbWhiteCase“3”:CellData三"BackColorvbWhiteCase“4”:CellData四"BackColorvbWhiteCase“5”:CellData五"BackColorvbWhiteCase“6”:CellData六"BackColorvbGreenCase“7”:CellData日"BackColorvbGreenElseBackColorvbWhiteSelectEndIfKBOS插件開(kāi)發(fā)手冊(cè)第57頁(yè)ntinueRaiseTruedSubListRowSelectedListRowSelected事件lRowAsLongByVallngRowCountAsLongMenuBarClickMenuBarClick事件ToolBoolean作。MenuBarInitializeMenuBarInitialize事件rInitializeByValoMenuBarAsKClassEventsMenuBarKBOS插件開(kāi)發(fā)手冊(cè)第58頁(yè)lassEventsMenuBar作oMenuBar參數(shù)來(lái)修改、新增菜單、工具欄項(xiàng)。RefreshListRefreshList事件ectRefreshListKBOS插件開(kāi)發(fā)手冊(cè)第59頁(yè)BillEvent對(duì)象參考AccessoryTypeIDAccessoryTypeID屬性BillCtlBillCtl屬性illCtlBillEntrysBillEntrys屬性。llEntrys第60頁(yè)EntrysBillEntrys對(duì)象參考”。BillHeadsBillHeads屬性。lHeadsadsBillHeightBillHeight屬性llHeightBillNameBillName屬性第61頁(yè)llNameBillStatusBillStatus屬性llStatusEnu_BillStatusExt常數(shù)值tView0tusExtNew1sExtModify2BillWidthBillWidth屬性寬度llWidthKBOS插件開(kāi)發(fā)手冊(cè)第62頁(yè)ntControlObject.CancelPrintControl[=boolean]ClassTypeClassType屬性ClassTypeEntryClassTypeEntry屬性KBOS插件開(kāi)發(fā)手冊(cè)第63頁(yè)ClassTypeKeyClassTypeKey屬性據(jù)庫(kù)表中的字段名DataData屬性ectDataDataSrvDataSrv屬性對(duì)象第64頁(yè)ctDataSrvEntryPrimaryKeyEntryPrimaryKey屬性llStatusFIDFID屬性O(shè)bjectFIDKBOS插件開(kāi)發(fā)手冊(cè)第65頁(yè)wAndFillOptionObjectInsertNewRowAndFillOptionByValdctOptionAsKFO.Dictionary]IsDoActionIsDoAction屬性O(shè)bject.IsDoAction[=boolean]IsDoActionDataIsDoActionData屬性DoActionDataKBOS插件開(kāi)發(fā)手冊(cè)第66頁(yè)eyKK3Lib屬性llStatusLayerCountLayerCount屬性Count第67頁(yè)NamesCHS=附屬設(shè)備|設(shè)備備件|文檔管理|技術(shù)參數(shù)|變動(dòng)情況;CHT=附屬設(shè)備|設(shè)備備件|文檔管理|技術(shù)MenuBarMenuBar屬性象MenuBaruBar“MenuBar對(duì)象參考”。MultiCheckMgrMultiCheckMgr屬性ltiCheckMgr第68頁(yè)ObjectIDObjectID屬性O(shè)bjectIDObjectTypeObjectType屬性ieldValueeldValue第69頁(yè)P(yáng)rimaryKeyPrimaryKey屬性aryKeyReSaveSuccessReSaveSuccess屬性cesseBillrsBillIDrsBillID屬性sBillID第70頁(yè)使用這個(gè)屬性，插件工程還必須引用MicrosoftActiveXDataObjectsLibrary。ShowTypeShowType屬性eTableInfoTableInfo屬性。oTableNameTableName屬性e第71頁(yè)TaskIDTaskID屬性ShowMsgShowMsg屬性示。owMsgonsgyVallEndRowAsLongAsBooleanKBOS插件開(kāi)發(fā)手冊(cè)第72頁(yè)imblnResultAsBooleanblnResultmBillInterfaceBatchToDoAction("FMeterial",-1,-1)DeleteEntryDataDeleteEntryData函數(shù)tDeleteEntryDatanPageAsLongimblnAsBooleanblnmBillInterfaceDeleteEntryData(2)第73頁(yè)GetActiveCtlGetActiveCtl函數(shù)ActiveCtlectCasemBillInterfaceGetActiveCtlNameseEditPlusectCasemBillInterfaceGetActiveCtlControlTypeCase0Case1Case2Case3Case4Case8nuValueTypeFDSPCase9SelectasegridnuValueTypeFFLD第74頁(yè)nuValueTypeFDSPElseDebugPrintTypeNamemBillInterface.GetActiveCtl)SelectGetActiveFieldGetActiveField函數(shù)前光標(biāo)所在的列和行。lddctAsDictionaryColAsLongRowAsLongryDimdctTableInfoAsObjectDimiColAsLongDimiRowAsLongm_BillInterface.GetActiveFielddctTableInfo,iCol,iRowCommonControlnControlByValsKeyAsStringAsKFODictionary第75頁(yè)ry下標(biāo)越界錯(cuò)誤(錯(cuò)誤代碼=9)。rrorResumeNextisNameDimdicAsLongAsStringsDictionarySetdicmBillInterfaceGetCommonControlFButton")othingThenForiTodic.Count名稱(chēng)與值ameiDebugPrintsName&"="&dic(sName)xticNothingMsgBox“獲取控件屬性失敗!”EndIfGetDataFldGetDataFld函數(shù)AsDictionaryRowAsLong第76頁(yè)當(dāng)字段位于多分錄上時(shí)，通過(guò)此參數(shù)指定需要獲得的字段的值所在的行號(hào)。不指定ldDimdctFidInfoAsObjectDimiIndexAsLongDimsKeyAsStringDimdctAsObjectSetdctFidInfomBillInterfaceGetFieldInfoByKeyFBillNo",sKey,iIndex)SetdctmBillInterfaceGetDataFlddctFidInfoGetDataFldbyKeyGetDataFldbyKey函數(shù)FldbyKeysFKeyAsStringRowAsLong當(dāng)字段位于多分錄上時(shí)，通過(guò)此參數(shù)指定需要獲得的字段的值所在的行號(hào)。不指定第77頁(yè)DimdctAsObjectSetdctmBillInterfaceGetDataFldbyKey("FBillNo")GetFieldInfoByKeyGetFieldInfoByKey函數(shù)。dInfoByKeysKeyAsStringsPKeyAsStringlIndexAsLongFBillNoFBillNo。DimdctFidInfoAsObjectDimiIndexAsLongDimsKeyAsStringSetdctFidInfomBillInterfaceGetFieldInfoByKey("FBillNo",sKey,iIndex)KBOS插件開(kāi)發(fā)手冊(cè)第78頁(yè)micCtlByKeycCtlByKeyByvalsKeyAsStringGetFieldValueGetFieldValue函數(shù)值D012只有查找類(lèi)型的字段才能使用“Enu_ValueType_FFND”和“Enu_ValueType_FDSP”KBOS插件開(kāi)發(fā)手冊(cè)第79頁(yè)DimsValueasStringsValuemBillInterfaceGetFieldValueFBillNoEnuValueTypeFFLDectCasemBillInterfaceGetActiveCtlNameseEditPlusectCasemBillInterfaceGetActiveCtlControlTypeCase0Case1Case2Case3Case4Case8nuValueTypeFDSPCase9SelectasegridnuValueTypeFFLDnuValueTypeFDSPElseDebugPrintTypeNamemBillInterface.GetActiveCtl)SelectGetToolIndexGetToolIndex函數(shù)KBOS插件開(kāi)發(fā)手冊(cè)olNameAsStringeDimlIndexAsLongxmBillInterfaceGetToolIndexBandToolBarmnuFilePrintariablemeAsStringAsVariantrrorGotoLABELERRDebugPrintmBillInterfaceGetVariablea")'a前面加上"$$$."前綴itSubLERRErrNumberHCThenn第80頁(yè)EndIfInsertNewRowAndFillInsertNewRowAndFill函數(shù)Object.InsertNewRowAndFill(nPageAsLong,nRowAsLong,ParamArrayvFieldsData()teldsData參數(shù)nRow必須是有效的行號(hào)。即：必須大于等于1，小于單據(jù)體分錄的最大行；必須和已有數(shù)據(jù)ieldsDataDimiAsLongFori=1To10mBillInterfaceInsertNewRowAndFill2,i,"FBase","01.001","FPrice","100.001",FAmountxtIsChangeIsChange函數(shù)第81頁(yè)第82頁(yè)ObjectIsChangeerfaceIsChangeThenMsgBox單據(jù)已經(jīng)被修改"MsgBox單據(jù)沒(méi)有被修改"EndIfIsFileNeedFilterIsFileNeedFilter函數(shù)sFileNeedFilterTrue；否則返回FalseerfaceIsFileNeedFilterThenMsgBox選單時(shí)需要過(guò)濾條件"MsgBox選單時(shí)不需要過(guò)濾條件"第83頁(yè)EndIfLockBillLockBill函數(shù)ObjectLockBill()無(wú)PrivateSubmBillInterfaceAfterLoadBill)nterfaceBillStatusEnuBillStatusExtModifyThenlmBillInterfaceLockBillEndIfdSubRefreshBillRefreshBill函數(shù)bjectRefreshBill無(wú)SenderMessageSenderMessage函數(shù)ringsMessageAsStringarrUserslSenderTypeAsKBOS插件開(kāi)發(fā)手冊(cè)第84頁(yè)imblnAsBooleanbln=m_BillInterface.SenderMessage("審核單據(jù)","請(qǐng)審核[111111]單據(jù)",16394)SetDecimalSetDecimal函數(shù)tAsDictionaryRowAsLongiDecimalAsLongLong體多分錄上，則是對(duì)應(yīng)的行號(hào)；否則此參數(shù)將Long類(lèi)型。精度位數(shù)(0－10)。無(wú)DimdctAsKFO.DictionarySetdctmBillInterfaceGetFieldInfoByKeyFDecimal")KBOS插件開(kāi)發(fā)手冊(cè)第85頁(yè)Callm_BillInterface.SetDecimal(dct,0,5)eldSumValue理，直接跳過(guò)。Object.SetFieldSumValuesKeyAsString無(wú)m_BillInterface.SetFieldValue"FQty",1314,5mBillInterface.SetFi