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