K3 装配日志（BOS插件）V2

已于 2024-04-19 09:15:05 修改
阅读量288 收藏 4
点赞数 5
分类专栏： 金蝶K3 文章标签： 需求分析
于 2024-04-18 11:16:37 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44819434/article/details/137910511
版权

在这里插入图片描述
对原来的方案进行了一些改进
（原方案详见K3 装配日志（BOS插件））
改进的地方
1、开始和结束时间初始化不是在加载新单时执行，而是在判断“物料编码”是否为空时加载
2、增加了一个时间方案，原来开始时间和结束时间是长日期字段，后来想想现实中一天一登记的话没必要用长日期字段。

代码如下：

 
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Private timetype As Integer
Private currentday As Date
Private currentdate As Variant
 
Public Sub Show(ByVal oBillInterface As Object)
 
    'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = oBillInterface
 
End Sub

Private Sub Class_Terminate()
 
    '释放接口对象
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = Nothing

End Sub


Private Sub m_BillInterface_AddNewRow(ByVal Index As Integer, ByVal NewRow As Long)
' ''新增行同样先初始化开始和结束时间
' Dim nrow As Integer
' Dim rows As Integer
'
'' rows = m_BillInterface.Data("page2").Size '获取总行数
' nrow = NewRow
' currentday = Date
' currentdate = currentday - 1 & " " & VBA.CDate("00:00:00")
'
'
'm_BillInterface.SetFieldValue "Ftime", CDate(currentdate), nrow
'm_BillInterface.SetFieldValue "Ftime1", CDate(currentdate), nrow
End Sub

'新增单据时，工作时间段按装配日期判断是夏令时还是冬令时
Private Sub m_BillInterface_AfterNewBill()

 Dim skey As String
 Dim sValue As String
 Dim dtValue As Date

 skey = m_BillInterface.TableInfo("Map")("fdate") '获取KEY值
 sValue = m_BillInterface.Data("page1")(skey)("FFLD") '获取字段数值

 
 If Len(sValue) > 0 Then
   dtValue = CDate(sValue) '转换成日期
 End If
 
 '判断当月份是5至10月之间的为夏令时，其他为冬令时
 If Month(dtValue) >= 5 And Month(dtValue) <= 10 Then
' MsgBox "夏令时"
 m_BillInterface.SetFieldValue "FComboBox", 0 '测试单据中是FComboBox1
 timetype = 0
 Else
 m_BillInterface.SetFieldValue "FComboBox", 1
 timetype = 1
' MsgBox "冬令时"
 End If
 
 

 
' ''先初始化开始和结束时间
'
 currentday = Date
 currentdate = currentday - 1 & " " & VBA.CDate("00:00:00")
'
'm_BillInterface.SetFieldValue "FDate", CDate(currentday - 1)
'm_BillInterface.SetFieldValue "Ftime", CDate(currentdate)
'm_BillInterface.SetFieldValue "Ftime1", CDate(currentdate)
'm_BillInterface.SetFieldValue "FDecimal", "0"
''m_BillInterface.BillEntrys(1).MaxRows = 500 '最大行设为500
 
End Sub
'当装配日期变更时，判断是夏令时还是冬令时
Private Sub m_BillInterface_Change(ByVal dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)

'''方法一
'' sKey = m_BillInterface.TableInfo("Map")("fdate") '获取KEY值
'' sValue = m_BillInterface.Data("page1")(sKey)("FFLD") '获取字段数值
''
''
'' If Len(sValue) > 0 Then
''   dtValue = CDate(sValue) '转换成日期
'' End If
''
'' '判断当月份是5至10月之间的为夏令时，其他为冬令时
'' If Month(dtValue) >= 5 And Month(dtValue) <= 10 Then
''' MsgBox "夏令时"
'' m_BillInterface.SetFieldValue "FComboBox1", 0
'' Else
'' m_BillInterface.SetFieldValue "FComboBox1", 1
''' MsgBox "冬令时"
'' End If
'''''''''''''''

'方法二

Dim oHeads As K3ClassEvents.BillHeads '单据头集合
Dim oHead As K3ClassEvents.BillHead '单据头对象
Dim oEntrys As K3ClassEvents.BillEntrys '单据体集合
Dim oEntry As K3ClassEvents.BillEntry '单据体对象
Dim oFields As K3ClassEvents.BOSFields '字段集合
Dim oField As K3ClassEvents.BOSField '字段
Dim dtValue As Date
Dim skey As String
Dim sValue As String
Dim startDate As Date
Dim endDate As Date
Dim duration As Single
Dim diffDay As Integer
Dim startH As Integer, startMi As Integer, endH As Integer, endMi As Integer
Dim OvertimeType As Integer
 
Dim starttime As Variant
Dim endtime As Variant
Dim time1 As Variant, time2 As Variant, time3 As Variant
 
 
Set oHeads = m_BillInterface.BillHeads
Set oEntrys = m_BillInterface.BillEntrys
Set oHead = oHeads(1) '第一个单据头
Set oEntry = oEntrys(1) '第一个单据体

'获取字段值


Set oFields = oHead.BOSFields
Set oField = oFields("Fdate")

 If Len(oField.Value) > 0 Then
   dtValue = CDate(oField.Value) '转换成日期
 End If

Set oFields = oHead.BOSFields
Set oField = oFields("FComboBox")

 '判断当月份是5至10月之间的为夏令时，其他为冬令时
 If Month(dtValue) >= 5 And Month(dtValue) <= 10 Then
' MsgBox "夏令时"
 oField.Value = 0
 timetype = 0
 Else
 oField.Value = 1
 timetype = 1
' MsgBox "冬令时"
 End If
 
 




With m_BillInterface
'If Row = .Data("page2").Size Then  '判断当前行是否最后一行

''''''''''''''''''''''''''''''''''''''
'''''长日期方案

    '开始时间
    skey = .TableInfo("Map")("Ftime") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值

     If Len(sValue) > 0 Then
       startDate = CDate(sValue) '转换成日期
     End If
     startH = Hour(startDate)
     startMi = Minute(startDate)

    '结束时间
    skey = .TableInfo("Map")("Ftime1") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值

     If Len(sValue) > 0 Then
       endDate = CDate(sValue) '转换成日期
     End If
     endH = Hour(endDate)
     endMi = Minute(endDate)
     
    '中午加班标识
    skey = .TableInfo("Map")("FCheckBox") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值
    OvertimeType = VBA.CInt(sValue)
    
     
   starttime = TimeSerial(startH, startMi, 0)
   endtime = TimeSerial(endH, endMi, 0)
  


''判断“物料编码”是否为空，如果不为空，则给开始和结束时间赋值
Set oFields = oEntry.BOSFields
Set oField = oFields("FBase2")
sValue = oField.Value

If sValue <> "" And startDate = "00:00:00" Then
    m_BillInterface.SetFieldValue "Ftime", CDate(currentdate)
End If
If sValue <> "" And endDate = "00:00:00" Then
    m_BillInterface.SetFieldValue "Ftime1", CDate(currentdate)
End If

'''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''''''''
'''''时间方案

    '起始时间
    skey = .TableInfo("Map")("FTimeOnly") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值

     If Len(sValue) > 0 Then
       startDate = CDate(sValue) '转换成日期
     End If
     startH = Hour(startDate)
     startMi = Minute(startDate)

    '完工时间
    skey = .TableInfo("Map")("FTimeOnly1") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值

     If Len(sValue) > 0 Then
       endDate = CDate(sValue) '转换成日期
     End If
     endH = Hour(endDate)
     endMi = Minute(endDate)
     
    '中午加班标识
    skey = .TableInfo("Map")("FCheckBox") '获取KEY值
    sValue = .Data("page2")(Row)(skey)("FFLD")   '获取单据体字段数值
    OvertimeType = VBA.CInt(sValue)
    
     
   starttime = TimeSerial(startH, startMi, 0)
   endtime = TimeSerial(endH, endMi, 0)
  


''判断“物料编码”是否为空，如果不为空，则给开始和结束时间赋值
Set oFields = oEntry.BOSFields
Set oField = oFields("FBase2")
sValue = oField.Value

If sValue <> "" And startDate = "00:00:00" Then
    m_BillInterface.SetFieldValue "FTimeOnly", "00:00:00"
End If
If sValue <> "" And endDate = "00:00:00" Then
    m_BillInterface.SetFieldValue "FTimeOnly1", "00:00:00"
End If

'''''''''''''''''''''''''''''''''''''




'''''时间段跨中午时，扣减中午休息时间，“中午加班”复选框打勾，则不扣减
     '日期差
'    diffDay = DateDiff("d", startDate, endDate)
  
    If endH > 0 Or (endH = 0 And endMi > 0) Then '判断只有结束时间的小时大于0时才进行计算
  
   If startDate > endDate Then
     MsgBox "结束时间不能小与开始时间", vbOKOnly, "提示"
     GoTo out
   End If
  
    If timetype = 0 Then '夏

'设置中午休息时间
     time1 = TimeSerial(11, 29, 59)
     time2 = TimeSerial(13, 0, 1)
     
     If starttime > time1 And endtime < time2 Then '在休息时间内的
       result = MsgBox("请确认是否是加班时间", vbYesNo, "提示")
       If result = 6 Then 'yes
       duration = (endDate - startDate) * 60 * 24
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
       .SetFieldValue "FCheckBox", 1
       ElseIf result = 7 Then 'no
       m_BillInterface.SetFieldValue "Ftime1", CDate(currentdate)
       GoTo out
       End If
     ElseIf starttime <= time1 And endtime >= time2 Then '跨休息时间的，要扣减
     
      duration = (endDate - startDate) * 60 * 24 - 90
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
'       MsgBox "扣减"
       .SetFieldValue "FCheckBox", 0
     Else '其他情况的 比如开始或结束时间在休息时间段内的
        duration = (endDate - startDate) * 60 * 24
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
       .SetFieldValue "FCheckBox", 0
     End If
     

        
    ElseIf timetype = 1 Then  '冬

'设置中午休息时间
     time1 = TimeSerial(11, 29, 59)
     time2 = TimeSerial(12, 30, 1)
     
     If starttime > time1 And endtime < time2 Then '在休息时间内的
       result = MsgBox("请确认是否是加班时间", vbYesNo, "提示")
       If result = 6 Then 'yes
       duration = (endDate - startDate) * 60 * 24
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
       .SetFieldValue "FCheckBox", 1
       ElseIf result = 7 Then 'no
       m_BillInterface.SetFieldValue "Ftime1", CDate(currentdate)
       GoTo out
       End If
     ElseIf starttime <= time1 And endtime >= time2 Then '跨休息时间的，要扣减
     
      duration = (endDate - startDate) * 60 * 24 - 60
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
'       MsgBox "扣减"
       .SetFieldValue "FCheckBox", 0
     Else '其他情况的 比如开始或结束时间在休息时间段内的
        duration = (endDate - startDate) * 60 * 24
       .SetFieldValue "FDecimal", duration
       .SetFieldValue "FDecimal1", duration / 60
       .SetFieldValue "FCheckBox", 0
     End If
     




'
'    End If
'''   '直接通过“中午加班”来判断是否扣减
'''    If OvertimeType = 1 Then '中午加班不扣减
'''        duration = (endDate - startDate) * 60 * 24
'''         .SetFieldValue "FDecimal", duration
'''    ElseIf OvertimeType = 0 Then
'''       If timetype = 0 Then  '夏
'''         duration = (endDate - startDate) * 60 * 24 - 90
'''         .SetFieldValue "FDecimal", duration
'''       ElseIf timetype = 1 Then  '冬
'''         duration = (endDate - startDate) * 60 * 24 - 60
'''         .SetFieldValue "FDecimal", duration
'''
'''    End If
'''


    End If
  End If
    
    

'End If

End With


out:
End Sub
锁匙isthekey
关注
专栏目录
四、K3 WISE 开发插件《工业单据老单插件开发新手指导》
朱国庆的博客
07-23 180
开发环境：K/3 Wise 13.0、K/3 Bos开发平台、Visual Basic 6.0 =============================================== 目录 一、二次开发插件编程 二、代码演示 三、配置插件 四、测试插件 五、插件配置后未生效 六、附SQLHelper 七、K3自带连接数据库的写法 八、源码下载 ======================...
K3BOS插件开发手册
01-03
K3BOS插件开发手册。。上传方便自己，也方便大家一起学习。
K3 插件：材料根据规格进行长宽高的拆分（特别是对单据体单元格的加锁解锁）
最新发布
weixin_44819434的博客
08-08 196
基本上原则是圆料时，将宽锁定，没有规格或是型号及角铁管材类的，将高和宽都锁定，直接使用规格，就不拆分了。先看结果，原料中有很多规格设置不规范的地方，特别是有些空着的、有些不规则。重新在原记录上修改，也没问题。
K3 装配日志（BOS插件）
weixin_44819434的博客
04-17 208
主要的难点一是计算时长，因为如果是跨中午休息时间，是要扣减的，但如果开始时间或结束时间在中午休息时间段内，不扣减，这个调试了老久，差点放弃只接通过勾选来扣减了；二是根据装配时间判断作息时间是夏令还是冬令，这个影响时长的计算。
k3 序时薄插件
ding1233155的专栏
07-22 3422
实现了，序时薄插件 调用新老单据
金蝶K3 V14.2 BOS 插件开发手册.pdf
06-27
K/3 BOS 平台，K/3 BOS 插件编程是通过 K3ClassEvents 对象代理实现的。 K/3 BOS 提供了基于 COM 和.Net 两套插件模型。 COM K/3 BOS 提供 ListEvents、BaseClassEvent、BillEvent 三个重要的客户端接口对象及其他的...
K3 WISE BOS插件开发培训(2018版)
01-03
下面将详细阐述"K3 WISE BOS插件开发培训(2018版)"中的关键知识点： 1. **BOS基础架构**：理解BOS的基础架构是开发插件的第一步。BOS采用服务导向架构（SOA），由业务服务、工作流、报表、数据字典等模块构成，支持...
K3WISE_BOS插件开发常见技巧.doc
08-22
在K3WISE_BOS插件开发中，有多种常见的技巧可以提升开发效率和用户体验。以下是一些关键点的详细说明： 1. **在工具栏上添加多级审核按钮**： 这个技巧涉及到对BOS插件界面的自定义。在`m_BillInterface_...
金蝶K3BOS插件开发入门教程
01-08
"金蝶K3BOS插件开发入门教程" 金蝶K3BOS插件开发入门教程是金蝶K3业务操作系统（BOS）的扩展开发指南，本文将指导读者从零开始学习BOS插件开发的基本流程和步骤。 一、BOS插件开发的基本概念 BOS插件是一种基于...
K3Cloud+BOS+插件开发百问百答
07-12
### K3Cloud+BOS+插件开发百问百答 #### 一、概述 金蝶K/3 Cloud作为一款先进的企业资源计划（ERP）软件，提供了丰富的开发接口和工具，帮助开发者快速定制业务流程和扩展功能。其中，BOS（Business Object Service...
K3BOS插件开发入门教程
07-22
K3BOS插件开发入门教程
K3录单辅助插件_金蝶K3_金蝶k3_k3_金蝶_
09-29
金蝶K3录单辅助插件。可以试试。帮助录单使用
金蝶K3后台增加老单下推老单字段明细对应关系的示例sql脚本转换
02-25
SQL数据库中直接解决 新单下推老单的字段问题 其他新单下推老单的单据转换流程后台增加明细字段对应关系,亦可参照以上步骤进行 备注：请先在测试帐套中验证无误后，再到正式帐套中执行！
K3 WISE 开发插件《 工业单据老单客户端插件事件、属性、方法》
01-03
K3 WISE 开发插件《 工业单据老单客户端插件事件、属性、方法》
K3老单二次开发案例（领料单插件开发）
03-09
通过二次开发插件，控制领料单不能从指定的仓库进行出库。初学者可以通过此案例学习和了解K3二次开发实现过程。
金蝶K3工业单据中间层插件开发教程
skywangbinlu的专栏
08-26 7063
前言： 做为一个公司的K3系统运维人员一定要学习系统的BOS单据（自定义单据）和工业单据的二次开发，都是在日常开发中遇到问题再到网上去找一些资料再改进自己所写的功能，但在网上找BOS单据和工业单据的单据开发的资料很多，但工业单据中间层的资料确很少（注：可能是我没有竭尽所能的去找吧），现在我将自己在K3工业单据中间层开发实践中不段摸索出来的经验写成教程（此处暂时称为教程吧）分享给大家，以便有助于大家的学习。
K3 BOS 表单插件开发 - 表头值改变事件
热门推荐
sz_bdqn的专栏
01-30 1万+
目前，我也是刚学K3 BOS 插件开发，在这里记录下学习的心得及相关知识点，算是总结、积累吧，为以后有用！ 在 创建表单插件中，每个类中都有如下代码: '定义 BillEvent 接口. 必须具有的声明, 以此来获得事件 Private WithEvents m_BillInterface As BillEvent Public Sub Show(ByVal oBillInt
金蝶K3 V12 BOS插件开发指南
"K3 V12 BOS插件开发手册是针对金蝶K3成长版V12用户的指南，涵盖了BOS插件的开发流程和技术细节。" 金蝶K3 BOS（Business Operating System）插件开发主要涉及到对业务流程的自定义扩展和功能增强。以下是基于提供...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值