旗艦版bos插件開發(fā)手冊

概 使用說 DataSrv屬 EnableListFillRowEvents屬 K3Lib屬 List屬 ListEntrySort屬 ListFilterString屬 ListHeadSort屬 Bar屬 MultiCheckMgr屬 RsId屬 ShowMode屬 ShowMsg屬 DeleteBill函 GetDataFldByKey函 GetDataFld函 GetCurrentSelRowInfo函 GetSelectedBillInfo函 LoadSelectedBill函 SenderMessage函 UpdateNormalFld函 UpdateNormalFldByKey函 函 ultiCheckAfterBusinessCheckAfterBusinessCheckExAfterCopyBillCreateDataAfterDeleteBillAfterMergeCopyBillAfterMultiCheckAfterMultiCheckExAfterSelListAfterUnBusinessCheckAfterUnBusinessCheckExAfterUnMultiCheckAfterUnMultiCheckExBeforeMultiCheckBeforeMultiCheckExBeforePrintBillBeforeSenderMessageBusinessCheckBusinessCheckExFinishMultiCheckFinishMultiCheckExListFillRowListRowSelectedBarClickBarInitializeMultiCheckMultiCheckExStartMultiCheckStartMultiCheckExUnBusinessCheckUnBusinessCheckExUnMultiCheckUnMultiCheckExReMultiCheckReMultiCheckExReUnMultiCheckReUnMultiCheckEx BrowseCtl屬 DataSrv屬 EnableListFillRowEvents屬 K3Lib屬 ListActiveBar屬 ListEntrySort屬 ListFilterString屬 ListHeadSort屬 Bar屬 RsClassGroup屬 RsId屬 GetActiveCtl函 GetSelectedCla函 GetSelectedClassType函 GetSelectedItemID函 GetSelectedItems函 IsSearchState函 PitchItemByID函 SelectClassGroupByID函 SenderMessage函 RefreshClassGroups方 RefreshListByClassGroupID方 RefreshSelectedClassGroup方 RefreshSelectedClassGroupList方 AfterGetDataBeforePrintBillBeforeSenderMessageClassGroupSelectedListFillRowListRowSelectedBarClickBarInitializeRefreshList AccessoryTypeID屬 BillCtl屬 BillEntrys屬 BillHeads屬 BillHeight屬 BillName屬 BillStatus屬 BillWidth屬 ClassType屬 ClassTypeEntry屬 ClassTypeKey屬 Data屬 DataSrv屬 EntryPrimaryKey屬 FID屬 IsDoAction屬 IsDoActionData屬 K3Lib屬 LayerCount屬 Bar屬 MultiCheckMgr屬 ObjectID屬 ObjectType屬 PrimaryKey屬 ReSaveSuccess屬 rsBillID屬 ShowType屬 TableInfo屬 TableName屬 TaskID屬 ShowMsg屬 DeleteEntryData函 GetActiveCtl函 GetActiveField函 monControl函 GetDataFld函 GetDataFldbyKey函 GetFieldInfoByKey函 GetFieldValue函 GetToolIndex函 InsertNewRowAndFill函 IsChange函 IsFileNeedFilter函 LockBill函 RefreshBill函 SenderMessage函 SetDecimal函 SetFieldValue函 SetSumDecimal函 SetText函 SetTypeFloatMax函 SetTypeFloatMin函 ShowHideField函 ShowHideGrid函 Sum函 UpdaookFld函 UpdateNormalFld函 DoAction方 IsDoActionByKey方 LockCell方 RemoveRow方 SaveBill方 SetBillFormCaption方 SetCaption方 SetStatus方 SetActiveCell方 SetRowsPerRequest方 SetStatusBarInfo方 AddNewRowAfterBusinessCheckAfterBusinessCheckExAfterCopyBillAfterDeleteRowAfterDoActionAfterFillRowAfterFirstNewBillAfterInputBillSetSumDataAfterLoadBillAfterLoadBillSetSumDataAfterMergeCopyBillAfterMultiCheckAfterMultiCheckExAfterNewBillAfterNewEmptyDataAfterSaveAfterSelBillAfterSelBillBeforeFillDataAfterUnBusinessCheckAfterUnBusinessCheckExAfterUnMultiCheckAfterUnMultiCheckExBeforeDoActionBeforeLoadBillBeforeMultiCheckBeforeMultiCheckExBeforePrintBillBeforeSaveBeforeSelBillsBeforeSelBillShowFilterBeforeSenderMessageBeforeVerifyBeforLoadBillFillDataBeginEditBusinessCheckBusinessCheckExChangeCommandClickFinishMultiCheckFinishMultiCheckExGetFocusHeadCtlClickLostFocusBarClickBarInitializeMultiCheckMultiCheckExReMultiCheckReMultiCheckExReUnMultiCheckReUnMultiCheckExSaveBillFailedStartMultiCheckStartMultiCheckExUnBusinessCheckUnBusinessCheckExUnMultiCheckUnMultiCheckExVerifyK3Lib對象參 Account屬 Net屬 User屬 BatchPushOldBills函 CreateK3Object函 GetData函 GetK3Language函 LoadKDString函 UpdateData方 GetStockQty函 LoadBill方 LoadOldList方 AccountID屬 AccountName屬 SetupType屬 Net對象參 BeginMutex函 CommitMutex函 QueryFunc函 QuerySubSys函 User對象參 UserID屬 UserName屬 Bar對象參 Bar對象結(jié)構(gòu) ActiveBand屬 BOSBands屬 BOSTools屬 Refresh方 Count屬 Item屬 Add函 Remove方 RemoveAll方 BOSBand對象參 BandName屬 BandType屬 BOSTools屬 Caption屬 CurrentTool屬 DockingArea屬 DockingOffset屬 DockLine屬 Flags屬 Visible屬 Wrappable屬 Refresh方 Count屬 Item屬 Add函 GetToolID函 InsertAfter方 InsertBefore方 Remove方 RemoveAll方 Alignment屬 BeginGroup屬 Caption屬 CaptionPosition屬 Checked屬 Default屬 Description屬 Enabled屬 ShortcutKey屬 Style屬 SubBand屬 Tag屬 ToolID屬 ToolName屬 ToolPicture屬 Visible屬 SetPicture方 Bar對象結(jié)構(gòu) Count屬 Item屬 BillHead對象參 BOSFields屬 BillEntrys對象參 Count屬 Item屬 BillEntry對象參 BOSFields屬 EntryHeight屬 EntryIndex屬 EntryLeft屬 EntryTop屬 EntryType屬 EntryWidth屬 KeyField屬 Layer屬 MaxRows屬 TableName屬 Visible屬 AddRow方 RemoveRow方 Count屬 Item屬 Caption屬 FieldHeight屬 FieldLeft屬 FieldLock屬 FieldName屬 FieldTop屬 FieldWidth屬 Filter屬 FKey屬 FontBold屬 FontItalic屬 FontName屬 FontSize屬 FrameBorder屬 FrameBorderColor屬 LabelColor屬 LabelWidth屬 Layer屬 MustInput屬 NeedSave屬 Note屬 Number屬 Page屬 Row屬 TableName屬 Text屬 TextColor屬 Value屬 Visible屬 基礎(chǔ)配 開發(fā)環(huán) 使用說 193插件 195AfterCopyBillCreateDataOnBarInitializeAfterShowBillOnBarItemClick AspxGetSelectList函 BillName屬 ClassType屬 ClassTypeEntry屬 ClassTypeKey屬 PrimaryKey屬 EntryPrimaryKey屬 TableInfo屬 TableName屬 206OnBarInitializeOnBarItemClickAfterNewBillBeforLoadBillFillDataAfterLoadBillAfterShowBillAfterConfirmAfterF7SelectChangeBeforeSaveAfterSave LockBillEntry函 BillName屬 ClassType屬 ClassTypeEntry屬 ClassTypeKey屬 PrimaryKey屬 EntryPrimaryKey屬 TableInfo屬 TableName屬 CurBillID屬 Count屬 Item屬 BillHead對象參 BOSFields屬 BillEntrys對象參 Count屬 Item屬 BillEntry對象參 BOSFields屬 EntryHeight屬 EntryIndex屬 EntryLeft屬 EntryTop屬 EntryType屬 EntryWidth屬 KeyField屬 Layer屬 TableName屬 Visible屬 Count屬 Item屬 Caption屬 FieldHeight屬 FieldLeft屬 FieldLock屬 FieldName屬 FieldTop屬 FieldWidth屬 Filter屬 FKey屬 FontBold屬 FontItalic屬 FontName屬 FontSize屬 FrameBorder屬 FrameBorderColor屬 LabelColor屬 LabelWidth屬 Layer屬 MustInput屬 NeedSave屬 Note屬 Number屬 Page屬 Row屬 TableName屬 Text屬 TextColor屬 Value屬 Visible屬 用戶場 需 總體需 需求分 詳細(xì)需 單據(jù)信 單據(jù)流 多級審 憑證功 設(shè)計(jì)單據(jù)數(shù)據(jù)結(jié)構(gòu)設(shè) 單據(jù) 單據(jù) 字段的過濾條 BOSIDE中設(shè)置過濾條 通過SQL更新字段的過濾條 Action設(shè) 自動生成 手動添加 單據(jù)流 【銷售訂單】下推生成【產(chǎn)品入庫通知單 練 多級審 多級審核設(shè) 憑證功 設(shè)置憑證數(shù)據(jù)來 操作管 插件開 部 發(fā)布到主控 制作部署文 第第PAGE10為了實(shí)現(xiàn)客戶個性化的需求和保持BOS架構(gòu)的開放性，BOSKIS平臺，BOS插件編程是通過K3ClassEvents對象實(shí)現(xiàn)的KingdeeFoundationObjects1.0KFOKFO.Dictionary、KFO.Vector，他們的結(jié)構(gòu)、使用方法、描述等詳細(xì)內(nèi)容，請參考《KFO關(guān) ActiveXDataObjectsLibrary對本文中所有涉及到的ADODB對象如ADODB.Recordset版本必需不低于2.6；他們的結(jié)構(gòu)、使用方法、描述等詳細(xì)內(nèi)容，請參考http://m /相關(guān)內(nèi)容。K3Lib（Net、User、BOSBand（BOSBands）BOSTool（以及它的集合對象BOSTools）BillHead（以及它的集合對象BillHeads）BillEntry（以及它的集合對象BillEntrys）BOSField（以及它的集合對象BOSFields）屬于輔助對象，不能使用New關(guān)鍵字創(chuàng)建。KISBOS3ListEventsKISBOSKISBOS的客戶端的序時簿對ListEvents對象共包含11個屬性、8個函數(shù)和23個DataSrvDataSrvFilterKFO.DictionaryClassTypeID、SQLSelect、SQLFrom、SQLSelectDetail等值。DataSrv.SQLSelectDetailDataSrv.SQLSelectDetail&"Where"&獲取字段（KeysField指定）PrivatePrivateFunctionGetFieldInfo(ByValsFieldAsString)AsDimdctTableInfoAsKFO.DictionaryDimsKeyAsStringSetSetdctTableInfo=m_ListInterface.DataSrv.TableInfoIfdctTableInfo("Map").Lookup(sField)ThensKey=dctTableInfo("Map")(sField)SetGetFieldInfo=dctTableInfo(sKey)SetGetFieldInfo=NothingEndIfEndEnableListFillRowEventsEnableListFillRowEvents是允許否觸發(fā)插件的序時簿FillRow。Object.是允許否觸發(fā)插件的序時簿FillRow。默認(rèn)為False，即不觸發(fā)。只有當(dāng)此值為True且發(fā)生序時簿行填充時，才會觸發(fā)插件的序時簿FillRow。根據(jù)填充的字段的值，實(shí)現(xiàn)：a1、2、3…對應(yīng)成星期一、星期二、星期三…；b6、7對應(yīng)的PublicPublicSubShow(ByValoListInterfaceAs'ListEvents'注意此方法必須存在Setm_ListInterface='EnableListFillRowEventsm_ListInterface.EnableListFillRowEvents=EndHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsIfIfHeadDict("FKey")="FText"ThenSelectCaseCellDataCaseCellData星期一"BackColorCaseCellData星期二"BackColorCaseCellData星期三"BackColorCaseCellData星期四"BackColorCaseCellData星期五"BackColorCaseCellData星期六"BackColorCaseCellData星期日"BackColorCaseBackColor=vbWhiteEndSelectEndIfContinueRaise=TrueEndK3LibK3LibK3Lib對象詳細(xì)請參考“K3Lib對象參考ListListCallCallListEntrySortListFilterStringListFilterStringObject.ListHeadSortListHeadSortBarBarObject. 只讀屬性。返回菜單及對象，主要用來新增、修改菜單和。詳細(xì)請參考“ MultiCheckMgrMultiCheckMgrObject.返回多級審核控制對象，多級審核的設(shè)置信息、當(dāng)前審核情況、審核記錄等都能從此組件中到RsIdRsIdFID表示序時簿當(dāng)前行的所屬單據(jù)的內(nèi)碼,取值語法是：rsID("FID");FEntryIDID：rsID("FEntryID");注意：如果要使用這個屬性，插件工程還必須 ActiveXDataObjectsLibraryShowModeShowModeObject.EnumEnu_ListShowMode =0:一般查詢MDI窗口 =1:一般查詢模態(tài)窗口 =2:選單 =3:聯(lián)查Enu_ListShowMode_ConnectViewExt=4:自定義聯(lián)查ShowMsgShowMsgObject.DeleteBillDeleteBillObject.DeleteBill(ByVallClassTypeIDAsLong,ByValnInterIDAsLong,OptionalbSuccessAsBoolean=True)AssString對操作結(jié)果的描述：刪除操作成功或失敗用戶定義單據(jù)并保存后，會在數(shù)據(jù)庫中創(chuàng)建對應(yīng)的表。如單據(jù)為 表，單據(jù)體 Entry2lClassTypeIDFClassTypeId列；nInterID對應(yīng)的字段為：用戶在定義單據(jù)時所指定的“主鍵字段”（默認(rèn)為“FID。當(dāng)前序時簿的單據(jù)類型ID與內(nèi)碼可以通過m_ListInterface.RsId("FClassTypeID"),m_ListInterface.RsId("FID")取得。刪除一張單據(jù)，其類型ID ，內(nèi)碼是DimDimbSuccessAsDimsResultAssResult=m_ListInterface.DeleteBill(IfbSuccessThenDebug.Print刪除成功”Debug.Print刪除失敗”EndIfDebug.Print,0018,GetDataFldByKeyObject.GetDataFldByKey(sFKeyAsString,[RowAsDimDimdctFieldAsKFO.DictionaryDimdctDataAsKFO.DictionaryDimdctBillIDAsSetdctBillID=SetdctData=m_ListInterface.DataSrv.LoadBill(dctBillID.Name(1))Setm_ListInterface.Data=dctDataSetdctField=IfNotdctFieldIsNothingDebug.Print單據(jù)編號&dctField("FFLD")EndIfSetdctField=NothingSetdctData=NothingSetdctBillID=NothingGetDataFldObject.GetDataFld(dctAsDictionary,[RowAsKFO.DictionaryDimdctAsKFO.DictionaryDimdctDataAsKFO.DictionaryDimdctBillIDAsKFO.DictionaryDimdctDataInfoAsSetdctBillID=SetdctData=Setm_ListInterface.Data=GetFieldInfo()ListEvents.DataSrvSetdctDataInfo=Setdct=m_ListInterface.GetDataFld(dctDataInfo)IfNotdctIsNothingThenDebug.Print單據(jù)編號&dct("FFLD")EndIfSetdct=NothingSetdctData=NothingSetdctBillID=NothingSetdctDataInfo=NothingGetCurrentSelRowInfoGetCurrentSelRowInfoObject.GetCurrentSelRowInfo當(dāng)前行所屬單據(jù)的內(nèi)碼；FEntryIDID。DimDimdctSelectedRowAsSetdctSelectedRow=m_ListInterface.GetCurrentSelRowInfoDebug.Print"單據(jù)內(nèi)碼: "&dctSelectedRow("FID"),_ "&dctSelectedRow("FClassTypeID"),_"單據(jù)分錄ID:"&dctSelectedRow("FEntryID")SetdctSelectedRow=GetSelectedBillInfoObject.GetSelectedBillInfo此函數(shù)返回一個KFO.Vector數(shù)據(jù)包，Vector的Size和選中的行數(shù)一致。每行包含一個FID表示當(dāng)前行所屬單據(jù)的內(nèi)碼；FEntryIDID。DimDimiAsDimvctRowsAsKFO.VectorDimdctRowAsKFO.DictionarySetSetvctRows=m_ListInterface.GetSelectedBillInfoIfNotvctRowsIsNothingThenFori=1TovctRows.SizeSetdctRow=vctRows(i)Debug.Print"單據(jù)內(nèi)碼 "&dctRow("FID");"單據(jù)類型: "&dctRow("FClassTypeID");_"單據(jù)分錄ID:"&dctRow("FEntryID")EndIfSetdctRow=NothingSetvctRows=NothingLoadSelectedBillLoadSelectedBillObject.LoadSelectedBill(BillStatusAsEnu t t值 0 1 2TrueFalse。m_ListInterface.LoadSelectedBillm_ListInterface.LoadSelectedBill Object.RefreshList(OptionalByValbRefreshToolBarAsBoolean=True,OptionalByValbMarkSelRowAsBoolean=True)rFalse，則刷新后選定刷新序時簿，刷新，刷新后用戶選定的行不變m_ListInterface.RefreshListm_ListInterface.RefreshListTrue,SenderMessageObject.SenderMessage(sTitleAsString,sMessageAsString,arrUsers,[lSenderTypeAs0開始。TrueFalse。DimDimblnAsblnm_ListInterface.SenderMessage("審核單據(jù)請審核[111111]單據(jù)UpdateNormalFldUpdateNormalFldObject.UpdateNormalFld(dctAsDictionary,sValueAsString,[RowAsLong],[bSetModifyFlagAsBoolean])KFO.Dictionarym_ListInterface.UpdateNormalFldGetFieldInfo("FBillNo"),UpdateNormalFldByKeyUpdateNormalFldByKeyObject.UpdateNormalFldByKey(sKeyAsString,sValueAsString,[RowAsLong],[bSetModifyFlagAsBoolean])m_ListInterface.UpdateNormalFldByKeym_ListInterface.UpdateNormalFldByKey"FBillNo", PrivateSubObject_AfterBatultiCheck(ByVallCheckDirectionAsLong,ByValdctCheckResultAsKFO.Dictionary)Long1=2=PrivateSubObject_AfterBusinessCheck(ByValSuccessAsBoolean類型。業(yè)務(wù)審核是否成功。True成功后不觸發(fā)成功后不觸發(fā) PrivateSubObject_AfterBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAs 總是在KFO.Dictionary新單據(jù)的單據(jù)編號會自動更改，審核信息不到新的單據(jù)中 應(yīng)用場景： 選中的單據(jù)且需要更改原單據(jù)的數(shù)據(jù)PrivateSubObject_AfterDeleteBill(ByValbSuccessAsBoolean,ByVallBillInterIDAsLong,ByValsBillNoAsString,ByValsErrorMessageAsString,bCancelErrorMessageAsBoolean類型。刪除是否成功。TruebCancelErrorMessagebCancelErrorMessage默認(rèn)為False，默認(rèn)情況下不顯示提 框PrivateSubObject_AfterMergeCopyBill(ByValdctDataAsKFO.Dictionary新單據(jù)的單據(jù)編號會自動更改，審核信息不到新的單據(jù)中 應(yīng)用場景：在合 選中的單據(jù)且需要更改某些數(shù)據(jù)PrivateSubObject_AfterMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean)Boolean類型。多級審核是否成功。True 在每步審核后都能觸發(fā)，和AfterBusinessCheck不同PrivateSubObject_AfterMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean) 總是在PrivateSubObject_AfterSelList(ByValRsIdAsADODB.Recordset,VectListAsADODB.RecordsetKFO.VectorVectListRsIdActiveXDataObjectsLibraryPrivateSubObject_AfterUnBusinessCheck(ByValSuccessAsBoolean類型。駁回業(yè)務(wù)審核是否成功。TruePrivateSubObject_AfterUnBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAsBoolean類型。駁回業(yè)務(wù)審核是否成功。True 總是在PrivateSubObject_AfterUnMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean)Boolean類型。駁回多級審核是否成功。TruelCheckMode值12PrivateSubObject_AfterUnMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean) 總是在AsLong,ByVallBusinessLevelAsLong,lCheckLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,CancelAsBoolean)LongCancelTruelCheckMode值12PrivateSubObject_BeforeMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByReflCheckLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,ByRefCancelAsBoolean) 仍會觸發(fā)PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsByRefbCancelAsDKFO.Vector對象。當(dāng)前選擇的單據(jù)/BooleanBoolean類型。是否取消后續(xù)的打印/CancelTruePrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsKFO.Dictionary,CancelAsBoolean)StringKFO.DictionaryBooleandctMessage參數(shù)的值，可以修改發(fā)送的消息數(shù)據(jù)。Cancel參數(shù)的值為True可以取消消息發(fā)送。刷新菜單、之前發(fā)生。PrivateSubObject_BeforRefreshToolBar(bShowCaptionAsnbShowCaptionPrivateSubObject_BusinessCheck(CancelAsCancelTruePrivateSubObject_BusinessCheckEx(ByVallBillIDAsLong,CancelAs此總是在BusinessCheck之后觸發(fā)。即使在BusinessCheck中設(shè)置了Cancel 仍會觸發(fā)PrivateSubObject_FinishMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,bSenderMessageAsebSenderMessageTrueFalselCheckMode值12ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByRefbSendMessageAsBoolean)此總是在FinishMultiCheck之后觸發(fā)即使在FinishMultiCheck中設(shè)置了Cancel=PrivateSubObject_ListFillRow(ByVallRowAsLong,ByValRowDataAsObject,ByValHeadDictAsKFO.Dictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsLong類型。發(fā)生的行的行號ObjectADODB.RecordsetKFO.Dictionary對象。當(dāng)前單元格（字段）Boolean類型。在下一行該單元格填充的時候是否發(fā)生ListFillRow每個行的每個可見的單元格（字段）的數(shù)據(jù)填充都會發(fā)生此EnableListFillRowEventsCellDataBackColorRGB生ListFillRow。注意：如果要使用RowData參數(shù)，插件工程還必須 ActiveXDataObjectsPublicPublicSubShow(ByValoListInterfaceAs'ListEvents'注意此方法必須存在Setm_ListInterface='EnableListFillRowEventsm_ListInterface.EnableListFillRowEventsm_ListInterface.EnableListFillRowEvents=TrueEndSubHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsIfHeadDict("FKey")="FText"ThenSelectCaseCellDataCaseCellData星期一"BackColorCaseCellData星期二"BackColorCaseCellData星期三"BackColorCaseCellData星期四"BackColorCaseCellData星期五"BackColorCaseCellData星期六"BackColorCaseCellData星期日"BackColorCaseBackColor=vbWhiteEndSelectEndIfContinueRaise=TrueEndPrivateSubObject_ListRowSelected(ByVallRowAsPrivateSubObject_BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsK3ClassEvents.BOSTool對象。當(dāng)前點(diǎn)擊的菜單、項(xiàng)對象Boolean類型。是否取消后續(xù)處理操作CancelCancel參數(shù)值默認(rèn)為False。更改參數(shù)的值為True可以取消后 處理操作PrivateSubObject_BarInitialize(ByValoBarAsK3ClassEvents.oK3ClassEvents.Bar對象。菜單、對象BarPrivateSubObject_MultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsbSenderCheckMessageAsBoolean,bSenderAcceptMessageAsBoolean,sMessageTitleAsString,sMessageAsString,CancelAsBoolean)Long2次方之和。BooleanBooleanStringStringbSenderCheckMessageTrueFalse，則不會發(fā)送審bSenderAcceptMessageTrueFalse，則不會sMessageTitle參數(shù)值可以改變審核消息的標(biāo)題。更改sMessage參數(shù)值可以改變審核消息的內(nèi)容。CancelTruelCheckMode值12PrivateSubObject_MultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByRefbSendCheckMessageAsBoolean,ByRefbSendAcceptMessageAsBoolean,ByRefsMessageTitleAsString,ByRefsMessageAsString,ByRefCancelAsBoolean)PrivateSubObject_PrintSuccessful(ByValdctParametersAs連續(xù)打印時，全部打印完成后才觸發(fā)連續(xù)打印時，全部打印完成后才觸發(fā) ，且僅觸發(fā)一次PrivateSubObject_StartMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,bSenderMessageAsBoolean,CancelAsBoolean)BooleanebSenderMessageTrueFalse，則不會發(fā)送啟動CancelTruelCheckMode值12ByVallCheckMaxLevelAsLong,ByRefbSendMessageAsBoolean,ByRefCancelAs此總是在StartMultiCheck之后觸發(fā)。即使在StartMultiCheck中設(shè)置了Cancel 仍會觸發(fā)PrivateSubObject_UnBusinessCheck(CancelAsCancelTruePrivateSubObject_UnBusinessCheckEx(ByVallBillIDAsLong,CancelAs 仍會觸發(fā)。更改Cancel參數(shù)的值為True可以取消后續(xù)的審核操作PrivateSubObject_UnMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,bSenderMessageAsBoolean,CancelAsBoolean)LongeBooleanbSenderMessageTrueFalse，則不會發(fā)送駁回CancelTruelCheckMode值12PrivateSubObject_UnMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,bSenderMessageAsBoolean,CancelAsBoolean)此總是在UnMultiCheck之后觸發(fā)即使在UnMultiCheck中設(shè)置了Cancel= 仍會觸發(fā)Object,bReCheckAsBoolean)KFO.DictionarytObjectKFO.DictionarybReCheckTrueFalsePrivateSubObject_ReMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsKFO.Dictionary,FCheckRecordExtAsObject,bReCheckAsBoolean) 總是在AsObject,bReCheckAsBoolean)KFO.DictionarytObjectKFO.DictionarybReCheckTrueFalsePrivateSubObject_ReUnMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsKFO.Dictionary,FCheckRecordExtAsObject,bReCheckAsBoolean)BaseClassEventKISBOSKISBOS的客戶端的基礎(chǔ)BaseClassEvent對象共包含11個屬性、8個函數(shù)、4個方法和7個BrowseCtlBrowseCtlObject.DataSrvDataSrvObject.EnableListFillRowEventsEnableListFillRowEventsFillRowObject.根據(jù)填充的字段的值，實(shí)現(xiàn)：a1、2、3…對應(yīng)成星期一、星期二、星期三…；b6、7對應(yīng)的PublicPublicSubShow(ByValoListInterfaceAs'ListEvents'注意此方法必須存在Setm_BaseListInterface='EnableListFillRowEventsm_BaseListInterface.EnableListFillRowEvents=EndPrivateSubm_BaseListInterface_ListFillRow(ByVallRowAsLong,ByValRowDataAsByValHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsIfHeadDict("FKey")="FText"SelectCaseCellDataCase“1”:CellData星期一"BackColorCaseCellData星期二"BackColorCaseCellData星期三"BackColorCaseCellData星期四"BackColorCaseCellData星期五"BackColorCaseCaseCellData星期六"BackColorCaseCellData星期日"BackColorCaseBackColor=vbWhiteEndSelectEndIfContinueRaise=TrueEndObject.InsertNewRowAndFillOption[=ByValdctOptionAsKFO.DictionaryKFO.Dictionary的成員及其含義如下：K3LibK3LibObject.請參考“K3LibListActiveBarListActiveBarObject.ListEntrySortListEntrySort第第PAGE42ListFilterStringListFilterStringListHeadSortListHeadSortBarBarObject.只讀屬性。菜單及對象，主要用來新增、修改菜單和。詳細(xì)請參考“Bar對象參RsClassGroupRsClassGroupObject.注意：如果要使用這個屬性，插件工程還必須ActiveXDataObjectsLibrary。RsIdRsIdID數(shù)據(jù)集合。Object.注意：如果要使用這個屬性，插件工程還必須ActiveXDataObjectsLibrary。GetActiveCtlGetActiveCtlDimDim AssCtlName=VBA.UCase$(VBA.TypeName(m_BaseListInterface.GetActiveCtl))SelectCasesCtlNameCase"TREEVIEW":MsgBox"光標(biāo)選中了分組樹"Case"LEDGER50":MsgBox"光標(biāo)選中了明細(xì)表" MsgBox"我也不知道是什么"EndSelect Object.GetSelectedClaPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"MsgBox"當(dāng)前選擇的分組ID為："&CStr(m_BaseListInterface.GetSelectedCla)CaseElseEndEndEndGetSelectedClassTypeGetSelectedClassTypeObject.GetSelectedClassType值12值12PrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"MsgBox當(dāng)前選擇的分組為：&1基礎(chǔ)資料頂級分組基礎(chǔ)資料子分組")CaseElseEndEndGetSelectedItemIDObject.GetSelectedItemIDPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"MsgBoxID為：&CStr(m_BaseListInterfaceGetSelectedItemID)CaseElseEndEndGetSelectedItemsObject.GetSelectItems()AsPrivateSubm_BaseInterface_ PrivateSubm_BaseInterface_ OnErrorResumeNextDim AsDim AsSetdict=m_BaseInterface.GetSelectItems()IfNotdictIsNothingThenFori=1ToDebug.PrintDebug.Print在這里查看Debug.Print獲取失敗”EndIfEndIsSearchStateIsSearchStateObject.IsSearchStateBooleanTrueFalse。DimDim AssCtlName=VBA.UCase$(VBA.TypeName(m_BaseListInterface.GetActiveCtl))SelectCasesCtlNameCaseMsgBox光標(biāo)選中了分組樹"Case"LEDGER50":Ifm_BaseListInterface.IsSearchStateThenMsgBox"光標(biāo)選中了查詢狀態(tài)的明細(xì)表"MsgBox光標(biāo)選中了明細(xì)表"EndIfMsgBox我也不知道是什么"EndSelectPitchItemByIDPitchItemByIDObject.PitchItemByID(lItemIDAsTrueFalse。PrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"Callm_BaseListInterface.PitchItemByID(m_lItemID)CaseElseEndEndSelectClassGroupByIDObject.SelectClassGroupByID(lClassGroupIDAsPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"Callm_BaseListInterface.SelectClassGroupByID(m_lGroupID)CaseElseEndEndSenderMessageObject.SenderMessage(sTitleAsString,sMessageAsString,arrUsers,[lSenderTypeAs0開始。BooleanTrueFalse。DimDimblnAsblnm_BaseListInterface.SenderMessage("審核單據(jù)請審核[111111]單據(jù)SetStatusSetStatusObject.SetStatus(OptionalByValsStatusAsString=BooleanTrueFalse。DimDimblnAsblnm_BaseListInterface.SenderMessage("審核單據(jù)請審核[111111]單據(jù)RefreshClassGroupsRefreshClassGroupsPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"CallCaseElseEndCaseElseEndSelectEndRefreshListByClassGroupIDRefreshListByClassGroupIDObject.RefreshListByClassGroupID(lClassGroupTypeAsLong,lClassGroupIDAsm_lGroupID所對應(yīng)的分組的明細(xì)信息：PrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"Callm_BaseListInterface.RefreshListByClassGroupID(m_lGroupType,m_lGroupID)CaseElseEndEndRefreshSelectedClassGroupPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"Callm_BaseListInterface.RefreshSelectedClassGroupCaseElseEndEndRefreshSelectedClassGroupListPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"Callm_BaseListInterface.RefreshSelectedClassGroupListCaseElseEndEndPrivateSubObject_AfterGetData基礎(chǔ)資料序時簿打印之前觸發(fā)此。PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsKFO.Vector,ByValbIsPreviewAsBoolean,ByRefsPathAsString,ByRefsFileNameAsString,ByRefbCancelAsBoolean)DKFO.VectorString類型。PDFString類型。PDFCancelTruePrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsKFO.Dictionary,CancelAsBoolean)StringKFO.DictionaryBooleanFalsedctMessage參數(shù)的值，可以修改發(fā)送的消息數(shù)據(jù)。Cancel參數(shù)的值為True可以取消消息發(fā)送。Long,ByValClassGroupIDAsLong,ByValClassGroupFullNumberAsString)值124LEFTARROWUPARROWRIGHTARROWDOWNARROW值12ClassGroupFullNumberFFullNumer。如果選擇基礎(chǔ)資料頂級分組返回PrivateSubObject_DeleteBillSucessful(ByValsNumberAsString,ByVallInterIDAsPrivateSubObject_ListFillRow(ByVallRowAsLong,ByValRowDataAsObject,ByValHeadDictAsKFO.Dictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsLong類型。發(fā)生的行的行號ObjectADODB.RecordsetKFO.Dictionary對象。當(dāng)前單元格（字段）Boolean類型。在下一行該單元格填充的時候是否發(fā)生ListFillRow每個行的每個可見的單元格（字段）的數(shù)據(jù)填充都會發(fā)生此此是否發(fā)生，取決于EnableListFillRowEvents屬性的設(shè)置。詳細(xì)請參CellDataBackColorRGB生ListFillRow。注意：如果要使用RowData參數(shù)，插件工程還必須ActiveXDataObjects根據(jù)填充的字段的值，實(shí)現(xiàn)：a1、2、3…對應(yīng)成星期一、星期二、星期三…；b6、7對應(yīng)的PublicPublicSubShow(ByValoListInterfaceAs'ListEvents'注意此方法必須存在Setm_BaseListInterface='EnableListFillRowEventsm_BaseListInterface.EnableListFillRowEvents=EndPrivateSubm_BaseListInterface_ListFillRow(ByVallRowAsLong,ByValRowDataAsByValHeadDictAsKFO.IDictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsIfHeadDict("FKey")="FText"SelectCaseCellDataCase“1”:CellData星期一"BackColorCaseCellData星期二"BackColorCaseCellData星期三"BackColorCaseCellData星期四"BackColorCaseCellData星期五"BackColorCaseCellDataCellData星期六"BackColorCaseCellData星期日"BackColorCaseBackColor=vbWhiteEndSelectEndIfContinueRaise=TrueEndPrivateSubObject_ListRowSelected(ByVallRowAsLong,ByVallngRowCountAstPrivateSubObject_BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsK3ClassEvents.BOSTool對象。當(dāng)前點(diǎn)擊的菜單、項(xiàng)對象Boolean類型。是否取消后續(xù)處理操作CancelCancel參數(shù)值默認(rèn)為False。更改參數(shù)的值為True可以取消后 處理操作PrivateSubObject_BarInitialize(ByValoBarAsK3ClassEvents.oK3ClassEvents.Bar對象。菜單、對象BarPrivateSubObject_RefreshListBillEventKISBOSKISBOS的客戶端的單據(jù)對象BillEvent對象共包含30個屬性、25個函數(shù)、6個方法和47個AccessoryTypeIDAccessoryTypeIDID。BillCtlBillCtlObject.BillEntrysBillEntrysObject.只讀屬性，詳細(xì)