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

THAI: Fix bug new payment credit for new minimum payment

Browse source
This commit is contained in:
Kenta420 2024-02-01 11:35:09 +07:00
parent 5e71999d0d
commit fe961389d2
4 changed files with 41 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

31
xml/page_payment_credit3-Topup.xml
View file

@ -22,7 +22,6 @@
Var GetCreditFlag = 0
Var posX = 400
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
@ -34,11 +33,14 @@
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var Text_X = 170
Var posX = 270
Else
Var Text_X = 255
Var posX = 400
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
@ -52,17 +54,19 @@
Var GetPayInfoFlag = 0
Var ReqPayWithCash = 0
Var TextWaiting = ""
GenHashWithTimeStamp PointCrm
Var text_44 = "/text_44.png"
Var text_show_amountInvalid = "/text_show_amountInvalid.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 246
Var Min = PayAmountSubDiscount - SumCreditAmount
Else
Var Text_X = 263
Var Min = PayAmountSubDiscount
EndIf
@ -150,6 +154,16 @@ If ViewBill > 0 Then
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupQR.xml"
EndIf
If ReqPayWithCash = 1 Then
Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
Var Seeker.StoreCreditFlag = 1
Var Seeker.CreditNotEnoughRefID = PointCrm
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
EndIf
Refresh
</EventActionOk>
@ -560,7 +574,14 @@ If ViewBill > 0 Then
Else
If PayCreditChannel = "cash" Then
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
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