fix bug topupCash

This commit is contained in:
miggaze 2022-06-21 11:31:13 +07:00
parent 2522960efb
commit 8ede28d6c5

View file

@ -93,6 +93,9 @@
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
@ -157,9 +160,13 @@
Var CancelCounter = CancelCounter + 1
If CancelCounter = 2 Then
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
@ -223,7 +230,10 @@
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
CoinVending BILLSTACKALL
;CoinVending BILLSTACKALL
Var RemainAmountKeep = 0
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
EndIf
Var Timeout = 0
@ -254,6 +264,11 @@
Var RemainAmountStr = "ทอน " + Canout
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = 0
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
@ -293,6 +308,11 @@
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
@ -470,6 +490,9 @@
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
@ -500,6 +523,9 @@
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
</EventClick>
@ -540,6 +566,10 @@
CoinVending BILLSTACKALL
Var Seeker.StoreCreditFlag = 1
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
@ -564,6 +594,7 @@
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
EndIf