K3 装配日志（BOS插件）V3

锁匙isthekey2024-04-29 16:18

增加"只录时长"判断，当勾选时，锁定开始和结束时间，并解锁时长（mi），不勾选则反之

勾选时

代码中有所修改

在CHANGE事件中增加

vbnet 复制代码

''''''''''''''''''''''''''''''''''''''
''判断是否只录"时长"。如果勾选，则锁定起始时间和完工时间，并解锁时长（mi）
Set oField = oFields("FCheckBox1")
sValue = oField.Value

If sValue = True Then

 .BillEntrys(1).BOSFields(19).FieldLock = True
 .BillEntrys(1).BOSFields(20).FieldLock = True
 .BillEntrys(1).BOSFields(22).FieldLock = False
 GoTo out
Else

 .BillEntrys(1).BOSFields(19).FieldLock = False
 .BillEntrys(1).BOSFields(20).FieldLock = False
 .BillEntrys(1).BOSFields(22).FieldLock = True
 
 
 If .BillEntrys(1).BOSFields(19).Value = "" Or IsNull(.BillEntrys(1).BOSFields(19).Value) Then
    .BillEntrys(1).BOSFields(19).Value = "00:00:00"
 End If
 If .BillEntrys(1).BOSFields(20).Value = "" Or IsNull(.BillEntrys(1).BOSFields(20).Value) Then
    .BillEntrys(1).BOSFields(20).Value = "00:00:00"
 End If
 If Row = -1 Then Row = 1
 ''''''''''''''''''''''''''''''''''