THAI: AOT midnight close & Seeker.ServiceCharge

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

View file

@ -55,6 +55,14 @@
Var EnableSelectMenuBetweenBrew = "Enable"
EndIf
If ConnectWithPOSMachine = 1 Then
If POS_SELL_STATUS = "NORMAL" Then
Else
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
EndIf
If GetFreeFromError = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
@ -186,7 +194,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 = ""
@ -243,7 +251,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 = ""
@ -342,7 +350,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 = ""
@ -388,7 +396,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
@ -427,7 +435,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
@ -584,6 +592,16 @@
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If ConnectWithPOSMachine = 1 Then
If POS_SELL_STATUS = "NORMAL" Then
Else
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
EndIf
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible"