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

THAI: fix topup bug.

Browse source
This commit is contained in:
Kenta420 2024-07-26 14:26:30 +07:00
parent 1d545f98a0
commit 949bfb5349
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
xml/page_payment_credit3-1.xml
View file

@ -39,6 +39,7 @@
GenHashWithTimeStamp PointCrm
Var TopupWithCashState = "Enable"
Var NotEnoughPayment = 0
If SELLSTATUS = "SELLNOCASH" Then
Var TopupWithCashState = "Disable"
@ -133,6 +134,9 @@
<EventClick>
Var TopupFromPage = "payment"
If ShowNotEnoughText = "Enable" Then
Var NotEnoughPayment = 1
EndIf
Open "ROOT/taobin_project/xml/page_topup_credit3_cash_warning.xml"
</EventClick>

18
xml/page_topup_credit3_cash_warning.xml
View file

@ -110,13 +110,17 @@
Open "ROOT/taobin_project/xml/page_member_topupCash.xml"
Else
If TopupFromPage = "payment" Then
If ReqPayWithCash = 0 Then
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var useCreditAmount = SumCreditAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqPayWithCash = 1
If NotEnoughPayment = 1 Then
If ReqPayWithCash = 0 Then
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var useCreditAmount = SumCreditAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqPayWithCash = 1
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_topup_credit3-TopupCash.xml"