This commit is contained in:
wanlop run 2024-02-22 19:01:12 +07:00
parent ff3b85a63c
commit 7836033ab9
23 changed files with 2085 additions and 41 deletions

View file

@ -43,8 +43,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -209,8 +209,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -201,8 +201,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -210,8 +210,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -201,8 +201,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -199,8 +199,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -197,8 +197,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -200,8 +200,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -197,8 +197,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -219,8 +219,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -195,8 +195,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -198,8 +198,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -226,8 +226,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -199,8 +199,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -218,8 +218,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -197,8 +197,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -197,8 +197,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -201,8 +201,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -206,8 +206,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -197,8 +197,8 @@
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1
DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then

View file

@ -1114,7 +1114,7 @@
Var ShowNetworkProblemText = "" Var ShowNetworkProblemText = ""
EndIf EndIf
Var SlientRefreshEnable = 0
</EventOpen> </EventOpen>
<EventUnitTest1> <EventUnitTest1>

File diff suppressed because it is too large Load diff

View file

@ -137,6 +137,8 @@
Machine DoorClose Machine DoorClose
Var Timeout2 = 0 Var Timeout2 = 0
Var SlientRefreshEnable = 0
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>