下载文档原格式
⾦蝶K3wise插件⼆次开发与配置开发环境：K/3 Wise 13.0、K/3 Bos开发平台、Visual Basic 6.0⽬录⼀、⼆次开发插件编程⼆、代码演⽰三、配置插件四、测试插件五、插件事件附录⼀、⼆次开发插件编程 打开Visual Basic 6.0，新建⼯程ActiveX DLL: 命名为FirstPlugin.class: 引⽤类库如下： 已安装K/3 Wise，在VB 6.0菜单栏上会多出⼀个⾦蝶开发插件： 打开⾦蝶开发向导，创建⼯业单据客户端插件（⼯业单据俗称“⽼单”）： 点击“确定”，选择类“FirstPlugin”: 点击“下⼀步”，这⾥我们⾃定义⼀个菜单项“插件⼯具”： 点击“下⼀步”，选择事件“UserMenuClick”： 完成向导。
⼆、代码演⽰ 代码编写如下：'配置路径：供应链-外购⼊库单'函数功能：插件⼯具--根据“长、宽、厚”⾃动计算批号'定义插件对象接⼝. 必须具有的声明, 以此来获得事件Private WithEvents m_BillTransfer As K3BillTransfer.BillDim F55 As Long, F55Text As String '长Dim F56 As Long, F56Text As String '宽Dim F57 As Long, F57Text As String '⾼Dim FDate As Long, FDateText As String '⽇期Dim FBatchNo As String '批号Dim FItemID As Long, FNumber As String '物料编码Dim FBatchManager As Boolean '是否采⽤业务批号管理Dim str As StringPublic Sub Show(ByVal oBillTransfer As Object)'接⼝实现'注意: 此⽅法必须存在, 请勿修改Set m_BillTransfer = oBillTransferEnd SubPrivate Sub Class_Terminate()'释放接⼝对象'注意: 此⽅法必须存在, 请勿修改Set m_BillTransfer = NothingEnd SubPrivate Sub m_BillTransfer_BillInitialize()'*************** 开始设置菜单 ***************m_BillTransfer.AddUserMenuItem "⾃动批号", "插件⼯具"'*************** 结束设置菜单 ***************'TODO: 请在此处添加代码响应事件 BillInitializeF55 = GetCtlIndexByFld("FEntrySelfA0155", True)F56 = GetCtlIndexByFld("FEntrySelfA0156", True)F57 = GetCtlIndexByFld("FEntrySelfA0157", True)FBatchNo = GetCtlIndexByFld("FBatchNo", True)FDate = GetCtlIndexByFld("FDate", False)FItemID = GetCtlIndexByFld("FItemID", True)End SubPrivate Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)'TODO: 请在此处添加代码响应事件 UserMenuClickSelect Case CaptionCase "⾃动批号"'此处添加处理批号⽣成菜单对象的 Click 事件With m_BillTransferFor i = 1 To 1000If .GetGridText(i, FItemID) = "" ThenExit ForEnd If'从物料表检测是否采⽤业务批次管理Dim strSQL As String '⽤于执⾏SQLDim rs As ADODB.RecordsetFNumber = ""FNumber = .GetGridText(i, FItemID)strSQL = ""strSQL = "SELECT FBatchManager FROM t_ICItem WHERE FNumber='" & FNumber & "'"Set rs = SQLHelper.ExecuteSQL(strSQL, "")If rs.EOF = False ThenFBatchManager = rs.Fields("FBatchManager")End IfSet rs = NothingF55Text = .GetGridText(i, F55)F56Text = .GetGridText(i, F56)F57Text = .GetGridText(i, F57)If F55Text = "" Then F55Text = "0"If F56Text = "" Then F56Text = "0"If F57Text = "" Then F57Text = "0"FDateText = Replace(.GetHeadText(FDate), "-", "")If (FBatchManager = True) Then.SetGridText i, FBatchNo, F55Text & "-" & F56Text & "-" & F57Text & "-" & FDateTextEnd IfNextEnd WithCase ElseEnd SelectEnd Sub'*****************************************'获取分录⾏数'*****************************************Public Function GetEntryMax() As LongDim k As LongDim iFItemID As LongDim oEntryCtl As VariantDim maxrow As Long '最⼤⾏'For k = LBound(m_BillTransfer.EntryCtl) To UBound(m_BillTransfer.EntryCtl)If UCase(m_BillTransfer.EntryCtl(k).FieldName) = UCase("FItemID") Then '物料代码所在列iFItemID = kExit ForEnd IfNext koEntryCtl = m_BillTransfer.EntryCtlmaxrow = UBound(oEntryCtl(iFItemID).DInterID) '获取表体最⼤⾏GetEntryMax = maxrowEnd Function'**********************************'返回单据字段顺序(isEntry True是表体)'**********************************Public Function GetCtlIndexByFld(ByVal fldName As String, Optional ByVal isEntry As Boolean = False) As LongDim ctlIdx As LongDim i As IntegerDim isFind As BooleanDim vValue As VariantfldName = UCase(fldName)isFind = FalseWith m_BillTransferIf isEntry ThenFor i = LBound(.EntryCtl) To UBound(.EntryCtl)If UCase(.EntryCtl(i).FieldName) = fldName ThenctlIdx = .EntryCtl(i).FCtlOrderisFind = TrueExit ForEnd IfNext iElseFor i = LBound(.HeadCtl) To UBound(.HeadCtl)If UCase(.HeadCtl(i).FieldName) = fldName ThenctlIdx = .HeadCtl(i).FCtlIndexisFind = TrueExit ForEnd IfNext iEnd IfEnd WithIf isFind = True ThenGetCtlIndexByFld = ctlIdxElseGetCtlIndexByFld = 0End IfEnd Function三、配置插件 在Visual Basic 6.0⽣成DLL： 启动K/3 Wise BOS开发平台，打开外购⼊库单，并进⾏插件配置： 点击“插件配置管理”，配置客户端插件： 点击“浏览”，找到插件并勾选： 点击“确定”，并保存外购⼊库单。
文档号：XA—KDSS—HDSS—B006目录第一章：总账系统 (3)第一节系统维护 (7)第二节凭证处理 (9)2.2.1凭证查询 (18)无机查询方式 (18)有机查询方式 (18)2.2.2新增凭证 (19)2.2.3修改凭证 (20)2.2.4凭证审核 (20)2.2.5凭证打印 (21)2-4-1输入汇总条件 (25)2-4-2浏览凭证汇总表、预览、打印、 (26)第三节账簿、报表查询打印 (26)第四节期末处理 (28)4.1.1期未调汇 (28)4.1.2结转损益 (29)4.1.3自动转账 (30)4.1.4期末结账 (32)第二章：报表系统 (34)第三章：现金管理系统 (40)第四章：现金流量表系统 (42)第五章：工资系统 (47)第六章：固定资产系统 (54)第七章：财务分析系统 (58)第八章: 应收管理系统 (61)第九章: 应付管理系统 (73)第一章：总账系统日常处理由总账中凭证模块开始，凭证是一切账务核算系统的基础，也是用户日常工作及使用最频繁窗口，用户只要把握好在凭证录入完整及正确，有关其他账簿及报表由系统自动产生，在凭证使用模块中，系统为您提供了凭证管理、账簿查询打印、期末处理四个主要功能。
本章的目的当完成本章的学习之后，您将能够做以下事情：●学会凭证的录入方法及技巧，●学会凭证编辑、查询、审核●学会各种账簿、报表查询、打印、●学会期末处理总账系统日常工作流程图凭证过账凭证过账③报表处理结转下期期末结账注：虚线框表示执行后由计算机自动完成第一节系统维护1.1系统参数设置在总账日常凭证数据录入前，需要用户对凭证录入过程中一些功能进行设置，完成这一操作后，才能更方便、更快捷实现您的日常工作效率。
首先进入总账系统-[主窗口]中的“维护”，单击“系统参数”中“总账”标签页，如下图1-1所示：图1-1系统参数窗口-总账在科目的标签的窗口中，您可设置“本年利润”的会计科目，该科目将用于“结转损益”，按图中字典的按钮，系统将为您列示出所有的会计科目，您可以根据自己的需要进行选择。
