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

THAI: Fix bugs

Browse source
This commit is contained in:
Kenta420 2024-07-30 13:07:04 +07:00
parent e9b351ef37
commit a880c4c0dc
2 changed files with 29 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
xml/page_display_get_15_discount.xml
View file

@ -30,10 +30,9 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If FromCheckMemberPoint = 1 Then
If Timeout > 10 Then If Timeout > 10 Then
If FromCheckMemberPoint = 1 Then
Open "ROOT/taobin_project/xml/page_check_member2.xml" Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
Else Else
If Seeker.IsLineMember = 0 Then If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then If LuckyDrawCampaign = 1 Then
@ -45,6 +44,7 @@
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf EndIf
EndIf
TimerReset TimerReset
Refresh Refresh

32
xml/page_payment_credit3-TopupCash.xml
View file

@ -78,8 +78,6 @@
Var ChangeTimeout = 0 Var ChangeTimeout = 0
Var CancelCounter = 0 Var CancelCounter = 0
CoinVending XBILL
Var ServiceAmount2 = CreditAmount Var ServiceAmount2 = CreditAmount
Var ServiceCharge = 0 Var ServiceCharge = 0
@ -95,6 +93,24 @@
Var warning_price_state = "Enable" Var warning_price_state = "Enable"
If CoinAmount > 0 Then
Var SumAmount = CreditAmount + CoinAmount
If SumAmount >= PayAmountSubDiscount Then
Var confirmButtonState = "Enable"
Var alphaState2 = "Invisible"
Var warning_price_state = "Invisible"
Else
Var warning_price_state = "Enable"
EndIf
Var RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -112,7 +128,6 @@
AddData 24 TelephoneNumber BmiYear PointCrm GetScore AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf EndIf
CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
@ -164,6 +179,8 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1 Var PayCredit = 1
CoinVending OFF
If Seeker = "curr" Then If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_catalog.xml"
Else Else
@ -212,14 +229,6 @@
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventTimeout> </EventTimeout>
@ -381,7 +390,6 @@
AddData 24 TelephoneNumber BmiYear PointCrm GetScore AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf EndIf
CoinVending OFF
Var CancelCounter = 0 Var CancelCounter = 0
Var CancelFlag = 1 Var CancelFlag = 1
If CoinAmount = 0 Then If CoinAmount = 0 Then