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

update referent id

Browse source
This commit is contained in:
Kenta420 2024-01-12 17:50:35 +07:00
parent 7f17b1e81b
commit c138c28967
2 changed files with 15 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

17
xml/page_thankyou.xml
View file

@ -363,10 +363,23 @@
If Seeker.CreditNotEnoughRefID = "" Then
Else
Var CurrAmount = Seeker.CurrCreditAmount
Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign
If CoinAmount >= ServiceAmountSupCampain Then
Var CurrAmount = Seeker.CurrCreditAmount
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
Else
Var CurrAmount = CoinAmount
Var RefID = "" + ServiceAmountSupCampain
Var RefID = RefID + "/"
Var RefID = RefID + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
EndIf
Var CurrTelePhoneNum = Seeker.CurrCreditTelNum
Var CurrPinNum = Seeker.CurrCreditPinNum
Var RefID = Seeker.CreditNotEnoughRefID
AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID
EndIf