add Profile AllPriceUp05 and 10

This commit is contained in:
wanlop run 2024-02-08 13:25:14 +07:00
parent 5ff368f812
commit 55c72fefc8
28 changed files with 415 additions and 340 deletions

View file

@ -178,7 +178,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -187,28 +187,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset