金蝶待解决问题 (1)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
金蝶待解决问题 (1)
上传于|0|0|文档简介
&&金蝶待解决问题 (1)
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢如何在老单插件开发中提取序时簿中的字段值（转）
1．接口及参数说明
MainFunction(ByVal sKey As string,oList AsObject,Byref bCancel as
sKey : 菜单的Key值，也就是菜单名
oList : K3List控件
bCancel:是否取消后继操作标志
2．使用方法
序时薄的二次开发是通过菜单挂接组件来实现的。对于使用者需要按照以下步骤进行：
1）．在t_BandToolMapping中的FcomName填入需要调用组件的名称，注意：不要覆盖原有内容，要在原有内容上用“|
”分割后加入自己的组件，可以加多个组件。第一个插件前一定要加“|”，因为之前的部分是记录了其他信息。
2）．二次开发组件必须实现MainFunction(ByVal sKey As string,oList AsObject,Byref
bCancel as Boolean)方法。要终止事件，请将bCancel设置为true。
3）．oList为一个即是ICList，可以使用其中的任何Public方法。
比方说 GetSelData 为取得选取的对象
3．使用范例
例如外购入库需要对"back"MENU做二次开发,则增加应该为
Update a set a.FComName=a.FComName+Case When
Right(a.FComName,1)='|' then 'K3GMSPTransBill.GMSPTransList|' else
'|K3GMSPTransBill.GMSPTransList|' end
from t_BandToolMapping a left join t_MenuToolBar b on a.FToolID =
where FName = 'Back' and FComName not like
'%K3GMSPTransBill.GMSPTransList%' and a.FID=82
(FID取iclisttemplate.fmenuID)
然后在组件K3GMSPTransBill.GMSPTransList中实现Public的MainFunction方法
Public Function MainFunction(ByVal sKey As String, oList As Object,
ByRef bCancel As Boolean)
Dim vectBill As KFO.Vector
Dim lmul As Long
' Dim rs As ADODB.Recordset
Dim InBatch As Form
Set InBatch = New InBatch
Set OBJ = CreateObject("K3Connection.AppConnection")
Select Case sKey
Case "FMenuPC" '和你在数据库里插入的FNAME一样
'通过Set vectBill = oList.GetSelected 可以获取当前选中序时薄数据
'返回记录集方式
'Set rs = obj.Execute("select * from t_icitem")
'执行存储过程方式
' obj.Execute3 ("exec KY_PlanQty")
End Select
End Function
本次开发为金蝶老工业单据开发，附上相关重要源码信息：
Public Function MainFunction(ByVal sKey As String, oList As Object,
ByRef bCancel As Boolean)
&&& Dim vectBill
As KFO.Vector
&&& Dim lmul As
rs&&As ADODB.Recordset
&&& Dim InBatch
&&& Dim Dict As
KFO.Dictionary
DictCheck As KFO.Dictionary
&&& Dim fiterid
As Integer
&&& Dim fbillno
sqlUpdate As String&&
sqlSelect As String
&&& Dim strList
'Set InBatch = New
InBatch&&显示窗体
&Set OBJ =
CreateObject("K3Connection.AppConnection")&
&'老单据里的连接字串
Select Case sKey1&
"PlanUpdate"
&&&&&&&&'Set
vectBill = New KFO.Vector
&&&Set vectBill
= oList.GetSelData("FInterID")
&&&&&&&&If
vectBill.UBound & 0 Then
frmUpdate.Show 1
& If frmUpdate.dtUpdate = "白班" Then
For I = vectBill.LBound To
vectBill.UBound&&'辅助资料内码&&40025=白班
&&&&&&&&&&&
&&&&&&&&&&&&
Set DictCheck = vectBill(I)
&&&&&&&&&&&&&&&&&&&&&&&&&sqlUpdate
= "Update ICMO set FHeadSelfJ where finterid = "
DictCheck.GetValue("FInterID"))&
&&&&&&&&&&&&&&&&&&&&&&&&&&OBJ.Execute3
(sqlUpdate))&
&&&&&&&&&&&&&&&
SendKeys ("{F5}")
MsgBox "生产任务单班别更新成功", vbOKOnly, "金蝶提示"
&&&&&&&&&&
If frmUpdate.dtUpdate = "夜班" Then
&&&&&&&&&&
For I = vectBill.LBound To
vectBill.UBound&&'辅助资料内码&&40026=夜班
&&&&&&&&&&&&&&&&&&&&
&& Set DictCheck =
vectBill(I)
&&&&&&&&&&&&&&&&&&&&&&&
sqlUpdate = "Update ICMO set FHeadSelfJ where finterid =
" & DictCheck.GetValue("FInterID")
&&&&&&&&&&&&&&&&&&&&&&&
OBJ.Execute3 (sqlUpdate) `
&&&&&&&&&&&&&&&
SendKeys ("{F5}")
&&&&&&&&&&&&&&&
MsgBox "生产任务单班别更新成功", vbOKOnly, "金蝶提示"
&&&&&&&&&&
&&&&&&&End
&Case "PlanUpdate2"
Set vectBill = oList.GetSelData("FInterID")
&&&&&&&&If
vectBill.UBound & 0 Then
&&&&&&&&&&&&
strList = ""
&&&&&&&&&&&&
For I = vectBill.LBound To
vectBill.UBound&&'辅助资料内码&&40025=白班
&&&&&&&&&&&&&
DictCheck = vectBill(I)
&&&&&&&&&&&&&
&&&&&strList
= strList & DictCheck.GetValue("FInterID")
&&&&&&&&&&&&
&&& strList =
Left(strList, Len(Trim(strList)) - 1)
&&&&&&&&&&&&
sqlSelect = "select t2.FNumber,t2.FName,sum(t1.FQty) from ICMO t1
inner join t_icitem t2 on t1.FItemID=t2.FItemID where t1.FInterID
in (" & strList & ") group by
t2.FNumber,t2.FName"
&&&&&&&&&&&&
Set rs = OBJ.Execute(sqlSelect)
&End Function
--在采购订单序时簿上添加工具栏按钮
INSERT INTO t_BandToolMapping
(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
(81,47,1,'&mnuFileUserAdd1',1)
INSERT INTO t_MenuToolBar
(FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,
&FVisible,FEnable,FChecked,FShortCut,FShortChar,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,
&FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN
(1001,'UserAdd1','自定义1','自定义1','自定义1',17,'由用户自定义的按钮','由用户自定义的按钮','由用户自定义的按钮',0,
&1,1,0,0,'','','','',0,0,0,'自定义1','自定义1','自定义1')
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。金蝶K3wise单据序时簿导入导出操作说明_中华文本库
第1页/共7页
金蝶K3wise单据导入导出操作说明
金蝶K3wise单据导入导出操作说明 ............................................................................................ 1
1.1 序时簿单据引出引入 ....................................................................................................... 2
1.1.1 引入引出模版设置 ................................................................................................... 2
1.1.2 引出模版 ................................................................................................................... 3
1.1.3 数据整理 ................................................................................................................... 4
1.1.4 引入数据 ................................................................................................................... 4
1.2 结束语............................................................................................................................... 7
第1页/共7页
寻找更多 ""}