fix bug Var SumCoinAmount = CoinAmount + Seeker.IntVendingCredit

This commit is contained in:
miggaze 2022-03-07 13:13:41 +07:00
parent 44e33545ca
commit ef4bab5a26
2 changed files with 26 additions and 13 deletions

View file

@ -198,6 +198,7 @@
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCredit
If SumCoinAmount >= PayAmount Then
SAVELOG "CoinInOk First"

View file

@ -156,7 +156,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -197,7 +198,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -238,7 +240,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -279,7 +282,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -320,7 +324,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -361,7 +366,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -402,7 +408,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -443,7 +450,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -484,7 +492,8 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -522,7 +531,8 @@
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
@ -577,7 +587,7 @@
<Button>
<X> 218 </X>
<X> 397 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
@ -693,8 +703,10 @@
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<Function2>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 19
</Function2>
</Popup>