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