K3 BOS插件实现作息时间的选择

news2025/7/13 18:50:27

要求做一个工时登记表，其中要扣减中午休息时间。公司夏令休息1.5个小时、冬令休息1个小时是不变的，基本思路是根据日期来判断，但在做表单时发现值更新事件中这个日期判断不好写，于是通过写BOS插件来实现这个功能。

首先新建的BOS单据，增加“日期”和“工作时段”，
在这里插入图片描述
其中“工作时段”的属性如下

然后就可以写插件了，主要是要考虑新增单据时和修改“日期”时的取值变化，新增一个插件，类模块中的代码如下：


'新增单据时，工作时间段按日期判断是夏令时还是冬令时
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
 m_BillInterface.SetFieldValue "FComboBox1", 0
 Else
 m_BillInterface.SetFieldValue "FComboBox1", 1
 End If
 
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)

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

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("FComboBox1")

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

End Sub