旗舰版bos插件开发手册

概 使用说 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对象结构 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对象结构 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属 基础配 开发环 使用说 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属 用户场 需 总体需 需求分 详细需 单据信 单据流 多级审 凭证功 设计单据数据结构设 单据 单据 字段的过滤条 BOSIDE中设置过滤条 通过SQL更新字段的过滤条 Action设 自动生成 手动添加 单据流 【销售订单】下推生成【产品入库通知单 练 多级审 多级审核设 凭证功 设置凭证数据来 操作管 插件开 部 发布到主控 制作部署文 第第PAGE10为了实现客户个性化的需求和保持BOS架构的开放性，BOSKIS平台，BOS插件编程是通过K3ClassEvents对象实现的KingdeeFoundationObjects1.0KFOKFO.Dictionary、KFO.Vector，他们的结构、使用方法、描述等详细内容，请参考《KFO关 ActiveXDataObjectsLibrary对本文中所有涉及到的ADODB对象如ADODB.Recordset版本必需不低于2.6；他们的结构、使用方法、描述等详细内容，请参考http://m /相关内容。K3Lib（Net、User、BOSBand（BOSBands）BOSTool（以及它的集合对象BOSTools）BillHead（以及它的集合对象BillHeads）BillEntry（以及它的集合对象BillEntrys）BOSField（以及它的集合对象BOSFields）属于辅助对象，不能使用New关键字创建。KISBOS3ListEventsKISBOSKISBOS的客户端的序时簿对ListEvents对象共包含11个属性、8个函数和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是允许否触发插件的序时簿FillRow。Object.是允许否触发插件的序时簿FillRow。默认为False，即不触发。只有当此值为True且发生序时簿行填充时，才会触发插件的序时簿FillRow。根据填充的字段的值，实现：a1、2、3…对应成星期一、星期二、星期三…；b6、7对应的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对象详细请参考“K3Lib对象参考ListListCallCallListEntrySortListFilterStringListFilterStringObject.ListHeadSortListHeadSortBarBarObject. 只读属性。返回菜单及对象，主要用来新增、修改菜单和。详细请参考“ MultiCheckMgrMultiCheckMgrObject.返回多级审核控制对象，多级审核的设置信息、当前审核情况、审核记录等都能从此组件中到RsIdRsIdFID表示序时簿当前行的所属单据的内码,取值语法是：rsID("FID");FEntryIDID：rsID("FEntryID");注意：如果要使用这个属性，插件工程还必须 ActiveXDataObjectsLibraryShowModeShowModeObject.EnumEnu_ListShowMode =0:一般查询MDI窗口 =1:一般查询模态窗口 =2:选单 =3:联查Enu_ListShowMode_ConnectViewExt=4:自定义联查ShowMsgShowMsgObject.DeleteBillDeleteBillObject.DeleteBill(ByVallClassTypeIDAsLong,ByValnInterIDAsLong,OptionalbSuccessAsBoolean=True)AssString对操作结果的描述：删除操作成功或失败用户定义单据并保存后，会在数据库中创建对应的表。如单据为 表，单据体 Entry2lClassTypeIDFClassTypeId列；nInterID对应的字段为：用户在定义单据时所指定的“主键字段”（默认为“FID。当前序时簿的单据类型ID与内码可以通过m_ListInterface.RsId("FClassTypeID"),m_ListInterface.RsId("FID")取得。删除一张单据，其类型ID ，内码是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单据编号&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单据编号&dct("FFLD")EndIfSetdct=NothingSetdctData=NothingSetdctBillID=NothingSetdctDataInfo=NothingGetCurrentSelRowInfoGetCurrentSelRowInfoObject.GetCurrentSelRowInfo当前行所属单据的内码；FEntryIDID。DimDimdctSelectedRowAsSetdctSelectedRow=m_ListInterface.GetCurrentSelRowInfoDebug.Print"单据内码: "&dctSelectedRow("FID"),_ "&dctSelectedRow("FClassTypeID"),_"单据分录ID:"&dctSelectedRow("FEntryID")SetdctSelectedRow=GetSelectedBillInfoObject.GetSelectedBillInfo此函数返回一个KFO.Vector数据包，Vector的Size和选中的行数一致。每行包含一个FID表示当前行所属单据的内码；FEntryIDID。DimDimiAsDimvctRowsAsKFO.VectorDimdctRowAsKFO.DictionarySetSetvctRows=m_ListInterface.GetSelectedBillInfoIfNotvctRowsIsNothingThenFori=1TovctRows.SizeSetdctRow=vctRows(i)Debug.Print"单据内码 "&dctRow("FID");"单据类型: "&dctRow("FClassTypeID");_"单据分录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("审核单据请审核[111111]单据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类型。业务审核是否成功。True成功后不触发成功后不触发 PrivateSubObject_AfterBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAs 总是在KFO.Dictionary新单据的单据编号会自动更改，审核信息不到新的单据中 应用场景： 选中的单据且需要更改原单据的数据PrivateSubObject_AfterDeleteBill(ByValbSuccessAsBoolean,ByVallBillInterIDAsLong,ByValsBillNoAsString,ByValsErrorMessageAsString,bCancelErrorMessageAsBoolean类型。删除是否成功。TruebCancelErrorMessagebCancelErrorMessage默认为False，默认情况下不显示提 框PrivateSubObject_AfterMergeCopyBill(ByValdctDataAsKFO.Dictionary新单据的单据编号会自动更改，审核信息不到新的单据中 应用场景：在合 选中的单据且需要更改某些数据PrivateSubObject_AfterMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean)Boolean类型。多级审核是否成功。True 在每步审核后都能触发，和AfterBusinessCheck不同PrivateSubObject_AfterMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByValSuccessAsBoolean) 总是在PrivateSubObject_AfterSelList(ByValRsIdAsADODB.Recordset,VectListAsADODB.RecordsetKFO.VectorVectListRsIdActiveXDataObjectsLibraryPrivateSubObject_AfterUnBusinessCheck(ByValSuccessAsBoolean类型。驳回业务审核是否成功。TruePrivateSubObject_AfterUnBusinessCheckEx(ByVallBillIDAsLong,ByValSuccessAsBoolean类型。驳回业务审核是否成功。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) 仍会触发PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsByRefbCancelAsDKFO.Vector对象。当前选择的单据/BooleanBoolean类型。是否取消后续的打印/CancelTruePrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsKFO.Dictionary,CancelAsBoolean)StringKFO.DictionaryBooleandctMessage参数的值，可以修改发送的消息数据。Cancel参数的值为True可以取消消息发送。刷新菜单、之前发生。PrivateSubObject_BeforRefreshToolBar(bShowCaptionAsnbShowCaptionPrivateSubObject_BusinessCheck(CancelAsCancelTruePrivateSubObject_BusinessCheckEx(ByVallBillIDAsLong,CancelAs此总是在BusinessCheck之后触发。即使在BusinessCheck中设置了Cancel 仍会触发PrivateSubObject_FinishMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,bSenderMessageAsebSenderMessageTrueFalselCheckMode值12ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByRefbSendMessageAsBoolean)此总是在FinishMultiCheck之后触发即使在FinishMultiCheck中设置了Cancel=PrivateSubObject_ListFillRow(ByVallRowAsLong,ByValRowDataAsObject,ByValHeadDictAsKFO.Dictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsLong类型。发生的行的行号ObjectADODB.RecordsetKFO.Dictionary对象。当前单元格（字段）Boolean类型。在下一行该单元格填充的时候是否发生ListFillRow每个行的每个可见的单元格（字段）的数据填充都会发生此EnableListFillRowEventsCellDataBackColorRGB生ListFillRow。注意：如果要使用RowData参数，插件工程还必须 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对象。当前点击的菜单、项对象Boolean类型。是否取消后续处理操作CancelCancel参数值默认为False。更改参数的值为True可以取消后 处理操作PrivateSubObject_BarInitialize(ByValoBarAsK3ClassEvents.oK3ClassEvents.Bar对象。菜单、对象BarPrivateSubObject_MultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsbSenderCheckMessageAsBoolean,bSenderAcceptMessageAsBoolean,sMessageTitleAsString,sMessageAsString,CancelAsBoolean)Long2次方之和。BooleanBooleanStringStringbSenderCheckMessageTrueFalse，则不会发送审bSenderAcceptMessageTrueFalse，则不会sMessageTitle参数值可以改变审核消息的标题。更改sMessage参数值可以改变审核消息的内容。CancelTruelCheckMode值12PrivateSubObject_MultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckLevelAsLong,ByVallCheckStatusAsLong,ByRefbSendCheckMessageAsBoolean,ByRefbSendAcceptMessageAsBoolean,ByRefsMessageTitleAsString,ByRefsMessageAsString,ByRefCancelAsBoolean)PrivateSubObject_PrintSuccessful(ByValdctParametersAs连续打印时，全部打印完成后才触发连续打印时，全部打印完成后才触发 ，且仅触发一次PrivateSubObject_StartMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,bSenderMessageAsBoolean,CancelAsBoolean)BooleanebSenderMessageTrueFalse，则不会发送启动CancelTruelCheckMode值12ByVallCheckMaxLevelAsLong,ByRefbSendMessageAsBoolean,ByRefCancelAs此总是在StartMultiCheck之后触发。即使在StartMultiCheck中设置了Cancel 仍会触发PrivateSubObject_UnBusinessCheck(CancelAsCancelTruePrivateSubObject_UnBusinessCheckEx(ByVallBillIDAsLong,CancelAs 仍会触发。更改Cancel参数的值为True可以取消后续的审核操作PrivateSubObject_UnMultiCheck(ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,bSenderMessageAsBoolean,CancelAsBoolean)LongeBooleanbSenderMessageTrueFalse，则不会发送驳回CancelTruelCheckMode值12PrivateSubObject_UnMultiCheckEx(ByVallBillIDAsLong,ByVallCheckModeAsLong,ByVallCheckMaxLevelAsLong,ByVallBusinessLevelAsLong,ByVallCheckStatusAsLong,ByVallLastCheckFromAsLong,ByVallLastCheckToAsLong,bSenderMessageAsBoolean,CancelAsBoolean)此总是在UnMultiCheck之后触发即使在UnMultiCheck中设置了Cancel= 仍会触发Object,bReCheckAsBoolean)KFO.DictionarytObjectKFO.DictionarybReCheckTrueFalsePrivateSubObject_ReMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsKFO.Dictionary,FCheckRecordExtAsObject,bReCheckAsBoolean) 总是在AsObject,bReCheckAsBoolean)KFO.DictionarytObjectKFO.DictionarybReCheckTrueFalsePrivateSubObject_ReUnMultiCheckEx(ByVallBillIDAsLong,ByValdctErrorAsKFO.Dictionary,FCheckRecordExtAsObject,bReCheckAsBoolean)BaseClassEventKISBOSKISBOS的客户端的基础BaseClassEvent对象共包含11个属性、8个函数、4个方法和7个BrowseCtlBrowseCtlObject.DataSrvDataSrvObject.EnableListFillRowEventsEnableListFillRowEventsFillRowObject.根据填充的字段的值，实现：a1、2、3…对应成星期一、星期二、星期三…；b6、7对应的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.只读属性。菜单及对象，主要用来新增、修改菜单和。详细请参考“Bar对象参RsClassGroupRsClassGroupObject.注意：如果要使用这个属性，插件工程还必须ActiveXDataObjectsLibrary。RsIdRsIdID数据集合。Object.注意：如果要使用这个属性，插件工程还必须ActiveXDataObjectsLibrary。GetActiveCtlGetActiveCtlDimDim AssCtlName=VBA.UCase$(VBA.TypeName(m_BaseListInterface.GetActiveCtl))SelectCasesCtlNameCase"TREEVIEW":MsgBox"光标选中了分组树"Case"LEDGER50":MsgBox"光标选中了明细表" MsgBox"我也不知道是什么"EndSelect Object.GetSelectedClaPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"MsgBox"当前选择的分组ID为："&CStr(m_BaseListInterface.GetSelectedCla)CaseElseEndEndEndGetSelectedClassTypeGetSelectedClassTypeObject.GetSelectedClassType值12值12PrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"MsgBox当前选择的分组为：&1基础资料顶级分组基础资料子分组")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光标选中了分组树"Case"LEDGER50":Ifm_BaseListInterface.IsSearchStateThenMsgBox"光标选中了查询状态的明细表"MsgBox光标选中了明细表"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("审核单据请审核[111111]单据SetStatusSetStatusObject.SetStatus(OptionalByValsStatusAsString=BooleanTrueFalse。DimDimblnAsblnm_BaseListInterface.SenderMessage("审核单据请审核[111111]单据RefreshClassGroupsRefreshClassGroupsPrivateSubm_BaseListInterface_ BarClick(ByValPrivateSubm_BaseListInterface_ BarClick(ByValBOSToolAsK3ClassEvents.BOSTool,CancelAsBoolean)SelectCaseBOSTool.ToolNameCase"mnuTest"CallCaseElseEndCaseElseEndSelectEndRefreshListByClassGroupIDRefreshListByClassGroupIDObject.RefreshListByClassGroupID(lClassGroupTypeAsLong,lClassGroupIDAsm_lGroupID所对应的分组的明细信息：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基础资料序时簿打印之前触发此。PrivateSubObject_BeforePrintBill(ByVallClassTypeIDAsLong,ByValvctInterIDAsKFO.Vector,ByValbIsPreviewAsBoolean,ByRefsPathAsString,ByRefsFileNameAsString,ByRefbCancelAsBoolean)DKFO.VectorString类型。PDFString类型。PDFCancelTruePrivateSubObject_BeforeSenderMessage(ByValActionCodeAsString,dctMessageAsKFO.Dictionary,CancelAsBoolean)StringKFO.DictionaryBooleanFalsedctMessage参数的值，可以修改发送的消息数据。Cancel参数的值为True可以取消消息发送。Long,ByValClassGroupIDAsLong,ByValClassGroupFullNumberAsString)值124LEFTARROWUPARROWRIGHTARROWDOWNARROW值12ClassGroupFullNumberFFullNumer。如果选择基础资料顶级分组返回PrivateSubObject_DeleteBillSucessful(ByValsNumberAsString,ByVallInterIDAsPrivateSubObject_ListFillRow(ByVallRowAsLong,ByValRowDataAsObject,ByValHeadDictAsKFO.Dictionary,CellDataAsString,BackColorAsLong,ContinueRaiseAsLong类型。发生的行的行号ObjectADODB.RecordsetKFO.Dictionary对象。当前单元格（字段）Boolean类型。在下一行该单元格填充的时候是否发生ListFillRow每个行的每个可见的单元格（字段）的数据填充都会发生此此是否发生，取决于EnableListFillRowEvents属性的设置。详细请参CellDataBackColorRGB生ListFillRow。注意：如果要使用RowData参数，插件工程还必须ActiveXDataObjects根据填充的字段的值，实现：a1、2、3…对应成星期一、星期二、星期三…；b6、7对应的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对象。当前点击的菜单、项对象Boolean类型。是否取消后续处理操作CancelCancel参数值默认为False。更改参数的值为True可以取消后 处理操作PrivateSubObject_BarInitialize(ByValoBarAsK3ClassEvents.oK3ClassEvents.Bar对象。菜单、对象BarPrivateSubObject_RefreshListBillEventKISBOSKISBOS的客户端的单据对象BillEvent对象共包含30个属性、25个函数、6个方法和47个AccessoryTypeIDAccessoryTypeIDID。BillCtlBillCtlObject.BillEntrysBillEntrysObject.只读属性，详细