K3 装配日志(BOS插件)V3

增加"只录时长"判断 ,当勾选时,锁定开始和结束时间,并解锁时长(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
 ''''''''''''''''''''''''''''''''''
相关推荐
一个天蝎座 白勺 程序猿32 分钟前
Apache IoTDB(7):设备模板管理——工业物联网元数据标准化的破局之道
数据库·apache·时序数据库·iotdb
sky-stars36 分钟前
.NET 任务 Task、Task.Run()、 Task.WhenAll()、Task.WhenAny()
数据库·php·.net
技术砖家--Felix42 分钟前
Spring Boot数据访问篇:整合MyBatis操作数据库
数据库·spring boot·mybatis
银河技术1 小时前
Redis 限流最佳实践:令牌桶与滑动窗口全流程实现
数据库·redis·缓存
小白考证进阶中1 小时前
如何拿到Oracle OCP(Oracle 19c)?
数据库·oracle·dba·开闭原则·ocp认证·oracle认证·oracleocp
IAR Systems1 小时前
使用J-Link Attach NXP S32K3导致对应RAM区域被初始化成0xDEADBEEF
arm开发·数据库·嵌入式软件开发·iar
RestCloud2 小时前
OceanBase 分布式数据库的 ETL 实践:从抽取到实时分析
数据库·分布式·postgresql·oceanbase·etl·数据处理·数据同步
码顺2 小时前
记录一次Oracle日志listener.log文件大小超过4G后出现Tomcat服务启动一直报错的原因【ORACLE】
数据库·oracle·tomcat
一只小透明啊啊啊啊2 小时前
SQL 查询语句的子句的执行顺序
数据库·sql