pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

THAI: AOT midnight close & Seeker.ServiceCharge

Browse source
This commit is contained in:
Kenta420 2025-05-14 18:52:40 +07:00
parent 7285e9dc72
commit cdf98a94f2
13 changed files with 218 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

35
xml/page_NewBrewing3.xml
View file

@ -7,7 +7,7 @@
<EventOpen>
RootLayoutVisible 3 "hide"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev"
Var SendNotiPaySuccess = 2
@ -288,6 +288,15 @@
Var EnableTopupCreditBetweenBrew = "Enable"
EndIf
If ConnectWithPOSMachine = 1 Then
If POS_SELL_STATUS = "NORMAL" Then
Else
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
EndIf
If GetFreeFromError = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
@ -426,7 +435,7 @@
DEBUGVAR GameEnableFromTrickerEv
DEBUGVAR GameOverrideDisable
DEBUGVAR game_mode_enable
DEBUGVAR Seeker
@ -618,11 +627,11 @@
Var IgnoreLidStrawAll = 0
Var bg_lidProblem_ST = "Invisible"
Var GetLidButtonState = "Invisible"
Var bg_strawProblem_ST = "Invisible"
Var EnableGetMoreStrawFileName = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
__CMD "SetErrorCodeHandleByXML" 1028 "-" "-"
@ -670,7 +679,7 @@
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -723,7 +732,7 @@
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -885,7 +894,7 @@
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -930,7 +939,7 @@
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2
@ -969,7 +978,7 @@
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2
@ -1411,6 +1420,14 @@
EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
If ConnectWithPOSMachine = 1 Then
If POS_SELL_STATUS = "NORMAL" Then
Else
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
EndIf
EndIf
Refresh
TimerReset