ERP系统教程网

  • 首页
  • 金蝶ERP教程
  • 财务知识
  • 会计实务
  • 财经要闻
  • 法律百科
  • 资源下载
    • 金蝶培训资料
    • 金蝶工具下载
    • 金蝶安装包下载
  1. 首页
  2. 金蝶ERP教程
  3. 正文

金蝶K3凭证导入二次开发之核算项目和现金流

2021年6月29日 101点热度 0人点赞 0条评论

金蝶K3凭证导入二次开发之核算项目和现金流
1.添加组件引用

2.登录验证,获取K/3连接字符串。
Private K3Login As Object '当前连接对象
Private Sub Login()
  On Error GoTo Conn_Error
     
  Set K3Login =
CreateObject("K3Login.ClsLogin")
     
  If Not K3Login.CheckLogin Then
     
      AddString
"连接不成功"
     
      Set
K3Login = Nothing
     
      Exit
Sub
     
  End If
Conn_Error:
    AddString "ErrCode:"
& Err & " ErrDescription:" & Err.Description
End Sub

3.保存凭证(包括凭证分录,核算科目及现金流)
Private Function SaveVoucher() As Long
    On Error GoTo
ErrHandle
    Dim Voucher As New
KFO.Dictionary
    Dim Dt As New
KFO.Dictionary
    Dim dtVector As New
KFO.Vector
    Dim VoucherEntry As New
KFO.Vector
    Dim tempEntry As
KFO.Dictionary
    
    '当前期间凭证日期
    Voucher("FDate") =
"2015/9/1"
    '凭证字
    Voucher("FGroup") =
"记"
    '凭证号 注意不能重复,重复则报错
    Voucher("FNumber") =
611
    
   
'***********************************************
    '添加第一条分录
    Set tempEntry = New
KFO.Dictionary
    '摘要
   
tempEntry("FExplanation") = "凭证录入检测-分录1"
    '科目ID
t_Account表的FAccountID字段
    tempEntry("FAccountID")
= 1020
    '币别
    tempEntry("FCurrencyID")
= 1
    '借方
    tempEntry("FDC") =
1
    '原币
    tempEntry("FAmountFor")
= 100
    '本位币
    tempEntry("FAmount") =
100
   
'==============================================
    '保存带核算项目的部分
    '第一个核算项目
    Set Dt = New
KFO.Dictionary
    '核算项目ID
 
 t_ItemClass表FSQLTableName对应表的FItemID
    Dt("FItemID") =
305
   
 '核算项目类型
 t_ItemClass表FItemClassID
    Dt("FItemClassID") =
1
    dtVector.Add Dt
    '第二个核算项目
    Set Dt = New
KFO.Dictionary
    Dt("FItemID") =
10049
    Dt("FItemClassID") =
3
    dtVector.Add Dt
Set tempEntry("_Details") = dtVector

'    '现金流
'    Dim cashFlowDetail As
New KFO.Vector
'    Set Dt = New
KFO.Dictionary
''  select * from t_Item where FItemClassID=9
的FitemID
'    Dt("FitemID") =
95
'  
 '顺序号,对应科目所在凭证分录的行号减1
'    Dt("FEntryID") =
1
'    Dt("FAmountFor") =
600
'    Dt("FAmount") =
600
'    cashFlowDetail.Add
Dt
'
'    Set Dt = New
KFO.Dictionary
'    Dt("FitemID") =
95
'    Dt("FEntryID") =
2
'    Dt("FAmountFor") =
400
'    Dt("FAmount") =
400
'    cashFlowDetail.Add
Dt
'    Set
tempEntry("CashFlow") = cashFlowDetail
   
'==============================================
    VoucherEntry.Add
tempEntry
   
'***********************************************  
 
     
   
 '***********************************************
    '添加第二条分录
    Set tempEntry = New
KFO.Dictionary
   
tempEntry("FExplanation") = "凭证录入检测-分录2"
    tempEntry("FAccountID")
= 1242
    tempEntry("FCurrencyID")
= 1
   
 '贷方
    tempEntry("FDC") =
0
    tempEntry("FAmountFor")
= 100
    tempEntry("FAmount") =
100
    VoucherEntry.Add
tempEntry
   
 '***********************************************
     
    Set Voucher("_Entries")
= VoucherEntry
    Dim Cre As Object,
VoucherID As Long
    Set Cre =
CreateObject("EBSGLVoucher.VoucherUpdate")
    VoucherID =
Cre.Create(K3Login.PropsString, Voucher)
    Set Cre = Nothing
 
    SaveVoucher = VoucherID
 ‘返回的凭证id
    Exit Function
ErrHandle:
    HandleError Err
End Function

‘删除凭证
Private Function DeleteVoucher(ByVal VoucherID As Long) As
Boolean
    On Error GoTo
ErrHandle
    DeleteVoucher =
False
    Dim DelV As Object
    Set DelV =
CreateObject("EBSGLVoucher.VoucherUpdate")
    DeleteVoucher =
DelV.Delete(K3Login.PropString, VoucherID)
    Set DelV = Nothing
    Exit Function
ErrHandle:
    HandleError Err
End Function
'取得指定的科目的核算项目,lAcctID为科目ID
Private Function GetItemofAcct(lAcctID As Long) As
Object
    Dim obj As Object
    Dim rsAcct As
Object
    Dim dtVector As
kfo.Vector
    Dim Dt As kfo.Dictionary
   
    Set obj =
CreateObject("EbcglView.GlData")
    Set rsAcct =
obj.GetAccountItem(lAcctID)
    If rsAcct Is Nothing
Then Exit Function
    '将取得核算项目打包
    Set dtVector = New
kfo.Vector
    If rsAcct.RecordCount
<> 0 Then
     
  rsAcct.MoveFirst
     
  Do While Not rsAcct.EOF
     
      Set Dt =
New kfo.Dictionary
     
     
Dt("FItemID") = "输入核算项目ID"
     
     
Dt("FItemClassID") = "输入核算项目类型"
     
     
dtVector.Add Dt
     
     
rsAcct.movenext
     
  Loop
    End If
    Set GetItemofAcct =
dtVector
End Function

新增凭证带界面
Public Function CreateVoucherUI() As Long
    Dim Voucher As Object
'凭证对象
    Dim VoucherEntrys As
Object '凭证分录对象
    CreateVoucherUI =
-1
    On Error GoTo e
    Set Voucher =
CreateObject("EBCGL.Voucher")
    Voucher.Construct
Nothing, Nothing '建立凭证数据对象
    Set VoucherEntrys =
Voucher.Entries '设置凭证分录对象
    ' Voucher.InternalInd =
dtHead("InternalInd") '机制凭证信息(可选)
    '设置凭证默认日期(可选)
   
 '业务日期
    ' Voucher.TransDate
=””
   
 '凭证日期"
    Voucher.VoucherDate =
"2015/9/1"
    '凭证字id
t_VoucherGroup表
    Voucher.GroupID =
1
    '"322" '凭证号
    Voucher.Number
=322
   
 '附件数
    'Voucher.Attachments
=””
   
 '业务模块
    'Voucher.TranType =
“”
    '参考信息
    'Voucher.Reference =
“”
    '增加凭证分录数据
    VoucherEntrys.Add
    With
Voucher.Entries(1)
     
  '凭证分录摘要
     
  .Explanation = "凭证录入检测-分录1"
     
  '科目ID
     
  .AccountID = 1020
     
  '本位币
     
  .Amount = 100
     
  '原币
     
  .AmountFor = 100
     
  '汇率
     
  '.ExchangeRate = 1
     
  '币别
     
  .CurrencyID = 1
     
  '借方
     
  .DC = 1
     
  '增加一个核算项目
     
  Voucher.Entries(1).Details.Add
     
   '核算项目类型
 t_ItemClass表FItemClassID
     
  Voucher.Entries(1).Details(1).ItemClassID =
1
     
  '核算项目ID  
 t_ItemClass表FSQLTableName对应表的FItemID
     
  Voucher.Entries(1).Details(1).ItemID = 305
     
  '增加第二个核算项目
     
  Voucher.Entries(1).Details.Add
     
  Voucher.Entries(1).Details(2).ItemClassID =
3
     
  Voucher.Entries(1).Details(2).ItemID =
10049
    End With
    VoucherEntrys.Add
    With
Voucher.Entries(2)
     
  .Explanation = "凭证录入检测-分录2"  
'"凭证分录摘要
     
  .AccountID = 1111
     
  .Amount = 100
     
  .AmountFor = 100
     
  .CurrencyID = 1
     
  '贷方
     
  .DC = 0
    End With
     
  Dim Vch As Object, Mode As Long
     
  Dim ReturnVoucherID As Long
     
  Set Vch =
CreateObject("Mvedit.MVoucherEdit")
     
  'Mode值= '新增 0 '显示 1 '修改 2 '审核 3
     
  '凭证新增(界面数据)
     
  Mode = 0
     
  ReturnVoucherID = 0
     
  If Voucher Is Nothing Then Exit Function
     
  Dim rel As KDVBF.Relevancy
     
  Set rel = New KDVBF.Relevancy '建立输入对象
     
  Set rel.EditObject = Voucher
'设置凭证数据对象到Rel参数
     
  rel.MultiEdit = False '是否允许多张凭证编辑
     
  Vch.LoadVoucher Mode, , rel, ,
ReturnVoucherID
     
  CreateVoucherUI = ReturnVoucherID
    Exit Function
e:
    CreateVoucherUI =
-1
    MsgBox Err.Description,
vbCritical, "错误提示"
End Function

4.其他相关资料介绍
取当前期间年份
select FValue  from t_SystemProfile
 
where FCategory='GL' AND FKEY='CurrentYear'
取当前期间期数
select FValue  from t_SystemProfile
 
where FCategory='GL' AND FKEY='CurrentPeriod'

相关数据表及介绍
t_voucher  凭证主表
t_voucherentry  凭证分录表
t_CashFlowBal   现金流量分录表
t_Account 科目表
select * from t_Item where FItemClassID=9 为现金流量主表项目。
其他详细内容请参考C:\Program
Files\Kingdee\K3ERP\KDSDK\Sample\K3Login&Vch

 

标签: 暂无
最后更新:2021年6月29日

fengjun

这个人很懒,什么都没留下

点赞
< 上一篇
下一篇 >

猜你喜欢

文章评论

razz evil exclaim smile redface biggrin eek confused idea lol mad twisted rolleyes wink cool arrow neutral cry mrgreen drooling persevering
取消回复

最新 热点 随机
最新 热点 随机
东方财富股价跳水近6%,公司回应称:经营一切正常 房产遗嘱格式范本(房屋赠与的遗嘱正规格式) 行政诉讼流程怎么走(行政诉讼注意事项) 妨碍公务罪怎么判(妨害公务罪拘留流程及量刑) 司法确认的案件范围(司法确认的司法解释) 生产销售不符合安全标准的食品罪(食品安全犯罪量刑标准) 羁押必要性审查的法律规定(羁押必要性审查流程) 执行申请书范本(民事诉讼强制执行申请书) 违约金最高上限是多少(违约金最高上限法律规定) 民法典诉讼时效是多久(民法典对诉讼时效的规定) 商铺转让协议书怎么写(商铺转租合同协议书范本) 个人所得税扣除项目包括哪些(个人所得税抵扣政策) 哄抬物价处罚标准是什么(个人哄抬物价处罚标准) 征收与拆迁补偿条例(新拆迁法补偿标准细则) 行政调解的适用范围(行政调解法律依据)
农村养老保险新政策(农村个人养老保险缴费标准)在建工程和制造费用如何结转?-会计实务-用友财务软件免费试用版下载辞退福利全部计入当期损益吗?-会计实务-用友财务软件免费试用版下载城建税会计分录怎么做?-会计实务-用友财务软件免费试用版下载金蝶云期末业务关账的作用?先进先出法结存材料成本会计分录-会计实务-用友财务软件免费试用版下载销售原材料怎样结转成本?-会计实务-用友财务软件免费试用版下载三人合伙做生意合同协议书(合伙做生意合同协议书范本)物业费开专票还是普票?-会计实务-用友财务软件免费试用版下载刑法第三章二百六一条是什么(刑法第三章二百六一解释)法定代表人证明书模板(公司法人证明书格式)如何设置金蝶kis中某一客户的业务员和部门信息,使录入单据的时候自动带出业务员和部门的信息?单位公休假国家规定(公务员请假条格式范文)商住楼产权年限是多少年(有关商住楼产权的法律规定)带息负债比率多少合适?-会计实务-用友财务软件免费试用版下载
变动成本的相关范围-会计实务-用友财务软件免费试用版下载 城乡居民养老保险合并立马(养老保险两项制度合并实施) 法定代表人任职文件格式(新公司注册公司章程) 累计摊销怎么算?-会计实务-用友财务软件免费试用版下载 这届电视机,为何痴迷“套娃式”收费? 表见代理法律规定(民法典中表见代理法条) 如何自定义金蝶软件纸张大小 在哪里购买金蝶软件最有保障?(买金蝶必看) 如何便捷的引出凭证字号不连续的凭证 小规模纳税人企业如何做账?-会计实务-用友财务软件免费试用版下载 收到客户定金或者中期款怎么写分录?-会计实务-用友财务软件免费试用版下载 公司对公账户有卡吗?-会计实务-用友财务软件免费试用版下载 如何使用金蝶KIS的批量提取价格 名誉权侵权认定的要件(侵犯名誉权的立案条件) 应收账款结算的步骤有哪些-会计实务-用友财务软件免费试用版下载
标签聚合
意思 司法解释 凭证 政策 怎么 物料 金蝶KIS旗舰版 时间 合同 法律 标准 KIS旗舰版 实施细则 实施 哪些 协议书 解读 条件 什么 条例 认定 KIS 单据 内容 法律百科 处罚 合同范本 最新 解释 固定资产 赔偿 规定 立案 范文 公司 个人 关于 范本 费用 标准版 金蝶 流程 模板 青岛 旗舰版 报表 全文 科目 专业版 协议

COPYRIGHT © 2023 ERP系统教程网. ALL RIGHTS RESERVED.

Theme Kratos Made By Seaton Jiang

粤ICP备2022155369号