客户资料管理——金蝶二次开发

KIS专业版二次开发总结关于金蝶KIS专业版二次开发，一般包括单据、序时薄插件开发和主控台外挂开发，单据开发具体可以参考专业版插件开发接口说明。

其中单据插件开发和K3工业单据插件开发基本一致，可以借鉴K3 工业单据二次开发。

单据开发单据开发包括插件控制单据内容显示和在菜单、工具栏上增加菜单和按钮，甚至可以在单据界面上增加自定义按钮等控件，来显示自定义功能。

如下示例是销售出库单上增加菜单和工具栏按钮，调出自定义界面。

单据体增加客户产品名称自定义字段，由插件在录入物料的同时自动对其进行赋值。

单据头增加下拉框、复选框、多行备注栏，单据体增加下拉框。

同时实现单据上增加自定义按钮和二维码信息。

凭证录入界面改造原有按钮功能，如点击保存后弹出二次开发界面，但感觉功能有限，没有发现其太好的使用场景。

序时薄开发序时薄开发包括在菜单、工具栏增加菜单和按钮，甚至在序时薄界面上增加按钮或者输入框等控件，以显示二次开发功能。

如下示例是销售出库单序时薄上增加工具栏按钮，调出自定义界面。

销售单序时薄界面增加自定义按钮，点击弹出所选单据信息。

可以在自定义按钮所在的区域增加过滤输入框，以实现快速过滤功能，也可以对序时薄进行控制，比如实现字体颜色或根据字段值进行行背景色的自定义设置。

凭证管理界面增加工具栏按钮，点击弹出所选凭证信息，由此实现对凭证序时薄的二次开发。

主控台开发主控台开发主要是在主控台上增加自定义功能图标菜单和基础资料、序时薄、报表下面增加自定义功能菜单。

如下示例是在主界面销售管理里增加图标菜单，显示二次开发功能界面。

在主控台帐薄报表里面增加菜单，以弹窗的形式显示自己开发的报表。

在主控台帐薄报表里面增加报表菜单，以页签的形式显示二次开发报表。

系统报表销售出库汇总表增加工具栏按钮，点击弹出选择行数据信息，由此实现对系统报表的二次开发。

因为KIS专业版产品大部分单据实际上借鉴了金蝶工业单据，所以在做专业版单据插件开发时，你可以参考一下K3 工业单据插件开发，K3 工业单据插件能实现的功能在这里基本都可参照实现。

1常用二次开发方法1.1登陆界面图片修改1)在中间层方式：在中间层KDCOM目录新建两个图片文件：LOGIN_PIC_LOG_TOP.bmp适用于10.4版本+PT007378，或V11版本及以后版本LOGIN_PIC_LOG_BOTTOM.bmp适用于10.4版本+PT007378，或V11版本及以后版本MAIN_PIC_LOG_RIGHT_FLOWCHART.bmp,适用于10.4版本+PT007378，或V11版本MAIN_PIC_LOG_LEFT_FLOWCHART.bmp,适用于10.4版本+PT007378，或V11版本MAIN_PIC_LOG_LEFT.bmp,适用于10.4版本+PT007378，或V11版本MAIN_PIC_LOG_RIGHT.bmp,适用于10.4版本+PT007378，或V11版本该方式不需要每个客户端机器安装图片，登陆时自动显示。

2)客户端方式：直接修改以下图片文件，适用于V12及以后版本：F:\Program?Files\Kingdee\K3ERP\k3Standard\KDSYSTEM\KEE_imgLogo.bmp3)企业LOG方式在中间层新建一个文件夹，命名为eptlogo并将其设置为只读共享，然后制作两个BMP格式的图片，分别作为logo和背景图，大小为145×180，分别命名为enterprise_logo.bmp,enterprise_bg.bmp,在客户端的主控台编辑器启用企业界面即可。

1.2主控台无界面登陆适用版本：(K/3V11.0.1+PT016290或V12以上版本)1)域用户登录：提供命令行参数:KDMain.exe -LoginWin|账套代码|机构密码 ,无界面直接登录到K/3系统主控台2）命名用户登录：提供命令行参数KDMain.exe -LoginUser|账套代码|机构密码|用户名|用户密码, 无界面直接登录K/3系统主控台3）参数之间的分隔符默认为”|”，由于用户密码可能包含特殊字符，用户可以通过修改注册表改变分隔符，注册表参数：路径：HKEY_CURRENT_USER\SoftWare\KingDee\K3键：LoginParm4）获取账套代码的接口组件名：KdLogin.dll组件部署：客户端%Kdsystem%程序名：KdLogin.clsLogin方法名：GetAccountList参数描述GetAccountList() As ADODB.Recordset参数：无返回值类型：ADODB.Recordset，包含字段：组件名：KdLogin.dll组件部署：客户端%Kdsystem%程序名：KdLogin.NoUILogin方法名：LoginUser参数描述Public Function LoginUser(ByVal sLoginType As String _, ByVal sAcctNumber As String _, ByVal sOrgPass As String _, ByVal sUserName As String _, ByVal sUserPass As String) As String参数:返回值类型：String，空字符串代表登录成功，否则登陆不成功,内容为登录不成功的原因。

学习⾦蝶云⼆次开发相关内容笔记
安装⾦蝶云星空安装包和SQL数据库⽬前⼀般⽤SQL Server2008或者SQL Server2014，新版本的⾦蝶云星空采⽤SQL Server2014数据库。

安装好之后⽤demo登录进系统，密码是888888，系统在没有获得许可之前是演⽰版本，许可之后变成正式版本。

系统有⼏个默认账号，administrator：888888，demo：888888，demo01：888888。

安装⾦蝶云星空系统需要先安装IIS服务器，⽤于运⾏⾦蝶云星空系统。

其中包括⾦蝶云星空集成开发平台，集成开发平台有两种登录⽅式，不同的登录⽅式登录进去后功能是不同的。

分为云之家登录和⾦蝶云星空账号登录。

开发好之后点击保存，然后重启IIS登录系统即可查看修改的信息了。

如何在线测试WebAPI？⽤Administrator登录点击WebAPI菜单。

⾦蝶云星空客户端和Html5的功能有⼀些差异，例如⼯作流的配置只能在客户端进⾏，还有Http 数据的监控功能客户端才有。

⾦蝶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开发平台，打开外购⼊库单，并进⾏插件配置： 点击“插件配置管理”，配置客户端插件： 点击“浏览”，找到插件并勾选： 点击“确定”，并保存外购⼊库单。