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

Hold 10 sec after push qrcode

Browse source
This commit is contained in:
miggaze 2020-12-30 15:45:46 +07:00
parent 447d4dcc0a
commit 0d70faf86f
1 changed files with 38 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

59
xml/page_payment_cash.xml
View file

@ -18,6 +18,7 @@
Var FlagQROpened = 0
Var PayInfoCFlag = 0
Var ActionOKCase = 0
Var VendingCampaign = IntVendingCampaign
@ -35,6 +36,7 @@
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 2
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
@ -348,12 +350,13 @@
Else
If CancelFlag = 0 Then
SAVELOG "Timeout > 180 s."
VendingQR OFF
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCampaign = 0 Then
VendingQR OFF
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
@ -366,7 +369,7 @@
If CancelFlag = 1 Then
Var CancelCounter = CancelCounter + 1
If CancelCounter = 2 Then
If CancelCounter = CancelNumber Then
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
@ -376,10 +379,11 @@
Var PayInfoCFlag = 1
EndIf
EndIf
VendingQR OFF
EndIf
If CancelCounter >= 33 Then
If CancelCounter >= 43 Then
Var ChangeOK = 1
EndIf
@ -490,23 +494,29 @@
Refresh
</EventCoin>
<EventVDCancle>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf
If CoinInFlag = 1 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf
Var showRemaining = "คืนเงิน"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Var showRemaining = "คืนเงิน"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
;VendingQR OFF
Refresh
EndIf
VendingQR OFF
Refresh
</EventVDCancle>
@ -627,6 +637,7 @@
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
@ -666,7 +677,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
VendingQR OFF
;VendingQR OFF
If CoinInOK = 0 Then
@ -675,6 +686,10 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
@ -788,7 +803,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
VendingQR OFF
;VendingQR OFF
If CoinInOK = 0 Then
@ -797,7 +812,9 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf