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