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

...

Browse source
This commit is contained in:
miggaze 2020-10-28 16:59:31 +07:00
parent e8c55750a4
commit b5b2c8b129
3 changed files with 32 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

1
xml/page_payment.xml
View file

@ -35,6 +35,7 @@
Var IntVendingCampaign = 0 Var IntVendingCampaign = 0
Var CodeChannel = 0 Var CodeChannel = 0
Var CoinVendingOnFlag = 0

20
xml/page_payment_cash.xml
View file

@ -29,13 +29,14 @@
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var CoinInFlag = 0 Var CoinInFlag = 0
Var CoinAmount = 0 ;Var CoinAmount = 0
Var CancelFlag = 0 Var CancelFlag = 0
Var CancelCounter = 0 Var CancelCounter = 0
Var CoinInCounter = 0 Var CoinInCounter = 0
Var PayAmount = PriceDrink Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = RemainAmount - CoinAmount
Var RemainAmountStr = "" + RemainAmount Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0 Var Timeout = 0
Var PayOK = 0 Var PayOK = 0
@ -70,7 +71,14 @@
If QRChannel = 0 Then If QRChannel = 0 Then
;Var VendingQRCode = "ERROR" ;Var VendingQRCode = "ERROR"
VendingQR ON VendingQR ON
CoinVending ON If CoinVendingOnFlag = 0 Then
CoinVending ON
Var CoinVendingOnFlag = 1
Else
EndIf
;Var QRCODE99 = "" ;Var QRCODE99 = ""
@ -110,6 +118,10 @@
Var PayState2 = "Disable" Var PayState2 = "Disable"
EndIf EndIf
Var PayState3 = "Enable" Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr Var showRemaining = charOfBaht + RemainAmountStr
EndIf EndIf
@ -517,7 +529,7 @@
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
Var alphaState = "Enable" Var alphaState = "Enable"
CoinVending OFF ;CoinVending OFF
VendingQR ON VendingQR ON
Refresh Refresh
@ -645,7 +657,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var alphaState = "Invisible" Var alphaState = "Invisible"
CoinVending ON ;CoinVending ON
VendingQR OFF VendingQR OFF
Refresh Refresh
</EventClick> </EventClick>

18
xml/page_payment_code.xml
View file

@ -19,7 +19,7 @@
VendingQR ON VendingQR ON
Var QRCODE99 = "" Var QRCODE99 = ""
CoinVending OFF ;CoinVending OFF
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -153,6 +153,7 @@
Var ShowErrorText = "Enable" Var ShowErrorText = "Enable"
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var CodeChannel = 0 Var CodeChannel = 0
Var Tel_Confirm_State = "Disable"
Refresh Refresh
EndIf EndIf
@ -184,6 +185,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -205,6 +207,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -226,6 +229,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -247,6 +251,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -268,6 +273,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -289,6 +295,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -310,6 +317,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -331,6 +339,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -352,6 +361,7 @@
If TelNumLen >= 8 Then If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -374,7 +384,7 @@
TimerReset TimerReset
Refresh Refresh
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
@ -535,9 +545,9 @@
<Image> <Image>
<X> 240 </X> <X> 240 </X>
<Y> 606 </Y> <Y> 870 </Y>
<State> ShowErrorText </State> <State> ShowErrorText </State>
<Filename> "ROOT/taobin_project/image/enter_point/text2.png" </Filename> <Filename> "ROOT/taobin_project/image/collectiing/text_show_error.png" </Filename>
</Image> </Image>